diff options
author | treectrl <treectrl> | 2005-06-13 22:47:55 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2005-06-13 22:47:55 (GMT) |
commit | 70237ff0e774ef87a57ff543a1bf1dd2333c41a9 (patch) | |
tree | 502c3353ea9455c1bb595a95e343214c579cad85 /demos/mailwasher.tcl | |
parent | 415bbad8bb19872f91440b49750cdeb19461ef98 (diff) | |
download | tktreectrl-70237ff0e774ef87a57ff543a1bf1dd2333c41a9.zip tktreectrl-70237ff0e774ef87a57ff543a1bf1dd2333c41a9.tar.gz tktreectrl-70237ff0e774ef87a57ff543a1bf1dd2333c41a9.tar.bz2 |
Use -iexpand xy instead of -iexpand es because it is the display area I want to expand, not the padding.
Diffstat (limited to 'demos/mailwasher.tcl')
-rw-r--r-- | demos/mailwasher.tcl | 4 |
1 files changed, 2 insertions, 2 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 } |