diff options
Diffstat (limited to 'tests/bevel.tcl')
| -rw-r--r-- | tests/bevel.tcl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/bevel.tcl b/tests/bevel.tcl index 950b714..70c45fc 100644 --- a/tests/bevel.tcl +++ b/tests/bevel.tcl @@ -2,15 +2,15 @@ # widgets. It is part of the Tk visual test suite, which is invoked # via the "visual" script. -catch {destroy .t} +destroy .t toplevel .t wm title .t "Visual Tests for Borders in Text Widgets" wm iconname .t "Text Borders" wm geom .t +0+0 text .t.t -width 60 -height 30 -setgrid true -xscrollcommand {.t.h set} \ - -font {Courier 12} \ - -yscrollcommand {.t.v set} -wrap none -relief raised -bd 2 + -font "Courier 12" \ + -yscrollcommand {.t.v set} -wrap none -relief raised -borderwidth 2 scrollbar .t.v -orient vertical -command ".t.t yview" scrollbar .t.h -orient horizontal -command ".t.t xview" button .t.quit -text Quit -command {destroy .t} @@ -21,10 +21,10 @@ pack .t.t -expand yes -fill both wm minsize .t 1 1 if {[winfo depth .t] > 1} { - .t.t tag configure r1 -relief raised -borderwidth 2 -background #b2dfee - .t.t tag configure r2 -relief raised -borderwidth 2 -background #b2dfee \ + .t.t tag configure r1 -relief raised -borderwidth 2 -background "#b2dfee" + .t.t tag configure r2 -relief raised -borderwidth 2 -background "#b2dfee" \ -offset 2 - .t.t tag configure s1 -relief sunken -borderwidth 2 -background #b2dfee + .t.t tag configure s1 -relief sunken -borderwidth 2 -background "#b2dfee" } else { .t.t tag configure r1 -relief raised -borderwidth 2 -background white .t.t tag configure r2 -relief raised -borderwidth 2 -background white \ |