diff options
| -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 |