head	1.11;
access;
symbols
	core-8-5-9:1.10
	core-8-5-8:1.10
	macosx-cocoa-merge:1.11
	macosx-cocoa-premerge:1.11
	macosx-carbon-freeze:1.11
	core-8-5-7:1.10
	core-8-5-6:1.10
	core-8-6-b1:1.11
	core-8-6-a3:1.11
	core-8-5-5:1.10
	core-8-6-a2:1.11
	core-8-5-4:1.10
	core-8-5-3:1.10
	core-8-6-a1:1.10
	core-8-4-19:1.7
	core-8-5-branch:1.10.0.4
	core-8-5-2:1.10
	core-8-4-18:1.7
	core-8-5-1:1.10
	core-8-4-17:1.7
	core-8-5-0:1.10
	core-8-5-b3:1.10
	core-8-5-b2:1.10
	core-8-4-16:1.7
	core-8-5-b1:1.10
	core-stablilizer-merge:1.10
	core-stabilizer-branch:1.10.0.2
	core-stabilizer-merge:1.10
	core-8-4-15:1.7
	core-8-5-a6:1.10
	core-8-5-a5:1.10
	core-8-4-14:1.7
	core-8-5-a4:1.10
	core-8-4-13:1.7
	core-8-4-12:1.7
	core-8-4-11:1.7
	core-8-5-a3:1.10
	core-8-4-10:1.7
	core-8-4-9-branch:1.7.0.4
	core-8-5-a2:1.10
	core-8-4-9:1.7
	core-8-4-8:1.7
	core-8-4-7:1.7
	core-8-5-a1:1.8
	core-8-4-6:1.7
	core-8-4-5:1.7
	mistachkin-dev-branch:1.8.0.2
	core-8-4-4:1.7
	core-8-4-3:1.7
	core-8-4-branch:1.7.0.2
	core-8-4-2:1.7
	core-8-4-1:1.7
	core-8-3-5:1.5
	core-8-4-0:1.7
	macosx-8-4-merge-2002-08-31-trunk:1.7
	macosx-8-4-premerge-2002-08-31-branch:1.5.8.1
	macosx-8-4-premerge-2002-08-31-trunk:1.7
	macosx-8-4-merge-2002-08-30-branch:1.5.8.1
	macosx-8-4-merge-2002-08-30-trunk:1.7
	macosx-8-4-merge-2002-08-20-branch:1.5.8.1
	macosx-8-4-merge-2002-08-20-trunk:1.7
	core-8-4-b2:1.7
	core-8-4-b1:1.5
	macosx-premerge-6-9-02:1.5
	core-8-4-a4:1.5
	core-8-3-4:1.5
	macosx-8-4-branch:1.5.0.8
	macosx-8-4-branchpoint:1.5
	core-8-4-a3:1.5
	core-8-3-3:1.5
	dgp-privates-into-namespace:1.5.0.6
	tclpro-1-5-0:1.5
	core-8-4-win-speedup:1.5.0.4
	core-8-4-a2:1.5
	tclpro-1-4-1:1.5
	tclpro-1-4-0:1.5
	core-8-3-2:1.5
	ajuba-ajuba2-2-1-base:1.5
	ajuba-ajuba2-2-0:1.5
	core-8-4-a1:1.5
	core-8-3-1-branch:1.5.0.2
	core-8-3-1:1.5
	scriptics-sc-2-0-b5:1.5
	scriptics-sc-2-0-fixed:1.5
	scriptics-sc-2-0-b2:1.5
	scriptics-sc-2-0-b1:1.5
	core-8-3-0:1.5
	core-8-3-b2:1.5
	core-8-3-b1:1.5
	scriptics-sc-1-1:1.4
	scriptics-sc-1-1-b1:1.4
	core-8-2-3:1.4
	scriptics-sc-1-1-branch:1.4.0.8
	scriptics-sc-1-1-base:1.4
	scriptics-sc-1-0:1.4
	scriptics-sc-1-0-branch:1.4.0.6
	scriptics-sc-1-0-base:1.4
	core-8-2-2:1.4
	core-8-2-1:1.4
	scriptics-bc-1-0-b1:1.4
	core-8-2-1-branch:1.4.0.4
	scriptics-tclpro-1-3-0:1.4
	core-8-2-0:1.4
	core-8-2-b3-branch:1.4.0.2
	core-8-2-b3-base:1.4
	scriptics-tclpro-1-3-b4:1.4
	core-8-2-b2:1.4
	scriptics-tclpro-1-3-b3:1.4
	core-8-2-b1:1.4
	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.4
	core-8-1-b2:1.1.4.2
	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.11
