diff options
| -rw-r--r-- | demos/biglist.tcl | 4 | ||||
| -rw-r--r-- | demos/firefox.tcl | 4 | ||||
| -rw-r--r-- | demos/style-editor.tcl | 4 |
3 files changed, 6 insertions, 6 deletions
diff --git a/demos/biglist.tcl b/demos/biglist.tcl index c1cab8d..e1e606d 100644 --- a/demos/biglist.tcl +++ b/demos/biglist.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: biglist.tcl,v 1.8 2006/10/04 03:57:08 treectrl Exp $ +# RCS: @(#) $Id: biglist.tcl,v 1.9 2006/10/28 01:24:13 treectrl Exp $ set ::clip 1 proc DemoBigList {} { @@ -367,7 +367,7 @@ proc BigListButton1 {w x y} { return } if {[$w item tag expr $item !info]} { - $w toggle $item + $w item toggle $item } } return diff --git a/demos/firefox.tcl b/demos/firefox.tcl index 78b1040..136bed6 100644 --- a/demos/firefox.tcl +++ b/demos/firefox.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: firefox.tcl,v 1.14 2006/10/14 20:21:49 treectrl Exp $ +# RCS: @(#) $Id: firefox.tcl,v 1.15 2006/10/28 01:24:13 treectrl Exp $ proc DemoFirefoxPrivacy {} { @@ -443,7 +443,7 @@ proc DemoFirefoxPrivacyButton1 {w x y} { return } if {[lindex $id 5] eq "eText1"} { - $w toggle $item + $w item toggle $item DisplayStylesInItem $item } } diff --git a/demos/style-editor.tcl b/demos/style-editor.tcl index d10da44..9336df1 100644 --- a/demos/style-editor.tcl +++ b/demos/style-editor.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: style-editor.tcl,v 1.8 2006/10/04 04:10:20 treectrl Exp $ +# RCS: @(#) $Id: style-editor.tcl,v 1.9 2006/10/28 01:24:13 treectrl Exp $ namespace eval StyleEditor { variable Info @@ -723,7 +723,7 @@ proc StyleEditor::StyleToCanvas {{scroll 0}} { } # No selected item uses the current style, look for an unselected item if {$match eq ""} { - foreach I [$Tdemo range first last] { + foreach I [$Tdemo item range first last] { set C 0 foreach S [$Tdemo item style set $I] { if {$S eq $style} { |