diff options
| author | fvogel <fvogelnew1@free.fr> | 2017-02-01 21:15:22 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2017-02-01 21:15:22 (GMT) |
| commit | 4e0fe7c7f62b10c7f57294c672da5c2c44b26a22 (patch) | |
| tree | 6aeced86c3d78a511a672f0dea43f0909618279a /tests/textDisp.test | |
| parent | cc1dd14693b02bd80d03b172e53f6ea747af914b (diff) | |
| parent | 0691533b9281b179d99856732c3eb28f6a4256cf (diff) | |
| download | tk-4e0fe7c7f62b10c7f57294c672da5c2c44b26a22.zip tk-4e0fe7c7f62b10c7f57294c672da5c2c44b26a22.tar.gz tk-4e0fe7c7f62b10c7f57294c672da5c2c44b26a22.tar.bz2 | |
Remove old pack syntax from the scripts of the Tk test suite
Diffstat (limited to 'tests/textDisp.test')
| -rw-r--r-- | tests/textDisp.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test index 5393533..654a044 100644 --- a/tests/textDisp.test +++ b/tests/textDisp.test @@ -39,7 +39,7 @@ option add *Text.highlightThickness $twht catch {destroy .f .t} frame .f -width 100 -height 20 -pack append . .f left +pack .f -side left set fixedFont {Courier -12} # 15 on XP, 13 on Solaris 8 @@ -65,7 +65,7 @@ set bigAscent [font metrics $bigFont -ascent] set ascentDiff [expr {$bigAscent - $fixedAscent}] text .t -font $fixedFont -width 20 -height 10 -yscrollcommand scroll -pack append . .t {top expand fill} +pack .t -expand 1 -fill both .t tag configure big -font $bigFont .t debug on wm geometry . {} @@ -599,7 +599,7 @@ test textDisp-4.6 {UpdateDisplayInfo, tiny window} { wm overrideredirect . 1 } frame .f2 -width 20 -height 100 - pack before .f .f2 top + pack .f2 -before .f wm geom . 103x103 update .t configure -wrap none -borderwidth 2 |