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

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

This commit is contained in:
Daniel Hwang 2024-05-24 11:34:51 -07:00 committed by R. Timothy Edwards
parent 308224109f
commit 802c31d16a
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tcltk/wrapper.tcl
View File

@ -1425,6 +1425,10 @@ proc magic::openwrapper {{cell ""} {framename ""}} {
grid ${layoutframe}.toolbar -row 1 -column 2 -rowspan 2 -sticky new 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 # Remove "open" and "close" macros so they don't generate non-GUI
# windows or (worse) blow away the window inside the GUI frame # windows or (worse) blow away the window inside the GUI frame