diff options
| author | ericm <ericm> | 2000-03-02 03:10:01 (GMT) |
|---|---|---|
| committer | ericm <ericm> | 2000-03-02 03:10:01 (GMT) |
| commit | 99ad7ea580fa5e8a8b31feee30c6cbd6615b9ba7 (patch) | |
| tree | 1278c0d3bfcbf53f2b9298f7952a9383b1f883aa | |
| parent | f5534ea9d060d3d5b81d439bbf781a792fd9b950 (diff) | |
| download | tk-99ad7ea580fa5e8a8b31feee30c6cbd6615b9ba7.zip tk-99ad7ea580fa5e8a8b31feee30c6cbd6615b9ba7.tar.gz tk-99ad7ea580fa5e8a8b31feee30c6cbd6615b9ba7.tar.bz2 | |
*** empty log message ***
| -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 } |