summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2003-02-21 11:48:53 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2003-02-21 11:48:53 (GMT)
commitac156b34dafc325049c475fcccac75a9d35533bc (patch)
treee417680b93c807afaa60dad708ac97bc695bcde4 /tests
parente0de5bcca2f848dc868d307892756cc82290696a (diff)
downloadtk-ac156b34dafc325049c475fcccac75a9d35533bc.zip
tk-ac156b34dafc325049c475fcccac75a9d35533bc.tar.gz
tk-ac156b34dafc325049c475fcccac75a9d35533bc.tar.bz2
Use the panedwindow's depth, not the screen's default depth. [Bug #671122]
Diffstat (limited to 'tests')
-rw-r--r--tests/constraints.tcl1
-rw-r--r--tests/panedwindow.test15
2 files changed, 15 insertions, 1 deletions
diff --git a/tests/constraints.tcl b/tests/constraints.tcl
index 01ed60d..3006cca 100644
--- a/tests/constraints.tcl
+++ b/tests/constraints.tcl
@@ -159,6 +159,7 @@ testConstraint pseudocolor8 [expr {([catch {
toplevel .t -visual {pseudocolor 8} -colormap new
}] == 0) && ([winfo depth .t] == 8)}]
destroy .t
+testConstraint haveTruecolor24 [expr {[lsearch [winfo visualsavailable .] {truecolor 24}] != -1}]
setupbg
set app [dobg {tk appname}]
testConstraint secureserver 0
diff --git a/tests/panedwindow.test b/tests/panedwindow.test
index 99a75c7..e073d4a 100644
--- a/tests/panedwindow.test
+++ b/tests/panedwindow.test
@@ -6,7 +6,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: panedwindow.test,v 1.7 2003/02/21 01:57:51 hobbs Exp $
+# RCS: @(#) $Id: panedwindow.test,v 1.8 2003/02/21 11:48:56 dkf Exp $
package require tcltest 2.1
namespace import -force tcltest::configure
@@ -2462,6 +2462,19 @@ test panedwindow-29.2 {resizing height} {
-result {100 110}
}
+test panedwindow-30.1 {display on depths other than the default one} {
+ -constraints {pseudocolor8 haveTruecolor24}
+ -body {
+ toplevel .t -visual {truecolor 24}
+ pack [panedwindow .t.p]
+ .t.p add [frame .t.p.f1] [frame .t.p.f2]
+ update
+ # If we got here, we didn't crash and that's good
+ }
+ -cleanup {destroy .t}
+ -result {}
+}
+
# cleanup
::tcltest::cleanupTests
return