summaryrefslogtreecommitdiffstats
path: root/macosx
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2009-10-22 10:12:56 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2009-10-22 10:12:56 (GMT)
commit6e54465f2ce23a6ce6f4e4395e8f1c4abe77c794 (patch)
tree5249cef7bde85d09ac0961141555654aa3adf74f /macosx
parentdaf41a1547accd08cb2e0a0ba22c735c7bef663e (diff)
downloadtk-6e54465f2ce23a6ce6f4e4395e8f1c4abe77c794.zip
tk-6e54465f2ce23a6ce6f4e4395e8f1c4abe77c794.tar.gz
tk-6e54465f2ce23a6ce6f4e4395e8f1c4abe77c794.tar.bz2
Deal with [Patch 2168768], so making the -typevariable option work consistently
with global variables (the only way it *can* work...)
Diffstat (limited to 'macosx')
-rw-r--r--macosx/tkMacOSXDialog.c9
1 files changed, 7 insertions, 2 deletions
diff --git a/macosx/tkMacOSXDialog.c b/macosx/tkMacOSXDialog.c
index 196d755..cc45c53 100644
--- a/macosx/tkMacOSXDialog.c
+++ b/macosx/tkMacOSXDialog.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkMacOSXDialog.c,v 1.46 2009/07/06 20:29:21 dkf Exp $
+ * RCS: @(#) $Id: tkMacOSXDialog.c,v 1.47 2009/10/22 10:12:57 dkf Exp $
*/
#include "tkMacOSXPrivate.h"
@@ -498,7 +498,12 @@ Tk_GetOpenFileObjCmd(
}
result = (returnCode != NSAlertErrorReturn) ? TCL_OK : TCL_ERROR;
if (typeVariablePtr && result == TCL_OK) {
- Tcl_SetVar(interp, Tcl_GetString(typeVariablePtr), "", 0);
+ /*
+ * The -typevariable option is not really supported.
+ */
+
+ Tcl_SetVar(interp, Tcl_GetString(typeVariablePtr), "",
+ TCL_GLOBAL_ONLY);
}
end: