From 9c00f95076d88ab3a267b232e9ab714c95287ef0 Mon Sep 17 00:00:00 2001
From: das <das>
Date: Fri, 1 Dec 2006 06:19:24 +0000
Subject: 	* macosx/tkMacOSXWm.c (WmAttributesCmd): fix getting [wm attr
 -alpha]. 	[Bug 1581932]

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

diff --git a/ChangeLog b/ChangeLog
index 6436627..32c6a90 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-11-30  Daniel Steffen  <das@users.sourceforge.net>
+
+	* macosx/tkMacOSXWm.c (WmAttributesCmd): fix getting [wm attr -alpha].
+	[Bug 1581932]
+
 2006-11-28  Joe English  <jenglish@users.sourceforge.net>
 
 	* library/ttk/fonts.tcl: Clean up temporary variables.
diff --git a/macosx/tkMacOSXWm.c b/macosx/tkMacOSXWm.c
index 913a662..c250f92 100644
--- a/macosx/tkMacOSXWm.c
+++ b/macosx/tkMacOSXWm.c
@@ -13,7 +13,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.44 2006/10/31 22:33:34 das Exp $
+ * RCS: @(#) $Id: tkMacOSXWm.c,v 1.45 2006/12/01 06:19:24 das Exp $
  */
 
 #include "tkMacOSXInt.h"
@@ -848,9 +848,10 @@ Tcl_Obj *CONST objv[];	/* Argument objects. */
 		break;
 	    case WmAttrAlphaIdx:
 		objPtr = WmAttrGetAlpha(macWindow);
+		break;
 	    case WmAttrNotifyIdx:
 		objPtr = WmAttrGetNotifyStatus();
-	      break;
+		break;
 	}
 	Tcl_SetObjResult(interp, objPtr);
 	return TCL_OK;
@@ -941,8 +942,8 @@ Tcl_Obj *CONST objv[];	/* Argument objects. */
 		    return TCL_ERROR;
 		}
 		objPtr = Tcl_NewBooleanObj(boolean);
-	        WmAttrSetNotifyStatus(boolean);
-                break;
+		WmAttrSetNotifyStatus(boolean);
+		break;
 	}
     }
     Tcl_SetObjResult(interp, objPtr);
-- 
cgit v0.12