head	1.5;
access;
symbols
	core-8-5-9:1.5
	core-8-5-8:1.5
	macosx-cocoa-merge:1.5
	macosx-cocoa-premerge:1.5
	macosx-carbon-freeze:1.5
	core-8-5-7:1.5
	core-8-5-6:1.5
	core-8-6-b1:1.5
	core-8-6-a3:1.5
	core-8-5-5:1.5
	core-8-6-a2:1.5
	core-8-5-4:1.5
	core-8-5-3:1.5
	core-8-6-a1:1.5
	core-8-4-19:1.3
	core-8-5-branch:1.5.0.4
	core-8-5-2:1.5
	core-8-4-18:1.3
	core-8-5-1:1.5
	core-8-4-17:1.3
	core-8-5-0:1.5
	core-8-5-b3:1.5
	core-8-5-b2:1.5
	core-8-4-16:1.3
	core-8-5-b1:1.5
	core-stablilizer-merge:1.5
	core-stabilizer-branch:1.5.0.2
	core-stabilizer-merge:1.5
	core-8-4-15:1.3
	core-8-5-a6:1.5
	core-8-5-a5:1.5
	core-8-4-14:1.3
	core-8-5-a4:1.5
	core-8-4-13:1.3
	core-8-4-12:1.3
	core-8-4-11:1.3
	core-8-5-a3:1.4
	core-8-4-10:1.3
	core-8-4-9-branch:1.3.0.24
	core-8-5-a2:1.4
	core-8-4-9:1.3
	core-8-4-8:1.3
	core-8-4-7:1.3
	core-8-5-a1:1.3
	core-8-4-6:1.3
	core-8-4-5:1.3
	mistachkin-dev-branch:1.3.0.22
	core-8-4-4:1.3
	core-8-4-3:1.3
	core-8-4-branch:1.3.0.20
	core-8-4-2:1.3
	core-8-4-1:1.3
	core-8-3-5:1.3
	core-8-4-0:1.3
	macosx-8-4-merge-2002-08-31-trunk:1.3
	macosx-8-4-premerge-2002-08-31-branch:1.3
	macosx-8-4-premerge-2002-08-31-trunk:1.3
	macosx-8-4-merge-2002-08-30-branch:1.3
	macosx-8-4-merge-2002-08-30-trunk:1.3
	macosx-8-4-merge-2002-08-20-branch:1.3
	macosx-8-4-merge-2002-08-20-trunk:1.3
	core-8-4-b2:1.3
	core-8-4-b1:1.3
	macosx-premerge-6-9-02:1.3
	core-8-4-a4:1.3
	core-8-3-4:1.3
	macosx-8-4-branch:1.3.0.18
	macosx-8-4-branchpoint:1.3
	core-8-4-a3:1.3
	core-8-3-3:1.3
	dgp-privates-into-namespace:1.3.0.16
	tclpro-1-5-0:1.3
	core-8-4-win-speedup:1.3.0.14
	core-8-4-a2:1.3
	tclpro-1-4-1:1.3
	tclpro-1-4-0:1.3
	core-8-3-2:1.3
	ajuba-ajuba2-2-1-base:1.3
	ajuba-ajuba2-2-0:1.3
	core-8-4-a1:1.3
	core-8-3-1-branch:1.3.0.12
	core-8-3-1:1.3
	scriptics-sc-2-0-b5:1.3
	scriptics-sc-2-0-fixed:1.3
	scriptics-sc-2-0-b2:1.3
	scriptics-sc-2-0-b1:1.3
	core-8-3-0:1.3
	core-8-3-b2:1.3
	core-8-3-b1:1.3
	scriptics-sc-1-1:1.3
	scriptics-sc-1-1-b1:1.3
	core-8-2-3:1.3
	scriptics-sc-1-1-branch:1.3.0.10
	scriptics-sc-1-1-base:1.3
	scriptics-sc-1-0:1.3
	scriptics-sc-1-0-branch:1.3.0.8
	scriptics-sc-1-0-base:1.3
	core-8-2-2:1.3
	core-8-2-1:1.3
	scriptics-bc-1-0-b1:1.3
	core-8-2-1-branch:1.3.0.6
	scriptics-tclpro-1-3-0:1.3
	core-8-2-0:1.3
	core-8-2-b3-branch:1.3.0.4
	core-8-2-b3-base:1.3
	scriptics-tclpro-1-3-b4:1.3
	core-8-2-b2:1.3
	scriptics-tclpro-1-3-b3:1.3
	core-8-2-b1:1.3
	scriptics-tclpro-1-3-b2:1.3
	merge-to-mainline-5/21/99:1.3
	scriptics-tclpro-1-3-b2-branch:1.3.0.2
	core-8-1-1:1.3
	scriptics-tclpro-1-3-b1:1.3
	core-8-1-1-base:1.3
	core-8-1-0:1.3
	merge-to-mainline-4-29-99:1.3
	merge-to-mainline-4-23-99:1.3
	core-8-1-branch-old:1.1.0.4
	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-b3:1.1.4.3
	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.5
date	2005.10.12.09.29.21;	author dkf;	state Exp;
branches;
next	1.4;

1.4
date	2004.10.19.15.25.08;	author dkf;	state Exp;
branches;
next	1.3;

1.3
date	99.04.16.01.51.35;	author stanton;	state Exp;
branches;
next	1.2;

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

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

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

1.1.4.2
date	99.03.24.01.16.35;	author hershey;	state Exp;
branches;
next	1.1.4.3;

1.1.4.3
date	99.03.24.02.54.29;	author hershey;	state Exp;
branches;
next	;


desc
@@


1.5
log
@Arrange the test suite so that it only accesses images in the same directory.
This enables packaging of the test suite as a starkit.
@
text
@# This file creates a screen to exercise Postscript generation
# for bitmaps in canvases.  It is part of the Tk visual test suite,
# which is invoked via the "visual" script.
#
# RCS: @@(#) $Id: canvPsBmap.tcl,v 1.4 2004/10/19 15:25:08 dkf Exp $

catch {destroy .t}
toplevel .t
wm title .t "Postscript Tests for Canvases"
wm iconname .t "Postscript"
wm geom .t +0+0
wm minsize .t 1 1

set c .t.c

message .t.m -text {This screen exercises the Postscript-generation abilities of Tk canvas widgets for bitmaps.  Click on "Print" to print the canvas to your default printer.  You can click on items in the canvas to delete them.} -width 6i
pack .t.m -side top -fill both

frame .t.bot
pack .t.bot -side bottom -fill both
button .t.bot.quit -text Quit -command {destroy .t}
button .t.bot.print -text Print -command "lpr $c"
pack .t.bot.print .t.bot.quit -side left -pady 1m -expand 1

canvas $c -width 6i -height 6i -bd 2 -relief sunken
pack $c -expand yes -fill both -padx 2m -pady 2m

set canvPsBmapImageDir [file join [file dirname [info script]] images]

$c create bitmap 0.5i 0.5i \
    -bitmap @@[file join $canvPsBmapImageDir flagdown.xbm] \
    -background {} -foreground black -anchor nw
$c create rect 0.47i 0.47i 0.53i 0.53i -fill {} -outline black

$c create bitmap 3.0i 0.5i \
    -bitmap @@[file join $canvPsBmapImageDir flagdown.xbm] \
    -background {} -foreground black -anchor n
$c create rect 2.97i 0.47i 3.03i 0.53i -fill {} -outline black

$c create bitmap 5.5i 0.5i \
    -bitmap @@[file join $canvPsBmapImageDir flagdown.xbm] \
    -background black -foreground white -anchor ne
$c create rect 5.47i 0.47i 5.53i 0.53i -fill {} -outline black

$c create bitmap 0.5i 3.0i \
    -bitmap @@[file join $canvPsBmapImageDir face.xbm] \
    -background {} -foreground black -anchor w
$c create rect 0.47i 2.97i 0.53i 3.03i -fill {} -outline black

$c create bitmap 3.0i 3.0i \
    -bitmap @@[file join $canvPsBmapImageDir face.xbm] \
    -background {} -foreground black -anchor center
$c create rect 2.97i 2.97i 3.03i 3.03i -fill {} -outline black

$c create bitmap 5.5i 3.0i \
    -bitmap @@[file join $canvPsBmapImageDir face.xbm] \
    -background blue -foreground black -anchor e
$c create rect 5.47i 2.97i 5.53i 3.03i -fill {} -outline black

$c create bitmap 0.5i 5.5i \
    -bitmap @@[file join $canvPsBmapImageDir flagup.xbm] \
    -background black -foreground white -anchor sw
$c create rect 0.47i 5.47i 0.53i 5.53i -fill {} -outline black

$c create bitmap 3.0i 5.5i \
    -bitmap @@[file join $canvPsBmapImageDir flagup.xbm] \
    -background green -foreground white -anchor s
$c create rect 2.97i 5.47i 3.03i 5.53i -fill {} -outline black

$c create bitmap 5.5i 5.5i \
    -bitmap @@[file join $canvPsBmapImageDir flagup.xbm] \
    -background {} -foreground black -anchor se
$c create rect 5.47i 5.47i 5.53i 5.53i -fill {} -outline black













@


1.4
log
@Rename all XBM format files to be called *.xbm instead of *.bmp [Bug 733835]
@
text
@d5 1
a5 1
# RCS: @@(#) $Id: canvPsBmap.tcl,v 1.3 1999/04/16 01:51:35 stanton Exp $
d28 2
d31 1
a31 1
    -bitmap @@[file join $tk_library demos/images/flagdown.xbm] \
d36 1
a36 1
    -bitmap @@[file join $tk_library demos/images/flagdown.xbm] \
d41 1
a41 1
    -bitmap @@[file join $tk_library demos/images/flagdown.xbm] \
d46 1
a46 1
    -bitmap @@[file join $tk_library demos/images/face.xbm] \
d51 1
a51 1
    -bitmap @@[file join $tk_library demos/images/face.xbm] \
d56 1
a56 1
    -bitmap @@[file join $tk_library demos/images/face.xbm] \
d61 1
a61 1
    -bitmap @@[file join $tk_library demos/images/flagup.xbm] \
d66 1
a66 1
    -bitmap @@[file join $tk_library demos/images/flagup.xbm] \
d71 1
a71 1
    -bitmap @@[file join $tk_library demos/images/flagup.xbm] \
@


1.3
log
@* Merged 8.1 branch into the main trunk
@
text
@d5 1
a5 1
# RCS: @@(#) $Id$
d29 1
a29 1
    -bitmap @@[file join $tk_library demos/images/flagdown.bmp] \
d34 1
a34 1
    -bitmap @@[file join $tk_library demos/images/flagdown.bmp] \
d39 1
a39 1
    -bitmap @@[file join $tk_library demos/images/flagdown.bmp] \
d44 1
a44 1
    -bitmap @@[file join $tk_library demos/images/face.bmp] \
d49 1
a49 1
    -bitmap @@[file join $tk_library demos/images/face.bmp] \
d54 1
a54 1
    -bitmap @@[file join $tk_library demos/images/face.bmp] \
d59 1
a59 1
    -bitmap @@[file join $tk_library demos/images/flagup.bmp] \
d64 1
a64 1
    -bitmap @@[file join $tk_library demos/images/flagup.bmp] \
d69 1
a69 1
    -bitmap @@[file join $tk_library demos/images/flagup.bmp] \
@


1.2
log
@Replaced SCCS strings, fixed binary files
@
text
@d72 13
@


1.1
log
@Initial revision
@
text
@d5 1
a5 1
# SCCS: @@(#) canvPsBmap.tcl 1.5 96/07/25 15:54:14
@


1.1.4.1
log
@Merged 8.0.3 changes into 8.1
@
text
@d5 1
a5 1
# RCS: @@(#) $Id: canvPsBmap.tcl,v 1.2 1998/09/14 18:23:44 stanton Exp $
@


1.1.4.2
log
@- changed ::test to ::tcltest
- made many tests more atomic (still more work to do here)
- defs.tcl is now identicle for tcl and tk
@
text
@d5 1
a5 1
# RCS: @@(#) $Id: canvPsBmap.tcl,v 1.1.4.1 1998/09/30 02:18:28 stanton Exp $
a71 12












@


1.1.4.3
log
@lint:  changed a tcltest namespace variable name from tmpDir to
       workingDir.
changes:  made more tests atomic.
README is now updated to match new test suite features.
@
text
@d5 1
a5 1
# RCS: @@(#) $Id: canvPsBmap.tcl,v 1.1.4.2 1999/03/24 01:16:35 hershey Exp $
a71 1

@


