summaryrefslogtreecommitdiffstats
path: root/tests/macscrollbar.test
diff options
context:
space:
mode:
authordas <das>2004-03-17 18:15:28 (GMT)
committerdas <das>2004-03-17 18:15:28 (GMT)
commit65423864cf9618016945cddd968b3f2c4343dcfc (patch)
treea4d842ff3e2a8fc34e8fd25e2322f00537fdfae9 /tests/macscrollbar.test
parenta69b5b4fefe30134396d6269d0eca5fff4ba8500 (diff)
downloadtk-65423864cf9618016945cddd968b3f2c4343dcfc.zip
tk-65423864cf9618016945cddd968b3f2c4343dcfc.tar.gz
tk-65423864cf9618016945cddd968b3f2c4343dcfc.tar.bz2
Removed support for Mac OS Classic platform [Patch 918139]
Diffstat (limited to 'tests/macscrollbar.test')
-rw-r--r--tests/macscrollbar.test92
1 files changed, 0 insertions, 92 deletions
diff --git a/tests/macscrollbar.test b/tests/macscrollbar.test
deleted file mode 100644
index d3d9c6e..0000000
--- a/tests/macscrollbar.test
+++ /dev/null
@@ -1,92 +0,0 @@
-# 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