src/tclx/ucbsrc/tclbasic.sed: Micropolis build fixes for recent macOS

[micropolis] / src / tk / tkint.h

diff --git a/src/tk/tkint.h b/src/tk/tkint.h
index e2c7b7ee559f3a38cabd56168d87ef13c9e16e3f..0083e51203e1ff6fd47bee5102745355130f3297 100644 (file)
--- a/src/tk/tkint.h
+++ b/src/tk/tkint.h
@@ -38,6 +38,12 @@
 #include "tclhash.h"
 #endif
 
 #include "tclhash.h"
 #endif
 

+#define META_MASK      (AnyModifier<<1)
+#define ALT_MASK       (AnyModifier<<2)
+
+#define ALL_BUTTONS \
+       (Button1Mask|Button2Mask|Button3Mask|Button4Mask|Button5Mask)
+

 /*
  * One of the following structures is maintained for each display
  * containing a window managed by Tk:
 /*
  * One of the following structures is maintained for each display
  * containing a window managed by Tk:


@@ -76,6 +82,9 @@ typedef struct TkDisplay {
                                 * retrieved from the server yet. */
     KeySym *keySyms;           /* Array of KeySyms, returned by
                                 * XGetKeyboardMapping. */
                                 * retrieved from the server yet. */
     KeySym *keySyms;           /* Array of KeySyms, returned by
                                 * XGetKeyboardMapping. */

+    unsigned int modeModMask;
+    unsigned int metaModMask;
+    unsigned int altModMask;

 
     /*
      * Information used by tkError.c only:
 
     /*
      * Information used by tkError.c only: