diff options
| author | ericm <ericm> | 2000-03-02 03:02:13 (GMT) |
|---|---|---|
| committer | ericm <ericm> | 2000-03-02 03:02:13 (GMT) |
| commit | f5534ea9d060d3d5b81d439bbf781a792fd9b950 (patch) | |
| tree | e4711d8e6bdf036a7da62c6cf9c35b20d05802ce /tests/clrpick.test | |
| parent | 9ddd72d5fb7e050ceacbb03b2b3ab4a6bc01d40e (diff) | |
| download | tk-f5534ea9d060d3d5b81d439bbf781a792fd9b950.zip tk-f5534ea9d060d3d5b81d439bbf781a792fd9b950.tar.gz tk-f5534ea9d060d3d5b81d439bbf781a792fd9b950.tar.bz2 | |
* tests/clrpick.test:
* library/clrpick.tcl: Added code to make color chooser dialog
inherit screen setting from parent (bug #2334)
Diffstat (limited to 'tests/clrpick.test')
| -rw-r--r-- | tests/clrpick.test | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/tests/clrpick.test b/tests/clrpick.test index e06d67d..94a99c0 100644 --- a/tests/clrpick.test +++ b/tests/clrpick.test @@ -5,7 +5,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: clrpick.test,v 1.4 1999/11/30 00:02:20 hobbs Exp $ +# RCS: @(#) $Id: clrpick.test,v 1.5 2000/03/02 03:02:13 ericm Exp $ # if {[lsearch [namespace children] ::tcltest] == -1} { @@ -198,7 +198,7 @@ test clrpick-2.4 {tk_chooseColor command} {nonUnixUserInteraction} { tk_chooseColor -parent $parent -title "Press Cancel" } "" -set color #000000 +set color "#000000" test clrpick-3.1 {tk_chooseColor: background events} {nonUnixUserInteraction} { after 1 {set x 53} ToPressButton $parent ok @@ -210,6 +210,13 @@ test clrpick-3.2 {tk_chooseColor: background events} {nonUnixUserInteraction} { tk_chooseColor -parent $parent -title "Press Cancel" } "" +test clrpick-4.1 {tk_chooseColor: screen is inherited from parent} unixOnly { + after 50 {set ::scr [winfo screen .__tk__color]} + ToPressButton $parent cancel + tk_chooseColor -parent $parent + set ::scr +} [winfo screen $parent] + # cleanup ::tcltest::cleanupTests return |