summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordas <das>2009-04-10 16:40:03 (GMT)
committerdas <das>2009-04-10 16:40:03 (GMT)
commite824da9bff5c3e2d1965bdbaf631f1984b2dbfb4 (patch)
tree40f82d2329103ff4f08bf74126f56a8ced78626a
parent5c94825d097ef13059746ef51cf7d3567e5e5c05 (diff)
downloadtk-e824da9bff5c3e2d1965bdbaf631f1984b2dbfb4.zip
tk-e824da9bff5c3e2d1965bdbaf631f1984b2dbfb4.tar.gz
tk-e824da9bff5c3e2d1965bdbaf631f1984b2dbfb4.tar.bz2
* library/demos/widget: GOOBE: use ttk::cursor
-rw-r--r--ChangeLog2
-rw-r--r--library/demos/widget12
2 files changed, 8 insertions, 6 deletions
diff --git a/ChangeLog b/ChangeLog
index 82ac993..1fdc918 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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