date	2008.08.18.16.09.10;	author aniap;	state Exp;
branches;
next	1.10;

1.10
date	2004.06.17.22.38.57;	author dkf;	state Exp;
branches;
next	1.9;

1.9
date	2004.05.23.17.34.49;	author dkf;	state Exp;
branches;
next	1.8;

1.8
date	2003.04.01.21.06.50;	author dgp;	state Exp;
branches;
next	1.7;

1.7
date	2002.07.13.20.28.35;	author dgp;	state Exp;
branches;
next	1.6;

1.6
date	2002.07.13.00.30.25;	author dgp;	state Exp;
branches;
next	1.5;

1.5
date	99.08.18.00.11.13;	author jenn;	state Exp;
branches
	1.5.8.1;
next	1.4;

1.4
date	99.07.08.18.22.22;	author jenn;	state Exp;
branches;
next	1.3;

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

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

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

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

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

1.1.4.3
date	99.03.24.01.17.02;	author hershey;	state Exp;
branches;
next	1.1.4.4;

1.1.4.4
date	99.03.24.02.54.57;	author hershey;	state Exp;
branches;
next	;

1.5.8.1
date	2002.08.20.20.27.15;	author das;	state Exp;
branches;
next	;


desc
@@


1.11
log
@Update to tcltest2
@
text
@# This file is a Tcl script to test out Tk's "raise" and
# "lower" commands, plus associated code to manage window
# stacking order.  It is organized in the standard fashion
# for Tcl tests.
#
# Copyright (c) 1993-1994 The Regents of the University of California.
# Copyright (c) 1994 Sun Microsystems, Inc.
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
# RCS: @@(#) $Id: raise.test,v 1.10 2004/06/17 22:38:57 dkf Exp $

package require tcltest 2.2
eval tcltest::configure $argv
tcltest::loadTestedCommands
namespace import -force tcltest::test

# Procedure to create a bunch of overlapping windows, which should
# make it easy to detect differences in order.

proc raise_setup {} {
    foreach i [winfo child .raise] {
	        destroy $i
        }
    foreach i {a b c d e} {
	    label .raise.$i -text $i -relief raised -bd 2
    }
    place .raise.a -x 20 -y 60 -width 60 -height 80
    place .raise.b -x 60 -y 60 -width 60 -height 80
    place .raise.c -x 100 -y 60 -width 60 -height 80
    place .raise.d -x 40 -y 20 -width 100 -height 60
    place .raise.e -x 40 -y 120 -width 100 -height 60
}

# Procedure to return information about which windows are on top
# of which other windows.

proc raise_getOrder {} {
    set x [winfo rootx .raise]
    set y [winfo rooty .raise]
    list [winfo name [winfo containing [expr $x+50] [expr $y+70]]] \
	    [winfo name [winfo containing [expr $x+90] [expr $y+70]]] \
	    [winfo name [winfo containing [expr $x+130] [expr $y+70]]] \
	    [winfo name [winfo containing [expr $x+70] [expr $y+100]]] \
	    [winfo name [winfo containing [expr $x+110] [expr $y+100]]] \
	    [winfo name [winfo containing [expr $x+50] [expr $y+130]]] \
	    [winfo name [winfo containing [expr $x+90] [expr $y+130]]] \
	    [winfo name [winfo containing [expr $x+130] [expr $y+130]]]
}

