From 0c3301da04a0a41d0b9de25c18bda6633fe03a47 Mon Sep 17 00:00:00 2001
From: vincentdarley <vincentdarley>
Date: Tue, 3 Sep 2002 11:48:56 +0000
Subject: wm attributes macosx fix

---
 ChangeLog           | 4 ++++
 macosx/tkMacOSXWm.c | 6 +-----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 0c55351..ea4d28c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-09-03  Vince Darley  <vincentdarley@users.sourceforge.net>
+
+	* macosx/tkMacOSXWm.c: fix to 'wm attributes' error-handling bug.
+	
 2002-09-03  Don Porter <dgp@users.sf.net>
 
 	* changes: Updated for 8.4.0 release
diff --git a/macosx/tkMacOSXWm.c b/macosx/tkMacOSXWm.c
index 094ef30..14f93fb 100644
--- a/macosx/tkMacOSXWm.c
+++ b/macosx/tkMacOSXWm.c
@@ -12,7 +12,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkMacOSXWm.c,v 1.2 2002/08/31 06:12:30 das Exp $
+ * RCS: @(#) $Id: tkMacOSXWm.c,v 1.3 2002/09/03 11:48:56 vincentdarley Exp $
  */
 #include <Carbon/Carbon.h>
 
@@ -758,10 +758,6 @@ Tcl_Obj *CONST objv[];	/* Argument objects. */
     int i;
     WindowRef macWindow;
 
-    if (objc != 3) {
-        Tcl_WrongNumArgs(interp, 2, objv, "window");
-        return TCL_ERROR;
-    }
     if (objc < 3) {
 configArgs:
         Tcl_AppendResult(interp, "wrong # arguments: must be \"",
-- 
cgit v0.12