head	1.7;
access;
symbols
	core-8-4-19:1.5
	core-8-4-18:1.5
	core-8-4-17:1.5
	core-8-4-16:1.5
	core-8-4-15:1.5
	core-8-4-14:1.5
	core-8-4-13:1.5
	core-8-4-12:1.5
	core-8-4-11:1.5
	core-8-4-10:1.5
	core-8-4-9-branch:1.5.0.4
	core-8-4-9:1.5
	core-8-4-8:1.5
	core-8-4-7:1.5
	core-8-5-a1:1.6
	core-8-4-6:1.5
	core-8-4-5:1.5
	mistachkin-dev-branch:1.6.0.2
	core-8-4-4:1.5
	core-8-4-3:1.5
	core-8-4-branch:1.5.0.2
	core-8-4-2:1.5
	core-8-4-1:1.5
	core-8-3-5:1.3
	core-8-4-0:1.5
	macosx-8-4-merge-2002-08-31-trunk:1.5
	macosx-8-4-premerge-2002-08-31-branch:1.4.2.1
	macosx-8-4-premerge-2002-08-31-trunk:1.5
	macosx-8-4-merge-2002-08-30-branch:1.4.2.1
	macosx-8-4-merge-2002-08-30-trunk:1.5
	macosx-8-4-merge-2002-08-20-branch:1.4.2.1
	macosx-8-4-merge-2002-08-20-trunk:1.5
	core-8-4-b2:1.5
	core-8-4-b1:1.4
	macosx-premerge-6-9-02:1.4
	core-8-4-a4:1.4
	core-8-3-4:1.3
	macosx-8-4-branch:1.4.0.2
	macosx-8-4-branchpoint:1.4
	core-8-4-a3:1.3
	core-8-3-3:1.3
	dgp-privates-into-namespace:1.3.0.16
	tclpro-1-5-0:1.3
	core-8-4-win-speedup:1.3.0.14
	core-8-4-a2:1.3
	tclpro-1-4-1:1.3
	tclpro-1-4-0:1.3
	core-8-3-2:1.3
	ajuba-ajuba2-2-1-base:1.3
	ajuba-ajuba2-2-0:1.3
	core-8-4-a1:1.3
	core-8-3-1-branch:1.3.0.12
	core-8-3-1:1.3
	scriptics-sc-2-0-b5:1.3
	scriptics-sc-2-0-fixed:1.3
	scriptics-sc-2-0-b2:1.3
	scriptics-sc-2-0-b1:1.3
	core-8-3-0:1.3
	core-8-3-b2:1.3
	core-8-3-b1:1.3
	scriptics-sc-1-1:1.3
	scriptics-sc-1-1-b1:1.3
	core-8-2-3:1.3
	scriptics-sc-1-1-branch:1.3.0.10
	scriptics-sc-1-1-base:1.3
	scriptics-sc-1-0:1.3
	scriptics-sc-1-0-branch:1.3.0.8
	scriptics-sc-1-0-base:1.3
	core-8-2-2:1.3
	core-8-2-1:1.3
	scriptics-bc-1-0-b1:1.3
	core-8-2-1-branch:1.3.0.6
	scriptics-tclpro-1-3-0:1.3
	core-8-2-0:1.3
	core-8-2-b3-branch:1.3.0.4
	core-8-2-b3-base:1.3
	scriptics-tclpro-1-3-b4:1.3
	core-8-2-b2:1.3
	scriptics-tclpro-1-3-b3:1.3
	core-8-2-b1:1.3
	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.5
	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.7
date	2004.03.17.18.15.49;	author das;	state dead;
branches;
next	1.6;

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

1.5
date	2002.07.13.20.28.35;	author dgp;	state Exp;
branches;
next	1.4;

1.4
date	2001.09.21.20.38.18;	author hobbs;	state Exp;
branches
	1.4.2.1;
next	1.3;

1.3
date	99.04.16.01.51.39;	author stanton;	state Exp;
branches
	1.3.14.1;
next	1.2;

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

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

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

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

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

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

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

1.3.14.1
date	2002.04.02.20.57.58;	author hobbs;	state Exp;
branches;
next	;

1.4.2.1
date	2002.08.20.20.27.14;	author das;	state Exp;
branches;
next	;


