diff options
Diffstat (limited to 'demos')
-rw-r--r-- | demos/help.tcl | 6 | ||||
-rw-r--r-- | demos/outlook-newgroup.tcl | 8 | ||||
-rw-r--r-- | demos/www-options.tcl | 15 |
3 files changed, 14 insertions, 15 deletions
diff --git a/demos/help.tcl b/demos/help.tcl index df8a10d..5fc067f 100644 --- a/demos/help.tcl +++ b/demos/help.tcl @@ -310,16 +310,16 @@ proc TreeCtrl::HelpMotion {w x y} { if {[llength $id] == 6} { if {$item ne $Priv(help,prev)} { if {$Priv(help,prev) ne ""} { - $w item state $Priv(help,prev) !mouseover + $w item state set $Priv(help,prev) !mouseover } - $w item state $item mouseover + $w item state set $item mouseover set Priv(help,prev) $item } return } } if {$Priv(help,prev) ne ""} { - $w item state $Priv(help,prev) !mouseover + $w item state set $Priv(help,prev) !mouseover set Priv(help,prev) "" } return diff --git a/demos/outlook-newgroup.tcl b/demos/outlook-newgroup.tcl index 1a18e91..217d2ec 100644 --- a/demos/outlook-newgroup.tcl +++ b/demos/outlook-newgroup.tcl @@ -104,12 +104,12 @@ proc DemoOutlookNewsgroup {} { # This message has been read if {$Message(read,$i)} { - $T item state $i read + $T item state set $i read } # This message has unread descendants if {[AnyUnreadDescendants $T $i]} { - $T item state $i unread + $T item state set $i unread } if {[$T item numchildren $i]} { @@ -155,7 +155,7 @@ proc MessageReadDelayed {} { if {!$Message(read,$I)} { # Read the message - $T item state $I read + $T item state set $I read set Message(read,$I) 1 # Check ancestors (except root) @@ -163,7 +163,7 @@ proc MessageReadDelayed {} { # This ancestor has no more unread descendants if {![AnyUnreadDescendants $T $I2]} { - $T item state $I2 !unread + $T item state set $I2 !unread } } } diff --git a/demos/www-options.tcl b/demos/www-options.tcl index d141f65..c96ec97 100644 --- a/demos/www-options.tcl +++ b/demos/www-options.tcl @@ -55,16 +55,16 @@ proc DemoInternetOptions {} { if {($setting eq "on") || ($setting eq "off")} { set ::Option(setting,$item) $setting if {$group eq ""} { - $T item state $item check + $T item state set $item check if {$setting eq "on"} { - $T item state $item on + $T item state set $item on } } else { if {$setting eq "on"} { set ::Option(current,$group) $item - $T item state $item on + $T item state set $item on } - $T item state $item radio + $T item state set $item radio } } else { $T item element configure $item 0 e1 -image internet-$setting @@ -115,20 +115,19 @@ proc TreeCtrl::OptionButton1 {T x y} { set group $::Option(group,$item) # a checkbutton if {$group eq ""} { + $T item state set $item ~on if {$::Option(setting,$item) eq "on"} { set setting off - $T item state $item !on } else { set setting on - $T item state $item on } set ::Option(setting,$item) $setting # a radiobutton } else { set current $::Option(current,$group) if {$current eq $item} return - $T item state $current !on - $T item state $item on + $T item state set $current !on + $T item state set $item on set ::Option(setting,$item) on set ::Option(current,$group) $item } |