polyml/libpolyml/xwindows.cpp

2513   PolyWord format;          /* (short ML int) XYBitmap | XYPixmap | ZPixmap */
2534     if (image->format == XYPixmap) dsize = dsize * image->depth;
2548   unsigned format         = get_C_ulong(taskData, I->format);
2558   format         = CImageFormat(format);
2565   image.format           = format;
2594   X->format          = DEREFWORD(Make_arbitrary_precision(taskData, MLImageFormat(image->format)));
2622   int format
2625   XImage *image = XGetImage(d,drawable,x,y,w,h,mask,CImageFormat(format));
2664   int       format,
2670   XGetSubImage(d,drawable,sx,sy,sw,sh,mask,CImageFormat(format),image,dx,dy);
3143     PolyWord        data;       /* pointer to event-specific data, in ML_XXX_Data format */
3632            ev->xclient.format       == 32        &&
5300   data->Set(0, C_string_to_Poly(taskData, (char *)T.value,T.nitems * T.format / 8));
5302   data->Set(2, DEREFWORD(Make_int(T.format)));
5437     unsigned format;
5447         format = 8;
5460         case XA_ATOM:          size = sizeof(unsigned);          get = GetUnsigned;         format = 32; break;
5461         case XA_BITMAP:        size = sizeof(Pixmap);            get = GetPixmaps;          format = 32; break;
5462         case XA_COLORMAP:      size = sizeof(Colormap);          get = GetColormaps;        format = 32; break;
5463         case XA_CURSOR:        size = sizeof(Cursor);            get = GetCursors;          format = 32; break;
5464         case XA_DRAWABLE:      size = sizeof(Drawable);          get = GetDrawables;        format = 32; break;
5465         case XA_FONT:          size = sizeof(Font);              get = GetFonts;            format = 32; break;
5466         case XA_PIXMAP:        size = sizeof(Pixmap);            get = GetPixmaps;          format = 32; break;
5467         case XA_VISUALID:      size = sizeof(unsigned);          get = GetVisualIds;        format = 32; break;
5468         case XA_CARDINAL:      size = sizeof(unsigned);          get = GetUnsigned;         format = 32; break;
5469         case XA_INTEGER:       size = sizeof(int);               get = GetSigned;           format = 32; break;
5470         case XA_WINDOW:        size = sizeof(Window);            get = GetWindows;          format = 32; break;
5471         case XA_ARC:           size = sizeof(XArc);              get = GetArcs;             format = 16; break;
5472         case XA_POINT:         size = sizeof(XPoint);            get = GetPoints;           format = 16; break;
5473         case XA_RECTANGLE:     size = sizeof(XRectangle);        get = GetRects;            format = 16; break;
5474         case XA_RGB_COLOR_MAP: size = sizeof(XStandardColormap); get = GetStandardColormap; format = 32; break;
5475         case XA_WM_HINTS:      size = sizeof(XWMHints);          get = GetXWMHints;         format = 32; break;
5476         case XA_WM_SIZE_HINTS: size = sizeof(XSizeHints);        get = GetXWMSizeHints;     format = 32; break;
5477         case XA_WM_ICON_SIZE:  size = sizeof(XIconSize);         get = GetIconSize;         format = 32; break;
5491         T.format   = format;
5492         T.nitems   = (bytes * 8) / format;