diff options
author | treectrl <treectrl> | 2005-07-05 02:37:30 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2005-07-05 02:37:30 (GMT) |
commit | 6406d083cedb0f758b7c3a9e5c15797d60070981 (patch) | |
tree | b627283228a157caabc7a9d18c0b64847f0d4df9 | |
parent | 4911a96f3856bbb9959247368edd7e81f51f0bc4 (diff) | |
download | tktreectrl-6406d083cedb0f758b7c3a9e5c15797d60070981.zip tktreectrl-6406d083cedb0f758b7c3a9e5c15797d60070981.tar.gz tktreectrl-6406d083cedb0f758b7c3a9e5c15797d60070981.tar.bz2 |
Use new "item element configure" syntax to configure multiple elements at once.
-rw-r--r-- | demos/imovie.tcl | 7 | ||||
-rw-r--r-- | demos/textvariable.tcl | 17 |
2 files changed, 13 insertions, 11 deletions
diff --git a/demos/imovie.tcl b/demos/imovie.tcl index ef5c389..7bb4531 100644 --- a/demos/imovie.tcl +++ b/demos/imovie.tcl @@ -80,9 +80,10 @@ proc DemoIMovie {} { } { set I [$T item create] # $T item style set $I C0 $S - $T item element configure $I C0 elemTime -text $time - $T item element configure $I C0 elemImg -image $image - $T item element configure $I C0 elemName -text $name + $T item element configure $I C0 \ + elemTime -text $time + \ + elemImg -image $image + \ + elemName -text $name $T item lastchild root $I } } diff --git a/demos/textvariable.tcl b/demos/textvariable.tcl index 66811dd..c052607 100644 --- a/demos/textvariable.tcl +++ b/demos/textvariable.tcl @@ -52,14 +52,15 @@ proc DemoTextvariable {} { $T item lastchild root $I foreach i {0 1} color {gray75 "light blue"} { - set I [$T item create] - $T item style set $I C0 s2 - $T item element configure $I C0 eRect -fill [list $color] - $T item element configure $I C0 eText2 -textvariable tvar$I - set e [entry $T.e$I -width 48 -textvariable tvar$I] - $T item element configure $I C0 eWindow -window $e - $T item lastchild root $I - set ::tvar$I "This is item $I" + set I [$T item create] + $T item style set $I C0 s2 + set e [entry $T.e$I -width 48 -textvariable tvar$I] + $T item element configure $I C0 \ + eRect -fill [list $color] + \ + eText2 -textvariable tvar$I + \ + eWindow -window $e + $T item lastchild root $I + set ::tvar$I "This is item $I" } return |