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

commands/CmdFI.c: added CmdFlush_NoConfirm option to disable flush prompt

This commit is contained in:
Carsten Wulff 2024-10-09 22:15:46 +02:00 committed by Tim Edwards
parent d79533a255
commit 772bfe2f71
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
commands/CmdFI.c
View File

@ -943,6 +943,7 @@ CmdFlush(w, cmd)
static char *actionNames[] = { "no", "yes", 0 };
char *prompt;
bool dereference = FALSE;
char *strNoConfirm;
if (!strncmp(cmd->tx_argv[cmd->tx_argc - 1], "-deref", 6))
{
@ -973,13 +974,19 @@ CmdFlush(w, cmd)
}
}
if (def->cd_flags & (CDMODIFIED|CDSTAMPSCHANGED|CDBOXESCHANGED))
{
prompt = TxPrintString("Really throw away all changes made"
" to cell %s? ", def->cd_name);
action = TxDialog(prompt, actionNames, 0);
if (action == 0) /* No */
return;
strNoConfirm = (char *)Tcl_GetVar(magicinterp, "CmdFlush_NoConfirm", TCL_GLOBAL_ONLY);
if(strNoConfirm){
TxPrintf("CmdFlush_NoConfirm set, skipping prompt.\n");
}else{
if (def->cd_flags & (CDMODIFIED|CDSTAMPSCHANGED|CDBOXESCHANGED))
{
prompt = TxPrintString("Really throw away all changes made"
" to cell %s? ", def->cd_name);
action = TxDialog(prompt, actionNames, 0);
if (action == 0) /* No */
return;
}
}
cmdFlushCell(def, dereference);