diff options
| author | treectrl <treectrl> | 2005-06-13 22:47:19 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2005-06-13 22:47:19 (GMT) |
| commit | 415bbad8bb19872f91440b49750cdeb19461ef98 (patch) | |
| tree | a0f897a0962bb6a35f34188d6e9adee0a4c64c72 /demos/layout.tcl | |
| parent | 86416dd02d89afdb9e12fb7193b9ad262c59a151 (diff) | |
| download | tktreectrl-415bbad8bb19872f91440b49750cdeb19461ef98.zip tktreectrl-415bbad8bb19872f91440b49750cdeb19461ef98.tar.gz tktreectrl-415bbad8bb19872f91440b49750cdeb19461ef98.tar.bz2 | |
Use -iexpand xy instead of -iexpand es because it is the display area I want to expand, not the padding.
Use -height 40 instead of -ipady {0 20} because -ipad values are no longer included in the display area of an element.
Diffstat (limited to 'demos/layout.tcl')
| -rw-r--r-- | demos/layout.tcl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/demos/layout.tcl b/demos/layout.tcl index d89a364..24ddc3c 100644 --- a/demos/layout.tcl +++ b/demos/layout.tcl @@ -43,8 +43,8 @@ proc DemoLayout {} { $T style layout $S e1 -padx {28 4} -pady 4 $T style layout $S e2 -expand es -padx {0 38} $T style layout $S e3 -union [list e1 e2] -ipadx 4 -ipady 4 -pady 2 - $T style layout $S e4 -detach yes -iexpand es - $T style layout $S e5 -detach yes -padx {2 0} -pady 2 -iexpand s + $T style layout $S e4 -detach yes -iexpand xy + $T style layout $S e5 -detach yes -padx {2 0} -pady 2 -iexpand y $T style layout $S e6 -detach yes -expand ws -padx {0 2} -pady {2 0} $T style layout $S e7 -detach yes -expand wn -padx {0 2} -pady {0 2} @@ -65,9 +65,9 @@ proc DemoLayout {} { set S [$T style create s2] $T style elements $S {e4 e3 e1} - $T style layout $S e1 -padx 8 -pady 8 -iexpand e + $T style layout $S e1 -padx 8 -pady 8 -iexpand x $T style layout $S e3 -union e1 -ipadx {20 4} -ipady {4 12} - $T style layout $S e4 -detach yes -iexpand es + $T style layout $S e4 -detach yes -iexpand xy set I [$T item create -button yes] $T item style set $I C0 $S @@ -83,7 +83,7 @@ proc DemoLayout {} { $T style elements $S {e4 e3 e1 e5 e6} $T style layout $S e4 -union {e1 e6} -ipadx 8 -ipady {8 0} $T style layout $S e3 -union {e1 e5} -ipadx 4 -ipady 4 - $T style layout $S e5 -ipady {0 20} + $T style layout $S e5 -height 40 set I [$T item create -button yes] $T item style set $I C0 $S @@ -125,8 +125,8 @@ proc DemoLayout {} { set S [$T style create s$styleNum -orient $orient] $T style elements $S {e4 e8 e2 e5 e6} - $T style layout $S e4 -detach yes -iexpand es - $T style layout $S e8 -detach yes -expand n -iexpand e + $T style layout $S e4 -detach yes -iexpand xy + $T style layout $S e8 -detach yes -expand n -iexpand x $T style layout $S e2 -expand $expand $T style layout $S e5 -expand $expand $T style layout $S e6 -expand $expand |