diff options
author | treectrl <treectrl> | 2006-11-19 00:55:14 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2006-11-19 00:55:14 (GMT) |
commit | 281acf61bfbd3da428e8583dcf43897925d6295e (patch) | |
tree | 90811bc7e1833cc1ccec310077be5af4551f390b | |
parent | a2bc1d80dc6cdba9371e28ea924dd7026b084bf5 (diff) | |
download | tktreectrl-281acf61bfbd3da428e8583dcf43897925d6295e.zip tktreectrl-281acf61bfbd3da428e8583dcf43897925d6295e.tar.gz tktreectrl-281acf61bfbd3da428e8583dcf43897925d6295e.tar.bz2 |
Use updated [selection get] syntax.
-rw-r--r-- | demos/outlook-newgroup.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/demos/outlook-newgroup.tcl b/demos/outlook-newgroup.tcl index 739dc62..70952f8 100644 --- a/demos/outlook-newgroup.tcl +++ b/demos/outlook-newgroup.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: outlook-newgroup.tcl,v 1.16 2006/11/05 06:46:10 treectrl Exp $ +# RCS: @(#) $Id: outlook-newgroup.tcl,v 1.17 2006/11/19 00:55:14 treectrl Exp $ # # Demo: Outlook Express newsgroup messages @@ -168,7 +168,7 @@ proc DemoOutlookNewsgroup {} { if {[info exists Message(afterId)]} { after cancel $Message(afterId) } - set Message(afterId,item) [lindex [%T selection get] 0] + set Message(afterId,item) [%T selection get 0] set Message(afterId) [after 500 MessageReadDelayed] } } @@ -358,7 +358,7 @@ proc DemoOutlookNewsgroup_2 {} { $T notify bind $T <Selection> { if {[%T selection count] == 1} { - set I [lindex [%T selection get] 0] + set I [%T selection get 0] if {!$Message(read,$I)} { if {[%T item isopen $I] || ![AnyUnreadDescendants %T $I]} { # unread ->read |