diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2006-03-20 15:27:47 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2006-03-20 15:27:47 (GMT) |
| commit | d7912924837f005844a540aaf3c39c5e59556885 (patch) | |
| tree | 72dfaa9dd4d9d73323eb71d40a1465bc6047c9d8 /tests/menu.test | |
| parent | 9cd09caa8af69a036f42dffe2a31f129a881bdb8 (diff) | |
| download | tk-d7912924837f005844a540aaf3c39c5e59556885.zip tk-d7912924837f005844a540aaf3c39c5e59556885.tar.gz tk-d7912924837f005844a540aaf3c39c5e59556885.tar.bz2 | |
reduce unnecessary namespace use
Diffstat (limited to 'tests/menu.test')
| -rw-r--r-- | tests/menu.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/menu.test b/tests/menu.test index 085003e..15d055a 100644 --- a/tests/menu.test +++ b/tests/menu.test @@ -5,7 +5,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: menu.test,v 1.17 2005/10/12 09:29:21 dkf Exp $ +# RCS: @(#) $Id: menu.test,v 1.18 2006/03/20 15:27:47 dkf Exp $ package require tcltest 2.1 eval tcltest::configure $argv @@ -199,7 +199,7 @@ menu .m2 .m1 add separator .m1 add checkbutton -label "checkbutton" -variable check -onvalue on -offvalue off .m1 add radiobutton -label "radiobutton" -variable radio -if {[tcltest::testConstraint hasEarthPhoto]} { +if {[testConstraint hasEarthPhoto]} { image create photo image1 -file $earthPhotoFile } @@ -509,7 +509,7 @@ foreach configTest { } } -if {[tcltest::testConstraint hasEarthPhoto]} { +if {[testConstraint hasEarthPhoto]} { image delete image1 } destroy .m1 |