# Procedure to set up a collection of top-level windows

proc raise_makeToplevels {} {
    deleteWindows
    foreach i {.raise1 .raise2 .raise3} {
	toplevel $i
	wm geom $i 150x100+0+0
	update
    }
}

toplevel .raise
wm geom .raise 250x200+0+0


test raise-1.1 {preserve creation order} -body {
    raise_setup
    tkwait visibility .raise.e
    raise_getOrder
} -result {d d d b c e e e}
test raise-1.2 {preserve creation order} -constraints testmakeexist -body {
    raise_setup
    testmakeexist .raise.a
    update
    raise_getOrder
} -result {d d d b c e e e}
test raise-1.3 {preserve creation order} -constraints testmakeexist -body {
    raise_setup
    testmakeexist .raise.c
    update
    raise_getOrder
} -result {d d d b c e e e}
test raise-1.4 {preserve creation order} -constraints testmakeexist -body {
    raise_setup
    testmakeexist .raise.e
    update
    raise_getOrder
} -result {d d d b c e e e}
test raise-1.5 {preserve creation order} -constraints testmakeexist -body {
    raise_setup
    testmakeexist .raise.d .raise.c .raise.b
    update
    raise_getOrder
} -result {d d d b c e e e}


test raise-2.1 {raise internal windows before creation} -body {
    raise_setup
    raise .raise.a
    update
    raise_getOrder
} -result {a d d a c a e e}
test raise-2.2 {raise internal windows before creation} -body {
    raise_setup
    raise .raise.c
    update
    raise_getOrder
} -result {d d c b c e e c}
test raise-2.3 {raise internal windows before creation} -body {
    raise_setup
    raise .raise.e
    update
    raise_getOrder
} -result {d d d b c e e e}
test raise-2.4 {raise internal windows before creation} -body {
    raise_setup
    raise .raise.e .raise.a
    update
    raise_getOrder
} -result {d d d b c e b c}
test raise-2.5 {raise internal windows before creation} -body {
    raise_setup
    raise .raise.a .raise.d
    update
    raise_getOrder
} -result {a d d a c e e e}


test raise-3.1 {raise internal windows after creation} -body {
    raise_setup
    update
    raise .raise.a .raise.d
    raise_getOrder
} -result {a d d a c e e e}
test raise-3.2 {raise internal windows after creation} -constraints {
	testmakeexist 
} -body {
    raise_setup
    testmakeexist .raise.a .raise.b
    raise .raise.a .raise.b
    update
    raise_getOrder
} -result {d d d a c e e e}
test raise-3.3 {raise internal windows after creation} -constraints {
	testmakeexist 
} -body {
    raise_setup
    testmakeexist .raise.a .raise.d
    raise .raise.a .raise.b
    update
    raise_getOrder
} -result {d d d a c e e e}
test raise-3.4 {raise internal windows after creation} -constraints {
	testmakeexist 
} -body {
    raise_setup
    testmakeexist .raise.a .raise.c .raise.d
    raise .raise.a .raise.b
    update
    raise_getOrder
} -result {d d d a c e e e}


