129 lines
4.3 KiB
Tcl
129 lines
4.3 KiB
Tcl
# 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
|
|
# via the "visual" script.
|
|
#
|
|
# SCCS: @(#) bevel.tcl 1.3 96/02/16 10:55:41
|
|
|
|
catch {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 -adobe-courier-medium-r-normal--12-120-75-75-m-*-iso8859-1 \
|
|
-yscrollcommand {.t.v set} -wrap none -relief raised -bd 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}
|
|
pack .t.quit -side bottom -pady 3 -ipadx 4 -ipady 2
|
|
pack .t.h -side bottom -fill x
|
|
pack .t.v -side right -fill y
|
|
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 \
|
|
-offset 2
|
|
.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 \
|
|
-offset 2
|
|
.t.t tag configure s1 -relief sunken -borderwidth 2 -background white
|
|
}
|
|
.t.t tag configure indent1 -lmargin1 100
|
|
.t.t tag configure indent2 -lmargin1 200
|
|
|
|
.t.t insert end {This display contains a bunch of raised and sunken
|
|
regions to exercise the bevel-drawing facilities of
|
|
DisplayLineBackground. The letters have the following
|
|
significance:
|
|
|
|
r - should appear raised
|
|
u - should appear raised and also slightly offset vertically
|
|
s - should appear sunken
|
|
n - preceding relief should extend right to end of line.
|
|
* - should appear "normal"
|
|
x - extra long lines to allow horizontal scrolling.
|
|
|
|
Try scrolling the text both vertically and horizontally to
|
|
be sure that the bevels are still drawn correctly.
|
|
|
|
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
|
|
|
|
Pass 1 (side bevels):
|
|
|
|
}
|
|
.t.t insert end ****
|
|
.t.t insert end rrrrrrr r1
|
|
.t.t insert end uuuu r2
|
|
.t.t insert end ************
|
|
.t.t insert end ssssssssssssssssss s1
|
|
.t.t insert end \n\n****************
|
|
.t.t insert end rrrrrrrrrrrrrrn\n r1
|
|
|
|
.t.t insert end "\nPass 2 (top bevels):\n\n"
|
|
.t.t insert end rrrrrrrrrrrrrr r1
|
|
.t.t insert end rrrrr {r1 dummy}
|
|
.t.t insert end rrrrrrrrrrrrrrrrrrr r1
|
|
.t.t insert end \n************
|
|
.t.t insert end rrrrrrrrrrrrrrrrr r1
|
|
.t.t insert end ***********\n
|
|
.t.t insert end rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr r1
|
|
.t.t insert end \n\n***
|
|
.t.t insert end rrrrrrrrrrrrrrrrrrr r1
|
|
.t.t insert end ***********\n*
|
|
.t.t insert end rrrrrrrrr r1
|
|
.t.t insert end ********
|
|
.t.t insert end rrrrrrrrrrrrrrrrrrrrrrrrr r1
|
|
.t.t insert end \n\n*
|
|
.t.t insert end *** dummy
|
|
.t.t insert end rrrrrrrrrrrrrrrrrrrrrrrrr r1
|
|
.t.t insert end n\nrrrrrrrrrrrrrrr {r1 indent1}
|
|
.t.t insert end \n\n***
|
|
.t.t insert end rrr r1
|
|
.t.t insert end \n
|
|
.t.t insert end rrrr {r1 indent1}
|
|
|
|
.t.t insert end \n\nxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\n\n
|
|
.t.t insert end "Pass 3 (bottom bevels):\n\n"
|
|
.t.t insert end *******
|
|
.t.t insert end ********** dummy
|
|
.t.t insert end rrrrrrrrrrrrrrrr r1
|
|
.t.t insert end **********\n
|
|
.t.t insert end rrrrrrrrr r1
|
|
.t.t insert end uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu r2
|
|
.t.t insert end \n********************
|
|
.t.t insert end rrrrrrrrrrrrrrr r1
|
|
.t.t insert end ************\n\n*
|
|
.t.t insert end rrrrrrrrrrrr r1
|
|
.t.t insert end ********
|
|
.t.t insert end rrrrrrrrrrrrrrrrrrrrrrrrr r1
|
|
.t.t insert end \n*****
|
|
.t.t insert end rrrrrrrrrrrrrrrrrrrr r1
|
|
.t.t insert end **********\n\n
|
|
.t.t insert end rrrrrrrrrrrrrrr {r1 indent1}
|
|
.t.t insert end \n** dummy
|
|
.t.t insert end **
|
|
.t.t insert end rrrrrrrrrrrrrrrrrrrrn\n r1
|
|
.t.t insert end \n
|
|
.t.t insert end rrrr {r1 indent1}
|
|
.t.t insert end \n***
|
|
.t.t insert end rrr r1
|
|
|
|
.t.t insert end \n\nMiscellaneous:\n\n
|
|
.t.t insert end rrr r1
|
|
.t.t insert end *****
|
|
.t.t insert end rrr r1
|
|
foreach i {1 2 3} {
|
|
.t.t insert end \n
|
|
.t.t insert end ***
|
|
.t.t insert end rrrrr r1
|
|
}
|
|
.t.t insert end \n
|
|
.t.t insert end rrr r1
|
|
.t.t insert end *****
|
|
.t.t insert end rrr r1
|