head	1.14;
access;
symbols
	core-8-5-9:1.12
	core-8-5-8:1.12
	macosx-cocoa-merge:1.14
	macosx-cocoa-premerge:1.14
	macosx-carbon-freeze:1.14
	core-8-5-7:1.12
	core-8-5-6:1.12
	core-8-6-b1:1.13
	core-8-6-a3:1.13
	core-8-5-5:1.12
	core-8-6-a2:1.12
	core-8-5-4:1.12
	core-8-5-3:1.12
	core-8-6-a1:1.12
	core-8-4-19:1.9
	core-8-5-branch:1.12.0.4
	core-8-5-2:1.12
	core-8-4-18:1.9
	core-8-5-1:1.12
	core-8-4-17:1.9
	core-8-5-0:1.12
	core-8-5-b3:1.12
	core-8-5-b2:1.12
	core-8-4-16:1.9
	core-8-5-b1:1.12
	core-stablilizer-merge:1.12
	core-stabilizer-branch:1.12.0.2
	core-stabilizer-merge:1.12
	core-8-4-15:1.9
	core-8-5-a6:1.11
	core-8-5-a5:1.11
	core-8-4-14:1.9
	core-8-5-a4:1.11
	core-8-4-13:1.9
	core-8-4-12:1.9
	core-8-4-11:1.9
	core-8-5-a3:1.11
	core-8-4-10:1.9
	core-8-4-9-branch:1.9.0.4
	core-8-5-a2:1.11
	core-8-4-9:1.9
	core-8-4-8:1.9
	core-8-4-7:1.9
	core-8-5-a1:1.10
	core-8-4-6:1.9
	core-8-4-5:1.9
	mistachkin-dev-branch:1.10.0.2
	core-8-4-4:1.9
	core-8-4-3:1.9
	core-8-4-branch:1.9.0.2
	core-8-4-2:1.9
	core-8-4-1:1.9
	core-8-3-5:1.4
	core-8-4-0:1.8
	macosx-8-4-merge-2002-08-31-trunk:1.8
	macosx-8-4-premerge-2002-08-31-branch:1.4.18.2
	macosx-8-4-premerge-2002-08-31-trunk:1.8
	macosx-8-4-merge-2002-08-30-branch:1.4.18.2
	macosx-8-4-merge-2002-08-30-trunk:1.8
	macosx-8-4-merge-2002-08-20-branch:1.4.18.2
	macosx-8-4-merge-2002-08-20-trunk:1.8
	core-8-4-b2:1.8
	core-8-4-b1:1.6
	macosx-premerge-6-9-02:1.4.18.1
	core-8-4-a4:1.6
	core-8-3-4:1.4
	macosx-8-4-branch:1.4.0.18
	macosx-8-4-branchpoint:1.4
	core-8-4-a3:1.4
	core-8-3-3:1.4
	dgp-privates-into-namespace:1.4.0.16
	tclpro-1-5-0:1.4
	core-8-4-win-speedup:1.4.0.14
	core-8-4-a2:1.4
	tclpro-1-4-1:1.4
	tclpro-1-4-0:1.4
	core-8-3-2:1.4
	ajuba-ajuba2-2-1-base:1.4
	ajuba-ajuba2-2-0:1.4
	core-8-4-a1:1.4
	core-8-3-1-branch:1.4.0.12
	core-8-3-1:1.4
	scriptics-sc-2-0-b5:1.4
	scriptics-sc-2-0-fixed:1.4
	scriptics-sc-2-0-b2:1.4
	scriptics-sc-2-0-b1:1.4
	core-8-3-0:1.4
	core-8-3-b2:1.4
	core-8-3-b1:1.4
	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.10
	scriptics-sc-1-1-base:1.4
	scriptics-sc-1-0:1.4
	scriptics-sc-1-0-branch:1.4.0.8
	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.6
	scriptics-tclpro-1-3-0:1.4
	core-8-2-0:1.4
	core-8-2-b3-branch:1.4.0.4
	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.4
	merge-to-mainline-5/21/99:1.4
	scriptics-tclpro-1-3-b2-branch:1.4.0.2
	core-8-1-1:1.4
	scriptics-tclpro-1-3-b1:1.4
	core-8-1-1-base:1.4
	core-8-1-0:1.4
	merge-to-mainline-4-29-99:1.4
	merge-to-mainline-4-23-99:1.4
	core-8-1-branch-old:1.1.0.4
	core-8-0-6-branch:1.3.0.6
	core-8-0-6-base:1.3
	core-8-0-5:1.3
	core-8-1-b3:1.1.4.5
	core-8-1-b2:1.1.4.2
	dev-8-1-stubs-branch:1.1.4.1.0.2
	dev-stubs-branch:1.3.0.4
	scriptics-tclpro-1-2:1.3
	scriptics-tclpro-1-2-b2:1.3
	core-8-1-merge-2/10/99:1.3
	core-8-0-5-branch:1.3.0.2
	core-8-0-5-base:1.3
	scriptics-tclpro-1-2-b1:1.3
	scriptics-tclpro-1-2-a1:1.3
	core-8-1-b1:1.1.4.1
	core-8-0-4:1.3
	core-8-1-a2:1.1
	core-8-0-2:1.1
	core-8-0-3:1.3;
