diff options
| author | hershey <hershey> | 1999-03-24 01:16:26 (GMT) |
|---|---|---|
| committer | hershey <hershey> | 1999-03-24 01:16:26 (GMT) |
| commit | 55bf2282fef89f9be2acee9c55edaf116170ec00 (patch) | |
| tree | 06702fbd0df791390869231699185146e16c3894 /tests/canvPsText.tcl | |
| parent | c487f55205af49529919bc9ef457977e5a729f0f (diff) | |
| download | tk-55bf2282fef89f9be2acee9c55edaf116170ec00.zip tk-55bf2282fef89f9be2acee9c55edaf116170ec00.tar.gz tk-55bf2282fef89f9be2acee9c55edaf116170ec00.tar.bz2 | |
- changed ::test to ::tcltest
- made many tests more atomic (still more work to do here)
- defs.tcl is now identicle for tcl and tk
Diffstat (limited to 'tests/canvPsText.tcl')
| -rw-r--r-- | tests/canvPsText.tcl | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/tests/canvPsText.tcl b/tests/canvPsText.tcl index 4364bb1..c4117df 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. # -# RCS: @(#) $Id: canvPsText.tcl,v 1.1.4.1 1998/09/30 02:18:29 stanton Exp $ +# RCS: @(#) $Id: canvPsText.tcl,v 1.1.4.2 1999/03/24 01:16:36 hershey Exp $ catch {destroy .t} toplevel .t @@ -81,3 +81,15 @@ proc setStipple c { global stipple $c itemconfigure text -stipple $stipple } + + + + + + + + + + + + |