~ubuntu-branches/ubuntu/dapper/tk8.0/dapper-updates

# This file creates a visual test for button layout.  It is part of

# the Tk visual test suite, which is invoked via the "visual" script.

#

# RCS: @(#) $Id: butGeom.tcl,v 1.2 1998/09/14 18:23:43 stanton Exp $

 

catch {destroy .t}

toplevel .t

wm title .t "Visual Tests for Button Geometry"

wm iconname .t "Button Geometry"

wm geom .t +0+0

wm minsize .t 1 1

 

label .t.l -text {This screen exercises the layout mechanisms for various flavors of buttons.  Select display options below, and they will be applied to all of the button widgets.  In order to see the effects of different anchor positions, expand the window so that there is extra space in the buttons.  The letter "o" in "automatically" should be underlined in the right column of widgets.} -wraplength 5i

pack .t.l -side top -fill both

 

button .t.quit -text Quit -command {destroy .t}

pack .t.quit -side bottom -pady 2m

 

set sepId 1

proc sep {} {

    global sepId

    frame .t.sep$sepId -height 2 -bd 1 -relief sunken

    pack .t.sep$sepId -side top -padx 2m -pady 2m -fill x

    incr sepId

}

 

# Create buttons that control configuration options.

 

frame .t.control

pack .t.control -side top -fill x -pady 3m

frame .t.control.left

frame .t.control.right

pack .t.control.left .t.control.right -side left -expand 1 -fill x

label .t.anchorLabel -text "Anchor:"

frame .t.control.left.f -width 6c -height 3c

pack .t.anchorLabel .t.control.left.f -in .t.control.left -side top

foreach anchor {nw n ne w center e sw s se} {

    button .t.anchor-$anchor -text $anchor -command "config -anchor $anchor"

}

place .t.anchor-nw -in .t.control.left.f -relx 0 -relwidth 0.333 \

        -rely 0 -relheight 0.333

place .t.anchor-n -in .t.control.left.f -relx 0.333 -relwidth 0.333 \

        -rely 0 -relheight 0.333

place .t.anchor-ne -in .t.control.left.f -relx 0.666 -relwidth 0.333 \

        -rely 0 -relheight 0.333

place .t.anchor-w -in .t.control.left.f -relx 0 -relwidth 0.333 \

        -rely 0.333 -relheight 0.333

place .t.anchor-center -in .t.control.left.f -relx 0.333 -relwidth 0.333 \

        -rely 0.333 -relheight 0.333

place .t.anchor-e -in .t.control.left.f -relx 0.666 -relwidth 0.333 \

        -rely 0.333 -relheight 0.333

place .t.anchor-sw -in .t.control.left.f -relx 0 -relwidth 0.333 \

        -rely 0.666 -relheight 0.333

place .t.anchor-s -in .t.control.left.f -relx 0.333 -relwidth 0.333 \

        -rely 0.666 -relheight 0.333

place .t.anchor-se -in .t.control.left.f -relx 0.666 -relwidth 0.333 \

        -rely 0.666 -relheight 0.333

 

set justify center

radiobutton .t.justify-left -text "Justify Left" -relief flat \

        -command "config -justify left" -variable justify \

        -value left

radiobutton .t.justify-center -text "Justify Center" -relief flat \

        -command "config -justify center" -variable justify \

        -value center

radiobutton .t.justify-right -text "Justify Right" -relief flat \

        -command "config -justify right" -variable justify \

        -value right

pack .t.justify-left .t.justify-center .t.justify-right \

        -in .t.control.right -anchor w

 

sep

frame .t.f1

pack .t.f1 -side top -expand 1 -fill both

sep

frame .t.f2

pack .t.f2 -side top -expand 1 -fill both

sep

frame .t.f3

pack .t.f3 -side top -expand 1 -fill both

sep

frame .t.f4

pack .t.f4 -side top -expand 1 -fill both

sep

 

label .t.l1 -text Label -bd 2 -relief sunken

label .t.l2 -text "Explicit\nnewlines\n\nin the text" -bd 2 -relief sunken

label .t.l3 -text "This text is quite long, so it must be wrapped automatically by Tk" -wraplength 2i -bd 2 -relief sunken -underline 50

pack .t.l1 .t.l2 .t.l3 -in .t.f1 -side left -padx 5m -pady 3m \

        -expand y -fill both

 

button .t.b1 -text Button

button .t.b2 -text "Explicit\nnewlines\n\nin the text"

button .t.b3 -text "This text is quite long, so it must be wrapped automatically by Tk" -wraplength 2i -underline 50

pack .t.b1 .t.b2 .t.b3 -in .t.f2 -side left -padx 5m -pady 3m \

        -expand y -fill both

 

checkbutton .t.c1 -text Checkbutton -variable a

checkbutton .t.c2 -text "Explicit\nnewlines\n\nin the text" -variable b

checkbutton .t.c3 -text "This text is quite long, so it must be wrapped automatically by Tk" -wraplength 2i -variable c -underline 50

pack .t.c1 .t.c2 .t.c3 -in .t.f3 -side left -padx 5m -pady 3m \

        -expand y -fill both

 

radiobutton .t.r1 -text Radiobutton -value a

radiobutton .t.r2 -text "Explicit\nnewlines\n\nin the text" -value b

radiobutton .t.r3 -text "This text is quite long, so it must be wrapped automatically by Tk" -wraplength 2i -value c -underline 50

pack .t.r1 .t.r2 .t.r3 -in .t.f4 -side left -padx 5m -pady 3m \

        -expand y -fill both

 

proc config {option value} {

    foreach w {.t.l1 .t.l2 .t.l3 .t.b1 .t.b2 .t.b3 .t.c1 .t.c2 .t.c3

            .t.r1 .t.r2 .t.r3} {

        $w configure $option $value

    }

}