locks; strict;
comment	@# @;


1.14
date	2009.01.13.01.46.06;	author patthoyts;	state Exp;
branches;
next	1.13;

1.13
date	2008.08.30.21.52.26;	author aniap;	state Exp;
branches;
next	1.12;

1.12
date	2007.05.11.12.10.19;	author patthoyts;	state Exp;
branches;
next	1.11;

1.11
date	2004.06.24.12.45.44;	author dkf;	state Exp;
branches;
next	1.10;

1.10
date	2003.04.01.21.07.00;	author dgp;	state Exp;
branches;
next	1.9;

1.9
date	2002.10.08.20.21.23;	author hobbs;	state Exp;
branches;
next	1.8;

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

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

1.6
date	2001.12.29.00.30.30;	author hobbs;	state Exp;
branches;
next	1.5;

1.5
date	2001.11.17.22.44.04;	author hobbs;	state Exp;
branches;
next	1.4;

1.4
date	99.04.16.01.51.43;	author stanton;	state Exp;
branches
	1.4.14.1
	1.4.18.1;
next	1.3;

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

1.2
date	98.06.11.14.22.13;	author surles;	state Exp;
branches;
next	1.1;

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

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

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

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

1.1.4.4
date	99.03.24.02.55.11;	author hershey;	state Exp;
branches;
next	1.1.4.5;

1.1.4.5
date	99.03.26.00.08.11;	author hershey;	state Exp;
branches;
next	;

1.4.14.1
date	2002.04.02.20.57.59;	author hobbs;	state Exp;
branches;
next	;

1.4.18.1
date	2002.02.05.02.25.18;	author wolfsuit;	state Exp;
branches;
next	1.4.18.2;

1.4.18.2
date	2002.08.20.20.27.16;	author das;	state Exp;
branches;
next	;


desc
@@


1.14
log
@Tk tests that create images need to be independent of the interpreter environment.
@
text
@# This file is a Tcl script to test the Windows specific behavior of
# labels, buttons, checkbuttons, and radiobuttons in Tk (i.e., all the
# widgets defined in tkWinButton.c).  It is organized in the standard
# fashion for Tcl tests.
#
# Copyright (c) 1994 The Regents of the University of California.
# Copyright (c) 1994-1997 Sun Microsystems, Inc.
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
# RCS: @@(#) $Id: winButton.test,v 1.13 2008/08/30 21:52:26 aniap Exp $

package require tcltest 2.2
namespace import ::tcltest::*
tcltest::configure {*}$argv
tcltest::loadTestedCommands
imageInit

proc bogusTrace args {
    error "trace aborted"
}
option clear

# ----------------------------------------------------------------------

