summaryrefslogtreecommitdiffstats
path: root/Mac/Python/macglue.c
diff options
context:
space:
mode:
Diffstat (limited to 'Mac/Python/macglue.c')
-rw-r--r--Mac/Python/macglue.c62
1 files changed, 61 insertions, 1 deletions
diff --git a/Mac/Python/macglue.c b/Mac/Python/macglue.c
index 24667e6..7e4f0a0 100644
--- a/Mac/Python/macglue.c
+++ b/Mac/Python/macglue.c
@@ -73,6 +73,16 @@ typedef FileFilterYDProcPtr FileFilterYDUPP;
#define GETDIR_ID 130 /* Resource ID for our "get directory" */
#define SELECTCUR_ITEM 10 /* "Select current directory" button */
+/* The dialog for interactive options */
+#define OPT_DIALOG 131 /* Resource ID for dialog */
+#define OPT_OK 1
+#define OPT_CANCEL 2
+#define OPT_INSPECT 3
+#define OPT_VERBOSE 4
+#define OPT_SUPPRESS 5
+#define OPT_UNBUFFERED 6
+#define OPT_DEBUGGING 7
+
/* The STR# resource for sys.path initialization */
#define PYTHONPATH_ID 128
@@ -954,7 +964,7 @@ PyMac_InitApplet()
if (!err)
SIOUXSettings.autocloseonquit = 1;
else
- SIOUXSettings.showstatusline = 1;
+ printf("\n[Terminated]\n");
#endif
/* XXX Should we bother to Py_Exit(sts)? */
}
@@ -991,3 +1001,53 @@ PyMac_InitApplication()
}
Py_Main(argc, argv);
}
+
+/*
+** PyMac_InteractiveOptions - Allow user to set options if option key is pressed
+*/
+void
+PyMac_InteractiveOptions(int *inspect, int *verbose, int *suppress_print,
+ int *unbuffered, int *debugging)
+{
+ KeyMap rmap;
+ unsigned char *map;
+ short item, type;
+ ControlHandle handle;
+ DialogPtr dialog;
+ Rect rect;
+
+ GetKeys(rmap);
+ map = (unsigned char *)rmap;
+ if ( ( map[0x3a>>3] & (1<<(0x3a&7)) ) == 0 ) /* option key is 3a */
+ return;
+
+ dialog = GetNewDialog(OPT_DIALOG, NULL, (WindowPtr)-1);
+ if ( dialog == NULL )
+ return;
+ while (1) {
+ handle = NULL;
+ ModalDialog(NULL, &item);
+ if ( item == OPT_OK )
+ break;
+ if ( item == OPT_CANCEL ) {
+ DisposDialog(dialog);
+ exit(0);
+ }
+#define OPT_ITEM(num, var) \
+ if ( item == (num) ) { \
+ *(var) = !*(var); \
+ GetDialogItem(dialog, (num), &type, (Handle *)&handle, &rect); \
+ SetCtlValue(handle, (short)*(var)); \
+ }
+
+ OPT_ITEM(OPT_INSPECT, inspect);
+ OPT_ITEM(OPT_VERBOSE, verbose);
+ OPT_ITEM(OPT_SUPPRESS, suppress_print);
+ OPT_ITEM(OPT_UNBUFFERED, unbuffered);
+ OPT_ITEM(OPT_DEBUGGING, debugging);
+
+#undef OPT_ITEM
+ }
+ DisposDialog(dialog);
+ /*DBG*/printf("options: %d %d %d %d %d %d\n", *inspect, *verbose, *suppress_print, *unbuffered, *debugging);
+}