diff options
| -rw-r--r-- | library/clrpick.tcl | 6 |
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 } |