test winbutton-1.1 {TkpComputeButtonGeometry procedure} -constraints {
    testImageType win
} -setup {
    deleteWindows
} -body {
    image create test image1
    image1 changed 0 0 0 0 60 40
    label .b1 -image image1 -bd 4 -padx 0 -pady 2
    button .b2 -image image1 -bd 4 -padx 0 -pady 2
    checkbutton .b3 -image image1 -bd 4 -padx 1 -pady 1 \
        -font {{MS Sans Serif} 8}
    radiobutton .b4 -image image1 -bd 4 -padx 2 -pady 0 \
        -font {{MS Sans Serif} 8}
    pack .b1 .b2 .b3 .b4
    update
    # with patch 463234 with native L&F enabled, this returns:
    # {68 48 70 50 88 50 88 50}
    list [winfo reqwidth .b1] [winfo reqheight .b1] \
        [winfo reqwidth .b2] [winfo reqheight .b2] \
        [winfo reqwidth .b3] [winfo reqheight .b3] \
        [winfo reqwidth .b4] [winfo reqheight .b4]
} -cleanup {
    deleteWindows
    image delete image1
} -result {68 48 70 50 90 52 90 52}

test winbutton-1.2 {TkpComputeButtonGeometry procedure} -constraints win -setup {
    deleteWindows
} -body {
    label .b1 -bitmap question -bd 3 -padx 0 -pady 2
    button .b2 -bitmap question -bd 3 -padx 0 -pady 2
    checkbutton .b3 -bitmap question -bd 3 -padx 1 -pady 1 \
        -font {{MS Sans Serif} 8}
    radiobutton .b4 -bitmap question -bd 3 -padx 2 -pady 0 \
        -font {{MS Sans Serif} 8}
    pack .b1 .b2 .b3 .b4
    update
    # with patch 463234 with native L&F enabled, this returns:
    # {23 33 25 35 43 35 43 35}
    list [winfo reqwidth .b1] [winfo reqheight .b1] \
        [winfo reqwidth .b2] [winfo reqheight .b2] \
        [winfo reqwidth .b3] [winfo reqheight .b3] \
        [winfo reqwidth .b4] [winfo reqheight .b4]
} -cleanup {
    deleteWindows
} -result {23 33 25 35 45 37 45 37}

test winbutton-1.3 {TkpComputeButtonGeometry procedure} -constraints win -setup {
    deleteWindows
} -body {
    label .b1 -bitmap question -bd 3 -highlightthickness 4
    button .b2 -bitmap question -bd 3 -highlightthickness 0
    checkbutton .b3 -bitmap question -bd 3 -highlightthickness 1 \
        -indicatoron 0
    radiobutton .b4 -bitmap question -bd 3 -indicatoron false
    pack .b1 .b2 .b3 .b4
    update
    # with patch 463234 with native L&F enabled, this returns:
    # {31 41 23 33 25 35 25 35}
    list [winfo reqwidth .b1] [winfo reqheight .b1] \
        [winfo reqwidth .b2] [winfo reqheight .b2] \
        [winfo reqwidth .b3] [winfo reqheight .b3] \
        [winfo reqwidth .b4] [winfo reqheight .b4]
} -cleanup {
    deleteWindows
} -result {31 41 23 33 27 37 27 37}

test winbutton-1.4 {TkpComputeButtonGeometry procedure} -constraints {
    win nonPortable
} -setup {
    deleteWindows
} -body {
    label .b1 -text Xagqpim -bd 2 -padx 0 -pady 2 -font {{MS Sans Serif} 8}
    button .b2 -text Xagqpim -bd 2 -padx 0 -pady 2 -font {{MS Sans Serif} 8}
    checkbutton .b3 -text Xagqpim -bd 2 -padx 1 -pady 1 -font {{MS Sans Serif} 8}
    radiobutton .b4 -text Xagqpim -bd 2 -padx 2 -pady 0 -font {{MS Sans Serif} 8}
    pack .b1 .b2 .b3 .b4
    update
    list [winfo reqwidth .b1] [winfo reqheight .b1] \
        [winfo reqwidth .b2] [winfo reqheight .b2] \
        [winfo reqwidth .b3] [winfo reqheight .b3] \
        [winfo reqwidth .b4] [winfo reqheight .b4]
} -cleanup {
    deleteWindows
} -result {58 24 67 33 88 30 90 28}

