diff options
| author | vincentdarley <vincentdarley@noemail.net> | 2006-04-23 21:51:23 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley@noemail.net> | 2006-04-23 21:51:23 (GMT) |
| commit | 1d7700d6a76e8d744d402586bac85544464a6b08 (patch) | |
| tree | 829e1f740b04efa573b7143d4af59afdb5f3fd42 /tests/scrollbar.test | |
| parent | c432c364988c1103a2d555e9df482a4fa075dbe5 (diff) | |
| download | tk-1d7700d6a76e8d744d402586bac85544464a6b08.zip tk-1d7700d6a76e8d744d402586bac85544464a6b08.tar.gz tk-1d7700d6a76e8d744d402586bac85544464a6b08.tar.bz2 | |
scrollbar.test fixes for TkAqua
FossilOrigin-Name: 330751e83e9c725aeff24ea628c979ca95fc2467
Diffstat (limited to 'tests/scrollbar.test')
| -rw-r--r-- | tests/scrollbar.test | 14 |
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 |