summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordas <das>2006-12-01 06:19:24 (GMT)
committerdas <das>2006-12-01 06:19:24 (GMT)
commit9c00f95076d88ab3a267b232e9ab714c95287ef0 (patch)
tree41ad211a06d54cde1072691577c3efcd2654c983
parent59be88de58b6d1f20a2f16f117c0680c80e40af8 (diff)
downloadtk-9c00f95076d88ab3a267b232e9ab714c95287ef0.zip
tk-9c00f95076d88ab3a267b232e9ab714c95287ef0.tar.gz
tk-9c00f95076d88ab3a267b232e9ab714c95287ef0.tar.bz2
* macosx/tkMacOSXWm.c (WmAttributesCmd): fix getting [wm attr -alpha].
[Bug 1581932]
-rw-r--r--ChangeLog5
-rw-r--r--macosx/tkMacOSXWm.c9
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);