Subversion Repositories or1k

# 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.

#

# RCS: @(#) $Id: bevel.tcl,v 1.1.1.1 2002-01-16 10:25:58 markom Exp $

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 {Courier 12} \

        -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