summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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
}