diff options
Diffstat (limited to 'Master/tlpkg/tltcl/lib/tk8.6/ttk/cursors.tcl')
-rw-r--r-- | Master/tlpkg/tltcl/lib/tk8.6/ttk/cursors.tcl | 33 |
1 files changed, 15 insertions, 18 deletions
diff --git a/Master/tlpkg/tltcl/lib/tk8.6/ttk/cursors.tcl b/Master/tlpkg/tltcl/lib/tk8.6/ttk/cursors.tcl index f1f9fa16336..9d1e1aef31b 100644 --- a/Master/tlpkg/tltcl/lib/tk8.6/ttk/cursors.tcl +++ b/Master/tlpkg/tltcl/lib/tk8.6/ttk/cursors.tcl @@ -99,23 +99,20 @@ namespace eval ttk { } "aqua" { - if {[package vsatisfies [package provide Tk] 8.5]} { - # appeared 2007-04-23, Tk 8.5a6 - array set Cursors { - standard arrow - text ibeam - link pointinghand - crosshair crosshair - busy watch - forbidden notallowed - - hresize resizeleftright - vresize resizeupdown - nresize resizeup - sresize resizedown - wresize resizeleft - eresize resizeright - } + array set Cursors { + standard arrow + text ibeam + link pointinghand + crosshair crosshair + busy watch + forbidden notallowed + + hresize resizeleftright + vresize resizeupdown + nresize resizeup + sresize resizedown + wresize resizeleft + eresize resizeright } } } @@ -201,7 +198,7 @@ proc ttk::CursorSampler {f} { 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 .] + bind . <Escape> [list destroy .] focus .f } |