Import Tk 8.6.8
This commit is contained in:
@@ -13,7 +13,7 @@ namespace import -force tcltest::test
|
||||
|
||||
catch {destroy .t}
|
||||
text .t -font {Courier -12} -width 20 -height 10
|
||||
pack append . .t {top expand fill}
|
||||
pack .t -expand 1 -fill both
|
||||
update
|
||||
.t debug on
|
||||
wm geometry . {}
|
||||
@@ -714,7 +714,7 @@ test textIndex-18.1 {Object indices don't cache mark names} {
|
||||
} {3.4 3.0 1.0}
|
||||
|
||||
frame .f -width 100 -height 20
|
||||
pack append . .f left
|
||||
pack .f -side left
|
||||
|
||||
set fixedFont {Courier -12}
|
||||
set fixedHeight [font metrics $fixedFont -linespace]
|
||||
@@ -724,7 +724,7 @@ set varFont {Times -14}
|
||||
set bigFont {Helvetica -24}
|
||||
destroy .t
|
||||
text .t -font $fixedFont -width 20 -height 10 -wrap char
|
||||
pack append . .t {top expand fill}
|
||||
pack .t -expand 1 -fill both
|
||||
.t tag configure big -font $bigFont
|
||||
.t debug on
|
||||
wm geometry . {}
|
||||
|
||||
Reference in New Issue
Block a user