From 9382cc622c98dc152d2da0fd6860b5968162dced Mon Sep 17 00:00:00 2001
From: Tim Edwards <tim@opencircuitdesign.com>
Date: Sat, 23 May 2020 17:26:32 -0400
Subject: [PATCH] Changed the "feedback count" command to return the feedback
 count as a Tcl int object instead of printing out a text message, per the
 suggestion from Dan Moore.

---
 commands/CmdFI.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/commands/CmdFI.c b/commands/CmdFI.c
index f923b5f9..1db446e9 100644
--- a/commands/CmdFI.c
+++ b/commands/CmdFI.c
@@ -370,7 +370,11 @@ CmdFeedback(w, cmd)
 
 	case COUNT:
 	    if (cmd->tx_argc != 2) goto badusage;
+#ifdef MAGIC_WRAPPER
+	    Tcl_SetObjResult(magicinterp, Tcl_NewIntObj(DBWFeedbackCount));
+#else
 	    TxPrintf("There are %d feedback areas.\n", DBWFeedbackCount);
+#endif
 	    break;
 
 	case FIND: