polyml/libpolyml/xwindows.cpp

171 /* use prototypes, but make sure we get Booleans, not ints */
740                      void (*get)(TaskData *, PolyWord, void*, unsigned))
747         (* get)(taskData, ((ML_Cons_Cell*)p.AsObjPtr())->h, s, i);
1582        get rid of it. */
1583     /* so that Motif windows get ButtonClick XEvent structures */
4612       /* Assume we can't get a C callback from a destroyed widget */
4760                 /* use XNextEvent to get next event */
4785         else /* use XtAppNextEvent to get next event */
5430         GetFunc get;
5434         case XA_ATOM:          size = sizeof(unsigned);          get = GetUnsigned;         format = 32; break;
5435         case XA_BITMAP:        size = sizeof(Pixmap);            get = GetPixmaps;          format = 32; break;
5436         case XA_COLORMAP:      size = sizeof(Colormap);          get = GetColormaps;        format = 32; break;
5437         case XA_CURSOR:        size = sizeof(Cursor);            get = GetCursors;          format = 32; break;
5438         case XA_DRAWABLE:      size = sizeof(Drawable);          get = GetDrawables;        format = 32; break;
5439         case XA_FONT:          size = sizeof(Font);              get = GetFonts;            format = 32; break;
5440         case XA_PIXMAP:        size = sizeof(Pixmap);            get = GetPixmaps;          format = 32; break;
5441         case XA_VISUALID:      size = sizeof(unsigned);          get = GetVisualIds;        format = 32; break;
5442         case XA_CARDINAL:      size = sizeof(unsigned);          get = GetUnsigned;         format = 32; break;
5443         case XA_INTEGER:       size = sizeof(int);               get = GetSigned;           format = 32; break;
5444         case XA_WINDOW:        size = sizeof(Window);            get = GetWindows;          format = 32; break;
5445         case XA_ARC:           size = sizeof(XArc);              get = GetArcs;             format = 16; break;
5446         case XA_POINT:         size = sizeof(XPoint);            get = GetPoints;           format = 16; break;
5447         case XA_RECTANGLE:     size = sizeof(XRectangle);        get = GetRects;            format = 16; break;
5448         case XA_RGB_COLOR_MAP: size = sizeof(XStandardColormap); get = GetStandardColormap; format = 32; break;
5449         case XA_WM_HINTS:      size = sizeof(XWMHints);          get = GetXWMHints;         format = 32; break;
5450         case XA_WM_SIZE_HINTS: size = sizeof(XSizeHints);        get = GetXWMSizeHints;     format = 32; break;
5451         case XA_WM_ICON_SIZE:  size = sizeof(XIconSize);         get = GetIconSize;         format = 32; break;
5457         GetList4(taskData, DEREFWORD(list),value,(int)size,get);
6339         T->tag == CXmStringTable)      /* if it is a list type we need to get the length from another resource */
7161     /* get object PolyWord count */
7166     /* get string byte count */
7209     the object using ResourceExists we may get a core dump because