From 02956bf59ec9e9d02e599f84893e5998f59c5314 Mon Sep 17 00:00:00 2001
From: chengyemao <chengyemao@noemail.net>
Date: Wed, 29 Oct 2003 01:45:41 +0000
Subject: Fixed a typing error in ::tk::PlaceWindow.  Please do a test before
 commiting a change.

FossilOrigin-Name: 4bc9abe63c4ea1177f6d157de37490c3abab9846
---
 library/tk.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/library/tk.tcl b/library/tk.tcl
index eed96b3..e6ef6f6 100644
--- a/library/tk.tcl
+++ b/library/tk.tcl
@@ -3,7 +3,7 @@
 # Initialization script normally executed in the interpreter for each
 # Tk-based application.  Arranges class bindings for widgets.
 #
-# RCS: @(#) $Id: tk.tcl,v 1.51 2003/10/28 15:56:46 dkf Exp $
+# RCS: @(#) $Id: tk.tcl,v 1.52 2003/10/29 01:45:41 chengyemao Exp $
 #
 # Copyright (c) 1992-1994 The Regents of the University of California.
 # Copyright (c) 1994-1996 Sun Microsystems, Inc.
@@ -79,7 +79,7 @@ proc ::tk::PlaceWindow {w {place ""} {anchor ""}} {
     wm withdraw $w
     update idletasks
     set checkBounds 1
-    if ($place eq ""} {
+    if {$place eq ""} {
 	set x [expr {([winfo screenwidth $w]-[winfo reqwidth $w])/2}]
 	set y [expr {([winfo screenheight $w]-[winfo reqheight $w])/2}]
 	set checkBounds 0
-- 
cgit v0.12