polyml/libpolyml/xwindows.cpp

451   X_Display_Object *ds;    /* Token */
458   X_Display_Object *ds;     /* Token */
465   X_Display_Object *ds;      /* Token */
472   X_Display_Object *ds;    /* Token */
481   X_Display_Object *ds;           /* Token */
488   X_Display_Object *ds;      /* Token */
499   X_Display_Object *ds;          /* Token */
514   X_Display_Object  *ds;               /* Token */
874             Display *d  =  G->ds->display;
876             if (gc == DefaultGC(d,G->ds->screen))
1064         case X_GC:       if (((X_GC_Object*)P)->ds == d && (*((X_GC_Object*)P)->gc)->gid          == id) return P; break;
1065         case X_Font:     if (((X_Font_Object*)P)->ds == d && (*((X_Font_Object*)P)->font)             == id) return P; break;
1066         case X_Cursor:   if (((X_Cursor_Object*)P)->ds == d && (*((X_Cursor_Object*)P)->cursor)           == id) return P; break;
1067         case X_Window:   if (((X_Window_Object*)P)->ds == d && (*((X_Window_Object*)P)->drawable)         == id) return P; break;
1068         case X_Pixmap:   if (((X_Pixmap_Object*)P)->ds == d && (*((X_Pixmap_Object*)P)->pixmap)           == id) return P; break;
1069         case X_Colormap: if (((X_Colormap_Object*)P)->ds == d && (*((X_Colormap_Object*)P)->cmap)             == id) return P; break;
1070         case X_Visual:   if (((X_Visual_Object*)P)->ds == d && (*((X_Visual_Object*)P)->visual)->visualid == id) return P; break;
1317     object->ds   = DEREFDISPLAYHANDLE(dsHandle);
1373     object->ds     = DEREFDISPLAYHANDLE(dsHandle);
1430     object->ds   = DEREFDISPLAYHANDLE(dsHandle);
1513   object->ds   = DEREFDISPLAYHANDLE(dsHandle);
1601     object->ds        = DEREFDISPLAYHANDLE(dsHandle);
1680     object->ds     = DEREFDISPLAYHANDLE(dsHandle);
1716   X_Display_Object *ds;
1722     case X_GC:       ds = ((X_GC_Object*)P)->ds; break;
1723     case X_Font:     ds = ((X_Font_Object*)P)->ds; break;
1724     case X_Cursor:   ds = ((X_Cursor_Object*)P)->ds; break;
1725     case X_Window:   ds = ((X_Window_Object*)P)->ds; break;
1726     case X_Pixmap:   ds = ((X_Pixmap_Object*)P)->ds; break;
1727     case X_Colormap: ds = ((X_Colormap_Object*)P)->ds; break;
1728     case X_Visual:   ds = ((X_Visual_Object*)P)->ds; break;
1729     case X_Widget:   ds = ((X_Widget_Object*)P)->ds; break;
1730     case X_Display:  ds = (X_Display_Object*)P; break; /* i.e. P cast to the right type */
1735   assert((PolyWord)ds != TAGGED(0));
1737   return SAVE(ds);
1747     case X_GC:       return ((X_GC_Object*)P)->ds->display;
1748     case X_Font:     return ((X_Font_Object*)P)->ds->display;
1749     case X_Cursor:   return ((X_Cursor_Object*)P)->ds->display;
1750     case X_Window:   return ((X_Window_Object*)P)->ds->display;
1751     case X_Pixmap:   return ((X_Pixmap_Object*)P)->ds->display;
1752     case X_Colormap: return ((X_Colormap_Object*)P)->ds->display;
1753     case X_Visual:   return ((X_Visual_Object*)P)->ds->display;
1754     case X_Widget:   return ((X_Widget_Object*)P)->ds->display;
1815     object->ds   = DEREFDISPLAYHANDLE(dsHandle);
1878     object->ds     = DEREFDISPLAYHANDLE(dsHandle);
2027     object->ds           = DEREFDISPLAYHANDLE(dsHandle);
2160   object->ds        = DEREFWINDOWHANDLE(parentHandle)->ds; /* Tidy up (?) */
5736 #define ds DEREFDISPLAYHANDLE(dsHandle)
5738     ds->type        = TAGGED(X_Display);
5739     ds->display     = display;
5740     ds->screen      = DefaultScreen(display);
5741     ds->app_context = 0;
5742 #undef ds