From 99ad7ea580fa5e8a8b31feee30c6cbd6615b9ba7 Mon Sep 17 00:00:00 2001
From: ericm <ericm>
Date: Thu, 2 Mar 2000 03:10:01 +0000
Subject: *** empty log message ***

---
 library/clrpick.tcl | 6 +++---
 1 file 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
 	}
-- 
cgit v0.12