hg/stx-libview: comparison XWorkstation.st

equal deleted inserted replaced

-:e0d6816f072b
+:03bf464aa8c8
 This method may block - so you better check for pending events
 before calling for it.
 The event fields are placed into anEventArray (must be at least size 13):
 the fields are:
-	1:      windowID
+1:      windowID
-	2:      eventType-ID
+2:      eventType-ID
-	3:      eventTypeSymbol
+3:      eventTypeSymbol
-	4..     args
+4..     args
 Sorry I had to split dispatch into this fetch method and a separate
 handler method to allow UNLIMITEDSTACK here.
 (some Xlibs do a big alloca there which cannot be done in
 #dispatchEvent:, since it dispatches out into ST-methods).
 %{  /* UNLIMITEDSTACK */
 Display *dpy;
 Window win, wWanted;
-int evMask, returnValue;
+long evMask;
+int returnValue;
 XEvent ev;
 OBJ eB;
 KeySym keySym;
 unsigned char buffer[64];
 int i, nchars;
 char *keySymString;
 OBJ arg, sym, t, windowID;
 if (! ISCONNECTED) {
-	RETURN (false);
+RETURN (false);
 }
 dpy = myDpy;
 ev.type = 0;
 if (__isSmallInteger(eventMask)) {
-	evMask = __intVal(eventMask);
+evMask = __intVal(eventMask);
 } else {
-	evMask = ~0;
+evMask = ~0;
 }
 if (__isExternalAddress(aViewIdOrNil)) {
-	wWanted = __WindowVal(aViewIdOrNil);
+wWanted = __WindowVal(aViewIdOrNil);
-	returnValue = XCheckWindowEvent(dpy, wWanted, evMask, &ev);
+returnValue = XCheckWindowEvent(dpy, wWanted, evMask, &ev);
 } else {
-	if (evMask == ~0) {
+if (evMask == ~0) {
-	    XNextEvent(dpy, &ev);
+XNextEvent(dpy, &ev);
-	    returnValue = 1;
+returnValue = 1;
-	} else {
+} else {
-	    returnValue = XCheckMaskEvent(dpy, evMask, &ev);
+returnValue = XCheckMaskEvent(dpy, evMask, &ev);
-	}
+}
 }
 if (!returnValue) {
-	/* there is no event */
+/* there is no event */
-	RETURN (false);
+RETURN (false);
 }
 if (anEventArray == nil) {
-	/* sender is not interested in the event */
+/* sender is not interested in the event */
-	RETURN(true);
+RETURN(true);
 }
 if (!__isArray(anEventArray)) {
-	console_fprintf(stderr, "XWorkstation: bad argument [%d]\n", __LINE__);
+console_fprintf(stderr, "XWorkstation: bad argument [%d]\n", __LINE__);
-	RETURN (false);
+RETURN (false);
 }
 if (__arraySize(anEventArray) < 11) {
-	console_fprintf(stderr, "XWorkstation: bad argument [%d]\n", __LINE__);
+console_fprintf(stderr, "XWorkstation: bad argument [%d]\n", __LINE__);
-	RETURN (false);
+RETURN (false);
 }
 #   define ANYBUTTON   (Button1MotionMask | Button2MotionMask | Button3MotionMask)
 #   define ae ((XAnyEvent *)&ev)
 #   define pe ((XPropertyEvent *)&ev)
 #   define sce ((XSelectionClearEvent *)&ev)
 #   define cme ((XColormapEvent *)&ev)
 if (((t = __INST(lastId)) != nil)
-	 && __isExternalAddress(t)
+&& __isExternalAddress(t)
-	 && (__WindowVal(t) == ae->window)) {
+&& (__WindowVal(t) == ae->window)) {
-	windowID = t;
+windowID = t;
 } else {
-	windowID = __MKEXTERNALADDRESS(ae->window);
+windowID = __MKEXTERNALADDRESS(ae->window);
 }
 __ArrayInstPtr(anEventArray)->a_element[0] = windowID; __STORE(anEventArray, windowID);
 __ArrayInstPtr(anEventArray)->a_element[1] = __MKSMALLINT(ev.type);
 switch (ev.type) {
-	case KeyRelease:
+case KeyRelease:
-	    sym = @symbol(keyRelease:key:code:state:x:y:rootX:rootY:time:);
+sym = @symbol(keyRelease:key:code:state:x:y:rootX:rootY:time:);
-	    goto keyPressAndRelease;
+goto keyPressAndRelease;
-	case KeyPress:
+case KeyPress:
-	    sym = @symbol(keyPress:key:code:state:x:y:rootX:rootY:time:);
+sym = @symbol(keyPress:key:code:state:x:y:rootX:rootY:time:);
-	    /* FALL INTO */
+/* FALL INTO */
-	keyPressAndRelease:
+keyPressAndRelease:
-	    arg = nil;
+arg = nil;
-	    nchars = XLookupString(ke, (char *)buffer, sizeof(buffer), &keySym, NULL);
+nchars = XLookupString(ke, (char *)buffer, sizeof(buffer), &keySym, NULL);
-	    if (nchars == 1 && (((buffer[0] >= ' ') && (buffer[0] <= '~'))
+if (nchars == 1 && (((buffer[0] >= ' ') && (buffer[0] <= '~'))
-		|| (buffer[0] >= 0x80))) {
+|| (buffer[0] >= 0x80))) {
-		arg = __MKCHARACTER(buffer[0]);
+arg = __MKCHARACTER(buffer[0]);
 //            } else if (nchars > 2) {
 //                arg = __MKSTRING_L(buffer, nchars);
-	    } else {
+} else {
-		keySymString = XKeysymToString(keySym);
+keySymString = XKeysymToString(keySym);
-		if (keySymString) {
+if (keySymString) {
-		    arg = __MKSYMBOL(keySymString, 0);
+arg = __MKSYMBOL(keySymString, 0);
-		}
+}
-	    }
+}
 #ifdef IGNORE_UNKNOWN_KEYCODES
-	    if (arg == nil) {
+if (arg == nil) {
-		/* happens sometimes (alt-graph on sun has no keysym) */
+/* happens sometimes (alt-graph on sun has no keysym) */
-		RETURN (false);
+RETURN (false);
-	    }
+}
 #endif
-	    __ArrayInstPtr(anEventArray)->a_element[2] = sym;
+__ArrayInstPtr(anEventArray)->a_element[2] = sym;
-	    __ArrayInstPtr(anEventArray)->a_element[3] = arg; __STORE(anEventArray, arg);
+__ArrayInstPtr(anEventArray)->a_element[3] = arg; __STORE(anEventArray, arg);
-	    t = __MKUINT(ke->keycode); __ArrayInstPtr(anEventArray)->a_element[4] = t; __STORE(anEventArray, t);
+t = __MKUINT(ke->keycode); __ArrayInstPtr(anEventArray)->a_element[4] = t; __STORE(anEventArray, t);
-	    __ArrayInstPtr(anEventArray)->a_element[5] = __mkSmallInteger(ke->state);
+__ArrayInstPtr(anEventArray)->a_element[5] = __mkSmallInteger(ke->state);
-	    __ArrayInstPtr(anEventArray)->a_element[6] = __mkSmallInteger(ke->x);
+__ArrayInstPtr(anEventArray)->a_element[6] = __mkSmallInteger(ke->x);
-	    __ArrayInstPtr(anEventArray)->a_element[7] = __mkSmallInteger(ke->y);
+__ArrayInstPtr(anEventArray)->a_element[7] = __mkSmallInteger(ke->y);
-	    __ArrayInstPtr(anEventArray)->a_element[8] = __mkSmallInteger(ke->x_root);
+__ArrayInstPtr(anEventArray)->a_element[8] = __mkSmallInteger(ke->x_root);
-	    __ArrayInstPtr(anEventArray)->a_element[9] = __mkSmallInteger(ke->y_root);
+__ArrayInstPtr(anEventArray)->a_element[9] = __mkSmallInteger(ke->y_root);
-	    t = __MKUINT(ke->time); __ArrayInstPtr(anEventArray)->a_element[10] = t; __STORE(anEventArray, t);
+t = __MKUINT(ke->time); __ArrayInstPtr(anEventArray)->a_element[10] = t; __STORE(anEventArray, t);
-	    break;
+break;
-	case ButtonPress:
+case ButtonPress:
-	    sym = @symbol(buttonPress:button:state:x:y:rootX:rootY:time:);
+sym = @symbol(buttonPress:button:state:x:y:rootX:rootY:time:);
-	    goto buttonPressAndRelease;
+goto buttonPressAndRelease;
-	case ButtonRelease:
+case ButtonRelease:
-	    sym = @symbol(buttonRelease:button:state:x:y:rootX:rootY:time:);
+sym = @symbol(buttonRelease:button:state:x:y:rootX:rootY:time:);
-	    /* fall into */
+/* fall into */
-	buttonPressAndRelease:
+buttonPressAndRelease:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = sym;
+__ArrayInstPtr(anEventArray)->a_element[2] = sym;
-	    __ArrayInstPtr(anEventArray)->a_element[3] = __mkSmallInteger(be->button);
+__ArrayInstPtr(anEventArray)->a_element[3] = __mkSmallInteger(be->button);
-	    __ArrayInstPtr(anEventArray)->a_element[4] = __mkSmallInteger(ke->state);
+__ArrayInstPtr(anEventArray)->a_element[4] = __mkSmallInteger(ke->state);
-	    __ArrayInstPtr(anEventArray)->a_element[5] = __mkSmallInteger(be->x);
+__ArrayInstPtr(anEventArray)->a_element[5] = __mkSmallInteger(be->x);
-	    __ArrayInstPtr(anEventArray)->a_element[6] = __mkSmallInteger(be->y);
+__ArrayInstPtr(anEventArray)->a_element[6] = __mkSmallInteger(be->y);
-	    __ArrayInstPtr(anEventArray)->a_element[7] = __mkSmallInteger(be->x_root);
+__ArrayInstPtr(anEventArray)->a_element[7] = __mkSmallInteger(be->x_root);
-	    __ArrayInstPtr(anEventArray)->a_element[8] = __mkSmallInteger(be->y_root);
+__ArrayInstPtr(anEventArray)->a_element[8] = __mkSmallInteger(be->y_root);
-	    t = __MKUINT(be->time); __ArrayInstPtr(anEventArray)->a_element[9] = t; __STORE(anEventArray, t);
+t = __MKUINT(be->time); __ArrayInstPtr(anEventArray)->a_element[9] = t; __STORE(anEventArray, t);
-	    break;
+break;
-	case MotionNotify:
+case MotionNotify:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(buttonMotion:state:x:y:rootX:rootY:time:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(buttonMotion:state:x:y:rootX:rootY:time:);
-	    __ArrayInstPtr(anEventArray)->a_element[3] = __mkSmallInteger(me->state);
+__ArrayInstPtr(anEventArray)->a_element[3] = __mkSmallInteger(me->state);
-	    __ArrayInstPtr(anEventArray)->a_element[4] = __mkSmallInteger(me->x);
+__ArrayInstPtr(anEventArray)->a_element[4] = __mkSmallInteger(me->x);
-	    __ArrayInstPtr(anEventArray)->a_element[5] = __mkSmallInteger(me->y);
+__ArrayInstPtr(anEventArray)->a_element[5] = __mkSmallInteger(me->y);
-	    __ArrayInstPtr(anEventArray)->a_element[6] = __mkSmallInteger(me->x_root);
+__ArrayInstPtr(anEventArray)->a_element[6] = __mkSmallInteger(me->x_root);
-	    __ArrayInstPtr(anEventArray)->a_element[7] = __mkSmallInteger(me->y_root);
+__ArrayInstPtr(anEventArray)->a_element[7] = __mkSmallInteger(me->y_root);
-	    t = __MKUINT(me->time); __ArrayInstPtr(anEventArray)->a_element[8] = t; __STORE(anEventArray, t);
+t = __MKUINT(me->time); __ArrayInstPtr(anEventArray)->a_element[8] = t; __STORE(anEventArray, t);
-	    break;
+break;
-	case FocusIn:
+case FocusIn:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(focusIn:mode:detail:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(focusIn:mode:detail:);
-	    goto focusInOut;
+goto focusInOut;
-	case FocusOut:
+case FocusOut:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(focusOut:mode:detail:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(focusOut:mode:detail:);
-	    /* fall into */
+/* fall into */
-	focusInOut:
+focusInOut:
-	    __ArrayInstPtr(anEventArray)->a_element[3] = __mkSmallInteger(fe->mode);
+__ArrayInstPtr(anEventArray)->a_element[3] = __mkSmallInteger(fe->mode);
-	    __ArrayInstPtr(anEventArray)->a_element[4] = __mkSmallInteger(fe->detail);
+__ArrayInstPtr(anEventArray)->a_element[4] = __mkSmallInteger(fe->detail);
-	    break;
+break;
-	case EnterNotify:
+case EnterNotify:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(pointerEnter:x:y:rootX:rootY:state:mode:detail:time:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(pointerEnter:x:y:rootX:rootY:state:mode:detail:time:);
-	    goto enterLeave;
+goto enterLeave;
-	case LeaveNotify:
+case LeaveNotify:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(pointerLeave:x:y:rootX:rootY:state:mode:detail:time:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(pointerLeave:x:y:rootX:rootY:state:mode:detail:time:);
-	    /* fall into */
+/* fall into */
-	enterLeave:
+enterLeave:
-	    __ArrayInstPtr(anEventArray)->a_element[3] = __mkSmallInteger(ele->x);
+__ArrayInstPtr(anEventArray)->a_element[3] = __mkSmallInteger(ele->x);
-	    __ArrayInstPtr(anEventArray)->a_element[4] = __mkSmallInteger(ele->y);
+__ArrayInstPtr(anEventArray)->a_element[4] = __mkSmallInteger(ele->y);
-	    __ArrayInstPtr(anEventArray)->a_element[5] = __mkSmallInteger(ele->x_root);
+__ArrayInstPtr(anEventArray)->a_element[5] = __mkSmallInteger(ele->x_root);
-	    __ArrayInstPtr(anEventArray)->a_element[6] = __mkSmallInteger(ele->y_root);
+__ArrayInstPtr(anEventArray)->a_element[6] = __mkSmallInteger(ele->y_root);
-	    __ArrayInstPtr(anEventArray)->a_element[7] = __mkSmallInteger(ele->state);
+__ArrayInstPtr(anEventArray)->a_element[7] = __mkSmallInteger(ele->state);
-	    __ArrayInstPtr(anEventArray)->a_element[8] = __mkSmallInteger(ele->mode);
+__ArrayInstPtr(anEventArray)->a_element[8] = __mkSmallInteger(ele->mode);
-	    __ArrayInstPtr(anEventArray)->a_element[9] = __mkSmallInteger(ele->detail);
+__ArrayInstPtr(anEventArray)->a_element[9] = __mkSmallInteger(ele->detail);
-	    t = __MKUINT(ele->time); __ArrayInstPtr(anEventArray)->a_element[10] = t; __STORE(anEventArray, t);
+t = __MKUINT(ele->time); __ArrayInstPtr(anEventArray)->a_element[10] = t; __STORE(anEventArray, t);
-	    break;
+break;
-	case Expose:
+case Expose:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(expose:x:y:width:height:count:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(expose:x:y:width:height:count:);
-	    goto expose;
+goto expose;
-	case GraphicsExpose:
+case GraphicsExpose:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(graphicsExpose:x:y:width:height:count:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(graphicsExpose:x:y:width:height:count:);
-	    /* fall into */
+/* fall into */
-	expose:
+expose:
-	    __ArrayInstPtr(anEventArray)->a_element[3] = __mkSmallInteger(ee->x);
+__ArrayInstPtr(anEventArray)->a_element[3] = __mkSmallInteger(ee->x);
-	    __ArrayInstPtr(anEventArray)->a_element[4] = __mkSmallInteger(ee->y);
+__ArrayInstPtr(anEventArray)->a_element[4] = __mkSmallInteger(ee->y);
-	    __ArrayInstPtr(anEventArray)->a_element[5] = __mkSmallInteger(ee->width);
+__ArrayInstPtr(anEventArray)->a_element[5] = __mkSmallInteger(ee->width);
-	    __ArrayInstPtr(anEventArray)->a_element[6] = __mkSmallInteger(ee->height);
+__ArrayInstPtr(anEventArray)->a_element[6] = __mkSmallInteger(ee->height);
-	    __ArrayInstPtr(anEventArray)->a_element[7] = __mkSmallInteger(ee->count);
+__ArrayInstPtr(anEventArray)->a_element[7] = __mkSmallInteger(ee->count);
-	    break;
+break;
-	case NoExpose:
+case NoExpose:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(noExposeView:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(noExposeView:);
-	    break;
+break;
-	case VisibilityNotify:
+case VisibilityNotify:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(visibilityNotify:state:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(visibilityNotify:state:);
-	    switch (ve->state) {
+switch (ve->state) {
-		case VisibilityUnobscured:
+case VisibilityUnobscured:
-		    __ArrayInstPtr(anEventArray)->a_element[3] = @symbol(unobscured);
+__ArrayInstPtr(anEventArray)->a_element[3] = @symbol(unobscured);
-		    break;
+break;
-		case VisibilityPartiallyObscured:
+case VisibilityPartiallyObscured:
-		    __ArrayInstPtr(anEventArray)->a_element[3] = @symbol(partiallyObscured);
+__ArrayInstPtr(anEventArray)->a_element[3] = @symbol(partiallyObscured);
-		    break;
+break;
-		case VisibilityFullyObscured:
+case VisibilityFullyObscured:
-		    __ArrayInstPtr(anEventArray)->a_element[3] = @symbol(fullyObscured);
+__ArrayInstPtr(anEventArray)->a_element[3] = @symbol(fullyObscured);
-		    break;
+break;
-		default:
+default:
-		    __ArrayInstPtr(anEventArray)->a_element[3] = __MKSMALLINT(ve->state);
+__ArrayInstPtr(anEventArray)->a_element[3] = __MKSMALLINT(ve->state);
-		    break;
+break;
-	    }
+}
-	    break;
+break;
-	case CreateNotify:
+case CreateNotify:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(createWindow:x:y:width:height:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(createWindow:x:y:width:height:);
-	    __ArrayInstPtr(anEventArray)->a_element[3] = __mkSmallInteger(cre->x);
+__ArrayInstPtr(anEventArray)->a_element[3] = __mkSmallInteger(cre->x);
-	    __ArrayInstPtr(anEventArray)->a_element[4] = __mkSmallInteger(cre->y);
+__ArrayInstPtr(anEventArray)->a_element[4] = __mkSmallInteger(cre->y);
-	    __ArrayInstPtr(anEventArray)->a_element[5] = __mkSmallInteger(cre->width);
+__ArrayInstPtr(anEventArray)->a_element[5] = __mkSmallInteger(cre->width);
-	    __ArrayInstPtr(anEventArray)->a_element[6] = __mkSmallInteger(cre->height);
+__ArrayInstPtr(anEventArray)->a_element[6] = __mkSmallInteger(cre->height);
-	    break;
+break;
-	case DestroyNotify:
+case DestroyNotify:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(destroyedView:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(destroyedView:);
-	    break;
+break;
-	case UnmapNotify:
+case UnmapNotify:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(unmappedView:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(unmappedView:);
-	    break;
+break;
-	case MapNotify:
+case MapNotify:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(mappedView:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(mappedView:);
-	    break;
+break;
-	case ConfigureNotify:
+case ConfigureNotify:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(configure:relativeTo:x:y:width:height:borderWidth:above:overrideRedirect:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(configure:relativeTo:x:y:width:height:borderWidth:above:overrideRedirect:);
-	    __ArrayInstPtr(anEventArray)->a_element[3] = nil;
+__ArrayInstPtr(anEventArray)->a_element[3] = nil;
-	    __ArrayInstPtr(anEventArray)->a_element[4] = __mkSmallInteger(ce->x);
+__ArrayInstPtr(anEventArray)->a_element[4] = __mkSmallInteger(ce->x);
-	    __ArrayInstPtr(anEventArray)->a_element[5] = __mkSmallInteger(ce->y);
+__ArrayInstPtr(anEventArray)->a_element[5] = __mkSmallInteger(ce->y);
-	    __ArrayInstPtr(anEventArray)->a_element[6] = __mkSmallInteger(ce->width);
+__ArrayInstPtr(anEventArray)->a_element[6] = __mkSmallInteger(ce->width);
-	    __ArrayInstPtr(anEventArray)->a_element[7] = __mkSmallInteger(ce->height);
+__ArrayInstPtr(anEventArray)->a_element[7] = __mkSmallInteger(ce->height);
-	    __ArrayInstPtr(anEventArray)->a_element[8] = __mkSmallInteger(ce->border_width);
+__ArrayInstPtr(anEventArray)->a_element[8] = __mkSmallInteger(ce->border_width);
-	   __ArrayInstPtr(anEventArray)->a_element[9] = nil;
+__ArrayInstPtr(anEventArray)->a_element[9] = nil;
-	    __ArrayInstPtr(anEventArray)->a_element[10] = ce->override_redirect ? true : false;
+__ArrayInstPtr(anEventArray)->a_element[10] = ce->override_redirect ? true : false;
-	    if (ce->event != None) {
+if (ce->event != None) {
-		t = __MKEXTERNALADDRESS(ce->event); __ArrayInstPtr(anEventArray)->a_element[3] = t; __STORE(anEventArray, t);
+t = __MKEXTERNALADDRESS(ce->event); __ArrayInstPtr(anEventArray)->a_element[3] = t; __STORE(anEventArray, t);
-	    }
+}
-	    if (ce->above != None) {
+if (ce->above != None) {
-		t = __MKEXTERNALADDRESS(ce->above); __ArrayInstPtr(anEventArray)->a_element[9] = t; __STORE(anEventArray, t);
+t = __MKEXTERNALADDRESS(ce->above); __ArrayInstPtr(anEventArray)->a_element[9] = t; __STORE(anEventArray, t);
-	    }
+}
-	    break;
+break;
-	case GravityNotify:
+case GravityNotify:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(gravityNotify:x:y:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(gravityNotify:x:y:);
-	    __ArrayInstPtr(anEventArray)->a_element[3] = __mkSmallInteger(gre->x);
+__ArrayInstPtr(anEventArray)->a_element[3] = __mkSmallInteger(gre->x);
-	    __ArrayInstPtr(anEventArray)->a_element[4] = __mkSmallInteger(gre->y);
+__ArrayInstPtr(anEventArray)->a_element[4] = __mkSmallInteger(gre->y);
-	    break;
+break;
-	case ResizeRequest:
+case ResizeRequest:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(resizeRequest:width:height:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(resizeRequest:width:height:);
-	    __ArrayInstPtr(anEventArray)->a_element[3] = __mkSmallInteger(rr->width);
+__ArrayInstPtr(anEventArray)->a_element[3] = __mkSmallInteger(rr->width);
-	    __ArrayInstPtr(anEventArray)->a_element[4] = __mkSmallInteger(rr->height);
+__ArrayInstPtr(anEventArray)->a_element[4] = __mkSmallInteger(rr->height);
-	    break;
+break;
-	case ConfigureRequest:
+case ConfigureRequest:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(configureRequest:x:y:width:height:above:detail:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(configureRequest:x:y:width:height:above:detail:);
-	    __ArrayInstPtr(anEventArray)->a_element[3] = __mkSmallInteger(cr->x);
+__ArrayInstPtr(anEventArray)->a_element[3] = __mkSmallInteger(cr->x);
-	    __ArrayInstPtr(anEventArray)->a_element[4] = __mkSmallInteger(cr->y);
+__ArrayInstPtr(anEventArray)->a_element[4] = __mkSmallInteger(cr->y);
-	    __ArrayInstPtr(anEventArray)->a_element[5] = __mkSmallInteger(cr->width);
+__ArrayInstPtr(anEventArray)->a_element[5] = __mkSmallInteger(cr->width);
-	    __ArrayInstPtr(anEventArray)->a_element[6] = __mkSmallInteger(cr->height);
+__ArrayInstPtr(anEventArray)->a_element[6] = __mkSmallInteger(cr->height);
-	    __ArrayInstPtr(anEventArray)->a_element[7] = nil;
+__ArrayInstPtr(anEventArray)->a_element[7] = nil;
-	    if (cr->above != None) {
+if (cr->above != None) {
-		t = __MKEXTERNALADDRESS(cr->above); __ArrayInstPtr(anEventArray)->a_element[7] = t; __STORE(anEventArray, t);
+t = __MKEXTERNALADDRESS(cr->above); __ArrayInstPtr(anEventArray)->a_element[7] = t; __STORE(anEventArray, t);
-	    }
+}
-	    switch (cr->detail) {
+switch (cr->detail) {
-		case Above:
+case Above:
-		    __ArrayInstPtr(anEventArray)->a_element[8] = @symbol(above);
+__ArrayInstPtr(anEventArray)->a_element[8] = @symbol(above);
-		    break;
+break;
-		case Below:
+case Below:
-		    __ArrayInstPtr(anEventArray)->a_element[8] = @symbol(below);
+__ArrayInstPtr(anEventArray)->a_element[8] = @symbol(below);
-		    break;
+break;
-		case TopIf:
+case TopIf:
-		    __ArrayInstPtr(anEventArray)->a_element[8] = @symbol(topIf);
+__ArrayInstPtr(anEventArray)->a_element[8] = @symbol(topIf);
-		    break;
+break;
-		case BottomIf:
+case BottomIf:
-		    __ArrayInstPtr(anEventArray)->a_element[8] = @symbol(bottomIf);
+__ArrayInstPtr(anEventArray)->a_element[8] = @symbol(bottomIf);
-		    break;
+break;
-		case Opposite:
+case Opposite:
-		    __ArrayInstPtr(anEventArray)->a_element[8] = @symbol(opposite);
+__ArrayInstPtr(anEventArray)->a_element[8] = @symbol(opposite);
-		    break;
+break;
-		default:
+default:
-		    __ArrayInstPtr(anEventArray)->a_element[8] = __MKSMALLINT(cr->detail);
+__ArrayInstPtr(anEventArray)->a_element[8] = __MKSMALLINT(cr->detail);
-		    break;
+break;
-	    }
+}
-	    break;
+break;
-	case CirculateNotify:
+case CirculateNotify:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(circulateNotify:place:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(circulateNotify:place:);
-	    goto circulate;
+goto circulate;
-	case CirculateRequest:
+case CirculateRequest:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(circulateRequest:place:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(circulateRequest:place:);
-	    /* fall into */
+/* fall into */
-	circulate:
+circulate:
-	    switch (cie->place) {
+switch (cie->place) {
-		case PlaceOnTop:
+case PlaceOnTop:
-		    __ArrayInstPtr(anEventArray)->a_element[3] = @symbol(placeOnTop);
+__ArrayInstPtr(anEventArray)->a_element[3] = @symbol(placeOnTop);
-		    break;
+break;
-		case PlaceOnBottom:
+case PlaceOnBottom:
-		    __ArrayInstPtr(anEventArray)->a_element[3] = @symbol(placeOnBottom);
+__ArrayInstPtr(anEventArray)->a_element[3] = @symbol(placeOnBottom);
-		    break;
+break;
-		default:
+default:
-		    __ArrayInstPtr(anEventArray)->a_element[3] = __MKSMALLINT(cie->place);
+__ArrayInstPtr(anEventArray)->a_element[3] = __MKSMALLINT(cie->place);
-		    break;
+break;
-	    }
+}
-	    break;
+break;
-	case PropertyNotify:
+case PropertyNotify:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(propertyChange:property:state:time:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(propertyChange:property:state:time:);
-	    __ArrayInstPtr(anEventArray)->a_element[3] = __MKATOMOBJ(pe->atom);
+__ArrayInstPtr(anEventArray)->a_element[3] = __MKATOMOBJ(pe->atom);
-	    switch (pe->state) {
+switch (pe->state) {
-		case PropertyNewValue:
+case PropertyNewValue:
-		    __ArrayInstPtr(anEventArray)->a_element[4] = @symbol(newValue);
+__ArrayInstPtr(anEventArray)->a_element[4] = @symbol(newValue);
-		    break;
+break;
-		case PropertyDelete:
+case PropertyDelete:
-		    __ArrayInstPtr(anEventArray)->a_element[4] = @symbol(deleted);
+__ArrayInstPtr(anEventArray)->a_element[4] = @symbol(deleted);
-		    break;
+break;
-		default:
+default:
-		    __ArrayInstPtr(anEventArray)->a_element[4] = __MKSMALLINT(pe->state);
+__ArrayInstPtr(anEventArray)->a_element[4] = __MKSMALLINT(pe->state);
-		    break;
+break;
-	    }
+}
-	    t = __MKUINT(pe->time); __ArrayInstPtr(anEventArray)->a_element[5] = t; __STORE(anEventArray, t);
+t = __MKUINT(pe->time); __ArrayInstPtr(anEventArray)->a_element[5] = t; __STORE(anEventArray, t);
-	    break;
+break;
-	case SelectionClear:
+case SelectionClear:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(selectionClear:selection:time:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(selectionClear:selection:time:);
-	    __ArrayInstPtr(anEventArray)->a_element[3] = __MKATOMOBJ(sce->selection);
+__ArrayInstPtr(anEventArray)->a_element[3] = __MKATOMOBJ(sce->selection);
-	    t = __MKUINT(sce->time); __ArrayInstPtr(anEventArray)->a_element[4] = t; __STORE(anEventArray, t);
+t = __MKUINT(sce->time); __ArrayInstPtr(anEventArray)->a_element[4] = t; __STORE(anEventArray, t);
-	    break;
+break;
-	case SelectionRequest:
+case SelectionRequest:
-	    /*
+/*
-	     * someone wants the selection
+* someone wants the selection
-	     */
+*/
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(selectionRequest:requestor:selection:target:property:time:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(selectionRequest:requestor:selection:target:property:time:);
-	    t = __MKEXTERNALADDRESS(ev.xselectionrequest.requestor); __ArrayInstPtr(anEventArray)->a_element[3] = t; __STORE(anEventArray, t);
+t = __MKEXTERNALADDRESS(ev.xselectionrequest.requestor); __ArrayInstPtr(anEventArray)->a_element[3] = t; __STORE(anEventArray, t);
-	    __ArrayInstPtr(anEventArray)->a_element[4] = __MKATOMOBJ(ev.xselectionrequest.selection);
+__ArrayInstPtr(anEventArray)->a_element[4] = __MKATOMOBJ(ev.xselectionrequest.selection);
-	    __ArrayInstPtr(anEventArray)->a_element[5] = __MKATOMOBJ(ev.xselectionrequest.target);
+__ArrayInstPtr(anEventArray)->a_element[5] = __MKATOMOBJ(ev.xselectionrequest.target);
-	    __ArrayInstPtr(anEventArray)->a_element[6] = __MKATOMOBJ(ev.xselectionrequest.property);
+__ArrayInstPtr(anEventArray)->a_element[6] = __MKATOMOBJ(ev.xselectionrequest.property);
-	    t = __MKUINT(ev.xselectionrequest.time); __ArrayInstPtr(anEventArray)->a_element[7] = t; __STORE(anEventArray, t);
+t = __MKUINT(ev.xselectionrequest.time); __ArrayInstPtr(anEventArray)->a_element[7] = t; __STORE(anEventArray, t);
-	    break;
+break;
-	case SelectionNotify:
+case SelectionNotify:
-	    /*
+/*
-	     * returned selection value (answer from SelectionRequest)
+* returned selection value (answer from SelectionRequest)
-	     */
+*/
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(selectionNotify:selection:target:property:requestor:time:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(selectionNotify:selection:target:property:requestor:time:);
-	    __ArrayInstPtr(anEventArray)->a_element[3] = __MKATOMOBJ(ev.xselection.selection);
+__ArrayInstPtr(anEventArray)->a_element[3] = __MKATOMOBJ(ev.xselection.selection);
-	    __ArrayInstPtr(anEventArray)->a_element[4] = __MKATOMOBJ(ev.xselection.target);
+__ArrayInstPtr(anEventArray)->a_element[4] = __MKATOMOBJ(ev.xselection.target);
-	    __ArrayInstPtr(anEventArray)->a_element[5] = __MKATOMOBJ(ev.xselection.property);
+__ArrayInstPtr(anEventArray)->a_element[5] = __MKATOMOBJ(ev.xselection.property);
-	    t = __MKEXTERNALADDRESS(ev.xselection.requestor); __ArrayInstPtr(anEventArray)->a_element[6] = t; __STORE(anEventArray, t);
+t = __MKEXTERNALADDRESS(ev.xselection.requestor); __ArrayInstPtr(anEventArray)->a_element[6] = t; __STORE(anEventArray, t);
-	    t = __MKUINT(ev.xselection.time); __ArrayInstPtr(anEventArray)->a_element[7] = t; __STORE(anEventArray, t);
+t = __MKUINT(ev.xselection.time); __ArrayInstPtr(anEventArray)->a_element[7] = t; __STORE(anEventArray, t);
-	    break;
+break;
-	case ColormapNotify:
+case ColormapNotify:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(colormapNotify:state:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(colormapNotify:state:);
-	    __ArrayInstPtr(anEventArray)->a_element[3] = cme->state == ColormapInstalled ? true : false;
+__ArrayInstPtr(anEventArray)->a_element[3] = cme->state == ColormapInstalled ? true : false;
-	    break;
+break;
-	case ClientMessage:
+case ClientMessage:
-	    if (ev.xclient.message_type == (int) __AtomVal(__INST(protocolsAtom))) {
+if (ev.xclient.message_type == (int) __AtomVal(__INST(protocolsAtom))) {
-		if ((ev.xclient.data.l[0] == (int) __AtomVal(__INST(quitAppAtom)))
+if ((ev.xclient.data.l[0] == (int) __AtomVal(__INST(quitAppAtom)))
-		 || (ev.xclient.data.l[0] == (int) __AtomVal(__INST(deleteWindowAtom)))) {
+|| (ev.xclient.data.l[0] == (int) __AtomVal(__INST(deleteWindowAtom)))) {
-		    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(terminateView:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(terminateView:);
-		    break;
+break;
-		}
+}
-		if (ev.xclient.data.l[0] == (int) __AtomVal(__INST(saveYourselfAtom))) {
+if (ev.xclient.data.l[0] == (int) __AtomVal(__INST(saveYourselfAtom))) {
-		    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(saveAndTerminateView:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(saveAndTerminateView:);
-		    break;
+break;
-		}
+}
-	    }
+}
-	    /*
+/*
-	     * any other client message
+* any other client message
-	     */
+*/
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(clientMessage:type:format:data:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(clientMessage:type:format:data:);
-	    __ArrayInstPtr(anEventArray)->a_element[3] = __MKATOMOBJ(ev.xclient.message_type);
+__ArrayInstPtr(anEventArray)->a_element[3] = __MKATOMOBJ(ev.xclient.message_type);
-	    __ArrayInstPtr(anEventArray)->a_element[4] = __MKSMALLINT(ev.xclient.format);
+__ArrayInstPtr(anEventArray)->a_element[4] = __MKSMALLINT(ev.xclient.format);
-	    t = __MKBYTEARRAY(&ev.xclient.data, sizeof(ev.xclient.data)); __ArrayInstPtr(anEventArray)->a_element[5] = t; __STORE(anEventArray, t);
+t = __MKBYTEARRAY(&ev.xclient.data, sizeof(ev.xclient.data)); __ArrayInstPtr(anEventArray)->a_element[5] = t; __STORE(anEventArray, t);
-	    break;
+break;
-	case MappingNotify:
+case MappingNotify:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(mappingNotify:request:event:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(mappingNotify:request:event:);
-	    switch(mape->request) {
+switch(mape->request) {
-		case MappingModifier:
+case MappingModifier:
-		    arg = @symbol(mappingModifier);
+arg = @symbol(mappingModifier);
-		    break;
+break;
-		case MappingKeyboard:
+case MappingKeyboard:
-		    arg = @symbol(mappingKeyboard);
+arg = @symbol(mappingKeyboard);
-		    break;
+break;
-		case MappingPointer:
+case MappingPointer:
-		    arg = @symbol(mappingPointer);
+arg = @symbol(mappingPointer);
-		    break;
+break;
-		default:
+default:
-		    arg = __MKSMALLINT(mape->request);
+arg = __MKSMALLINT(mape->request);
-		    break;
+break;
-	    }
+}
-	    __ArrayInstPtr(anEventArray)->a_element[3] = arg;
+__ArrayInstPtr(anEventArray)->a_element[3] = arg;
-	    t = __MKBYTEARRAY(&ev, sizeof(*mape)); __ArrayInstPtr(anEventArray)->a_element[4] = t;
+t = __MKBYTEARRAY(&ev, sizeof(*mape)); __ArrayInstPtr(anEventArray)->a_element[4] = t;
-	    __STORE(anEventArray, t);
+__STORE(anEventArray, t);
-	    break;
+break;
-	case KeymapNotify:
+case KeymapNotify:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(keymapNotify:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(keymapNotify:);
-	    break;
+break;
-	case MapRequest:
+case MapRequest:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(mapRequest:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(mapRequest:);
-	    break;
+break;
-	case ReparentNotify:
+case ReparentNotify:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(reparentedView:parentId:x:y:);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(reparentedView:parentId:x:y:);
-	    t = __MKEXTERNALADDRESS(rpe->parent);
+t = __MKEXTERNALADDRESS(rpe->parent);
-	    __ArrayInstPtr(anEventArray)->a_element[3] = t; __STORE(anEventArray, t);
+__ArrayInstPtr(anEventArray)->a_element[3] = t; __STORE(anEventArray, t);
-	    __ArrayInstPtr(anEventArray)->a_element[4] = __mkSmallInteger(rpe->x);
+__ArrayInstPtr(anEventArray)->a_element[4] = __mkSmallInteger(rpe->x);
-	    __ArrayInstPtr(anEventArray)->a_element[5] = __mkSmallInteger(rpe->y);
+__ArrayInstPtr(anEventArray)->a_element[5] = __mkSmallInteger(rpe->y);
-	    break;
+break;
-	default:
+default:
-	    __ArrayInstPtr(anEventArray)->a_element[2] = @symbol(unknownX11Event);
+__ArrayInstPtr(anEventArray)->a_element[2] = @symbol(unknownX11Event);
-	    break;
+break;
 }
 #undef ae
 #undef ee
 #undef ke
 #undef be
 #undef cme
 %}.
 ^ true
+"Modified: / 17-05-2018 / 18:26:09 / Stefan Vogel"
 !
 handleAllEvents
 "from now on, handle any kind of event"
 "grap the pointer - return true if ok"
 <context: #return>
 %{
-int result, ok, evMask;
+int result, ok;
+unsigned int evMask;
 Window confineWin;
 Cursor curs;
 int pointer_mode, keyboard_mode;
 if (ISCONNECTED) {
-	if (__isExternalAddress(aWindowId)) {
+if (__isExternalAddress(aWindowId)) {
-	    if (__isExternalAddress(confineId))
+if (__isExternalAddress(confineId))
-		confineWin = __WindowVal(confineId);
+confineWin = __WindowVal(confineId);
-	    else
+else
-		confineWin = (Window) None;
+confineWin = (Window) None;
-	    if (__isExternalAddress(aCursorId))
+if (__isExternalAddress(aCursorId))
-		curs = __CursorVal(aCursorId);
+curs = __CursorVal(aCursorId);
-	    else
+else
-		curs = (Cursor) None;
+curs = (Cursor) None;
-	    if (pMode == @symbol(sync))
+if (pMode == @symbol(sync))
-		pointer_mode = GrabModeSync;
+pointer_mode = GrabModeSync;
-	    else
+else
-		pointer_mode = GrabModeAsync;
+pointer_mode = GrabModeAsync;
-	    if (kMode == @symbol(sync))
+if (kMode == @symbol(sync))
-		keyboard_mode = GrabModeSync;
+keyboard_mode = GrabModeSync;
-	    else
+else
-		keyboard_mode = GrabModeAsync;
+keyboard_mode = GrabModeAsync;
-	    if (__isSmallInteger(eventMask))
+if (__isSmallInteger(eventMask))
-		evMask = __intVal(eventMask);
+evMask = __intVal(eventMask);
-	    else
+else
-		evMask = ButtonPressMask | ButtonMotionMask | PointerMotionMask | ButtonReleaseMask;
+evMask = ButtonPressMask | ButtonMotionMask | PointerMotionMask | ButtonReleaseMask;
 /*
-	    ENTER_XLIB();
+ENTER_XLIB();
 */
-	    result = XGrabPointer(myDpy,
+result = XGrabPointer(myDpy,
-				  __WindowVal(aWindowId),
+__WindowVal(aWindowId),
-				  False,
+False,
-				  evMask,
+evMask,
-				  pointer_mode, keyboard_mode,
+pointer_mode, keyboard_mode,
-				  confineWin,
+confineWin,
-				  curs,
+curs,
-				  CurrentTime);
+CurrentTime);
 /*
-	    LEAVE_XLIB();
+LEAVE_XLIB();
 */
-	    ok = 0;
+ok = 0;
-	    switch (result) {
+switch (result) {
-		case AlreadyGrabbed:
+case AlreadyGrabbed:
-		    if (@global(ErrorPrinting) == true) {
+if (@global(ErrorPrinting) == true) {
-			console_fprintf(stderr, "XWorkstation [warning]: grab pointer: AlreadyGrabbed\n");
+console_fprintf(stderr, "XWorkstation [warning]: grab pointer: AlreadyGrabbed\n");
-		    }
+}
-		    break;
+break;
-		case GrabNotViewable:
+case GrabNotViewable:
-		    if (@global(ErrorPrinting) == true) {
+if (@global(ErrorPrinting) == true) {
-			console_fprintf(stderr, "XWorkstation [warning]: grab pointer: GrabNotViewable\n");
+console_fprintf(stderr, "XWorkstation [warning]: grab pointer: GrabNotViewable\n");
-		    }
+}
-		    break;
+break;
-		case GrabInvalidTime:
+case GrabInvalidTime:
-		    if (@global(ErrorPrinting) == true) {
+if (@global(ErrorPrinting) == true) {
-			console_fprintf(stderr, "XWorkstation [warning]: grab pointer: InvalidTime\n");
+console_fprintf(stderr, "XWorkstation [warning]: grab pointer: InvalidTime\n");
-		    }
+}
-		    break;
+break;
-		case GrabFrozen:
+case GrabFrozen:
-		    if (@global(ErrorPrinting) == true) {
+if (@global(ErrorPrinting) == true) {
-			console_fprintf(stderr, "XWorkstation [warning]: grab pointer: Frozen\n");
+console_fprintf(stderr, "XWorkstation [warning]: grab pointer: Frozen\n");
-		    }
+}
-		    break;
+break;
-		default:
+default:
-		    ok = 1;
+ok = 1;
-		    break;
+break;
-	    }
+}
-	    if (! ok) {
+if (! ok) {
 /*
-		ENTER_XLIB();
+ENTER_XLIB();
 */
-		XUngrabPointer(myDpy, CurrentTime);
+XUngrabPointer(myDpy, CurrentTime);
 /*
-		LEAVE_XLIB();
+LEAVE_XLIB();
 */
-		RETURN (false);
+RETURN (false);
-	    }
+}
-	    RETURN ( true );
+RETURN ( true );
-	}
+}
 }
 %}.
 self primitiveFailedOrClosedConnection.
 ^ false
+"Modified: / 17-05-2018 / 18:27:33 / Stefan Vogel"
 !
 grabPointerIn:aWindowId withCursor:aCursorId pointerMode:pMode keyboardMode:kMode confineTo:confineId
 "grap the pointer - return true if ok"
 "
 <context: #return>
 %{
-int modifierMask = AnyModifier;
+unsigned int modifierMask = AnyModifier;
 KeySym keySym, *syms;
 if (__isStringLike(keySymCodeOrChar)) {
-	keySym = XStringToKeysym(__stringVal(keySymCodeOrChar));
+keySym = XStringToKeysym(__stringVal(keySymCodeOrChar));
 } else {
-	if (__isCharacter(keySymCodeOrChar)) {
+if (__isCharacter(keySymCodeOrChar)) {
-	    char s[2];
+char s[2];
-	    s[0] = __intVal(__characterVal(keySymCodeOrChar));
+s[0] = __intVal(__characterVal(keySymCodeOrChar));
-	    s[1] = '\0';
+s[1] = '\0';
-	    keySym = XStringToKeysym(s);
+keySym = XStringToKeysym(s);
-	} else {
+} else {
-	    if (__isSmallInteger(keySymCodeOrChar)) {
+if (__isSmallInteger(keySymCodeOrChar)) {
-		keySym = (KeySym) __intVal(keySymCodeOrChar);
+keySym = (KeySym) __intVal(keySymCodeOrChar);
-	    } else {
+} else {
-		goto notOK;
+goto notOK;
-	    }
+}
-	}
+}
 }
 if (modifierMaskOrNil != nil) {
-	if (__isSmallInteger(modifierMaskOrNil)) {
+if (__isSmallInteger(modifierMaskOrNil)) {
-	    modifierMask = __intVal(modifierMaskOrNil);
+modifierMask = __intVal(modifierMaskOrNil);
-	} else {
+} else {
-	    goto notOK;
+goto notOK;
-	}
+}
 }
 if (ISCONNECTED) {
-	Display *dpy;
+Display *dpy;
-	Window window;
+Window window;
-	int keyCode;
+int keyCode;
-	int result;
+int result;
-	int mKbd, mPtr;
+int mKbd, mPtr;
-	mKbd = modeKbd == @symbol(GrabModeAsync) ? GrabModeAsync :GrabModeSync;
+mKbd = modeKbd == @symbol(GrabModeAsync) ? GrabModeAsync :GrabModeSync;
-	mPtr = modePtr == @symbol(GrabModeAsync) ? GrabModeAsync :GrabModeSync;
+mPtr = modePtr == @symbol(GrabModeAsync) ? GrabModeAsync :GrabModeSync;
-	dpy = myDpy;
+dpy = myDpy;
-	keyCode = XKeysymToKeycode(dpy, keySym);
+keyCode = XKeysymToKeycode(dpy, keySym);
-	if (__isExternalAddress(aWindowIdOrNil)) {
+if (__isExternalAddress(aWindowIdOrNil)) {
-	    window = __WindowVal(aWindowIdOrNil);
+window = __WindowVal(aWindowIdOrNil);
-	} else {
+} else {
-	    int screen;
+int screen;
-	    screen = DefaultScreen(dpy);
+screen = DefaultScreen(dpy);
-	    window = RootWindow(dpy, screen);
+window = RootWindow(dpy, screen);
-	}
+}
-	ENTER_XLIB();
+ENTER_XLIB();
-	result = XGrabKey (dpy,
+result = XGrabKey (dpy,
-	    keyCode, modifierMask, window,
+keyCode, modifierMask, window,
-	    False, mKbd, mPtr );
+False, mKbd, mPtr );
-	XSync(dpy, True);
+XSync(dpy, True);
-	XFlush(dpy);
+XFlush(dpy);
-	LEAVE_XLIB();
+LEAVE_XLIB();
-	if (result != Success) {
+if (result != Success) {
-	    if (result == BadAccess) {
+if (result == BadAccess) {
-		__INST(lastError) = @symbol(badAccess);
+__INST(lastError) = @symbol(badAccess);
-	    } else {
+} else {
-		__INST(lastError) = @symbol(other);
+__INST(lastError) = @symbol(other);
-	    }
+}
-	    RETURN (false);
+RETURN (false);
-	}
+}
-	RETURN (true);
+RETURN (true);
 }
 notOK: ;
 %}.
 self primitiveFailedOrClosedConnection
 "Modified: / 03-05-2018 / 16:27:51 / stefan"
+"Modified: / 17-05-2018 / 18:29:18 / Stefan Vogel"
 !
 grabKey:keySymCodeOrChar modifier:modifierMaskOrNil window:aWindowIdOrNil
 "grab a single key either for an individual window
 or the whole screen (if aWindowIdOrNil is nil).

changeset 8368	03bf464aa8c8
parent 8367	e0d6816f072b
child 8386	184439a867ee