summaryrefslogtreecommitdiffstats
path: root/tests/scrollbar.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/scrollbar.test')
-rw-r--r--tests/scrollbar.test14
1 files changed, 11 insertions, 3 deletions
diff --git a/tests/scrollbar.test b/tests/scrollbar.test
index 84a5bf7..c88d15c 100644
--- a/tests/scrollbar.test
+++ b/tests/scrollbar.test
@@ -7,7 +7,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: scrollbar.test,v 1.17 2006/03/14 06:04:46 dgp Exp $
+# RCS: @(#) $Id: scrollbar.test,v 1.18 2006/04/23 21:51:38 vincentdarley Exp $
package require tcltest 2.1
eval tcltest::configure $argv
@@ -166,15 +166,21 @@ scrollbar .s2
test scrollbar-3.11 {ScrollbarWidgetCmd procedure, "cget" option} win {
list [catch {.s2 cget -bd} msg] $msg
} {0 0}
-test scrollbar-3.12 {ScrollbarWidgetCmd procedure, "cget" option} unix {
+test scrollbar-3.12 {ScrollbarWidgetCmd procedure, "cget" option} {unix notAqua} {
list [catch {.s2 cget -bd} msg] $msg
} {0 2}
+test scrollbar-3.12.1 {ScrollbarWidgetCmd procedure, "cget" option} aqua {
+ list [catch {.s2 cget -bd} msg] $msg
+} {0 0}
test scrollbar-3.13 {ScrollbarWidgetCmd procedure, "cget" option} win {
list [catch {.s2 cget -highlightthickness} msg] $msg
} {0 0}
-test scrollbar-3.14 {ScrollbarWidgetCmd procedure, "cget" option} unix {
+test scrollbar-3.14 {ScrollbarWidgetCmd procedure, "cget" option} {unix notAqua} {
list [catch {.s2 cget -highlightthickness} msg] $msg
} {0 1}
+test scrollbar-3.14.1 {ScrollbarWidgetCmd procedure, "cget" option} aqua {
+ list [catch {.s2 cget -highlightthickness} msg] $msg
+} {0 0}
destroy .s2
test scrollbar-3.15 {ScrollbarWidgetCmd procedure, "configure" option} {
llength [.s configure]
@@ -580,6 +586,7 @@ wm geometry .t +0+0
test scrollbar-8.1 {TkScrollbarEventProc: recursive deletion} {
proc doit {args} { destroy .t.f }
proc bgerror {args} {}
+ destroy .t.f
frame .t.f
scrollbar .t.f.s -command doit
pack .t.f -fill both -expand 1
@@ -598,6 +605,7 @@ test scrollbar-8.1 {TkScrollbarEventProc: recursive deletion} {
test scrollbar-8.2 {TkScrollbarEventProc: recursive deletion} {
proc doit {args} { destroy .t.f.s }
proc bgerror {args} {}
+ destroy .t.f
frame .t.f
scrollbar .t.f.s -command doit
pack .t.f -fill both -expand 1