summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorericm <ericm>2000-03-02 03:10:01 (GMT)
committerericm <ericm>2000-03-02 03:10:01 (GMT)
commit99ad7ea580fa5e8a8b31feee30c6cbd6615b9ba7 (patch)
tree1278c0d3bfcbf53f2b9298f7952a9383b1f883aa
parentf5534ea9d060d3d5b81d439bbf781a792fd9b950 (diff)
downloadtk-99ad7ea580fa5e8a8b31feee30c6cbd6615b9ba7.zip
tk-99ad7ea580fa5e8a8b31feee30c6cbd6615b9ba7.tar.gz
tk-99ad7ea580fa5e8a8b31feee30c6cbd6615b9ba7.tar.bz2
*** empty log message ***
-rw-r--r--library/clrpick.tcl6
1 files changed, 3 insertions, 3 deletions
diff --git a/library/clrpick.tcl b/library/clrpick.tcl
index 72f3282..bf46be0 100644
--- a/library/clrpick.tcl
+++ b/library/clrpick.tcl
@@ -3,7 +3,7 @@
# Color selection dialog for platforms that do not support a
# standard color selection dialog.
#
-# RCS: @(#) $Id: clrpick.tcl,v 1.8 2000/03/02 03:02:13 ericm Exp $
+# RCS: @(#) $Id: clrpick.tcl,v 1.9 2000/03/02 03:10:01 ericm Exp $
#
# Copyright (c) 1996 Sun Microsystems, Inc.
#
@@ -59,9 +59,9 @@ proc tkColorDialog {args} {
tkColorDialog_Config $w $args
tkColorDialog_InitValues $w
- set sc [$data(-parent) cget -screen]
+ set sc [winfo screen $data(-parent)]
set winExists [winfo exists $w]
- if {!$winExists || [string compare $sc [$w cget -screen]]} {
+ if {!$winExists || [string compare $sc [winfo screen $w]]} {
if {$winExists} {
destroy $w
}