desc
@@


1.7
log
@Removed support for Mac OS Classic platform [Patch 918139]
@
text
@# This file is a Tcl script to test out scrollbar widgets and
# the "scrollbar" command of Tk.  This file only tests Macintosh
# specific features.  It is organized in the standard fashion for 
# Tcl tests.
#
# Copyright (c) 1996 Sun Microsystems, Inc.
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
# RCS: @@(#) $Id: macscrollbar.test,v 1.6 2003/04/01 21:06:41 dgp Exp $

package require tcltest 2.1
eval tcltest::configure $argv
tcltest::loadTestedCommands

update

# Tests for display and layout
wm geometry . 50x300
scrollbar .s
pack .s -fill y -expand 1
update
test macscroll-1.1 {TkpDisplayScrollbar procedure} {macOnly} {
    list [.s configure -width] [.s configure -bd]
} {{-width width Width 16 16} {-borderwidth borderWidth BorderWidth 0 0}}
test macscroll-1.2 {TkpDisplayScrollbar procedure} {macOnly} {
    # Exercise drawing 3D relief
    pack .s -fill y -expand 1 -anchor center
    .s configure -bd 4
    update
    focus .s
    update
} {}
test macscroll-1.3 {TkpDisplayScrollbar procedure} {macOnly} {
    pack .s -fill y -expand 1 -anchor e
    update
    set x [.s configure -width]
    pack .s -fill y -expand 1 -anchor w
    update
    list [.s configure -width] $x
} {{-width width Width 16 16} {-width width Width 16 16}}
test macscroll-1.4 {TkpDisplayScrollbar procedure} {macOnly} {
    wm geometry . 300x50
    .s configure -bd 0 -orient horizontal
    pack .s -fill x -expand 1 -anchor center
    update
    set x [.s configure -width]
    pack .s -fill x -expand 1 -anchor n
    update
    set y [.s configure -width]
    pack .s -fill x -expand 1 -anchor s
    update
    list [.s configure -width] $x $y
} {{-width width Width 16 16} {-width width Width 16 16} {-width width Width 16 16}}
test macscroll-1.5 {TkpDisplayScrollbar procedure} {macOnly} {
    wm geometry . 300x16
    .s configure -bd 0 -orient horizontal
    pack .s -fill x -expand 1 -anchor s
    update
    wm geometry . 300x15
    update
    wm geometry . 300x14
    update
} {}
test macscroll-1.6 {TkpDisplayScrollbar procedure} {macOnly} {
    # Check the drawing of the resize hack
    wm geometry . 20x300
    wm resizable . 1 1
    .s configure -bd 0 -orient vertical
    pack .s -fill y -expand 1 -anchor e
    update
    set x [.s identify 12 295]
    wm resizable . 0 0
    update
    set y [.s identify 12 295]
    wm resizable . 1 1
    pack .s -fill y -expand 1 -anchor center
    update
    list $x $y [.s identify 12 295]
} {{} arrow2 arrow2}
test macscroll-1.7 {TkpDisplayScrollbar procedure} {macOnly} {
    wm geometry . 300x300
    pack .s -fill y -expand 1 -anchor e
    catch {destroy .s2}
    scrollbar .s2 -orient horizontal
    place .s2 -x 0 -y 284 -width 300
} {}

deleteWindows
# cleanup
cleanupTests
return
@


1.6
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
@d10 1
a10 1
# RCS: @@(#) $Id: macscrollbar.test,v 1.5 2002/07/13 20:28:35 dgp Exp $
@


1.5
log
@	* Converted more files to tcltest and factored out common code.
@
text
@d10 1
a10 1
# RCS: @@(#) $Id: macscrollbar.test,v 1.4 2001/09/21 20:38:18 hobbs Exp $
d13 1
a13 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]
d91 1
a91 1
::tcltest::cleanupTests
@


1.4
log
@	improved use of test constraints
@
text
@d10 1
a10 1
# RCS: @@(#) $Id: macscrollbar.test,v 1.3 1999/04/16 01:51:39 stanton Exp $
d12 6
a17 3
if {[lsearch [namespace children] ::tcltest] == -1} {
    source [file join [pwd] [file dirname [info script]] defs.tcl]
}
a18 5
foreach i [winfo children .] {
    destroy $i
}
wm geometry . {}
raise .
d92 1
a92 4
foreach i [winfo children .] {
    destroy $i
}