test winbutton-1.5 {TkpComputeButtonGeometry procedure} -constraints {
    win nonPortable
} -setup {
    deleteWindows
} -body {
    label .l1 -wraplength 1.5i -padx 0 -pady 0 \
        -text "This is a long string that will wrap around on several lines.\n\nIt also has a blank line (above)."
    pack .l1
    update
    list [winfo reqwidth .l1] [winfo reqheight .l1]
} -cleanup {
    deleteWindows
} -result {178 84}

test winbutton-1.6 {TkpComputeButtonGeometry procedure} -constraints {
    win nonPortable
} -setup {
    deleteWindows
} -body {
    label .l1 -padx 0 -pady 0 \
        -text "This is a long string without wrapping.\n\nIt also has a blank line (above)."
    pack .l1
    update
    list [winfo reqwidth .l1] [winfo reqheight .l1]
} -cleanup {
    deleteWindows
} -result {222 52}

test winbutton-1.7 {TkpComputeButtonGeometry procedure} -constraints {
    win nonPortable
} -setup {
    deleteWindows
} -body {
    label .b1 -text Xagqpim -bd 2 -padx 0 -pady 2 -width 10
    button .b2 -text Xagqpim -bd 2 -padx 0 -pady 2 -height 5
    checkbutton .b3 -text Xagqpim -bd 2 -padx 1 -pady 1 -width 20 -height 2
    radiobutton .b4 -text Xagqpim -bd 2 -padx 2 -pady 0 -width 4
    pack .b1 .b2 .b3 .b4
    update
    list [winfo reqwidth .b1] [winfo reqheight .b1] \
        [winfo reqwidth .b2] [winfo reqheight .b2] \
        [winfo reqwidth .b3] [winfo reqheight .b3] \
        [winfo reqwidth .b4] [winfo reqheight .b4]
} -cleanup {
    deleteWindows
} -result {74 24 67 97 174 46 64 28}

test winbutton-1.8 {TkpComputeButtonGeometry procedure} -constraints {
    win nonPortable
} -setup {
    deleteWindows
} -body {
    label .b1 -text Xagqpim -bd 2 -padx 0 -pady 2 \
    -highlightthickness 4
    button .b2 -text Xagqpim -bd 2 -padx 0 -pady 2 \
    -highlightthickness 0
    checkbutton .b3 -text Xagqpim -bd 2 -padx 1 -pady 1  \
    -highlightthickness 1 -indicatoron no
    radiobutton .b4 -text Xagqpim -bd 2 -padx 2 -pady 0 -indicatoron 0
    pack .b1 .b2 .b3 .b4
    update
    list [winfo reqwidth .b1] [winfo reqheight .b1] \
        [winfo reqwidth .b2] [winfo reqheight .b2] \
        [winfo reqwidth .b3] [winfo reqheight .b3] \
        [winfo reqwidth .b4] [winfo reqheight .b4]
} -cleanup {
    deleteWindows
} -result {66 32 65 31 69 31 71 29}

test winbutton-1.9 {TkpComputeButtonGeometry procedure} -constraints win -setup {
    deleteWindows
} -body {
    button .b2 -bitmap question -default normal
    list [winfo reqwidth .b2] [winfo reqheight .b2]
} -cleanup {
    deleteWindows
} -result {23 33}

# cleanup
imageFinish
deleteWindows
cleanupTests
return

# Local variables:
# mode: tcl
# End:

@


1.13
log
@Update to tcltest2
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: winButton.test,v 1.12 2007/05/11 12:10:19 patthoyts Exp $
d17 1
a22 1
eval image delete [image names]
d191 1
@


