diff options
Diffstat (limited to 'library/ttk/cursors.tcl')
| -rw-r--r-- | library/ttk/cursors.tcl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/library/ttk/cursors.tcl b/library/ttk/cursors.tcl index 75f7791..be6aa1b 100644 --- a/library/ttk/cursors.tcl +++ b/library/ttk/cursors.tcl @@ -70,7 +70,7 @@ namespace eval ttk { # Platform-specific overrides for Windows and OSX. # - switch [tk windowingsystem] { + switch -- [tk windowingsystem] { "win32" { array set Cursors { none {} @@ -118,6 +118,7 @@ namespace eval ttk { } } } + default {} } } @@ -176,7 +177,7 @@ proc ttk::CursorSampler {f} { return $f } -if {[info exists argv0] && $argv0 eq [info script]} { +if {[info exists argv0] && ($argv0 eq [info script])} { wm title . "[array size ::ttk::Cursors] cursors" pack [ttk::CursorSampler .f] -expand true -fill both bind . <KeyPress-Escape> [list destroy .] |