polyml/libpolyml/xwindows.cpp

280 #define DEREFDISPLAYHANDLE(h) ((X_Display_Object *)DEREFHANDLE(h))
281 #define DEREFWINDOWHANDLE(h)  ((X_Window_Object *)DEREFHANDLE(h))
282 #define DEREFXOBJECTHANDLE(h) ((X_Object *)DEREFHANDLE(h))
309     PolyObject *pt = DEREFHANDLE(P);
685         list = SAVE(DEREFHANDLE(next));
708         list = SAVE(DEREFHANDLE(next));
733         list = SAVE(DEREFHANDLE(next));
1104   L->object = (X_Object *)DEREFHANDLE(objectHandle);
1136 #define point ((MLXPoint *)DEREFHANDLE(pointHandle))
1198 #define rect ((MLXRectangle *)DEREFHANDLE(rectHandle))
1310     X_Colormap_Object *object = (X_Colormap_Object *)DEREFHANDLE(objectHandle);
1311     Colormap          *cmap   = (Colormap *)DEREFHANDLE(cmapHandle);
1366     X_Visual_Object *object = (X_Visual_Object *)DEREFHANDLE(objectHandle);
1367     Visual         **visual = (Visual **)DEREFHANDLE(visualHandle);
1421     X_GC_Object *object  = (X_GC_Object *)DEREFHANDLE(objectHandle);
1422     GC          *gc      = (GC *)DEREFHANDLE(GCHandle);
1503   X_GC_Object *object  = (X_GC_Object *)DEREFHANDLE(objectHandle);
1504   GC          *gc      = (GC *)DEREFHANDLE(GCHandle);
1575     Drawable        *drawable  = (Drawable *)DEREFHANDLE(drawableHandle);
1576     PolyObject      *eventMask = DEREFHANDLE(eventMaskHandle);
1673     X_Pixmap_Object *object  = (X_Pixmap_Object *)DEREFHANDLE(objectHandle);
1674     Pixmap          *pixmap  = (Pixmap *)DEREFHANDLE(pixmapHandle);
1805     X_Font_Object *object = (X_Font_Object *)DEREFHANDLE(objectHandle);
1806     Font          *font   = (Font *)DEREFHANDLE(fontHandle);
1807     XFontStruct  **xfstr  = (XFontStruct **)DEREFHANDLE(FSHandle);
1871     X_Cursor_Object *object = (X_Cursor_Object *)DEREFHANDLE(objectHandle);
1872     Cursor          *cursor = (Cursor *)DEREFHANDLE(cursorHandle);
2018     X_Widget_Object *object = (X_Widget_Object *)DEREFHANDLE(objectHandle);
2019     Widget          *widget = (Widget *)DEREFHANDLE(widgetHandle);
2137   Drawable        *drawable  = (Drawable *)DEREFHANDLE(drawableHandle);
2138   PolyObject      *eventMask = DEREFHANDLE(eventMaskHandle);
2157   object->handler   = DEREFHANDLE(handlerHandle);
2158   object->state     = DEREFHANDLE(stateHandle);
2168   if (ISNIL(DEREFHANDLE(handlerHandle))) Crash ("No handler set");
2291   X_Trans_Object *object = (X_Trans_Object *)DEREFHANDLE(objectHandle);
2317   X_Acc_Object *object = (X_Acc_Object *)DEREFHANDLE(objectHandle);
2425 #define tuple /* hack */((MLXStandardColormap *)DEREFHANDLE(tupleHandle))
2426   tuple->Colormap  = (X_Colormap_Object *)DEREFHANDLE(EmptyColormap(taskData, dsHandle,s->colormap));
2434   tuple->visual    = (X_Visual_Object *)DEREFHANDLE(EmptyVisual(taskData, dsHandle,T.visual));
2461 #define pair ((MLPair *)DEREFHANDLE(pairHandle))
2493 #define triple ((MLTriple *)DEREFHANDLE(tripleHandle))
2590 #define  X ((MLXImage *)DEREFHANDLE(XHandle))
3177 #define event ((ML_Event *)DEREFHANDLE(eventHandle))
3189 #define data ((ML_KeyEvent_Data *)DEREFHANDLE(dataHandle))
3193       data->pointer     = (MLXPoint *)DEREFHANDLE(CreatePoint(taskData, ev->xkey.x,ev->xkey.y));
3194       data->rootPointer = (MLXPoint *)DEREFHANDLE(CreatePoint(taskData, ev->xkey.x_root,ev->xkey.y_root));
3199       event->data = DEREFHANDLE(FINISHED(taskData, dataHandle));
3222 #define data ((ML_ButtonClick_Data *)DEREFHANDLE(dataHandle))
3226         data->pointer     = (MLXPoint *)       DEREFHANDLE(CreatePoint(taskData, ev->xbutton.x,ev->xbutton.y));
3227         data->rootPointer = (MLXPoint *)       DEREFHANDLE(CreatePoint(taskData, ev->xbutton.x_root,ev->xbutton.y_root));
3242 #define data ((ML_ButtonEvent_Data *)DEREFHANDLE(dataHandle))
3246         data->pointer     = (MLXPoint *)       DEREFHANDLE(CreatePoint(taskData, ev->xbutton.x,ev->xbutton.y));
3247         data->rootPointer = (MLXPoint *)       DEREFHANDLE(CreatePoint(taskData, ev->xbutton.x_root,ev->xbutton.y_root));
3265 #define data ((ML_MotionEvent_Data *)DEREFHANDLE(dataHandle))
3269       data->pointer     = (MLXPoint *)       DEREFHANDLE(CreatePoint(taskData, ev->xmotion.x,ev->xmotion.y));
3270       data->rootPointer = (MLXPoint *)       DEREFHANDLE(CreatePoint(taskData, ev->xmotion.x_root,ev->xmotion.y_root));
3286 #define data ((ML_CrossingEvent_Data *)DEREFHANDLE(dataHandle))
3290       data->pointer     = (MLXPoint *)       DEREFHANDLE(CreatePoint(taskData, ev->xcrossing.x,ev->xcrossing.y));
3291       data->rootPointer = (MLXPoint *)       DEREFHANDLE(CreatePoint(taskData, ev->xcrossing.x_root,ev->xcrossing.y_root));
3329 #define data ((ML_ExposeEvent_Data *)DEREFHANDLE(dataHandle))
3330       data->region = (MLXRectangle *)DEREFHANDLE(CreateRect(taskData, top,left,bottom,right));
3349 #define data ((ML_GraphicsExposeEvent_Data *)DEREFHANDLE(dataHandle))
3350       data->region = (MLXRectangle *)DEREFHANDLE(CreateRect(taskData, top,left,bottom,right));
3371 #define data ((ML_ConfigureNotify_Data *)DEREFHANDLE(dataHandle))
3373       data->position         = (MLXPoint *)       DEREFHANDLE(CreatePoint(taskData, ev->xconfigure.x,ev->xconfigure.y));
3374       data->size             = (MLXRectangle *)   DEREFHANDLE(CreateArea(ev->xconfigure.width,ev->xconfigure.height));
3392 #define data ((ML_FocusChangeEvent_Data *)DEREFHANDLE(dataHandle))
3414 #define data ((ML_CreateEvent_Data *)DEREFHANDLE(dataHandle))
3416       data->position         = (MLXPoint *)       DEREFHANDLE(CreatePoint(taskData, ev->xcreatewindow.x,ev->xcreatewindow.y));
3417       data->size             = (MLXRectangle *)   DEREFHANDLE(CreateArea(ev->xcreatewindow.width,ev->xcreatewindow.height));
3422       event->data = DEREFHANDLE(FINISHED(taskData, dataHandle));
3439 #define data ((ML_UnmapEvent_Data *)DEREFHANDLE(dataHandle))
3453 #define data ((ML_MapEvent_Data *)DEREFHANDLE(dataHandle))
3475 #define data ((ML_ReparentEvent_Data *)DEREFHANDLE(dataHandle))
3478       data->position         = (MLXPoint *)       DEREFHANDLE(CreatePoint(taskData, ev->xreparent.x,ev->xreparent.y));
3492 #define data ((ML_ConfigureRequest_Data *)DEREFHANDLE(dataHandle))
3494       data->position    = (MLXPoint *)       DEREFHANDLE(CreatePoint(taskData, ev->xconfigurerequest.x,ev->xconfigurerequest.y));
3495       data->size        = (MLXRectangle *)   DEREFHANDLE(CreateArea(ev->xconfigurerequest.width,ev->xconfigurerequest.height));
3510 #define data ((ML_GravityEvent_Data *)DEREFHANDLE(dataHandle))
3512       data->position = (MLXPoint *)       DEREFHANDLE(CreatePoint(taskData, ev->xgravity.x,ev->xgravity.y));
3532 #define data ((ML_CirculateEvent_Data *)DEREFHANDLE(dataHandle))
3546 #define data ((ML_CirculateEvent_Data *)DEREFHANDLE(dataHandle))
3560 #define data ((ML_ColormapEvent_Data *)DEREFHANDLE(dataHandle))
3561       data->colormap_object = (X_Colormap_Object *)DEREFHANDLE(EmptyColormap(taskData, dsHandle,ev->xcolormap.colormap));
3581 #define data ((ML_SelectionClear_Data *)DEREFHANDLE(dataHandle))
3595 #define data ((ML_Selection_Data *)DEREFHANDLE(dataHandle))
3611 #define data ((ML_SelectionRequest_Data *)DEREFHANDLE(dataHandle))
3691 #define data DEREFHANDLE(tuple)
3759 #define data DEREFHANDLE(tuple)
3791 #define data DEREFHANDLE(tuple)
4023 #define data DEREFHANDLE(dataHandle)
4051   DEREFHANDLE(dataHandle)->Set( 0, DEREFWORD(CreatePoint(taskData, wa.x,wa.y)));
4052   DEREFHANDLE(dataHandle)->Set( 1, DEREFWORD(CreateArea(wa.width,wa.height)));
4053   DEREFHANDLE(dataHandle)->Set( 2, DEREFWORD(Make_int(wa.border_width)));
4054   DEREFHANDLE(dataHandle)->Set( 3, DEREFWORD(Make_arbitrary_precision(taskData, wa.depth)));
4055   DEREFHANDLE(dataHandle)->Set( 4, DEREFWORD(EmptyVisual(taskData, dsHandle,wa.visual)));
4056   DEREFHANDLE(dataHandle)->Set( 5, DEREFWORD(EmptyWindow(taskData, dsHandle,wa.root)));
4057   DEREFHANDLE(dataHandle)->Set( 6, DEREFWORD(Make_arbitrary_precision(taskData, wa.c_class)));
4058   DEREFHANDLE(dataHandle)->Set( 7, DEREFWORD(Make_arbitrary_precision(taskData, wa.bit_gravity)));
4059   DEREFHANDLE(dataHandle)->Set( 8, DEREFWORD(Make_arbitrary_precision(taskData, wa.win_gravity)));
4060   DEREFHANDLE(dataHandle)->Set( 9, DEREFWORD(Make_arbitrary_precision(taskData, wa.backing_store)));
4061   DEREFHANDLE(dataHandle)->Set(10, DEREFWORD(Make_arbitrary_precision(taskData, wa.backing_planes)));
4062   DEREFHANDLE(dataHandle)->Set(11, DEREFWORD(Make_arbitrary_precision(taskData, wa.backing_pixel)));
4063   DEREFHANDLE(dataHandle)->Set(12, DEREFWORD(Make_bool(wa.save_under)));
4064   DEREFHANDLE(dataHandle)->Set(13, DEREFWORD(EmptyColormap(taskData, dsHandle,wa.colormap)));
4065   DEREFHANDLE(dataHandle)->Set(14, DEREFWORD(Make_bool(wa.map_installed)));
4066   DEREFHANDLE(dataHandle)->Set(15, DEREFWORD(Make_arbitrary_precision(taskData, wa.map_state)));
4067   DEREFHANDLE(dataHandle)->Set(16, DEREFWORD(Make_arbitrary_precision(taskData, wa.all_event_masks)));
4068   DEREFHANDLE(dataHandle)->Set(17, DEREFWORD(Make_arbitrary_precision(taskData, wa.your_event_mask)));
4069   DEREFHANDLE(dataHandle)->Set(18, DEREFWORD(Make_arbitrary_precision(taskData, wa.do_not_propagate_mask)));
4070   DEREFHANDLE(dataHandle)->Set(19, DEREFWORD(Make_bool(wa.override_redirect)));
4180 #define X ((MLXColor *)DEREFHANDLE(XHandle))
4303 #define data DEREFHANDLE(tuple)
4744 #define event ((ML_Event *)DEREFHANDLE(E))
4835 #define event ((ML_Event *)DEREFHANDLE(E))
5004 #define data ((MLXCharStruct *)DEREFHANDLE(dataHandle))
5048 #define data ((MLXFontStruct *)DEREFHANDLE(dataHandle))
5049   data->font_object   = (X_Font_Object *)DEREFHANDLE(EmptyFont(taskData, dsHandle,fs->fid,fs));
5054   data->perChar       = DEREFHANDLE(CreateList4(taskData,n,fs->per_char,sizeof(XCharStruct),CreateCharStruct));
5058   data->maxBounds     = (MLXCharStruct *)DEREFHANDLE(CreateCharStruct(taskData, &fs->max_bounds));
5059   data->minBounds     = (MLXCharStruct *)DEREFHANDLE(CreateCharStruct(taskData, &fs->min_bounds));
5238 #define data DEREFHANDLE(dataHandle)
5261 #define data DEREFHANDLE(dataHandle)
5299 #define data DEREFHANDLE(tuple)
5445         PolyStringObject *s = GetString (DEREFHANDLE(list));
5512 #define data DEREFHANDLE(tuple)
5550 #define data DEREFHANDLE(tuple)
6154         GList = (ML_Cons_Cell *)DEREFHANDLE(CreatePair(taskData, pairHandle,tailHandle));
6165   C->function = DEREFHANDLE(p);
7330 #define P0  DEREFHANDLE(params)->Get(0)
7331 #define P1  DEREFHANDLE(params)->Get(1)
7332 #define P2  DEREFHANDLE(params)->Get(2)
7333 #define P3  DEREFHANDLE(params)->Get(3)
7334 #define P4  DEREFHANDLE(params)->Get(4)
7335 #define P5  DEREFHANDLE(params)->Get(5)
7336 #define P6  DEREFHANDLE(params)->Get(6)
7337 #define P7  DEREFHANDLE(params)->Get(7)
7338 #define P8  DEREFHANDLE(params)->Get(8)
7339 #define P9  DEREFHANDLE(params)->Get(9)
7340 #define P10 DEREFHANDLE(params)->Get(10)
7341 #define P11 DEREFHANDLE(params)->Get(11)
7342 #define P12 DEREFHANDLE(params)->Get(12)
7359     if ((debugOptions & DEBUG_X)) DebugPrintCode(DEREFHANDLE(params));