# This file creates a visual test for bevels drawn around text in text
|
# This file creates a visual test for bevels drawn around text in text
|
# widgets. It is part of the Tk visual test suite, which is invoked
|
# widgets. It is part of the Tk visual test suite, which is invoked
|
# via the "visual" script.
|
# via the "visual" script.
|
#
|
#
|
# RCS: @(#) $Id: bevel.tcl,v 1.1.1.1 2002-01-16 10:25:58 markom Exp $
|
# RCS: @(#) $Id: bevel.tcl,v 1.1.1.1 2002-01-16 10:25:58 markom Exp $
|
|
|
catch {destroy .t}
|
catch {destroy .t}
|
toplevel .t
|
toplevel .t
|
wm title .t "Visual Tests for Borders in Text Widgets"
|
wm title .t "Visual Tests for Borders in Text Widgets"
|
wm iconname .t "Text Borders"
|
wm iconname .t "Text Borders"
|
wm geom .t +0+0
|
wm geom .t +0+0
|
|
|
text .t.t -width 60 -height 30 -setgrid true -xscrollcommand {.t.h set} \
|
text .t.t -width 60 -height 30 -setgrid true -xscrollcommand {.t.h set} \
|
-font {Courier 12} \
|
-font {Courier 12} \
|
-yscrollcommand {.t.v set} -wrap none -relief raised -bd 2
|
-yscrollcommand {.t.v set} -wrap none -relief raised -bd 2
|
scrollbar .t.v -orient vertical -command ".t.t yview"
|
scrollbar .t.v -orient vertical -command ".t.t yview"
|
scrollbar .t.h -orient horizontal -command ".t.t xview"
|
scrollbar .t.h -orient horizontal -command ".t.t xview"
|
button .t.quit -text Quit -command {destroy .t}
|
button .t.quit -text Quit -command {destroy .t}
|
pack .t.quit -side bottom -pady 3 -ipadx 4 -ipady 2
|
pack .t.quit -side bottom -pady 3 -ipadx 4 -ipady 2
|
pack .t.h -side bottom -fill x
|
pack .t.h -side bottom -fill x
|
pack .t.v -side right -fill y
|
pack .t.v -side right -fill y
|
pack .t.t -expand yes -fill both
|
pack .t.t -expand yes -fill both
|
wm minsize .t 1 1
|
wm minsize .t 1 1
|
|
|
if {[winfo depth .t] > 1} {
|
if {[winfo depth .t] > 1} {
|
.t.t tag configure r1 -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 \
|
.t.t tag configure r2 -relief raised -borderwidth 2 -background #b2dfee \
|
-offset 2
|
-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 {
|
} else {
|
.t.t tag configure r1 -relief raised -borderwidth 2 -background white
|
.t.t tag configure r1 -relief raised -borderwidth 2 -background white
|
.t.t tag configure r2 -relief raised -borderwidth 2 -background white \
|
.t.t tag configure r2 -relief raised -borderwidth 2 -background white \
|
-offset 2
|
-offset 2
|
.t.t tag configure s1 -relief sunken -borderwidth 2 -background white
|
.t.t tag configure s1 -relief sunken -borderwidth 2 -background white
|
}
|
}
|
.t.t tag configure indent1 -lmargin1 100
|
.t.t tag configure indent1 -lmargin1 100
|
.t.t tag configure indent2 -lmargin1 200
|
.t.t tag configure indent2 -lmargin1 200
|
|
|
.t.t insert end {This display contains a bunch of raised and sunken
|
.t.t insert end {This display contains a bunch of raised and sunken
|
regions to exercise the bevel-drawing facilities of
|
regions to exercise the bevel-drawing facilities of
|
DisplayLineBackground. The letters have the following
|
DisplayLineBackground. The letters have the following
|
significance:
|
significance:
|
|
|
r - should appear raised
|
r - should appear raised
|
u - should appear raised and also slightly offset vertically
|
u - should appear raised and also slightly offset vertically
|
s - should appear sunken
|
s - should appear sunken
|
n - preceding relief should extend right to end of line.
|
n - preceding relief should extend right to end of line.
|
* - should appear "normal"
|
* - should appear "normal"
|
x - extra long lines to allow horizontal scrolling.
|
x - extra long lines to allow horizontal scrolling.
|
|
|
Try scrolling the text both vertically and horizontally to
|
Try scrolling the text both vertically and horizontally to
|
be sure that the bevels are still drawn correctly.
|
be sure that the bevels are still drawn correctly.
|
|
|
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
|
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
|
|
|
Pass 1 (side bevels):
|
Pass 1 (side bevels):
|
|
|
}
|
}
|
.t.t insert end ****
|
.t.t insert end ****
|
.t.t insert end rrrrrrr r1
|
.t.t insert end rrrrrrr r1
|
.t.t insert end uuuu r2
|
.t.t insert end uuuu r2
|
.t.t insert end ************
|
.t.t insert end ************
|
.t.t insert end ssssssssssssssssss s1
|
.t.t insert end ssssssssssssssssss s1
|
.t.t insert end \n\n****************
|
.t.t insert end \n\n****************
|
.t.t insert end rrrrrrrrrrrrrrn\n r1
|
.t.t insert end rrrrrrrrrrrrrrn\n r1
|
|
|
.t.t insert end "\nPass 2 (top bevels):\n\n"
|
.t.t insert end "\nPass 2 (top bevels):\n\n"
|
.t.t insert end rrrrrrrrrrrrrr r1
|
.t.t insert end rrrrrrrrrrrrrr r1
|
.t.t insert end rrrrr {r1 dummy}
|
.t.t insert end rrrrr {r1 dummy}
|
.t.t insert end rrrrrrrrrrrrrrrrrrr r1
|
.t.t insert end rrrrrrrrrrrrrrrrrrr r1
|
.t.t insert end \n************
|
.t.t insert end \n************
|
.t.t insert end rrrrrrrrrrrrrrrrr r1
|
.t.t insert end rrrrrrrrrrrrrrrrr r1
|
.t.t insert end ***********\n
|
.t.t insert end ***********\n
|
.t.t insert end rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr r1
|
.t.t insert end rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr r1
|
.t.t insert end \n\n***
|
.t.t insert end \n\n***
|
.t.t insert end rrrrrrrrrrrrrrrrrrr r1
|
.t.t insert end rrrrrrrrrrrrrrrrrrr r1
|
.t.t insert end ***********\n*
|
.t.t insert end ***********\n*
|
.t.t insert end rrrrrrrrr r1
|
.t.t insert end rrrrrrrrr r1
|
.t.t insert end ********
|
.t.t insert end ********
|
.t.t insert end rrrrrrrrrrrrrrrrrrrrrrrrr r1
|
.t.t insert end rrrrrrrrrrrrrrrrrrrrrrrrr r1
|
.t.t insert end \n\n*
|
.t.t insert end \n\n*
|
.t.t insert end *** dummy
|
.t.t insert end *** dummy
|
.t.t insert end rrrrrrrrrrrrrrrrrrrrrrrrr r1
|
.t.t insert end rrrrrrrrrrrrrrrrrrrrrrrrr r1
|
.t.t insert end n\nrrrrrrrrrrrrrrr {r1 indent1}
|
.t.t insert end n\nrrrrrrrrrrrrrrr {r1 indent1}
|
.t.t insert end \n\n***
|
.t.t insert end \n\n***
|
.t.t insert end rrr r1
|
.t.t insert end rrr r1
|
.t.t insert end \n
|
.t.t insert end \n
|
.t.t insert end rrrr {r1 indent1}
|
.t.t insert end rrrr {r1 indent1}
|
|
|
.t.t insert end \n\nxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\n\n
|
.t.t insert end \n\nxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\n\n
|
.t.t insert end "Pass 3 (bottom bevels):\n\n"
|
.t.t insert end "Pass 3 (bottom bevels):\n\n"
|
.t.t insert end *******
|
.t.t insert end *******
|
.t.t insert end ********** dummy
|
.t.t insert end ********** dummy
|
.t.t insert end rrrrrrrrrrrrrrrr r1
|
.t.t insert end rrrrrrrrrrrrrrrr r1
|
.t.t insert end **********\n
|
.t.t insert end **********\n
|
.t.t insert end rrrrrrrrr r1
|
.t.t insert end rrrrrrrrr r1
|
.t.t insert end uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu r2
|
.t.t insert end uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu r2
|
.t.t insert end \n********************
|
.t.t insert end \n********************
|
.t.t insert end rrrrrrrrrrrrrrr r1
|
.t.t insert end rrrrrrrrrrrrrrr r1
|
.t.t insert end ************\n\n*
|
.t.t insert end ************\n\n*
|
.t.t insert end rrrrrrrrrrrr r1
|
.t.t insert end rrrrrrrrrrrr r1
|
.t.t insert end ********
|
.t.t insert end ********
|
.t.t insert end rrrrrrrrrrrrrrrrrrrrrrrrr r1
|
.t.t insert end rrrrrrrrrrrrrrrrrrrrrrrrr r1
|
.t.t insert end \n*****
|
.t.t insert end \n*****
|
.t.t insert end rrrrrrrrrrrrrrrrrrrr r1
|
.t.t insert end rrrrrrrrrrrrrrrrrrrr r1
|
.t.t insert end **********\n\n
|
.t.t insert end **********\n\n
|
.t.t insert end rrrrrrrrrrrrrrr {r1 indent1}
|
.t.t insert end rrrrrrrrrrrrrrr {r1 indent1}
|
.t.t insert end \n** dummy
|
.t.t insert end \n** dummy
|
.t.t insert end **
|
.t.t insert end **
|
.t.t insert end rrrrrrrrrrrrrrrrrrrrn\n r1
|
.t.t insert end rrrrrrrrrrrrrrrrrrrrn\n r1
|
.t.t insert end \n
|
.t.t insert end \n
|
.t.t insert end rrrr {r1 indent1}
|
.t.t insert end rrrr {r1 indent1}
|
.t.t insert end \n***
|
.t.t insert end \n***
|
.t.t insert end rrr r1
|
.t.t insert end rrr r1
|
|
|
.t.t insert end \n\nMiscellaneous:\n\n
|
.t.t insert end \n\nMiscellaneous:\n\n
|
.t.t insert end rrr r1
|
.t.t insert end rrr r1
|
.t.t insert end *****
|
.t.t insert end *****
|
.t.t insert end rrr r1
|
.t.t insert end rrr r1
|
foreach i {1 2 3} {
|
foreach i {1 2 3} {
|
.t.t insert end \n
|
.t.t insert end \n
|
.t.t insert end ***
|
.t.t insert end ***
|
.t.t insert end rrrrr r1
|
.t.t insert end rrrrr r1
|
}
|
}
|
.t.t insert end \n
|
.t.t insert end \n
|
.t.t insert end rrr r1
|
.t.t insert end rrr r1
|
.t.t insert end *****
|
.t.t insert end *****
|
.t.t insert end rrr r1
|
.t.t insert end rrr r1
|
|
|
