diff options
| author | treectrl <treectrl> | 2004-07-30 21:17:02 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2004-07-30 21:17:02 (GMT) |
| commit | 250388d8dc79bafc870c11ba50099169cff22318 (patch) | |
| tree | c987fd1af44f2f4b9d788f806628994dea14786e /demos/outlook-newgroup.tcl | |
| parent | 59155032859b829cc724d381fedff806f3d21179 (diff) | |
| download | tktreectrl-250388d8dc79bafc870c11ba50099169cff22318.zip tktreectrl-250388d8dc79bafc870c11ba50099169cff22318.tar.gz tktreectrl-250388d8dc79bafc870c11ba50099169cff22318.tar.bz2 | |
Use -button item option.
Diffstat (limited to 'demos/outlook-newgroup.tcl')
| -rw-r--r-- | demos/outlook-newgroup.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/demos/outlook-newgroup.tcl b/demos/outlook-newgroup.tcl index 4cf52c0..54c0b39 100644 --- a/demos/outlook-newgroup.tcl +++ b/demos/outlook-newgroup.tcl @@ -116,7 +116,7 @@ proc DemoOutlookNewsgroup {} { } if {[$T item numchildren $i]} { - $T item hasbutton $i yes + $T item configure $i -button yes # Collapse some messages if {rand() * 2 > 1} { @@ -299,7 +299,7 @@ proc DemoOutlookNewsgroup2 {} { $T item style set $i 3 $style 4 $style2.we 5 $style2.we 6 $style2.w $T item text $i 3 $subject 4 $from 5 $sent 6 $size if {[$T item numchildren $i]} { - $T item hasbutton $i yes + $T item configure $i -button yes } } |