luke
/
magic
mirror of https://github.com/RTimothyEdwards/magic.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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.
This commit is contained in:
Tim Edwards 2020-05-23 17:26:32 -04:00
parent 2af38a4191
commit 9382cc622c
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
commands/CmdFI.c
View File

@ -370,7 +370,11 @@ CmdFeedback(w, cmd)
case COUNT: case COUNT:
if (cmd->tx_argc != 2) goto badusage; 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); TxPrintf("There are %d feedback areas.\n", DBWFeedbackCount);
#endif
break; break;
case FIND: case FIND: