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-folders.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-folders.tcl')
| -rw-r--r-- | demos/outlook-folders.tcl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/demos/outlook-folders.tcl b/demos/outlook-folders.tcl index 6b7cafc..7fceacc 100644 --- a/demos/outlook-folders.tcl +++ b/demos/outlook-folders.tcl @@ -77,8 +77,7 @@ proc DemoOutlookFolders {} { 0 server "news.gmane.org" yes 0 1 group "gmane.comp.lang.lua.general" no 498 } { - set item [$T item create] - $T item hasbutton $item $button + set item [$T item create -button $button] if {[string equal $img folder]} { if {$unread} { $T item style set $item 0 s4 |