1.12
log
@Avoid font dependencies in the results
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: winButton.test,v 1.11 2004/06/24 12:45:44 dkf Exp $
d13 3
a15 2
package require tcltest 2.1
eval tcltest::configure $argv
a20 2
catch {unset value}
catch {unset value2}
a22 9
if {[testConstraint testImageType]} {
    image create test image1
}
label .l -text Label
button .b -text Button
checkbutton .c -text Checkbutton
radiobutton .r -text Radiobutton
pack .l .b .c .r
update
d24 5
a28 1
test winbutton-1.1 {TkpComputeButtonGeometry procedure} {testImageType win} {
d30 1
d35 4
a38 2
    checkbutton .b3 -image image1 -bd 4 -padx 1 -pady 1 -font {{MS Sans Serif} 8}
    radiobutton .b4 -image image1 -bd 4 -padx 2 -pady 0 -font {{MS Sans Serif} 8}
d44 9
a52 5
	    [winfo reqwidth .b2] [winfo reqheight .b2] \
	    [winfo reqwidth .b3] [winfo reqheight .b3] \
	    [winfo reqwidth .b4] [winfo reqheight .b4]
} {68 48 70 50 90 52 90 52}
test winbutton-1.2 {TkpComputeButtonGeometry procedure} win {
d54 1
d57 4
a60 2
    checkbutton .b3 -bitmap question -bd 3 -padx 1 -pady 1 -font {{MS Sans Serif} 8}
    radiobutton .b4 -bitmap question -bd 3 -padx 2 -pady 0 -font {{MS Sans Serif} 8}
d66 4
a69 5
	    [winfo reqwidth .b2] [winfo reqheight .b2] \
	    [winfo reqwidth .b3] [winfo reqheight .b3] \
	    [winfo reqwidth .b4] [winfo reqheight .b4]
} {23 33 25 35 45 37 45 37}
test winbutton-1.3 {TkpComputeButtonGeometry procedure} win {
d71 5
d79 1
a79 1
	    -indicatoron 0
d86 4
a89 5
	    [winfo reqwidth .b2] [winfo reqheight .b2] \
	    [winfo reqwidth .b3] [winfo reqheight .b3] \
	    [winfo reqwidth .b4] [winfo reqheight .b4]
} {31 41 23 33 27 37 27 37}
test winbutton-1.4 {TkpComputeButtonGeometry procedure} {win nonPortable} {
d91 7
d105 4
a108 5
	    [winfo reqwidth .b2] [winfo reqheight .b2] \
	    [winfo reqwidth .b3] [winfo reqheight .b3] \
	    [winfo reqwidth .b4] [winfo reqheight .b4]
} {58 24 67 33 88 30 90 28} 
test winbutton-1.5 {TkpComputeButtonGeometry procedure} {win nonPortable} {
d110 9
a118 1
    label .l1 -text "This is a long string that will wrap around on several lines.\n\nIt also has a blank line (above)." -wraplength 1.5i -padx 0 -pady 0
d122 1
a122 2
} {178 84}
test winbutton-1.6 {TkpComputeButtonGeometry procedure} {win nonPortable} {
d124 9
a132 1
    label .l1 -text "This is a long string without wrapping.\n\nIt also has a blank line (above)." -padx 0 -pady 0
d136 7
a142 2
} {222 52}
test winbutton-1.7 {TkpComputeButtonGeometry procedure} {win nonPortable} {
d144 1
d152 10
a161 5
	    [winfo reqwidth .b2] [winfo reqheight .b2] \
	    [winfo reqwidth .b3] [winfo reqheight .b3] \
	    [winfo reqwidth .b4] [winfo reqheight .b4]
} {74 24 67 97 174 46 64 28}
test winbutton-1.8 {TkpComputeButtonGeometry procedure} {win nonPortable} {
d163 1
d165 1
a165 1
	-highlightthickness 4
d167 1
a167 1
	-highlightthickness 0
d169 1
a169 1
	-highlightthickness 1 -indicatoron no
d174 4
a177 5
	    [winfo reqwidth .b2] [winfo reqheight .b2] \
	    [winfo reqwidth .b3] [winfo reqheight .b3] \
	    [winfo reqwidth .b4] [winfo reqheight .b4]
} {66 32 65 31 69 31 71 29}
test winbutton-1.9 {TkpComputeButtonGeometry procedure} win {
d179 5
d186 3
a188 1
} {23 33}
d194 5
@


