diff options
| -rw-r--r-- | ChangeLog | 2 | ||||
| -rw-r--r-- | library/demos/widget | 12 |
2 files changed, 8 insertions, 6 deletions
@@ -1,5 +1,7 @@ 2008-04-10 Daniel Steffen <das@users.sourceforge.net> + * library/demos/widget: GOOBE: use ttk::cursor + * library/demos/knightstour.tcl: fix knightstour demo not running from interactive wish. diff --git a/library/demos/widget b/library/demos/widget index 0d393e7..1bf2217 100644 --- a/library/demos/widget +++ b/library/demos/widget @@ -10,7 +10,7 @@ exec wish "$0" ${1+"$@"} # separate ".tcl" files is this directory, which are sourced by this script as # needed. # -# RCS: @(#) $Id: widget,v 1.56 2009/04/08 12:28:32 dkf Exp $ +# RCS: @(#) $Id: widget,v 1.57 2009/04/10 16:40:03 das Exp $ package require Tcl 8.5 package require Tk 8.5 @@ -198,12 +198,12 @@ set lastLine "" .t tag bind demo <Enter> { set lastLine [.t index {@%x,%y linestart}] .t tag add hot "$lastLine +1 chars" "$lastLine lineend -1 chars" - .t config -cursor hand2 + .t config -cursor [::ttk::cursor link] showStatus [.t index {@%x,%y}] } .t tag bind demo <Leave> { .t tag remove hot 1.0 end - .t config -cursor xterm + .t config -cursor [::ttk::cursor text] .statusBar.lab config -text "" } .t tag bind demo <Motion> { @@ -501,7 +501,7 @@ proc invoke index { return } set cursor [.t cget -cursor] - .t configure -cursor watch + .t configure -cursor [::ttk::cursor busy] update set demo [string range [lindex $tags $i] 5 end] uplevel 1 [list source [file join $tk_demoDirectory $demo.tcl]] @@ -522,11 +522,11 @@ proc showStatus index { set cursor [.t cget -cursor] if {$i < 0} { .statusBar.lab config -text " " - set newcursor xterm + set newcursor [::ttk::cursor text] } else { set demo [string range [lindex $tags $i] 5 end] .statusBar.lab config -text [mc "Run the \"%s\" sample program" $demo] - set newcursor hand2 + set newcursor [::ttk::cursor link] } if {$cursor ne $newcursor} { .t config -cursor $newcursor |