From 4fb9ffb76649e18f0b02248d82ea5568eabcd395 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Fri, 26 Sep 2025 00:58:50 +0200
Subject: [PATCH] small button syntax change for readability

---
 src/xschem.tcl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 8864b1b5..f9ae80e4 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -8180,8 +8180,8 @@ proc toolbar_add {name cmd { help "" } {topwin {} } } {
        frame $topwin.toolbar -relief raised -bd 0 -background $bg -takefocus 0
     }
     if { ![winfo exists $topwin.toolbar.b$name]} {
-      button $topwin.toolbar.b$name -image img$name -relief flat -bd 0 \
-      -background $bg -fg $bg -height $toolbar_icon_size  -padx 0 -pady 0 -command $cmd -takefocus 0
+      button $topwin.toolbar.b$name -image img$name -relief flat -bd 0 -takefocus 0 \
+      -background $bg -fg $bg -height $toolbar_icon_size  -padx 0 -pady 0 -command $cmd
       if { $help == "" } { balloon $topwin.toolbar.b$name $name } else { balloon $topwin.toolbar.b$name $help }
     }
 }
@@ -9144,7 +9144,7 @@ proc build_widgets { {topwin {} } } {
   menu $topwin.menubar.edit -tearoff 0 -takefocus 0
   $topwin.menubar add cascade -label "Options" -menu $topwin.menubar.option
   menu $topwin.menubar.option -tearoff 0 -takefocus 0
-  $topwin.menubar add cascade -label "View" -menu $topwin.menubar.view
+  topwin.menubar add cascade -label "View" -menu $topwin.menubar.view
   menu $topwin.menubar.view -tearoff 0 -takefocus 0
   $topwin.menubar add cascade -label "Properties" -menu $topwin.menubar.prop
   menu $topwin.menubar.prop -tearoff 0 -takefocus 0