1.11
log
@Use standard constraint names
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: winButton.test,v 1.10 2003/04/01 21:07:00 dgp Exp $
d40 2
a41 2
    checkbutton .b3 -image image1 -bd 4 -padx 1 -pady 1
    radiobutton .b4 -image image1 -bd 4 -padx 2 -pady 0
d55 2
a56 2
    checkbutton .b3 -bitmap question -bd 3 -padx 1 -pady 1
    radiobutton .b4 -bitmap question -bd 3 -padx 2 -pady 0
@


1.10
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: winButton.test,v 1.9 2002/10/08 20:21:23 hobbs Exp $
d34 1
a34 1
test winbutton-1.1 {TkpComputeButtonGeometry procedure} {testImageType pcOnly} {
d51 1
a51 1
test winbutton-1.2 {TkpComputeButtonGeometry procedure} {pcOnly} {
d66 1
a66 1
test winbutton-1.3 {TkpComputeButtonGeometry procedure} {pcOnly} {
d82 1
a82 1
test winbutton-1.4 {TkpComputeButtonGeometry procedure} {pcOnly nonPortable} {
d95 1
a95 1
test winbutton-1.5 {TkpComputeButtonGeometry procedure} {pcOnly nonPortable} {
d102 1
a102 1
test winbutton-1.6 {TkpComputeButtonGeometry procedure} {pcOnly nonPortable} {
d109 1
a109 1
test winbutton-1.7 {TkpComputeButtonGeometry procedure} {pcOnly nonPortable} {
d122 1
a122 1
test winbutton-1.8 {TkpComputeButtonGeometry procedure} {pcOnly nonPortable} {
d138 1
a138 1
test winbutton-1.9 {TkpComputeButtonGeometry procedure} {pcOnly} {
@


1.9
log
@	* tests/winButton.test: add option clear to top to prevent option
	leakage from other tests causing problems. [Bug #582382]
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: winButton.test,v 1.8 2002/07/13 20:28:36 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]
d146 1
a146 1
::tcltest::cleanupTests
@


1.8
log
@	* Converted more files to tcltest and factored out common code.
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: winButton.test,v 1.7 2002/07/12 13:41:01 dgp Exp $
d25 1
a25 1

@


1.7
log
@	* Converted several files in the Tk test suite for testing by
	tcltest 2.1.
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: winButton.test,v 1.6 2001/12/29 00:30:30 hobbs Exp $
d14 5
a18 16
namespace import -force tcltest::test
eval tcltest::configure $argv

if {[lsearch [image types] test] < 0} {
    puts "This application hasn't been compiled with the \"test\""
    puts "image, so I can't run this test.  Are you sure you're using"
    puts "tktest instead of wish?"
    ::tcltest::cleanupTests
    return
}

foreach i [winfo children .] {
    destroy $i
}
wm geometry . {}
raise .
d27 3
a29 1
image create test image1
d37 2
a38 2
test winbutton-1.1 {TkpComputeButtonGeometry procedure} {pcOnly} {
    eval destroy [winfo children .]
d55 1
a55 1
    eval destroy [winfo children .]
d70 1
a70 1
    eval destroy [winfo children .]
d86 1
a86 1
    eval destroy [winfo children .]
d99 1
a99 1
    eval destroy [winfo children .]
d106 1
a106 1
    eval destroy [winfo children .]
d113 1
a113 1
    eval destroy [winfo children .]
d126 1
a126 1
    eval destroy [winfo children .]
d142 1
a142 1
    eval destroy [winfo children .]
d148 1
a148 1
eval destroy [winfo children .]
@


1.6
log
@	* test/winButton.test:
	* win/tkWinButton.c: added updated patch #463234 which returns the
	default sizing behavior (not so native), but enables native L&F
	with negative sizing (-11 for example).
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: winButton.test,v 1.5 2001/11/17 22:44:04 hobbs Exp $
d13 3
a15 3
if {[lsearch [namespace children] ::tcltest] == -1} {
    source [file join [pwd] [file dirname [info script]] defs.tcl]
}
@


1.5
log
@	* win/tkWinButton.c (TkpComputeButtonGeometry): corrected the
	default size of Windows buttons to conform to the Windows style.
	This changes the default size of buttons on Windows.
	[Patch #463234] (nelson)
		**** POTENTIAL VISUAL INCOMPATABILITY ****
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: winButton.test,v 1.4 1999/04/16 01:51:43 stanton Exp $
d56 2
d62 1
a62 1
} {68 48 70 50 88 50 88 50}
d71 2
d77 1
a77 1
} {23 33 25 35 43 35 43 35}
d87 2
d93 1
a93 1
} {31 41 23 33 25 35 25 35}
@


1.4
log
@* Merged 8.1 branch into the main trunk
@
text
@d11 1
a11 1
# RCS: @@(#) $Id$
d60 1
a60 1
} {68 48 71 51 96 50 96 50}
d73 1
a73 1
} {23 33 26 36 51 35 51 35}
d87 1
a87 1
} {31 41 24 34 26 36 26 36}
d148 1
a148 1
} {24 34}
a153 13













@


1.4.14.1
log
@sync with head
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: winButton.test,v 1.6 2001/12/29 00:30:30 hobbs Exp $
a55 2
    # with patch 463234 with native L&F enabled, this returns:
    # {68 48 70 50 88 50 88 50}
d60 1
a60 1
} {68 48 70 50 90 52 90 52}
a68 2
    # with patch 463234 with native L&F enabled, this returns:
    # {23 33 25 35 43 35 43 35}
d73 1
a73 1
} {23 33 25 35 45 37 45 37}
a82 2
    # with patch 463234 with native L&F enabled, this returns:
    # {31 41 23 33 25 35 25 35}
d87 1
a87 1
} {31 41 23 33 27 37 27 37}
d148 1
a148 1
} {23 33}
d154 13
@