test raise-4.1 {raise relative to nephews} -body {
    raise_setup
    update
    frame .raise.d.child
    raise .raise.a .raise.d.child
    raise_getOrder
} -result {a d d a c e e e}
test raise-4.2 {raise relative to nephews} -setup {
    destroy .raise2
} -body {
    raise_setup
    update
    frame .raise2
    raise .raise.a .raise2
} -cleanup {
    destroy .raise2
} -returnCodes error -result {can't raise ".raise.a" above ".raise2"}


test raise-5.1 {lower internal windows} -body {
    raise_setup
    update
    lower .raise.d
    raise_getOrder
} -result {a b c b c e e e}
test raise-5.2 {lower internal windows} -body {
    raise_setup
    update
    lower .raise.d .raise.b
    raise_getOrder
} -result {d b c b c e e e}
test raise-5.3 {lower internal windows} -body {
    raise_setup
    update
    lower .raise.a .raise.e
    raise_getOrder
} -result {a d d a c e e e}
test raise-5.4 {lower internal windows} -setup {
    destroy .raise2
} -body {
    raise_setup
    update
    frame .raise2
    lower .raise.a .raise2
} -cleanup {
    destroy .raise2
} -returnCodes error -result {can't lower ".raise.a" below ".raise2"}


test raise-6.1 {raise/lower toplevel windows} -constraints {
	nonPortable
} -body {
    raise_makeToplevels
    update
    raise .raise1
    winfo containing [winfo rootx .raise1] [winfo rooty .raise1]
} -result {.raise1}
test raise-6.2 {raise/lower toplevel windows} -constraints {
	nonPortable
} -body {
    raise_makeToplevels
    update
    raise .raise2
    winfo containing [winfo rootx .raise1] [winfo rooty .raise1]
} -result {.raise2}
test raise-6.3 {raise/lower toplevel windows} -constraints {
	nonPortable
} -body {
    raise_makeToplevels
    update
    raise .raise3
    raise .raise2
    raise .raise1 .raise3
    set result [winfo containing [winfo rootx .raise1] \
	    [winfo rooty .raise1]]
    destroy .raise2
    update
    after 500
    list $result [winfo containing [winfo rootx .raise1] \
	    [winfo rooty .raise1]]
} -result {.raise2 .raise1}
test raise-6.4 {raise/lower toplevel windows} -constraints {
	nonPortable
} -body {
    raise_makeToplevels
    update
    raise .raise2
    raise .raise1
    lower .raise3 .raise1
    set result [winfo containing [winfo rootx .raise1] \
	    [winfo rooty .raise1]]
    wm geometry .raise2 +30+30
    wm geometry .raise1 +60+60
    destroy .raise1
    update
    after 500
    list $result [winfo containing [winfo rootx .raise2] \
	    [winfo rooty .raise2]]
} -result {.raise1 .raise3}
test raise-6.5 {raise/lower toplevel windows} -constraints {
	nonPortable
} -body {
    raise_makeToplevels
    raise .raise1
    set time [lindex [time {raise .raise1}] 0]
    expr {$time < 2000000}
} -result 1
test raise-6.6 {raise/lower toplevel windows} -constraints {
	nonPortable
} -body {
    raise_makeToplevels
    update
    raise .raise2
    raise .raise1
    raise .raise3
    frame .raise1.f1
    frame .raise1.f1.f2
    lower .raise3 .raise1.f1.f2
    set result [winfo containing [winfo rootx .raise1] \
	    [winfo rooty .raise1]]
    destroy .raise1
    update
    after 500
    list $result [winfo containing [winfo rootx .raise2] \
	    [winfo rooty .raise2]]
} -result {.raise1 .raise3}


test raise-7.1 {errors in raise/lower commands} -body {
    raise
} -returnCodes error -result {wrong # args: should be "raise window ?aboveThis?"}
test raise-7.2 {errors in raise/lower commands} -body {
    raise a b c
} -returnCodes error -result {wrong # args: should be "raise window ?aboveThis?"}
test raise-7.3 {errors in raise/lower commands} -body {
    raise badName
} -returnCodes error -result {bad window path name "badName"}
test raise-7.4 {errors in raise/lower commands} -body {
    raise . badName2
} -returnCodes error -result {bad window path name "badName2"}
test raise-7.5 {errors in raise/lower commands} -body {
    lower
} -returnCodes error -result {wrong # args: should be "lower window ?belowThis?"}
test raise-7.6 {errors in raise/lower commands} -body {
    lower a b c
} -returnCodes error -result {wrong # args: should be "lower window ?belowThis?"}
test raise-7.7 {errors in raise/lower commands} -body {
    lower badName3
} -returnCodes error -result {bad window path name "badName3"}
test raise-7.8 {errors in raise/lower commands} -body {
    lower . badName4
} -returnCodes error -result {bad window path name "badName4"}

deleteWindows

# cleanup
cleanupTests
return

@


1.10
log
@Steps towards systematization of test constraints in Tk test suite
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: raise.test,v 1.9 2004/05/23 17:34:49 dkf Exp $
d13 1
a13 1
package require tcltest 2.1
d16 1
d23 2
a24 2
	destroy $i
    }
d26 1
a26 1
	label .raise.$i -text $i -relief raised -bd 2
d65 2
a66 1
test raise-1.1 {preserve creation order} {
d70 2
a71 2
} {d d d b c e e e}
test raise-1.2 {preserve creation order} testmakeexist {
d76 2
a77 2
} {d d d b c e e e}
test raise-1.3 {preserve creation order} testmakeexist {
d82 2
a83 2
} {d d d b c e e e}
test raise-1.4 {preserve creation order} testmakeexist {
d88 2
a89 2
} {d d d b c e e e}
test raise-1.5 {preserve creation order} testmakeexist {
d94 1
a94 1
} {d d d b c e e e}
d96 2
a97 1
test raise-2.1 {raise internal windows before creation} {
d102 2
a103 2
} {a d d a c a e e}
test raise-2.2 {raise internal windows before creation} {
d108 2
a109 2
} {d d c b c e e c}
test raise-2.3 {raise internal windows before creation} {
d114 2
a115 2
} {d d d b c e e e}
test raise-2.4 {raise internal windows before creation} {
d120 2
a121 2
} {d d d b c e b c}
test raise-2.5 {raise internal windows before creation} {
d126 2
a127 1
} {a d d a c e e e}
d129 1
a129 1
test raise-3.1 {raise internal windows after creation} {
d134 4
a137 2
} {a d d a c e e e}
test raise-3.2 {raise internal windows after creation} testmakeexist {
d143 4
a146 2
} {d d d a c e e e}
test raise-3.3 {raise internal windows after creation} testmakeexist {
d152 4
a155 2
} {d d d a c e e e}
test raise-3.4 {raise internal windows after creation} testmakeexist {
d161 1
a161 1
} {d d d a c e e e}
d163 2
a164 1
test raise-4.1 {raise relative to nephews} {
d170 4
a173 2
} {a d d a c e e e}
test raise-4.2 {raise relative to nephews} {
d177 4
a180 3
    list [catch {raise .raise.a .raise2} msg] $msg
} {1 {can't raise ".raise.a" above ".raise2"}}
catch {destroy .raise2}
d182 2
a183 1
test raise-5.1 {lower internal windows} {
d188 2
a189 2
} {a b c b c e e e}
test raise-5.2 {lower internal windows} {
d194 2
a195 2
} {d b c b c e e e}
test raise-5.3 {lower internal windows} {
d200 4
a203 2
} {a d d a c e e e}
test raise-5.4 {lower internal windows} {
d207 4
a210 3
    list [catch {lower .raise.a .raise2} msg] $msg
} {1 {can't lower ".raise.a" below ".raise2"}}
catch {destroy .raise2}
d212 4
a215 1
test raise-6.1 {raise/lower toplevel windows} {nonPortable} {
d220 4
a223 2
} .raise1
test raise-6.2 {raise/lower toplevel windows} {nonPortable} {
d228 4
a231 2
} .raise2
test raise-6.3 {raise/lower toplevel windows} {nonPortable} {
d244 4
a247 2
} {.raise2 .raise1}
test raise-6.4 {raise/lower toplevel windows} {nonPortable} {
d262 4
a265 2
} {.raise1 .raise3}
test raise-6.5 {raise/lower toplevel windows} {nonPortable} {
d270 4
a273 2
} 1
test raise-6.6 {raise/lower toplevel windows} {nonPortable} {
d289 2
a290 1
} {.raise1 .raise3}
d292 24
a315 24
test raise-7.1 {errors in raise/lower commands} {
    list [catch {raise} msg] $msg
} {1 {wrong # args: should be "raise window ?aboveThis?"}}
test raise-7.2 {errors in raise/lower commands} {
    list [catch {raise a b c} msg] $msg
} {1 {wrong # args: should be "raise window ?aboveThis?"}}
test raise-7.3 {errors in raise/lower commands} {
    list [catch {raise badName} msg] $msg
} {1 {bad window path name "badName"}}
test raise-7.4 {errors in raise/lower commands} {
    list [catch {raise . badName2} msg] $msg
} {1 {bad window path name "badName2"}}
test raise-7.5 {errors in raise/lower commands} {
    list [catch {lower} msg] $msg
} {1 {wrong # args: should be "lower window ?belowThis?"}}
test raise-7.6 {errors in raise/lower commands} {
    list [catch {lower a b c} msg] $msg
} {1 {wrong # args: should be "lower window ?belowThis?"}}
test raise-7.7 {errors in raise/lower commands} {
    list [catch {lower badName3} msg] $msg
} {1 {bad window path name "badName3"}}
test raise-7.8 {errors in raise/lower commands} {
    list [catch {lower . badName4} msg] $msg
} {1 {bad window path name "badName4"}}
d322 1
@


1.9
log
@First step towards improving test style.  Also start using Tcl 8.5 features.
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: raise.test,v 1.8 2003/04/01 21:06:50 dgp Exp $
a16 2
testConstraint testmakeexist [llength [info commands testmakeexist]]

@


1.8
log
@        * tests/all.tcl:                Made better use of a common
        * tests/constraints.tcl:        -loadfile to hold definitions
        * tests/*.test:                 common to all test files.
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: raise.test,v 1.7 2002/07/13 20:28:35 dgp Exp $
a291 13













@


1.7
log
@	* Converted more files to tcltest and factored out common code.
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: raise.test,v 1.6 2002/07/13 00:30:25 dgp Exp $
d14 1
a14 4
namespace import -force tcltest::configure
namespace import -force tcltest::testsDirectory
configure -testdir [file join [pwd] [file dirname [info script]]]
configure -loadfile [file join [testsDirectory] constraints.tcl]
d290 1
a290 1
::tcltest::cleanupTests
@


1.6
log
@	* Converted several files in the test suite for testing by
	tcltest 2.1.
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: raise.test,v 1.5 1999/08/18 00:11:13 jenn Exp $
d14 5
a18 3
namespace import -force tcltest::test
namespace import -force tcltest::testConstraint
eval tcltest::configure $argv
d58 1
a58 3
    foreach i [winfo child .] {
	destroy $i
    }
a65 3
foreach i [winfo child .] {
    destroy $i
}
d71 1
a71 1
    update
d290 1
a290 3
foreach i [winfo child .] {
    destroy $i
}
@


1.5
log
@Call cleanupTests after defs has been loaded
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: raise.test,v 1.4 1999/07/08 18:22:22 jenn Exp $
d13 4
a16 3
if {[lsearch [namespace children] ::tcltest] == -1} {
    source [file join [pwd] [file dirname [info script]] defs.tcl]
}
d18 1
a18 7
if {[info commands testmakeexist] == {}} {
    puts "This application hasn't been compiled with the \"testmakeexist\""
    puts "command, so I can't run this test.  Are you sure you're using"
    puts "tktest instead of wish?"
    ::tcltest::cleanupTests
    return
}
d77 1
a77 1
test raise-1.2 {preserve creation order} {
d83 1
a83 1
test raise-1.3 {preserve creation order} {
d89 1
a89 1
test raise-1.4 {preserve creation order} {
d95 1
a95 1
test raise-1.5 {preserve creation order} {
d139 1
a139 1
test raise-3.2 {raise internal windows after creation} {
d146 1
a146 1
test raise-3.3 {raise internal windows after creation} {
d153 1
a153 1
test raise-3.4 {raise internal windows after creation} {
@


1.5.8.1
log
@merged with trunk at tag macosx-8-4-merge-2002-08-20-trunk
@
text
@d11 1
a11 1
# RCS: @@(#) $Id$
d13 3
a15 6
package require tcltest 2.1
namespace import -force tcltest::configure
namespace import -force tcltest::testsDirectory
configure -testdir [file join [pwd] [file dirname [info script]]]
configure -loadfile [file join [testsDirectory] constraints.tcl]
tcltest::loadTestedCommands
d17 7
a23 1
testConstraint testmakeexist [llength [info commands testmakeexist]]
d61 3
a63 1
    deleteWindows
d71 3
d79 1
a79 1
    tkwait visibility .raise.e
d82 1
a82 1
test raise-1.2 {preserve creation order} testmakeexist {
d88 1
a88 1
test raise-1.3 {preserve creation order} testmakeexist {
d94 1
a94 1
test raise-1.4 {preserve creation order} testmakeexist {
d100 1
a100 1
test raise-1.5 {preserve creation order} testmakeexist {
d144 1
a144 1
test raise-3.2 {raise internal windows after creation} testmakeexist {
d151 1
a151 1
test raise-3.3 {raise internal windows after creation} testmakeexist {
d158 1
a158 1
test raise-3.4 {raise internal windows after creation} testmakeexist {
d298 3
a300 1
deleteWindows
@


1.4
log
@Added calls to cleanupTests before return statements.
@
text
@d11 5
a15 1
# RCS: @@(#) $Id: raise.test,v 1.3 1999/04/16 01:51:40 stanton Exp $
a22 4
}

if {[lsearch [namespace children] ::tcltest] == -1} {
    source [file join [pwd] [file dirname [info script]] defs.tcl]
@


1.3
log
@* Merged 8.1 branch into the main trunk
@
text
@d11 1
a11 1
# RCS: @@(#) $Id$
d17 1
@


1.2
log
@Replaced SCCS strings, fixed binary files
@
text
@d8 2
a9 3
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
d20 3
a22 2
if {[string compare test [info procs test]] == 1} then \
  {source defs}
d300 17
@


1.1
log
@Initial revision
@
text
@d12 1
a12 1
# SCCS: @@(#) raise.test 1.8 96/02/16 10:55:18
@


1.1.4.1
log
@Merged 8.0.3 changes into 8.1
@
text
@d12 1
a12 1
# RCS: @@(#) $Id: raise.test,v 1.2 1998/09/14 18:23:49 stanton Exp $
@


1.1.4.2
log
@Updated the testsuite to use "test" namespace and commandline args
to control verbose  level and which tests get run.  Tests now work from
any working dir.
@
text
@a7 2
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
d9 4
a12 1
# RCS: @@(#) $Id: raise.test,v 1.1.4.1 1998/09/30 02:18:52 stanton Exp $
d21 2
a22 3
if {[lsearch [namespace children] ::test] == -1} {
    source [file join [pwd] [file dirname [info script]] defs.tcl]
}
a299 4

# cleanup
::test::cleanupTests
return
@


1.1.4.3
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
@d11 1
a11 1
# RCS: @@(#) $Id: raise.test,v 1.1.4.2 1999/03/11 18:51:05 hershey Exp $
d20 1
a20 1
if {[lsearch [namespace children] ::tcltest] == -1} {
d302 1
a302 1
::tcltest::cleanupTests
a303 12












@


1.1.4.4
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
@d11 1
a11 1
# RCS: @@(#) $Id: raise.test,v 1.1.4.3 1999/03/24 01:17:02 hershey Exp $
a303 1

@


