diff options
| -rw-r--r-- | demos/random.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/demos/random.tcl b/demos/random.tcl index 85bf7d7..804a9ca 100644 --- a/demos/random.tcl +++ b/demos/random.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: random.tcl,v 1.25 2006/11/30 03:31:27 treectrl Exp $ +# RCS: @(#) $Id: random.tcl,v 1.26 2006/12/07 03:55:27 treectrl Exp $ set RandomN 500 set RandomDepth 5 @@ -44,7 +44,7 @@ proc DemoRandom {} { $T element create elemImgFolder image -image {folder-open {open} folder-closed {}} $T element create elemImgFile image -image small-file - $T element create elemTxtName text \ + $T element create elemTxtName text -wrap none \ -fill [list $::SystemHighlightText {selected focus}] $T element create elemTxtCount text -fill blue $T element create elemTxtAny text @@ -58,14 +58,14 @@ proc DemoRandom {} { set S [$T style create styFolder] $T style elements $S {elemRectSel elemImgFolder elemTxtName elemTxtCount} $T style layout $S elemImgFolder -padx {0 4} -expand ns - $T style layout $S elemTxtName -padx {0 4} -expand ns + $T style layout $S elemTxtName -minwidth 12 -padx {0 4} -expand ns -squeeze x $T style layout $S elemTxtCount -padx {0 6} -expand ns $T style layout $S elemRectSel -union [list elemTxtName] -iexpand ns -ipadx 2 set S [$T style create styFile] $T style elements $S {elemRectSel elemImgFile elemTxtName} $T style layout $S elemImgFile -padx {0 4} -expand ns - $T style layout $S elemTxtName -padx {0 4} -expand ns + $T style layout $S elemTxtName -minwidth 12 -padx {0 4} -expand ns -squeeze x $T style layout $S elemRectSel -union [list elemTxtName] -iexpand ns -ipadx 2 set S [$T style create styAny] |