fix remaining NumLock problems by teaching tk to detect the Alt modifier

[micropolis] / src / tk / tkwindow.c

diff --git a/src/tk/tkwindow.c b/src/tk/tkwindow.c
index 77e0b77442b232d8a780ba615aa89cf24c100997..05029aa38b11e2e189010736c69c74113616d581 100644 (file)
--- a/src/tk/tkwindow.c
+++ b/src/tk/tkwindow.c
@@ -360,6 +360,9 @@ GetScreen(interp, screenName, screenPtr)
            dispPtr->selectionSerial = 0;
            dispPtr->multipleAtom = None;
            dispPtr->atomInit = 0;
            dispPtr->selectionSerial = 0;
            dispPtr->multipleAtom = None;
            dispPtr->atomInit = 0;

+           dispPtr->modeModMask = 0;
+           dispPtr->metaModMask = 0;
+           dispPtr->altModMask = 0;

            dispPtr->cursorFont = None;
            dispPtr->grabWinPtr = NULL;
            dispPtr->ungrabWinPtr = NULL;
            dispPtr->cursorFont = None;
            dispPtr->grabWinPtr = NULL;
            dispPtr->ungrabWinPtr = NULL;