diff options
-rw-r--r-- | demos/mailwasher.tcl | 4 | ||||
-rw-r--r-- | demos/outlook-newgroup.tcl | 12 |
2 files changed, 8 insertions, 8 deletions
diff --git a/demos/mailwasher.tcl b/demos/mailwasher.tcl index 671410e..ef03c37 100644 --- a/demos/mailwasher.tcl +++ b/demos/mailwasher.tcl @@ -64,7 +64,7 @@ proc DemoMailWasher {} { set S [$T style create styCheck] $T style elements $S [list border imgCheck] - $T style layout $S border -detach yes -iexpand es + $T style layout $S border -detach yes -iexpand xy $T style layout $S imgCheck -expand news set pad 4 @@ -72,7 +72,7 @@ proc DemoMailWasher {} { foreach name {Any None Yes Normal PossSpam ProbSpam Blacklist} { set S [$T style create sty$name] $T style elements $S [list border txt$name] - $T style layout $S border -detach yes -iexpand es + $T style layout $S border -detach yes -iexpand xy $T style layout $S txt$name -padx $pad -squeeze x -expand ns } diff --git a/demos/outlook-newgroup.tcl b/demos/outlook-newgroup.tcl index cfbd880..c828990 100644 --- a/demos/outlook-newgroup.tcl +++ b/demos/outlook-newgroup.tcl @@ -77,13 +77,13 @@ proc DemoOutlookNewsgroup {} { set S [$T style create s2.we] $T style elements $S {sel.we elemTxt} $T style layout $S elemTxt -padx 6 -squeeze x -expand ns - $T style layout $S sel.we -detach yes -iexpand es + $T style layout $S sel.we -detach yes -iexpand xy # Text set S [$T style create s2.w] $T style elements $S {sel.w elemTxt} $T style layout $S elemTxt -padx 6 -squeeze x -expand ns - $T style layout $S sel.w -detach yes -iexpand es + $T style layout $S sel.w -detach yes -iexpand xy # Set default item style $T configure -defaultstyle [list "" "" "" s1 s2.we s2.we s2.w] @@ -278,25 +278,25 @@ proc DemoOutlookNewsgroup_2 {} { set S [$T style create unread.we] $T style elements $S {sel.we text.unread} $T style layout $S text.unread -padx 6 -squeeze x -expand ns - $T style layout $S sel.we -detach yes -iexpand es + $T style layout $S sel.we -detach yes -iexpand xy # Text set S [$T style create read.we] $T style elements $S {sel.we text.read} $T style layout $S text.read -padx 6 -squeeze x -expand ns - $T style layout $S sel.we -detach yes -iexpand es + $T style layout $S sel.we -detach yes -iexpand xy # Text set S [$T style create unread.w] $T style elements $S {sel.w text.unread} $T style layout $S text.unread -padx 6 -squeeze x -expand ns - $T style layout $S sel.w -detach yes -iexpand es + $T style layout $S sel.w -detach yes -iexpand xy # Text set S [$T style create read.w] $T style elements $S {sel.w text.read} $T style layout $S text.read -padx 6 -squeeze x -expand ns - $T style layout $S sel.w -detach yes -iexpand es + $T style layout $S sel.w -detach yes -iexpand xy # # Create items and assign styles |