@


1.4.2.1
log
@merged with trunk at tag macosx-8-4-merge-2002-08-20-trunk
@
text
@d10 1
a10 1
# RCS: @@(#) $Id$
d12 3
a14 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
d16 5
d94 4
a97 1
deleteWindows
@


1.3
log
@* Merged 8.1 branch into the main trunk
@
text
@d10 1
a10 1
# RCS: @@(#) $Id$
a15 7
# Only run this test on the Macintosh
if {$tcl_platform(platform) != "macintosh"} {
    puts "skipping: Mac only tests..."
    ::tcltest::cleanupTests
    return
}

d28 1
a28 1
test macscroll-1.1 {TkpDisplayScrollbar procedure} {
d31 1
a31 1
test macscroll-1.2 {TkpDisplayScrollbar procedure} {
d39 1
a39 1
test macscroll-1.3 {TkpDisplayScrollbar procedure} {
d47 1
a47 1
test macscroll-1.4 {TkpDisplayScrollbar procedure} {
d60 1
a60 1
test macscroll-1.5 {TkpDisplayScrollbar procedure} {
d70 1
a70 1
test macscroll-1.6 {TkpDisplayScrollbar procedure} {
d86 1
a86 1
test macscroll-1.7 {TkpDisplayScrollbar procedure} {
a100 13













@


1.3.14.1
log
@sync with head
@
text
@d10 1
a10 1
# RCS: @@(#) $Id: macscrollbar.test,v 1.4 2001/09/21 20:38:18 hobbs Exp $
d16 7
d35 1
a35 1
test macscroll-1.1 {TkpDisplayScrollbar procedure} {macOnly} {
d38 1
a38 1
test macscroll-1.2 {TkpDisplayScrollbar procedure} {macOnly} {
d46 1
a46 1
test macscroll-1.3 {TkpDisplayScrollbar procedure} {macOnly} {
d54 1
a54 1
test macscroll-1.4 {TkpDisplayScrollbar procedure} {macOnly} {
d67 1
a67 1
test macscroll-1.5 {TkpDisplayScrollbar procedure} {macOnly} {
d77 1
a77 1
test macscroll-1.6 {TkpDisplayScrollbar procedure} {macOnly} {
d93 1
a93 1
test macscroll-1.7 {TkpDisplayScrollbar procedure} {macOnly} {
d108 13
@


1.2
log
@Replaced SCCS strings, fixed binary files
@
text
@d7 2
a8 3
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
d12 4
d17 4
a20 4
if {$tcl_platform(platform) != "macintosh"} return

if {[info procs test] != "test"} {
    source defs
d104 17
a120 1
concat {}
@


1.1
log
@Initial revision
@
text
@d11 1
a11 1
# SCCS: @@(#) macscrollbar.test 1.3 97/06/24 13:48:34
@


1.1.4.1
log
@Merged 8.0.3 changes into 8.1
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: macscrollbar.test,v 1.2 1998/09/14 18:23:48 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
@a6 2
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
d8 4
a11 1
# RCS: @@(#) $Id: macscrollbar.test,v 1.1.4.1 1998/09/30 02:18:47 stanton Exp $
d14 1
a14 4
if {$tcl_platform(platform) != "macintosh"} {
    puts "skipping: Mac only tests..."
    return
}
d16 2
a17 2
if {[lsearch [namespace children] ::test] == -1} {
    source [file join [pwd] [file dirname [info script]] defs.tcl]
d101 1
a101 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
@d10 1
a10 1
# RCS: @@(#) $Id: macscrollbar.test,v 1.1.4.2 1999/03/11 18:50:58 hershey Exp $
d18 1
a18 1
if {[lsearch [namespace children] ::tcltest] == -1} {
d105 1
a105 1
::tcltest::cleanupTests
a106 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
@d10 1
a10 1
# RCS: @@(#) $Id: macscrollbar.test,v 1.1.4.3 1999/03/24 01:16:56 hershey Exp $
a106 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
@d10 1
a10 5
# RCS: @@(#) $Id: macscrollbar.test,v 1.1.4.4 1999/03/24 02:54:51 hershey Exp $

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


