--- library/ttk/button.tcl
+++ library/ttk/button.tcl
@@ -6,11 +6,11 @@
 # This doesn't seem to be conventional, but it's a nice way
 # to provide extra feedback while the grab is active.
 # (If the button is released off the widget, the grab deactivates and
 # we get a <Leave> event then, which turns off the "active" state)
 #
-# Normally, <ButtonRelease> and <ButtonN-Enter/Leave> events are 
+# Normally, <ButtonRelease> and <ButtonN-Enter/Leave> events are
 # delivered to the widget which received the initial <ButtonPress>
 # event.  However, Tk [grab]s (#1223103) and menu interactions
 # (#1222605) can interfere with this.  To guard against spurious
 # <Button1-Enter> events, the <Button1-Enter> binding only sets
 # the pressed state if the button is currently active.
@@ -48,11 +48,11 @@
 # activate --
 #      Simulate a button press: temporarily set the state to 'pressed',
 #      then invoke the button.
 #
 proc ttk::button::activate {w} {
-    $w instate disabled { return }
+    if { [$w instate disabled] } { return }
     set oldState [$w state pressed]
     update idletasks; after 100        ;# block event loop to avoid reentrancy
     $w state $oldState
     $w invoke
 }
--- library/ttk/combobox.tcl
+++ library/ttk/combobox.tcl
@@ -111,11 +111,11 @@
 #      depending on widget state and location of button press.
 #
 proc ttk::combobox::Press {mode w x y} {
     variable State
 
-    $w instate disabled { return }
+    if { [$w instate disabled] } { return }
 
     set State(entryPress) [expr {
           [$w instate !readonly]
        && [string match *textarea [$w identify element $x $y]]
     }]
@@ -179,11 +179,11 @@
 }
 
 ## Scroll -- Mousewheel binding
 #
 proc ttk::combobox::Scroll {cb dir} {
-    $cb instate disabled { return }
+    if { [$cb instate disabled] } { return }
     set max [llength [$cb cget -values]]
     set current [$cb current]
     incr current $dir
     if {$max != 0 && $current == $current % $max} {
        SelectEntry $cb $current
@@ -387,11 +387,11 @@
 #      Pop down the associated listbox.
 #
 proc ttk::combobox::Post {cb} {
     # Don't do anything if disabled:
     #
-    $cb instate disabled { return }
+    if { [$cb instate disabled] } { return }
 
     # ASSERT: ![$cb instate pressed]
 
     # Run -postcommand callback:
     #

package require Tk

set tclsh [info nameofexecutable] 
if { [regexp {wish\d*.exe} $tclsh] } { 
  regsub {wish\d*.exe} $tclsh tclsh.exe tclsh 
  exec $tclsh [info script] & 
  exit 
} 
wm iconbitmap . -default [file join $myimages bdj_icon.ico] 

set script [file normalize [file join \
    [file dirname [file dirname [file dirname [info script]]]] \
    MacOS MyApp.tcl]]

if { $argc > 0 } {
  set script [lindex $::argv 0]
  set ::argv [lrange $::argv 1 end]
}

source $script