From 9709444c93e225dcbe5d3809d528a3e07ac67980 Mon Sep 17 00:00:00 2001
From: Daniel Hwang <daniel@dangerdevices.com>
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 bd99d48e..6f3c68b7 100644
--- 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