1.4.18.1
log
@Merge with current TOT
Added support for the wm stackorder command
Fixed crash when selecting Menu items in the Application menu that we didn't
put there.
Added first bits of the use of CG for low-level drawing.  The line-drawing works,
the rest doesn't yet.  You have to set the file static useCGDrawing to 1 and
rebuild to activate this code.
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: winButton.test,v 1.4 1999/04/16 01:51:43 stanton Exp $
a55 2
    # with patch 463234 with native L&F enabled, this returns:
    # {68 48 70 50 88 50 88 50}
d60 1
a60 1
} {68 48 70 50 90 52 90 52}
a68 2
    # with patch 463234 with native L&F enabled, this returns:
    # {23 33 25 35 43 35 43 35}
d73 1
a73 1
} {23 33 25 35 45 37 45 37}
a82 2
    # with patch 463234 with native L&F enabled, this returns:
    # {31 41 23 33 25 35 25 35}
d87 1
a87 1
} {31 41 23 33 27 37 27 37}
d148 1
a148 1
} {23 33}
d154 13
@


1.4.18.2
log
@merged with trunk at tag macosx-8-4-merge-2002-08-20-trunk
@
text
@d11 1
a11 1
# RCS: @@(#) $Id$
d13 17
a29 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
d38 1
a38 3
if {[testConstraint testImageType]} {
    image create test image1
}
d46 2
a47 2
test winbutton-1.1 {TkpComputeButtonGeometry procedure} {testImageType pcOnly} {
    deleteWindows
d64 1
a64 1
    deleteWindows
d79 1
a79 1
    deleteWindows
d95 1
a95 1
    deleteWindows
d108 1
a108 1
    deleteWindows
d115 1
a115 1
    deleteWindows
d122 1
a122 1
    deleteWindows
d135 1
a135 1
    deleteWindows
d151 1
a151 1
    deleteWindows
d157 1
a157 1
deleteWindows
@


1.3
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.
d13 2
a14 2
if {$tcl_platform(platform)!="windows"} {
    return
d21 1
a24 4
if {[info procs test] != "test"} {
    source defs
}

d46 1
a46 1
test winbutton-1.1 {TkpComputeButtonGeometry procedure} {
d61 1
a61 1
test winbutton-1.2 {TkpComputeButtonGeometry procedure} {
d74 1
a74 1
test winbutton-1.3 {TkpComputeButtonGeometry procedure} {
d88 1
a88 1
test winbutton-1.4 {TkpComputeButtonGeometry procedure} {nonPortable} {
d101 1
a101 1
test winbutton-1.5 {TkpComputeButtonGeometry procedure} {nonPortable} {
d108 1
a108 1
test winbutton-1.6 {TkpComputeButtonGeometry procedure} {nonPortable} {
d115 1
a115 1
test winbutton-1.7 {TkpComputeButtonGeometry procedure} {nonPortable} {
d128 1
a128 1
test winbutton-1.8 {TkpComputeButtonGeometry procedure} {nonPortable} {
d144 1
a144 1
test winbutton-1.9 {TkpComputeButtonGeometry procedure} {
d150 1
d152 15
@


1.2
log
@Updated broken tests
@
text
@d12 1
a12 1
# SCCS: @@(#) winButton.test 1.3 97/07/01 18:11:44
@


1.1
log
@Initial revision
@
text
@d104 1
a104 1
} {45 21 54 30 74 27 76 25} 
d111 1
a111 1
} {142 69}
d118 1
a118 1
} {180 43}
d131 1
a131 1
} {64 21 54 82 153 40 59 25}
d147 1
a147 1
} {53 29 52 28 56 28 58 26}
@


1.1.4.1
log
@Merged 8.0.3 changes into 8.1
@
text
@d12 1
a12 1
# RCS: @@(#) $Id: winButton.test,v 1.3 1998/09/14 18:23:53 stanton Exp $
d104 1
a104 1
} {58 24 67 33 88 30 90 28} 
d111 1
a111 1
} {178 84}
d118 1
a118 1
} {222 52}
d131 1
a131 1
} {74 24 67 97 174 46 64 28}
d147 1
a147 1
} {66 32 65 31 69 31 71 29}
@


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: winButton.test,v 1.1.4.1 1998/09/30 02:19:05 stanton Exp $
a14 1
    puts "skipping: Windows only tests..."
d25 2
a26 2
if {[lsearch [namespace children] ::test] == -1} {
    source [file join [pwd] [file dirname [info script]] defs.tcl]
a153 1
# cleanup
a154 2
::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 6
a16 1
# RCS: @@(#) $Id: winButton.test,v 1.1.4.2 1999/03/11 18:51:20 hershey Exp $
d25 1
a25 1
if {[lsearch [namespace children] ::tcltest] == -1} {
d50 1
a50 1
test winbutton-1.1 {TkpComputeButtonGeometry procedure} {pcOnly} {
d65 1
a65 1
test winbutton-1.2 {TkpComputeButtonGeometry procedure} {pcOnly} {
d78 1
a78 1
test winbutton-1.3 {TkpComputeButtonGeometry procedure} {pcOnly} {
d92 1
a92 1
test winbutton-1.4 {TkpComputeButtonGeometry procedure} {pcOnly nonPortable} {
d105 1
a105 1
test winbutton-1.5 {TkpComputeButtonGeometry procedure} {pcOnly nonPortable} {
d112 1
a112 1
test winbutton-1.6 {TkpComputeButtonGeometry procedure} {pcOnly nonPortable} {
d119 1
a119 1
test winbutton-1.7 {TkpComputeButtonGeometry procedure} {pcOnly nonPortable} {
d132 1
a132 1
test winbutton-1.8 {TkpComputeButtonGeometry procedure} {pcOnly nonPortable} {
d148 1
a148 1
test winbutton-1.9 {TkpComputeButtonGeometry procedure} {pcOnly} {
d156 1
a156 1
::tcltest::cleanupTests
a157 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: winButton.test,v 1.1.4.3 1999/03/24 01:17:16 hershey Exp $
a152 1

@


1.1.4.5
log
@Now all test files that skip tests by returning early (which ideally they
shouldn't do) call ::tcltest::cleanupTests before returning.  The defs.tcl
file has one hew constraint:  userInteraction, used by tests that require
user interaction.  The next putback will include an updated version of the
"visual" test file to use this mechanism.
@
text
@d11 1
a11 5
# RCS: @@(#) $Id: winButton.test,v 1.1.4.4 1999/03/24 02:55:11 hershey Exp $

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


