wrapper.tcl: allow cmdentry to be enabled (by default)

2024-05-24 11:34:51 -07:00 · 2024-05-24 11:34:51 -07:00 · 9709444c93
parent 291ba96285
commit 9709444c93
1 changed files with 4 additions and 0 deletions
--- a/tcltk/wrapper.tcl
+++ b/tcltk/wrapper.tcl
@ -1421,6 +1421,10 @@ proc magic::openwrapper {{cell ""} {framename ""}} {
      grid ${layoutframe}.toolbar -row 1 -column 2 -rowspan 2 -sticky new
   }

+   if { $Winopts(${framename},cmdentry) == 1} {
+      addcommandentry $framename
+   }
+
   # Remove "open" and "close" macros so they don't generate non-GUI
   # windows or (worse) blow away the window inside the GUI frame