head	1.3;
access;
symbols
	core-8-0-6-branch:1.2.0.6
	core-8-0-6-base:1.2
	core-8-0-5:1.2
	core-8-1-b2:1.1.4.1
	dev-8-1-stubs-branch:1.1.4.1.0.2
	dev-stubs-branch:1.2.0.4
	scriptics-tclpro-1-2:1.2
	scriptics-tclpro-1-2-b2:1.2
	core-8-1-merge-2/10/99:1.2
	core-8-0-5-branch:1.2.0.2
	core-8-0-5-base:1.2
	scriptics-tclpro-1-2-b1:1.2
	scriptics-tclpro-1-2-a1:1.2
	core-8-1-b1:1.1.4.1
	core-8-0-4:1.2
	core-8-1-a2:1.1
	core-8-0-2:1.1
	core-8-0-3:1.2;
locks; strict;
comment	@# @;


1.3
date	99.04.16.01.51.43;	author stanton;	state dead;
branches;
next	1.2;

1.2
date	98.09.14.18.23.53;	author stanton;	state Exp;
branches;
next	1.1;

1.1
date	98.04.01.09.58.22;	author rjohnson;	state Exp;
branches
	1.1.4.1;
next	;

1.1.4.1
date	98.09.30.02.19.04;	author stanton;	state Exp;
branches;
next	1.1.4.2;

1.1.4.2
date	99.04.05.18.36.06;	author hershey;	state dead;
branches;
next	;


desc
@@


1.3
log
@* Merged 8.1 branch into the main trunk
@
text
@#!/usr/local/bin/wish -f
#
# This script displays provides visual tests for many of Tk's features.
# Each test displays a window with various information in it, along
# with instructions about how the window should appear.  You can look
# at the window to make sure it appears as expected.  Individual tests
# are kept in separate ".tcl" files in this directory.
#
# RCS: @@(#) $Id: visual,v 1.2 1998/09/14 18:23:53 stanton Exp $

set auto_path ". $auto_path"
wm title . "Visual Tests for Tk"

#-------------------------------------------------------
# The code below create the main window, consisting of a
# menu bar and a message explaining the basic operation
# of the program.
#-------------------------------------------------------

frame .menu -relief raised -borderwidth 1
message .msg -font {Times 18} -relief raised -width 4i \
	-borderwidth 1 -text "This application provides a collection of visual tests for the Tk toolkit.  Each menu entry invokes a test, which displays information on the screen.  You can then verify visually that the information is being displayed in the correct way.  The tests under the \"Postscript\" menu exercise the Postscript-generation capabilities of canvas widgets."

pack .menu -side top -fill x
pack .msg -side bottom -expand yes -fill both

#-------------------------------------------------------
# The code below creates all the menus, which invoke procedures
# to create particular demonstrations of various widgets.
#-------------------------------------------------------

menubutton .menu.file -text "File" -menu .menu.file.m
menu .menu.file.m
.menu.file.m add command -label "Quit" -command exit

menubutton .menu.group1 -text "Group 1" -menu .menu.group1.m
menu .menu.group1.m
.menu.group1.m add command -label "Canvas arcs" -command {source arc.tcl}
.menu.group1.m add command -label "Beveled borders in text widgets" \
	-command {source bevel.tcl}
.menu.group1.m add command -label "Colormap management" \
	-command {source cmap.tcl}
.menu.group1.m add command -label "Label/button geometry" \
	-command {source butGeom.tcl}
.menu.group1.m add command -label "Label/button colors" \
	-command {source butGeom2.tcl}

menubutton .menu.ps -text "Canvas Postscript" -menu .menu.ps.m
menu .menu.ps.m
.menu.ps.m add command -label "Rectangles and other graphics" \
	-command {source canvPsGrph.tcl}
.menu.ps.m add command -label "Text" \
	-command {source canvPsText.tcl}
.menu.ps.m add command -label "Bitmaps" \
	-command {source canvPsBmap.tcl}
.menu.ps.m add command -label "Arcs" \
	-command {source canvPsArc.tcl}

pack .menu.file .menu.group1 .menu.ps -side left -padx 1m

# Set up for keyboard-based menu traversal

bind . <Any-FocusIn> {
    if {("%d" == "NotifyVirtual") && ("%m" == "NotifyNormal")} {
	focus .menu
    }
}
tk_menuBar .menu .menu.file .menu.group1 .menu.ps

# The following procedure is invoked to print the contents of a canvas:

proc lpr c {
    exec rm -f tmp.ps
    $c postscript -file tmp.ps
    exec lpr tmp.ps
}

# Set up a class binding to allow objects to be deleted from a canvas
# by clicking with mouse button 1:

bind Canvas <1> {%W delete [%W find closest %x %y]}
@


1.2
log
@Replaced SCCS strings, fixed binary files
@
text
@d9 1
a9 1
# RCS: @@(#) $Id$
@


1.1
log
@Initial revision
@
text
@d9 1
a9 1
# SCCS: @@(#) visual 1.5 97/06/13 16:37:29
@


1.1.4.1
log
@Merged 8.0.3 changes into 8.1
@
text
@d9 1
a9 1
# RCS: @@(#) $Id: visual,v 1.2 1998/09/14 18:23:53 stanton Exp $
@


1.1.4.2
log
@fixed bad "fd" reference in send.test and unixSend.test--now refers to
::tcltest::fd (bugID 1523).

renamed "visual" test file to "visual_bb.test" and made it use the "test"
command with the userInteractive constraint.
@
text
@d9 1
a9 1
# RCS: @@(#) $Id: visual,v 1.1.4.1 1998/09/30 02:19:04 stanton Exp $
@


