Corrected an error in the last commit's implementation of the "what"
command.
This commit is contained in:
parent
e884b5b256
commit
f5d8dbc3e5
|
|
@ -1007,7 +1007,7 @@ CmdWhat(w, cmd)
|
||||||
|
|
||||||
EditCellUse = CheckUse;
|
EditCellUse = CheckUse;
|
||||||
|
|
||||||
TxPrintf("Selected mask layers:\n");
|
if (!doListAll) TxPrintf("Selected mask layers:\n");
|
||||||
for (i = TT_SELECTBASE; i < DBNumUserLayers; i++)
|
for (i = TT_SELECTBASE; i < DBNumUserLayers; i++)
|
||||||
{
|
{
|
||||||
if (TTMaskHasType(&layers, i))
|
if (TTMaskHasType(&layers, i))
|
||||||
|
|
@ -1044,9 +1044,6 @@ CmdWhat(w, cmd)
|
||||||
for (lidp = lid; lidp; lidp = lidp->lid_next)
|
for (lidp = lid; lidp; lidp = lidp->lid_next)
|
||||||
Tcl_ListObjAppendElement(magicinterp, paintcellobj,
|
Tcl_ListObjAppendElement(magicinterp, paintcellobj,
|
||||||
Tcl_NewStringObj(lidp->lid_name, -1));
|
Tcl_NewStringObj(lidp->lid_name, -1));
|
||||||
|
|
||||||
Tcl_ListObjAppendElement(magicinterp, paintobj,
|
|
||||||
paintcellobj);
|
|
||||||
}
|
}
|
||||||
|
|
||||||
while (lid != NULL)
|
while (lid != NULL)
|
||||||
|
|
@ -1057,6 +1054,9 @@ CmdWhat(w, cmd)
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
EditCellUse = saveUse;
|
EditCellUse = saveUse;
|
||||||
|
if (doListAll)
|
||||||
|
Tcl_ListObjAppendElement(magicinterp, paintobj, paintcellobj);
|
||||||
|
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue