diff options
Diffstat (limited to 'tests')
86 files changed, 86 insertions, 86 deletions
diff --git a/tests/README b/tests/README index 2ae2a44..23fc4a5 100644 --- a/tests/README +++ b/tests/README @@ -1,7 +1,7 @@ Tk Test Suite -------------- -SCCS: @(#) README 1.2 96/03/27 08:52:21 +RCS: @(#) $Id: README,v 1.2 1998/09/14 18:23:41 stanton Exp $ This directory contains a set of validation tests for Tk. Each of the files whose name ends in ".test" is intended to @@ -2,7 +2,7 @@ # tests. Execute it by invoking "source all" when running tclTest # in this directory. # -# SCCS: @(#) all 1.23 97/08/06 18:50:18 +# RCS: @(#) $Id: all,v 1.2 1998/09/14 18:23:42 stanton Exp $ switch $tcl_platform(platform) { "windows" { diff --git a/tests/arc.tcl b/tests/arc.tcl index 62ea96d..33056f5 100644 --- a/tests/arc.tcl +++ b/tests/arc.tcl @@ -1,7 +1,7 @@ # This file creates a visual test for arcs. It is part of the Tk # visual test suite, which is invoked via the "visual" script. # -# SCCS: @(#) arc.tcl 1.5 96/02/16 10:55:40 +# RCS: @(#) $Id: arc.tcl,v 1.2 1998/09/14 18:23:42 stanton Exp $ catch {destroy .t} toplevel .t diff --git a/tests/bell.test b/tests/bell.test index 97d015e..c23de2d 100644 --- a/tests/bell.test +++ b/tests/bell.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) bell.test 1.5 96/04/09 23:47:12 +# RCS: @(#) $Id: bell.test,v 1.2 1998/09/14 18:23:42 stanton Exp $ if {[string compare test [info procs test]] == 1} { source defs diff --git a/tests/bevel.tcl b/tests/bevel.tcl index 60c913a..815590a 100644 --- a/tests/bevel.tcl +++ b/tests/bevel.tcl @@ -2,7 +2,7 @@ # widgets. It is part of the Tk visual test suite, which is invoked # via the "visual" script. # -# SCCS: @(#) bevel.tcl 1.4 96/06/24 16:48:14 +# RCS: @(#) $Id: bevel.tcl,v 1.2 1998/09/14 18:23:42 stanton Exp $ catch {destroy .t} toplevel .t diff --git a/tests/bgerror.test b/tests/bgerror.test index 72b5400..b718483 100644 --- a/tests/bgerror.test +++ b/tests/bgerror.test @@ -6,7 +6,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) bgerror.test 1.1 97/08/06 09:28:30 +# RCS: @(#) $Id: bgerror.test,v 1.2 1998/09/14 18:23:42 stanton Exp $ if {[info commands test] == ""} { source defs diff --git a/tests/bind.test b/tests/bind.test index f03a95d..b70cc21 100644 --- a/tests/bind.test +++ b/tests/bind.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) bind.test 1.39 97/07/01 18:01:05 +# RCS: @(#) $Id: bind.test,v 1.3 1998/09/14 18:23:42 stanton Exp $ if {[string compare test [info procs test]] != 0} { source defs diff --git a/tests/bugs.tcl b/tests/bugs.tcl index 1f4e5b7..880e216 100644 --- a/tests/bugs.tcl +++ b/tests/bugs.tcl @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) bugs.tcl 1.1 96/07/25 15:49:45 +# RCS: @(#) $Id: bugs.tcl,v 1.2 1998/09/14 18:23:43 stanton Exp $ if {[info procs test] != "test"} { source defs diff --git a/tests/butGeom.tcl b/tests/butGeom.tcl index 352712b..7f124df 100644 --- a/tests/butGeom.tcl +++ b/tests/butGeom.tcl @@ -1,7 +1,7 @@ # 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. # -# SCCS: @(#) butGeom.tcl 1.3 97/06/13 13:46:57 +# RCS: @(#) $Id: butGeom.tcl,v 1.2 1998/09/14 18:23:43 stanton Exp $ catch {destroy .t} toplevel .t diff --git a/tests/butGeom2.tcl b/tests/butGeom2.tcl index f1293a0..36122ea 100644 --- a/tests/butGeom2.tcl +++ b/tests/butGeom2.tcl @@ -1,7 +1,7 @@ # 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. # -# SCCS: @(#) butGeom2.tcl 1.3 97/06/13 17:00:32 +# RCS: @(#) $Id: butGeom2.tcl,v 1.2 1998/09/14 18:23:43 stanton Exp $ catch {destroy .t} toplevel .t diff --git a/tests/button.test b/tests/button.test index 2c6d082..1e36dd2 100644 --- a/tests/button.test +++ b/tests/button.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) button.test 1.39 97/07/31 10:19:02 +# RCS: @(#) $Id: button.test,v 1.2 1998/09/14 18:23:43 stanton Exp $ if {[lsearch [image types] test] < 0} { puts "This application hasn't been compiled with the \"test\"" diff --git a/tests/canvImg.test b/tests/canvImg.test index 59ceaa2..05af9df 100644 --- a/tests/canvImg.test +++ b/tests/canvImg.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) canvImg.test 1.17 97/07/02 11:28:26 +# RCS: @(#) $Id: canvImg.test,v 1.2 1998/09/14 18:23:43 stanton Exp $ if {[lsearch [image types] test] < 0} { puts "This application hasn't been compiled with the \"test\" image" diff --git a/tests/canvPs.test b/tests/canvPs.test index 5ee56b9..6fc4bd0 100644 --- a/tests/canvPs.test +++ b/tests/canvPs.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) canvPs.test 1.5 97/06/10 15:49:35 +# RCS: @(#) $Id: canvPs.test,v 1.2 1998/09/14 18:23:43 stanton Exp $ if {[info procs test] != "test"} { source defs diff --git a/tests/canvPsArc.tcl b/tests/canvPsArc.tcl index 333765a..8b77091 100644 --- a/tests/canvPsArc.tcl +++ b/tests/canvPsArc.tcl @@ -2,7 +2,7 @@ # for bitmaps in canvases. It is part of the Tk visual test suite, # which is invoked via the "visual" script. # -# SCCS: @(#) canvPsArc.tcl 1.3 96/02/16 10:55:43 +# RCS: @(#) $Id: canvPsArc.tcl,v 1.2 1998/09/14 18:23:44 stanton Exp $ catch {destroy .t} toplevel .t diff --git a/tests/canvPsBmap.tcl b/tests/canvPsBmap.tcl index 385e998..15f41a4 100644 --- a/tests/canvPsBmap.tcl +++ b/tests/canvPsBmap.tcl @@ -2,7 +2,7 @@ # for bitmaps in canvases. It is part of the Tk visual test suite, # which is invoked via the "visual" script. # -# SCCS: @(#) canvPsBmap.tcl 1.5 96/07/25 15:54:14 +# RCS: @(#) $Id: canvPsBmap.tcl,v 1.2 1998/09/14 18:23:44 stanton Exp $ catch {destroy .t} toplevel .t diff --git a/tests/canvPsGrph.tcl b/tests/canvPsGrph.tcl index 55b90d7..8458727 100644 --- a/tests/canvPsGrph.tcl +++ b/tests/canvPsGrph.tcl @@ -2,7 +2,7 @@ # for some of the graphical objects in canvases. It is part of the Tk # visual test suite, which is invoked via the "visual" script. # -# SCCS: @(#) canvPsGrph.tcl 1.3 96/02/16 10:56:07 +# RCS: @(#) $Id: canvPsGrph.tcl,v 1.2 1998/09/14 18:23:44 stanton Exp $ catch {destroy .t} toplevel .t diff --git a/tests/canvPsText.tcl b/tests/canvPsText.tcl index 8bcc713..61df240 100644 --- a/tests/canvPsText.tcl +++ b/tests/canvPsText.tcl @@ -2,7 +2,7 @@ # for text in canvases. It is part of the Tk visual test suite, # which is invoked via the "visual" script. # -# SCCS: @(#) canvPsText.tcl 1.3 96/06/24 16:49:12 +# RCS: @(#) $Id: canvPsText.tcl,v 1.2 1998/09/14 18:23:44 stanton Exp $ catch {destroy .t} toplevel .t diff --git a/tests/canvRect.test b/tests/canvRect.test index e910906..c582990 100644 --- a/tests/canvRect.test +++ b/tests/canvRect.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) canvRect.test 1.18 97/08/06 15:33:39 +# RCS: @(#) $Id: canvRect.test,v 1.2 1998/09/14 18:23:44 stanton Exp $ if {[info procs test] != "test"} { source defs diff --git a/tests/canvText.test b/tests/canvText.test index b121c25..31566f6 100644 --- a/tests/canvText.test +++ b/tests/canvText.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) canvText.test 1.8 97/06/24 13:34:16 +# RCS: @(#) $Id: canvText.test,v 1.2 1998/09/14 18:23:44 stanton Exp $ if {"[info procs test]" != "test"} { source defs diff --git a/tests/canvWind.test b/tests/canvWind.test index d8c6835..2ae6ac8 100644 --- a/tests/canvWind.test +++ b/tests/canvWind.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) canvWind.test 1.2 97/11/06 13:49:14 +# RCS: @(#) $Id: canvWind.test,v 1.2 1998/09/14 18:23:44 stanton Exp $ if {"[info procs test]" != "test"} { source defs diff --git a/tests/canvas.test b/tests/canvas.test index ea2ab9a..7914668 100644 --- a/tests/canvas.test +++ b/tests/canvas.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) canvas.test 1.10 97/07/31 10:22:48 +# RCS: @(#) $Id: canvas.test,v 1.3 1998/09/14 18:23:44 stanton Exp $ if {[info procs test] != "test"} { source defs diff --git a/tests/clipboard.test b/tests/clipboard.test index 90f4ecb..1c1b43b 100644 --- a/tests/clipboard.test +++ b/tests/clipboard.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) clipboard.test 1.15 96/12/09 17:26:02 +# RCS: @(#) $Id: clipboard.test,v 1.2 1998/09/14 18:23:45 stanton Exp $ # # Note: Multiple display clipboard handling will only be tested if the diff --git a/tests/clrpick.test b/tests/clrpick.test index d267224..a56b6b3 100644 --- a/tests/clrpick.test +++ b/tests/clrpick.test @@ -6,7 +6,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# @(#) clrpick.test 1.9 97/10/21 11:29:53 +# RCS: @(#) $Id: clrpick.test,v 1.2 1998/09/14 18:23:45 stanton Exp $ # if {[string compare test [info procs test]] == 1} { diff --git a/tests/cmap.tcl b/tests/cmap.tcl index 13c350d..fb92643 100644 --- a/tests/cmap.tcl +++ b/tests/cmap.tcl @@ -2,7 +2,7 @@ # property. It is part of the Tk visual test suite, which is invoked # via the "visual" script. # -# SCCS: @(#) cmap.tcl 1.2 96/02/16 10:55:47 +# RCS: @(#) $Id: cmap.tcl,v 1.2 1998/09/14 18:23:45 stanton Exp $ catch {destroy .t} toplevel .t -colormap new diff --git a/tests/cmds.test b/tests/cmds.test index 71b14f4..6524f3c 100644 --- a/tests/cmds.test +++ b/tests/cmds.test @@ -6,7 +6,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) cmds.test 1.1 96/03/14 13:25:24 +# RCS: @(#) $Id: cmds.test,v 1.2 1998/09/14 18:23:45 stanton Exp $ if {[string compare test [info procs test]] == 1} { source defs diff --git a/tests/color.test b/tests/color.test index 030efa0..7c68ec3 100644 --- a/tests/color.test +++ b/tests/color.test @@ -6,7 +6,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) color.test 1.5 96/02/16 10:56:05 +# RCS: @(#) $Id: color.test,v 1.2 1998/09/14 18:23:45 stanton Exp $ if {[info procs test] != "test"} { source defs @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) defs 1.39 97/08/06 15:32:02 +# RCS: @(#) $Id: defs,v 1.2 1998/09/14 18:23:45 stanton Exp $ if ![info exists VERBOSE] { set VERBOSE 0 diff --git a/tests/entry.test b/tests/entry.test index 950d278..551404c 100644 --- a/tests/entry.test +++ b/tests/entry.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) entry.test 1.49 97/11/07 09:34:31 +# RCS: @(#) $Id: entry.test,v 1.2 1998/09/14 18:23:45 stanton Exp $ if {[lsearch [image types] test] < 0} { puts "This application hasn't been compiled with the \"test\"" diff --git a/tests/event.test b/tests/event.test index a8ab3de..0812f71 100644 --- a/tests/event.test +++ b/tests/event.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) event.test 1.6 96/09/12 09:25:44 +# RCS: @(#) $Id: event.test,v 1.2 1998/09/14 18:23:46 stanton Exp $ if {[info procs test] != "test"} { source defs diff --git a/tests/filebox.test b/tests/filebox.test index c687b0b..97b313f 100644 --- a/tests/filebox.test +++ b/tests/filebox.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) filebox.test 1.5 97/10/10 11:03:21 +# RCS: @(#) $Id: filebox.test,v 1.4 1998/09/14 18:23:46 stanton Exp $ # set tk_strictMotif_old $tk_strictMotif diff --git a/tests/focus.test b/tests/focus.test index 500a46c..08843e3 100644 --- a/tests/focus.test +++ b/tests/focus.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) focus.test 1.24 97/08/11 09:39:34 +# RCS: @(#) $Id: focus.test,v 1.3 1998/09/14 18:23:46 stanton Exp $ if {$tcl_platform(platform) != "unix"} { return diff --git a/tests/focusTcl.test b/tests/focusTcl.test index 2154041..14c1d3d 100644 --- a/tests/focusTcl.test +++ b/tests/focusTcl.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) focusTcl.test 1.7 96/09/26 10:25:58 +# RCS: @(#) $Id: focusTcl.test,v 1.2 1998/09/14 18:23:47 stanton Exp $ if {[info procs test] != "test"} { source defs diff --git a/tests/font.test b/tests/font.test index dac8c9d..909085b 100644 --- a/tests/font.test +++ b/tests/font.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) font.test 1.22 97/10/10 14:34:54 +# RCS: @(#) $Id: font.test,v 1.3 1998/09/14 18:23:47 stanton Exp $ if {[string compare test [info procs test]] != 0} { source defs diff --git a/tests/frame.test b/tests/frame.test index c23d851..7e3d8da 100644 --- a/tests/frame.test +++ b/tests/frame.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) frame.test 1.29 97/10/10 15:52:19 +# RCS: @(#) $Id: frame.test,v 1.2 1998/09/14 18:23:47 stanton Exp $ if {[info procs test] != "test"} { source defs diff --git a/tests/geometry.test b/tests/geometry.test index d5d1f01..0785ab1 100644 --- a/tests/geometry.test +++ b/tests/geometry.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) geometry.test 1.9 96/02/16 10:55:06 +# RCS: @(#) $Id: geometry.test,v 1.2 1998/09/14 18:23:47 stanton Exp $ if {[info procs test] != "test"} { source defs diff --git a/tests/grid.test b/tests/grid.test index fae31fe..61cc661 100644 --- a/tests/grid.test +++ b/tests/grid.test @@ -6,7 +6,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) grid.test 1.22 97/10/10 10:07:31 +# RCS: @(#) $Id: grid.test,v 1.2 1998/09/14 18:23:47 stanton Exp $ if {[string compare test [info procs test]] == 1} then \ {source ../tests/defs} diff --git a/tests/id.test b/tests/id.test index 31249da..b1c2ea9 100644 --- a/tests/id.test +++ b/tests/id.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) id.test 1.7 97/05/15 09:47:10 +# RCS: @(#) $Id: id.test,v 1.3 1998/09/14 18:23:47 stanton Exp $ if {[info procs test] != "test"} { source defs diff --git a/tests/image.test b/tests/image.test index b4e7ad7..468865d 100644 --- a/tests/image.test +++ b/tests/image.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) image.test 1.15 97/07/31 10:17:25 +# RCS: @(#) $Id: image.test,v 1.2 1998/09/14 18:23:47 stanton Exp $ if {[lsearch [image types] test] < 0} { puts "This application hasn't been compiled with the \"test\" image" diff --git a/tests/imgBmap.test b/tests/imgBmap.test index 928f7a4..337a136 100644 --- a/tests/imgBmap.test +++ b/tests/imgBmap.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) imgBmap.test 1.15 97/03/10 14:12:38 +# RCS: @(#) $Id: imgBmap.test,v 1.2 1998/09/14 18:23:47 stanton Exp $ if {[info procs test] != "test"} { source defs diff --git a/tests/imgPPM.test b/tests/imgPPM.test index 044a274..f9ffc9e 100644 --- a/tests/imgPPM.test +++ b/tests/imgPPM.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) imgPPM.test 1.14 97/10/28 14:47:05 +# RCS: @(#) $Id: imgPPM.test,v 1.2 1998/09/14 18:23:47 stanton Exp $ if {[info procs test] != "test"} { source defs diff --git a/tests/imgPhoto.test b/tests/imgPhoto.test index ec7c635..ab42517 100644 --- a/tests/imgPhoto.test +++ b/tests/imgPhoto.test @@ -10,7 +10,7 @@ # # Author: Paul Mackerras (paulus@cs.anu.edu.au) # -# SCCS: @(#) imgPhoto.test 1.23 97/08/08 11:29:25 +# RCS: @(#) $Id: imgPhoto.test,v 1.2 1998/09/14 18:23:47 stanton Exp $ if {[info procs test] != "test"} { source defs diff --git a/tests/listbox.test b/tests/listbox.test index cb1a4e3..c2b1447 100644 --- a/tests/listbox.test +++ b/tests/listbox.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) listbox.test 1.45 97/10/29 13:05:46 +# RCS: @(#) $Id: listbox.test,v 1.2 1998/09/14 18:23:48 stanton Exp $ if {[string compare test [info procs test]] == 1} then \ {source defs} diff --git a/tests/macEmbed.test b/tests/macEmbed.test index b85e01a..90b7161 100644 --- a/tests/macEmbed.test +++ b/tests/macEmbed.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) macEmbed.test 1.1 97/08/06 21:18:53 +# RCS: @(#) $Id: macEmbed.test,v 1.3 1998/09/14 18:23:48 stanton Exp $ if {$tcl_platform(platform) != "macintosh"} { return diff --git a/tests/macFont.test b/tests/macFont.test index aa342a6..8c6d0ae 100644 --- a/tests/macFont.test +++ b/tests/macFont.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) macFont.test 1.5 97/05/05 14:21:05 +# RCS: @(#) $Id: macFont.test,v 1.2 1998/09/14 18:23:48 stanton Exp $ if {$tcl_platform(platform)!="macintosh"} { return diff --git a/tests/macMenu.test b/tests/macMenu.test index 2c10e86..3882b0d 100644 --- a/tests/macMenu.test +++ b/tests/macMenu.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) macMenu.test 1.23 97/07/10 13:35:52 +# RCS: @(#) $Id: macMenu.test,v 1.2 1998/09/14 18:23:48 stanton Exp $ if {$tcl_platform(platform) != "macintosh"} { return diff --git a/tests/macWinMenu.test b/tests/macWinMenu.test index 7b6ac12..e19fdff 100644 --- a/tests/macWinMenu.test +++ b/tests/macWinMenu.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) macWinMenu.test 1.13 97/04/10 14:41:29 +# RCS: @(#) $Id: macWinMenu.test,v 1.2 1998/09/14 18:23:48 stanton Exp $ if {$tcl_platform(platform) == "unix"} { return diff --git a/tests/macscrollbar.test b/tests/macscrollbar.test index 0dd6646..c13198a 100644 --- a/tests/macscrollbar.test +++ b/tests/macscrollbar.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) macscrollbar.test 1.3 97/06/24 13:48:34 +# RCS: @(#) $Id: macscrollbar.test,v 1.2 1998/09/14 18:23:48 stanton Exp $ # Only run this test on the Macintosh if {$tcl_platform(platform) != "macintosh"} return diff --git a/tests/main.test b/tests/main.test index 49365c3..e7ed056 100644 --- a/tests/main.test +++ b/tests/main.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) main.test 1.2 97/09/10 17:49:20 +# RCS: @(#) $Id: main.test,v 1.2 1998/09/14 18:23:48 stanton Exp $ if {[info procs test] != "test"} { source defs diff --git a/tests/menu.test b/tests/menu.test index 3f54a8d..a4399b5 100644 --- a/tests/menu.test +++ b/tests/menu.test @@ -6,7 +6,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) menu.test 1.43 97/10/28 13:51:13 +# RCS: @(#) $Id: menu.test,v 1.2 1998/09/14 18:23:48 stanton Exp $ if {[lsearch [image types] test] < 0} { puts "This application hasn't been compiled with the \"test\" image" diff --git a/tests/menuDraw.test b/tests/menuDraw.test index 291d2a2..b142f98 100644 --- a/tests/menuDraw.test +++ b/tests/menuDraw.test @@ -6,7 +6,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) menuDraw.test 1.11 97/06/24 13:50:34 +# RCS: @(#) $Id: menuDraw.test,v 1.2 1998/09/14 18:23:48 stanton Exp $ if {[lsearch [image types] test] < 0} { puts "This application hasn't been compiled with the \"test\" image" diff --git a/tests/menubut.test b/tests/menubut.test index 8a5c14a..9bdf04c 100644 --- a/tests/menubut.test +++ b/tests/menubut.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) menubut.test 1.26 97/07/31 10:08:50 +# RCS: @(#) $Id: menubut.test,v 1.2 1998/09/14 18:23:49 stanton Exp $ # XXX This test file is woefully incomplete right now. If any part # XXX of a procedure has tests then the whole procedure has tests, diff --git a/tests/msgbox.test b/tests/msgbox.test index c23ddaf..0511c87 100644 --- a/tests/msgbox.test +++ b/tests/msgbox.test @@ -6,7 +6,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) msgbox.test 1.7 97/07/31 10:05:25 +# RCS: @(#) $Id: msgbox.test,v 1.2 1998/09/14 18:23:49 stanton Exp $ # if {[string compare test [info procs test]] == 1} { diff --git a/tests/oldpack.test b/tests/oldpack.test index a63eaef..984e4fe 100644 --- a/tests/oldpack.test +++ b/tests/oldpack.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) oldpack.test 1.10 97/06/24 13:32:16 +# RCS: @(#) $Id: oldpack.test,v 1.2 1998/09/14 18:23:49 stanton Exp $ if {[string compare test [info procs test]] == 1} then \ {source defs} diff --git a/tests/option.test b/tests/option.test index aad9197..3acc8f8 100644 --- a/tests/option.test +++ b/tests/option.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) option.test 1.20 97/08/07 15:54:37 +# RCS: @(#) $Id: option.test,v 1.2 1998/09/14 18:23:49 stanton Exp $ if {[string compare test [info procs test]] == 1} then \ {source defs} diff --git a/tests/pack.test b/tests/pack.test index 3443d74..0084de4 100644 --- a/tests/pack.test +++ b/tests/pack.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) pack.test 1.27 97/07/01 18:06:56 +# RCS: @(#) $Id: pack.test,v 1.2 1998/09/14 18:23:49 stanton Exp $ if {[string compare test [info procs test]] == 1} then \ {source defs} diff --git a/tests/place.test b/tests/place.test index 06540e3..aaa2537 100644 --- a/tests/place.test +++ b/tests/place.test @@ -6,7 +6,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) place.test 1.6 96/02/16 10:56:01 +# RCS: @(#) $Id: place.test,v 1.2 1998/09/14 18:23:49 stanton Exp $ if {[info procs test] != "test"} { source defs diff --git a/tests/raise.test b/tests/raise.test index af13746..5c40341 100644 --- a/tests/raise.test +++ b/tests/raise.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) raise.test 1.8 96/02/16 10:55:18 +# RCS: @(#) $Id: raise.test,v 1.2 1998/09/14 18:23:49 stanton Exp $ if {[info commands testmakeexist] == {}} { puts "This application hasn't been compiled with the \"testmakeexist\"" diff --git a/tests/safe.test b/tests/safe.test index 3eaf504..90873f0 100644 --- a/tests/safe.test +++ b/tests/safe.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) safe.test 1.15 97/08/13 16:05:17 +# RCS: @(#) $Id: safe.test,v 1.3 1998/09/14 18:23:49 stanton Exp $ if {[info procs test] != "test"} { source defs diff --git a/tests/scale.test b/tests/scale.test index 405a529..ddef4cf 100644 --- a/tests/scale.test +++ b/tests/scale.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) scale.test 1.28 97/07/31 10:20:43 +# RCS: @(#) $Id: scale.test,v 1.2 1998/09/14 18:23:49 stanton Exp $ if {[info procs test] != "test"} { source defs diff --git a/tests/scrollbar.test b/tests/scrollbar.test index 9242acb..7790b05 100644 --- a/tests/scrollbar.test +++ b/tests/scrollbar.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) scrollbar.test 1.33 97/08/13 17:37:19 +# RCS: @(#) $Id: scrollbar.test,v 1.2 1998/09/14 18:23:50 stanton Exp $ if {[info procs test] != "test"} { source defs diff --git a/tests/select.test b/tests/select.test index 82db030..d449f7c 100644 --- a/tests/select.test +++ b/tests/select.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) select.test 1.17 96/12/09 17:25:48 +# RCS: @(#) $Id: select.test,v 1.2 1998/09/14 18:23:50 stanton Exp $ # # Note: Multiple display selection handling will only be tested if the diff --git a/tests/send.test b/tests/send.test index 7addb73..2f6e7d1 100644 --- a/tests/send.test +++ b/tests/send.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) send.test 1.26 96/12/09 17:26:42 +# RCS: @(#) $Id: send.test,v 1.2 1998/09/14 18:23:50 stanton Exp $ if {$tcl_platform(platform) == "macintosh"} { puts "send is not available on the Mac - skipping tests" diff --git a/tests/text.test b/tests/text.test index 3bd5a09..62d5839 100644 --- a/tests/text.test +++ b/tests/text.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) text.test 1.46 97/10/13 15:18:31 +# RCS: @(#) $Id: text.test,v 1.2 1998/09/14 18:23:50 stanton Exp $ if {[string compare test [info procs test]] == 1} then \ {source defs} diff --git a/tests/textBTree.test b/tests/textBTree.test index 0ca5eb2..d59a9b8 100644 --- a/tests/textBTree.test +++ b/tests/textBTree.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) textBTree.test 1.8 96/03/21 15:51:12 +# RCS: @(#) $Id: textBTree.test,v 1.2 1998/09/14 18:23:50 stanton Exp $ if {[string compare test [info procs test]] == 1} then \ {source defs} diff --git a/tests/textDisp.test b/tests/textDisp.test index c14f785..9741fdc 100644 --- a/tests/textDisp.test +++ b/tests/textDisp.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) textDisp.test 1.55 97/07/24 15:15:43 +# RCS: @(#) $Id: textDisp.test,v 1.2 1998/09/14 18:23:50 stanton Exp $ if {[string compare test [info procs test]] == 1} { source defs diff --git a/tests/textImage.test b/tests/textImage.test index 80d083c..e639097 100644 --- a/tests/textImage.test +++ b/tests/textImage.test @@ -1,4 +1,4 @@ -# SCCS: @(#) textImage.test 1.8 97/07/01 18:11:54 +# RCS: @(#) $Id: textImage.test,v 1.2 1998/09/14 18:23:51 stanton Exp $ if {[string compare test [info procs test]] == 1} then \ {source ../tests/defs} diff --git a/tests/textIndex.test b/tests/textIndex.test index df30951..1744834 100644 --- a/tests/textIndex.test +++ b/tests/textIndex.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) textIndex.test 1.9 96/06/24 16:46:55 +# RCS: @(#) $Id: textIndex.test,v 1.2 1998/09/14 18:23:51 stanton Exp $ if {[string compare test [info procs test]] == 1} then \ {source defs} diff --git a/tests/textMark.test b/tests/textMark.test index 39a0961..6bc2589 100644 --- a/tests/textMark.test +++ b/tests/textMark.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) textMark.test 1.8 97/10/20 11:13:00 +# RCS: @(#) $Id: textMark.test,v 1.2 1998/09/14 18:23:51 stanton Exp $ if {[string compare test [info procs test]] == 1} then \ {source defs} diff --git a/tests/textTag.test b/tests/textTag.test index ae0d33a..79901cf 100644 --- a/tests/textTag.test +++ b/tests/textTag.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) textTag.test 1.30 97/11/06 16:57:02 +# RCS: @(#) $Id: textTag.test,v 1.2 1998/09/14 18:23:52 stanton Exp $ if {[string compare test [info procs test]] == 1} then \ {source defs} diff --git a/tests/textWind.test b/tests/textWind.test index c639dab..a62663d 100644 --- a/tests/textWind.test +++ b/tests/textWind.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) textWind.test 1.25 97/07/01 18:16:38 +# RCS: @(#) $Id: textWind.test,v 1.2 1998/09/14 18:23:52 stanton Exp $ if {[string compare test [info procs test]] == 1} then \ {source defs} diff --git a/tests/tk.test b/tests/tk.test index 94cec66..89a853b 100644 --- a/tests/tk.test +++ b/tests/tk.test @@ -6,7 +6,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) tk.test 1.3 97/05/20 15:17:44 +# RCS: @(#) $Id: tk.test,v 1.2 1998/09/14 18:23:52 stanton Exp $ if {[info commands test] == ""} { source defs diff --git a/tests/unixButton.test b/tests/unixButton.test index a4c67d5..6788655 100644 --- a/tests/unixButton.test +++ b/tests/unixButton.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) unixButton.test 1.6 97/07/01 18:11:30 +# RCS: @(#) $Id: unixButton.test,v 1.2 1998/09/14 18:23:52 stanton Exp $ if {$tcl_platform(platform)!="unix"} { return diff --git a/tests/unixEmbed.test b/tests/unixEmbed.test index ee7baa6..513a5cc 100644 --- a/tests/unixEmbed.test +++ b/tests/unixEmbed.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) unixEmbed.test 1.7 97/08/13 11:13:21 +# RCS: @(#) $Id: unixEmbed.test,v 1.3 1998/09/14 18:23:52 stanton Exp $ if {$tcl_platform(platform) != "unix"} { return diff --git a/tests/unixFont.test b/tests/unixFont.test index edcce42..9dcd672 100644 --- a/tests/unixFont.test +++ b/tests/unixFont.test @@ -13,7 +13,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) unixFont.test 1.7 97/06/24 13:34:24 +# RCS: @(#) $Id: unixFont.test,v 1.2 1998/09/14 18:23:52 stanton Exp $ if {$tcl_platform(platform)!="unix"} { return diff --git a/tests/unixMenu.test b/tests/unixMenu.test index dfcf252..cd1e87b 100644 --- a/tests/unixMenu.test +++ b/tests/unixMenu.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) unixMenu.test 1.9 97/06/24 13:52:38 +# RCS: @(#) $Id: unixMenu.test,v 1.2 1998/09/14 18:23:52 stanton Exp $ if {$tcl_platform(platform) != "unix"} { return diff --git a/tests/unixWm.test b/tests/unixWm.test index dc5ed49..bf19bbb 100644 --- a/tests/unixWm.test +++ b/tests/unixWm.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) unixWm.test 1.46 97/10/27 16:15:36 +# RCS: @(#) $Id: unixWm.test,v 1.3 1998/09/14 18:23:52 stanton Exp $ if {$tcl_platform(platform) != "unix"} { return diff --git a/tests/util.test b/tests/util.test index 3b41e49..9793144 100644 --- a/tests/util.test +++ b/tests/util.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) util.test 1.4 96/02/16 10:55:50 +# RCS: @(#) $Id: util.test,v 1.2 1998/09/14 18:23:53 stanton Exp $ if {[string compare test [info procs test]] == 1} then \ {source defs} diff --git a/tests/visual b/tests/visual index 90e8558..d227503 100644 --- a/tests/visual +++ b/tests/visual @@ -6,7 +6,7 @@ # at the window to make sure it appears as expected. Individual tests # are kept in separate ".tcl" files in this directory. # -# SCCS: @(#) visual 1.5 97/06/13 16:37:29 +# 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" diff --git a/tests/visual.test b/tests/visual.test index 853554e..402bd5c 100644 --- a/tests/visual.test +++ b/tests/visual.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) visual.test 1.11 96/02/16 10:55:34 +# RCS: @(#) $Id: visual.test,v 1.2 1998/09/14 18:23:53 stanton Exp $ if {[info procs test] != "test"} { source defs diff --git a/tests/winButton.test b/tests/winButton.test index aa7cda1..4202a6a 100644 --- a/tests/winButton.test +++ b/tests/winButton.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) winButton.test 1.3 97/07/01 18:11:44 +# RCS: @(#) $Id: winButton.test,v 1.3 1998/09/14 18:23:53 stanton Exp $ if {$tcl_platform(platform)!="windows"} { return diff --git a/tests/winClipboard.test b/tests/winClipboard.test index 222c23f..64a73a9 100644 --- a/tests/winClipboard.test +++ b/tests/winClipboard.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) winClipboard.test 1.3 97/07/01 18:10:37 +# RCS: @(#) $Id: winClipboard.test,v 1.2 1998/09/14 18:23:53 stanton Exp $ if {$tcl_platform(platform)!="windows"} { return diff --git a/tests/winFont.test b/tests/winFont.test index 172722f..a02b461 100644 --- a/tests/winFont.test +++ b/tests/winFont.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) winFont.test 1.7 97/04/25 16:55:00 +# RCS: @(#) $Id: winFont.test,v 1.3 1998/09/14 18:23:53 stanton Exp $ if {$tcl_platform(platform)!="windows"} { return diff --git a/tests/winMenu.test b/tests/winMenu.test index ceeced6..96fdd21 100644 --- a/tests/winMenu.test +++ b/tests/winMenu.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) winMenu.test 1.19 97/07/02 11:29:57 +# RCS: @(#) $Id: winMenu.test,v 1.2 1998/09/14 18:23:53 stanton Exp $ if {$tcl_platform(platform) != "windows"} { return diff --git a/tests/winWm.test b/tests/winWm.test index c83e380..c48fc3b 100644 --- a/tests/winWm.test +++ b/tests/winWm.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) winWm.test 1.5 97/08/13 15:42:46 +# RCS: @(#) $Id: winWm.test,v 1.2 1998/09/14 18:23:53 stanton Exp $ if {$tcl_platform(platform) != "windows"} { return diff --git a/tests/window.test b/tests/window.test index 8706103..3a1df2b 100644 --- a/tests/window.test +++ b/tests/window.test @@ -6,7 +6,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) window.test 1.8 97/01/22 14:17:54 +# RCS: @(#) $Id: window.test,v 1.3 1998/09/14 18:23:53 stanton Exp $ if {[info procs test] != "test"} { source defs diff --git a/tests/winfo.test b/tests/winfo.test index 7f5fe9e..826d1e2 100644 --- a/tests/winfo.test +++ b/tests/winfo.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) winfo.test 1.19 97/05/16 08:49:01 +# RCS: @(#) $Id: winfo.test,v 1.3 1998/09/14 18:23:54 stanton Exp $ if {[info procs test] != "test"} { source defs |