From 802c31d16af48b824392623732c7cd0da4000ffb Mon Sep 17 00:00:00 2001 From: Daniel Hwang Date: Fri, 24 May 2024 11:34:51 -0700 Subject: [PATCH] wrapper.tcl: allow cmdentry to be enabled (by default) --- tcltk/wrapper.tcl | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/tcltk/wrapper.tcl b/tcltk/wrapper.tcl index c00777ff..0bfaae5d 100644 --- a/tcltk/wrapper.tcl +++ b/tcltk/wrapper.tcl @@ -1425,6 +1425,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