From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=-0.8 required=5.0 tests=BAYES_00,INVALID_DATE, MSGID_SHORT autolearn=no autolearn_force=no version=3.4.4 Path: utzoo!attcan!uunet!husc6!uwvax!umn-d-ub!umn-cs!mmm!ems!srcsip!tap From: tap@srcsip.UUCP (Thomas A Peterson) Newsgroups: comp.lang.ada Subject: Modifications to the SAIC Ada binding to the X Window System for VADS Message-ID: <5084@altura.srcsip.UUCP> Date: 16 Jun 88 14:37:56 GMT Organization: Honeywell S&RC MPLS,MN List-Id: The SAIC Ada binding to the X Window System, Version 11 needed the following modifications to get it working on the VERDIX Ada Development System (VADS). The programs Hello_World and Sketch_Pad worked properly after these modifications. 1. Creation of a System_Environment Package to match the Alsys' System_Environment package. 2. Modification of the PRAGMA INTERFACE calls. pragma INTERFACE ( Language_Name, Ada_Subprogram_Name, "Language_Subprogram_Name" ) 3. Modification of the EVENT records in the body of the events package (x_events.a). PROBLEM : After the XNextEvent C library function was executed both of the addresses passed into the function were returned as '0' even though the correct addresses were passed into the function. SOLUTION : After examining the include file /usr/include/X11/Xlib.h it was determined that the XEvent had a size of 96 bytes but all of the events in the events package had a size of 68 bytes. So 7 more words were appended onto each event declared in the events package. Thereafter, the XNextEvent C library function worked properly. The System_Environment package and the diff files of the changes needed follow. The diff files are for x_int_.a and x_events.a. 1. Creation of a System_Environment Package to match the Alsys' System_Environment package. package System_Environment is Illegal_Arg_Index : exception; function Arg_Count return Positive; function Arg_Value (Index : in Natural) return String; end System_Environment; with U_Env; use U_Env; package body System_Environment is function Arg_Count return Positive is begin return argc; end Arg_Count; function Arg_Value (Index : in Natural) return String is begin if index > (Arg_Count - 1) then raise Illegal_Arg_Index; else return argv(index).all.s; end if; end Arg_Value; end System_Environment; 2. Modification of the PRAGMA INTERFACE calls. diff x_int_.a ../x_int_.a 319,337c319,337 < pragma INTERFACE (C, Xloadfont); < pragma INTERFACE (C, Xqueryfont); < pragma INTERFACE (C, Xlistfontswithinfo); < pragma INTERFACE (C, Xfreefontinfo); < pragma INTERFACE (C, Xloadqueryfont); < pragma INTERFACE (C, Xfreefont); < pragma INTERFACE (C, Xgetfontproperty); < pragma INTERFACE (C, Xunloadfont); < pragma INTERFACE (C, Xlistfonts); < pragma INTERFACE (C, Xfreefontnames); < pragma INTERFACE (C, Xsetfontpath); < pragma INTERFACE (C, Xgetfontpath); < pragma INTERFACE (C, Xfreefontpath); < pragma INTERFACE (C, Xtextwidth); < pragma INTERFACE (C, Xtextwidth16); < pragma INTERFACE (C, Xtextextents); < pragma INTERFACE (C, Xtextextents16); < pragma INTERFACE (C, Xquerytextextents); < pragma INTERFACE (C, Xquerytextextents16); --- > pragma INTERFACE (C, Xloadfont, "_XLoadFont"); > pragma INTERFACE (C, Xqueryfont, "_XQueryFont"); > pragma INTERFACE (C, Xlistfontswithinfo, "_XListFontsWithInfo"); > pragma INTERFACE (C, Xfreefontinfo, "_XFreeFontInfo"); > pragma INTERFACE (C, Xloadqueryfont, "_XLoadQueryFont"); > pragma INTERFACE (C, Xfreefont, "_XFreeFont"); > pragma INTERFACE (C, Xgetfontproperty, "_XGetFontProperty"); > pragma INTERFACE (C, Xunloadfont, "_XUnloadFont"); > pragma INTERFACE (C, Xlistfonts, "_XListFonts"); > pragma INTERFACE (C, Xfreefontnames, "_XFreeFontNames"); > pragma INTERFACE (C, Xsetfontpath, "_XSetFontPath"); > pragma INTERFACE (C, Xgetfontpath, "_XGetFontPath"); > pragma INTERFACE (C, Xfreefontpath, "_XFreeFontPath"); > pragma INTERFACE (C, Xtextwidth, "_XTextWidth"); > pragma INTERFACE (C, Xtextwidth16, "_XTextWidth16"); > pragma INTERFACE (C, Xtextextents, "_XTextExtents"); > pragma INTERFACE (C, Xtextextents16, "_XTextExtents16"); > pragma INTERFACE (C, Xquerytextextents, "_XQueryTextExtents"); > pragma INTERFACE (C, Xquerytextextents16, "_XQueryTextExtents16"); 339,358d338 < pragma INTERFACE_NAME (Xloadfont, "XLoadFont"); < pragma INTERFACE_NAME (Xqueryfont, "XQueryFont"); < pragma INTERFACE_NAME (Xlistfontswithinfo, "XListFontsWithInfo"); < pragma INTERFACE_NAME (Xfreefontinfo, "XFreeFontInfo"); < pragma INTERFACE_NAME (Xloadqueryfont, "XLoadQueryFont"); < pragma INTERFACE_NAME (Xfreefont, "XFreeFont"); < pragma INTERFACE_NAME (Xgetfontproperty, "XGetFontProperty"); < pragma INTERFACE_NAME (Xunloadfont, "XUnloadFont"); < pragma INTERFACE_NAME (Xlistfonts, "XListFonts"); < pragma INTERFACE_NAME (Xfreefontnames, "XFreeFontNames"); < pragma INTERFACE_NAME (Xsetfontpath, "XSetFontPath"); < pragma INTERFACE_NAME (Xgetfontpath, "XGetFontPath"); < pragma INTERFACE_NAME (Xfreefontpath, "XFreeFontPath"); < pragma INTERFACE_NAME (Xtextwidth, "XTextWidth"); < pragma INTERFACE_NAME (Xtextwidth16, "XTextWidth16"); < pragma INTERFACE_NAME (Xtextextents, "XTextExtents"); < pragma INTERFACE_NAME (Xtextextents16, "XTextExtents16"); < pragma INTERFACE_NAME (Xquerytextextents, "XQueryTextExtents"); < pragma INTERFACE_NAME (Xquerytextextents16, "XQueryTextExtents16"); < 501,521c481,501 < pragma INTERFACE (C, Xcreatecolormap); < pragma INTERFACE (C, Xcopycolormapandfree); < pragma INTERFACE (C, Xfreecolormap); < pragma INTERFACE (C, Xsetwindowcolormap); < pragma INTERFACE (C, Xalloccolor); < pragma INTERFACE (C, Xallocnamedcolor); < pragma INTERFACE (C, Xlookupcolor); < pragma INTERFACE (C, Xstorecolors); < pragma INTERFACE (C, Xstorecolor); < pragma INTERFACE (C, Xalloccolorcells); < pragma INTERFACE (C, Xalloccolorplanes); < pragma INTERFACE (C, Xstorenamedcolor); < pragma INTERFACE (C, Xfreecolors); < pragma INTERFACE (C, Xquerycolor); < pragma INTERFACE (C, Xquerycolors); < pragma INTERFACE (C, Xcreatepixmap); < pragma INTERFACE (C, Xfreepixmap); < pragma INTERFACE (C, Xinstallcolormap); < pragma INTERFACE (C, Xuninstallcolormap); < pragma INTERFACE (C, Xlistinstalledcolormaps); < pragma INTERFACE (C, Xparsecolor); --- > pragma INTERFACE (C, Xcreatecolormap, "_XCreateColormap"); > pragma INTERFACE (C, Xcopycolormapandfree, "_XCopyColormapAndFree"); > pragma INTERFACE (C, Xfreecolormap, "_XFreeColormap"); > pragma INTERFACE (C, Xsetwindowcolormap, "_XSetWindowColormap"); > pragma INTERFACE (C, Xalloccolor, "_XAllocColor"); > pragma INTERFACE (C, Xallocnamedcolor, "_XAllocNamedColor"); > pragma INTERFACE (C, Xlookupcolor, "_XLookupColor"); > pragma INTERFACE (C, Xstorecolors, "_XStoreColors"); > pragma INTERFACE (C, Xstorecolor, "_XStoreColor"); > pragma INTERFACE (C, Xalloccolorcells, "_XAllocColorCells"); > pragma INTERFACE (C, Xalloccolorplanes, "_XAllocColorPlanes"); > pragma INTERFACE (C, Xstorenamedcolor, "_XStoreNamedColor"); > pragma INTERFACE (C, Xfreecolors, "_XFreeColors"); > pragma INTERFACE (C, Xquerycolor, "_XQueryColor"); > pragma INTERFACE (C, Xquerycolors, "_XQueryColors"); > pragma INTERFACE (C, Xcreatepixmap, "_XCreatePixmap"); > pragma INTERFACE (C, Xfreepixmap, "_XFreePixmap"); > pragma INTERFACE (C, Xinstallcolormap, "_XInstallColormap"); > pragma INTERFACE (C, Xuninstallcolormap, "_XUninstallColormap"); > pragma INTERFACE (C, Xlistinstalledcolormaps, "_XListInstalledColormaps"); > pragma INTERFACE (C, Xparsecolor, "_XParseColor"); 523,544d502 < pragma INTERFACE_NAME (Xcreatecolormap, "XCreateColormap"); < pragma INTERFACE_NAME (Xcopycolormapandfree, "XCopyColormapAndFree"); < pragma INTERFACE_NAME (Xfreecolormap, "XFreeColormap"); < pragma INTERFACE_NAME (Xsetwindowcolormap, "XSetWindowColormap"); < pragma INTERFACE_NAME (Xalloccolor, "XAllocColor"); < pragma INTERFACE_NAME (Xallocnamedcolor, "XAllocNamedColor"); < pragma INTERFACE_NAME (Xlookupcolor, "XLookupColor"); < pragma INTERFACE_NAME (Xstorecolors, "XStoreColors"); < pragma INTERFACE_NAME (Xstorecolor, "XStoreColor"); < pragma INTERFACE_NAME (Xalloccolorcells, "XAllocColorCells"); < pragma INTERFACE_NAME (Xalloccolorplanes, "XAllocColorPlanes"); < pragma INTERFACE_NAME (Xstorenamedcolor, "XStoreNamedColor"); < pragma INTERFACE_NAME (Xfreecolors, "XFreeColors"); < pragma INTERFACE_NAME (Xquerycolor, "XQueryColor"); < pragma INTERFACE_NAME (Xquerycolors, "XQueryColors"); < pragma INTERFACE_NAME (Xcreatepixmap, "XCreatePixmap"); < pragma INTERFACE_NAME (Xfreepixmap, "XFreePixmap"); < pragma INTERFACE_NAME (Xinstallcolormap, "XInstallColormap"); < pragma INTERFACE_NAME (Xuninstallcolormap, "XUninstallColormap"); < pragma INTERFACE_NAME (Xlistinstalledcolormaps, "XListInstalledColormaps"); < pragma INTERFACE_NAME (Xparsecolor, "XParseColor"); < 1030,1093c988,1052 < pragma INTERFACE (C, Xcreategc); < pragma INTERFACE (C, Xcopygc); < pragma INTERFACE (C, Xchangegc); < pragma INTERFACE (C, Xfreegc); < pragma INTERFACE (C, Xsetstate); < pragma INTERFACE (C, Xsetfunction); < pragma INTERFACE (C, Xsetplanemask); < pragma INTERFACE (C, Xsetforeground); < pragma INTERFACE (C, Xsetbackground); < pragma INTERFACE (C, Xsetlineattributes); < pragma INTERFACE (C, Xsetdashes); < pragma INTERFACE (C, Xsetfillstyle); < pragma INTERFACE (C, Xsetfillrule); < pragma INTERFACE (C, Xquerybestsize); < pragma INTERFACE (C, Xquerybesttile); < pragma INTERFACE (C, Xquerybeststipple); < pragma INTERFACE (C, Xsettile); < pragma INTERFACE (C, Xsetstipple); < pragma INTERFACE (C, Xsettsorigin); < pragma INTERFACE (C, Xsetfont); < pragma INTERFACE (C, Xsetcliporigin); < pragma INTERFACE (C, Xsetclipmask); < pragma INTERFACE (C, Xsetcliprectangles); < pragma INTERFACE (C, Xsetarcmode); < pragma INTERFACE (C, Xsetsubwindowmode); < pragma INTERFACE (C, Xsetgraphicsexposures); < pragma INTERFACE (C, Xcleararea); < pragma INTERFACE (C, Xclearwindow); < pragma INTERFACE (C, Xcopyarea); < pragma INTERFACE (C, Xcopyplane); < pragma INTERFACE (C, Xdrawpoint); < pragma INTERFACE (C, Xdrawpoints); < pragma INTERFACE (C, Xdrawline); < pragma INTERFACE (C, Xdrawlines); < pragma INTERFACE (C, Xdrawsegments); < pragma INTERFACE (C, Xdrawrectangle); < pragma INTERFACE (C, Xdrawrectangles); < pragma INTERFACE (C, Xdrawarc); < pragma INTERFACE (C, Xdrawarcs); < pragma INTERFACE (C, Xfillrectangle); < pragma INTERFACE (C, Xfillrectangles); < pragma INTERFACE (C, Xfillpolygon); < pragma INTERFACE (C, Xfillarc); < pragma INTERFACE (C, Xfillarcs); < pragma INTERFACE (C, Xdrawtext); < pragma INTERFACE (C, Xdrawtext16); < pragma INTERFACE (C, Xdrawstring); < pragma INTERFACE (C, Xdrawstring16); < pragma INTERFACE (C, Xdrawimagestring); < pragma INTERFACE (C, Xdrawimagestring16); < pragma INTERFACE (C, Xputimage); < pragma INTERFACE (C, Xgetimage); < pragma INTERFACE (C, Xgetsubimage); < pragma INTERFACE (C, Xcreateimage); < pragma INTERFACE (C, Xgetpixel); < pragma INTERFACE (C, Xputpixel); < pragma INTERFACE (C, Xsubimage); < pragma INTERFACE (C, Xaddpixel); < pragma INTERFACE (C, Xdestroyimage); < pragma INTERFACE (C, Xreadbitmapfile); < pragma INTERFACE (C, Xwritebitmapfile); < pragma INTERFACE (C, Xcreatebitmapfromdata); < pragma INTERFACE (C, Xcreatepixmapfrombitmapdata); < pragma INTERFACE (C, Xgcontextfromgc); --- > pragma INTERFACE (C, Xcreategc, "_XCreateGC"); > pragma INTERFACE (C, Xcopygc, "_XCopyGC"); > pragma INTERFACE (C, Xchangegc, "_XChangeGC"); > pragma INTERFACE (C, Xfreegc, "_XFreeGC"); > pragma INTERFACE (C, Xsetstate, "_XSetState"); > pragma INTERFACE (C, Xsetfunction, "_XSetFunction"); > pragma INTERFACE (C, Xsetplanemask, "_XSetPlaneMask"); > pragma INTERFACE (C, Xsetforeground, "_XSetForeground"); > pragma INTERFACE (C, Xsetbackground, "_XSetBackground"); > pragma INTERFACE (C, Xsetlineattributes, "_XSetLineAttributes"); > pragma INTERFACE (C, Xsetdashes, "_XSetDashes"); > pragma INTERFACE (C, Xsetfillstyle, "_XSetFillStyle"); > pragma INTERFACE (C, Xsetfillrule, "_XSetFillRule"); > pragma INTERFACE (C, Xquerybestsize, "_XQueryBestSize"); > pragma INTERFACE (C, Xquerybesttile, "_XQueryBestTile"); > pragma INTERFACE (C, Xquerybeststipple, "_XQueryBestStipple"); > pragma INTERFACE (C, Xsettile, "_XSetTile"); > pragma INTERFACE (C, Xsetstipple, "_XSetStipple"); > pragma INTERFACE (C, Xsettsorigin, "_XSetTSOrigin"); > pragma INTERFACE (C, Xsetfont, "_XSetFont"); > pragma INTERFACE (C, Xsetcliporigin, "_XSetClipOrigin"); > pragma INTERFACE (C, Xsetclipmask, "_XSetClipMask"); > pragma INTERFACE (C, Xsetcliprectangles, "_XSetClipRectangles"); > pragma INTERFACE (C, Xsetarcmode, "_XSetArcMode"); > pragma INTERFACE (C, Xsetsubwindowmode, "_XSetSubwindowMode"); > pragma INTERFACE (C, Xsetgraphicsexposures, "_XSetGraphicsExposures"); > pragma INTERFACE (C, Xcleararea, "_XClearArea"); > pragma INTERFACE (C, Xclearwindow, "_XClearWindow"); > pragma INTERFACE (C, Xcopyarea, "_XCopyArea"); > pragma INTERFACE (C, Xcopyplane, "_XCopyPlane"); > pragma INTERFACE (C, Xdrawpoint, "_XDrawPoint"); > pragma INTERFACE (C, Xdrawpoints, "_XDrawPoints"); > pragma INTERFACE (C, Xdrawline, "_XDrawLine"); > pragma INTERFACE (C, Xdrawlines, "_XDrawLines"); > pragma INTERFACE (C, Xdrawsegments, "_XDrawSegments"); > pragma INTERFACE (C, Xdrawrectangle, "_XDrawRectangle"); > pragma INTERFACE (C, Xdrawrectangles, "_XDrawRectangles"); > pragma INTERFACE (C, Xdrawarc, "_XDrawArc"); > pragma INTERFACE (C, Xdrawarcs, "_XDrawArcs"); > pragma INTERFACE (C, Xfillrectangle, "_XFillRectangle"); > pragma INTERFACE (C, Xfillrectangles, "_XFillRectangles"); > pragma INTERFACE (C, Xfillpolygon, "_XFillPolygon"); > pragma INTERFACE (C, Xfillarc, "_XFillArc"); > pragma INTERFACE (C, Xfillarcs, "_XFillArcs"); > pragma INTERFACE (C, Xdrawtext, "_XDrawText"); > pragma INTERFACE (C, Xdrawtext16, "_XDrawText16"); > pragma INTERFACE (C, Xdrawstring, "_XDrawString"); > pragma INTERFACE (C, Xdrawstring16, "_XDrawString16"); > pragma INTERFACE (C, Xdrawimagestring, "_XDrawImageString"); > pragma INTERFACE (C, Xdrawimagestring16, "_XDrawImageString16"); > pragma INTERFACE (C, Xputimage, "_XPutImage"); > pragma INTERFACE (C, Xgetimage, "_XGetImage"); > pragma INTERFACE (C, Xgetsubimage, "_XGetSubImage"); > pragma INTERFACE (C, Xcreateimage, "_XCreateImage"); > pragma INTERFACE (C, Xgetpixel, "_XGetPixel"); > pragma INTERFACE (C, Xputpixel, "_XPutPixel"); > pragma INTERFACE (C, Xsubimage, "_XSubImage"); > pragma INTERFACE (C, Xaddpixel, "_XAddPixel"); > pragma INTERFACE (C, Xdestroyimage, "_XDestroyImage"); > pragma INTERFACE (C, Xreadbitmapfile, "_XReadBitmapFile"); > pragma INTERFACE (C, Xwritebitmapfile, "_XWriteBitmapFile"); > pragma INTERFACE (C, Xcreatebitmapfromdata, "_XCreateBitmapFromData"); > pragma INTERFACE (C, Xcreatepixmapfrombitmapdata, > "_XCreatePixmapFromBitmapData"); > pragma INTERFACE (C, Xgcontextfromgc, "_XGContextFromGC"); 1095,1160d1053 < pragma INTERFACE_NAME (Xcreategc, "XCreateGC"); < pragma INTERFACE_NAME (Xcopygc, "XCopyGC"); < pragma INTERFACE_NAME (Xchangegc, "XChangeGC"); < pragma INTERFACE_NAME (Xfreegc, "XFreeGC"); < pragma INTERFACE_NAME (Xsetstate, "XSetState"); < pragma INTERFACE_NAME (Xsetfunction, "XSetFunction"); < pragma INTERFACE_NAME (Xsetplanemask, "XSetPlaneMask"); < pragma INTERFACE_NAME (Xsetforeground, "XSetForeground"); < pragma INTERFACE_NAME (Xsetbackground, "XSetBackground"); < pragma INTERFACE_NAME (Xsetlineattributes, "XSetLineAttributes"); < pragma INTERFACE_NAME (Xsetdashes, "XSetDashes"); < pragma INTERFACE_NAME (Xsetfillstyle, "XSetFillStyle"); < pragma INTERFACE_NAME (Xsetfillrule, "XSetFillRule"); < pragma INTERFACE_NAME (Xquerybestsize, "XQueryBestSize"); < pragma INTERFACE_NAME (Xquerybesttile, "XQueryBestTile"); < pragma INTERFACE_NAME (Xquerybeststipple, "XQueryBestStipple"); < pragma INTERFACE_NAME (Xsettile, "XSetTile"); < pragma INTERFACE_NAME (Xsetstipple, "XSetStipple"); < pragma INTERFACE_NAME (Xsettsorigin, "XSetTSOrigin"); < pragma INTERFACE_NAME (Xsetfont, "XSetFont"); < pragma INTERFACE_NAME (Xsetcliporigin, "XSetClipOrigin"); < pragma INTERFACE_NAME (Xsetclipmask, "XSetClipMask"); < pragma INTERFACE_NAME (Xsetcliprectangles, "XSetClipRectangles"); < pragma INTERFACE_NAME (Xsetarcmode, "XSetArcMode"); < pragma INTERFACE_NAME (Xsetsubwindowmode, "XSetSubwindowMode"); < pragma INTERFACE_NAME (Xsetgraphicsexposures, "XSetGraphicsExposures"); < pragma INTERFACE_NAME (Xcleararea, "XClearArea"); < pragma INTERFACE_NAME (Xclearwindow, "XClearWindow"); < pragma INTERFACE_NAME (Xcopyarea, "XCopyArea"); < pragma INTERFACE_NAME (Xcopyplane, "XCopyPlane"); < pragma INTERFACE_NAME (Xdrawpoint, "XDrawPoint"); < pragma INTERFACE_NAME (Xdrawpoints, "XDrawPoints"); < pragma INTERFACE_NAME (Xdrawline, "XDrawLine"); < pragma INTERFACE_NAME (Xdrawlines, "XDrawLines"); < pragma INTERFACE_NAME (Xdrawsegments, "XDrawSegments"); < pragma INTERFACE_NAME (Xdrawrectangle, "XDrawRectangle"); < pragma INTERFACE_NAME (Xdrawrectangles, "XDrawRectangles"); < pragma INTERFACE_NAME (Xdrawarc, "XDrawArc"); < pragma INTERFACE_NAME (Xdrawarcs, "XDrawArcs"); < pragma INTERFACE_NAME (Xfillrectangle, "XFillRectangle"); < pragma INTERFACE_NAME (Xfillrectangles, "XFillRectangles"); < pragma INTERFACE_NAME (Xfillpolygon, "XFillPolygon"); < pragma INTERFACE_NAME (Xfillarc, "XFillArc"); < pragma INTERFACE_NAME (Xfillarcs, "XFillArcs"); < pragma INTERFACE_NAME (Xdrawtext, "XDrawText"); < pragma INTERFACE_NAME (Xdrawtext16, "XDrawText16"); < pragma INTERFACE_NAME (Xdrawstring, "XDrawString"); < pragma INTERFACE_NAME (Xdrawstring16, "XDrawString16"); < pragma INTERFACE_NAME (Xdrawimagestring, "XDrawImageString"); < pragma INTERFACE_NAME (Xdrawimagestring16, "XDrawImageString16"); < pragma INTERFACE_NAME (Xputimage, "XPutImage"); < pragma INTERFACE_NAME (Xgetimage, "XGetImage"); < pragma INTERFACE_NAME (Xgetsubimage, "XGetSubImage"); < pragma INTERFACE_NAME (Xcreateimage, "XCreateImage"); < pragma INTERFACE_NAME (Xputpixel, "XPutPixel"); < pragma INTERFACE_NAME (Xgetpixel, "XGetPixel"); < pragma INTERFACE_NAME (Xsubimage, "XSubImage"); < pragma INTERFACE_NAME (Xaddpixel, "XAddPixel"); < pragma INTERFACE_NAME (Xdestroyimage, "XDestroyImage"); < pragma INTERFACE_NAME (Xreadbitmapfile, "XReadBitmapFile"); < pragma INTERFACE_NAME (Xwritebitmapfile, "XWriteBitmapFile"); < pragma INTERFACE_NAME (Xcreatebitmapfromdata, "XCreateBitmapFromData"); < pragma INTERFACE_NAME (Xcreatepixmapfrombitmapdata, < "XCreatePixmapFromBitmapData"); < pragma INTERFACE_NAME (Xgcontextfromgc, "XGContextFromGC"); < 1215,1222c1108,1115 < pragma INTERFACE (C, Xcreatefontcursor); < pragma INTERFACE (C, Xcreatepixmapcursor); < pragma INTERFACE (C, Xcreateglyphcursor); < pragma INTERFACE (C, Xrecolorcursor); < pragma INTERFACE (C, Xfreecursor); < pragma INTERFACE (C, Xquerybestcursor); < pragma INTERFACE (C, Xdefinecursor); < pragma INTERFACE (C, Xundefinecursor); --- > pragma INTERFACE (C, Xcreatefontcursor, "_XCreateFontCursor"); > pragma INTERFACE (C, Xcreatepixmapcursor, "_XCreatePixmapCursor"); > pragma INTERFACE (C, Xcreateglyphcursor, "_XCreateGlyphCursor"); > pragma INTERFACE (C, Xrecolorcursor, "_XRecolorCursor"); > pragma INTERFACE (C, Xfreecursor, "_XFreeCursor"); > pragma INTERFACE (C, Xquerybestcursor, "_XQueryBestCursor"); > pragma INTERFACE (C, Xdefinecursor, "_XDefineCursor"); > pragma INTERFACE (C, Xundefinecursor, "_XUndefineCursor"); 1224,1232d1116 < pragma INTERFACE_NAME (Xcreatefontcursor, "XCreateFontCursor"); < pragma INTERFACE_NAME (Xcreatepixmapcursor, "XCreatePixmapCursor"); < pragma INTERFACE_NAME (Xcreateglyphcursor, "XCreateGlyphCursor"); < pragma INTERFACE_NAME (Xrecolorcursor, "XRecolorCursor"); < pragma INTERFACE_NAME (Xfreecursor, "XFreeCursor"); < pragma INTERFACE_NAME (Xquerybestcursor, "XQueryBestCursor"); < pragma INTERFACE_NAME (Xdefinecursor, "XDefineCursor"); < pragma INTERFACE_NAME (Xundefinecursor, "XUndefineCursor"); < 1249,1251c1133,1135 < pragma INTERFACE (C, Xopendisplay); < pragma INTERFACE (C, Xnoop); < pragma INTERFACE (C, Xclosedisplay); --- > pragma INTERFACE (C, Xopendisplay, "_XOpenDisplay"); > pragma INTERFACE (C, Xnoop, "_XNoOp"); > pragma INTERFACE (C, Xclosedisplay, "_XCloseDisplay"); 1253,1256d1136 < pragma INTERFACE_NAME (Xopendisplay, "XOpenDisplay"); < pragma INTERFACE_NAME (Xnoop, "XNoOp"); < pragma INTERFACE_NAME (Xclosedisplay, "XCloseDisplay"); < 1835,1908c1715,1789 < pragma INTERFACE (C, Xgetvisualinfo); < pragma INTERFACE (C, Xmatchvisualinfo); < pragma INTERFACE (C, Xsetstandardproperties); < pragma INTERFACE (C, Xstorename); < pragma INTERFACE (C, Xfetchname); < pragma INTERFACE (C, Xseticonname); < pragma INTERFACE (C, Xgeticonname); < pragma INTERFACE (C, Xsetcommand); < pragma INTERFACE (C, Xsetwmhints); < pragma INTERFACE (C, Xgetwmhints); < pragma INTERFACE (C, Xgetstandardcolormap); < pragma INTERFACE (C, Xsetstandardcolormap); < pragma INTERFACE (C, Xcreatewindow); < pragma INTERFACE (C, Xcreatesimplewindow); < pragma INTERFACE (C, Xdestroywindow); < pragma INTERFACE (C, Xdestroysubwindows); < pragma INTERFACE (C, Xmapwindow); < pragma INTERFACE (C, Xmapraised); < pragma INTERFACE (C, Xmapsubwindows); < pragma INTERFACE (C, Xunmapwindow); < pragma INTERFACE (C, Xunmapsubwindows); < pragma INTERFACE (C, Xsetnormalhints); < pragma INTERFACE (C, Xgetnormalhints); < pragma INTERFACE (C, Xsetzoomhints); < pragma INTERFACE (C, Xgetzoomhints); < pragma INTERFACE (C, Xsetsizehints); < pragma INTERFACE (C, Xgetsizehints); < pragma INTERFACE (C, Xseticonsizes); < pragma INTERFACE (C, Xgeticonsizes); < pragma INTERFACE (C, Xsetclasshint); < pragma INTERFACE (C, Xgetclasshint); < pragma INTERFACE (C, Xsettransientforhint); < pragma INTERFACE (C, Xgettransientforhint); < pragma INTERFACE (C, Xconfigurewindow); < pragma INTERFACE (C, Xmovewindow); < pragma INTERFACE (C, Xresizewindow); < pragma INTERFACE (C, Xmoveresizewindow); < pragma INTERFACE (C, Xsetwindowborderwidth); < pragma INTERFACE (C, Xraisewindow); < pragma INTERFACE (C, Xlowerwindow); < pragma INTERFACE (C, Xcirculatesubwindows); < pragma INTERFACE (C, Xcirculatesubwindowsup); < pragma INTERFACE (C, Xcirculatesubwindowsdown); < pragma INTERFACE (C, Xrestackwindows); < pragma INTERFACE (C, Xchangewindowattributes); < pragma INTERFACE (C, Xsetwindowbackground); < pragma INTERFACE (C, Xsetwindowbackgroundpixmap); < pragma INTERFACE (C, Xsetwindowborder); < pragma INTERFACE (C, Xsetwindowborderpixmap); < pragma INTERFACE (C, Xtranslatecoordinates); < pragma INTERFACE (C, Xquerytree); < pragma INTERFACE (C, Xgetwindowattributes); < pragma INTERFACE (C, Xgetgeometry); < pragma INTERFACE (C, Xparsegeometry); < pragma INTERFACE (C, Xgeometry); < pragma INTERFACE (C, Xquerypointer); < pragma INTERFACE (C, Xinternatom); < pragma INTERFACE (C, Xgetatomname); < pragma INTERFACE (C, Xgetwindowproperty); < pragma INTERFACE (C, Xlistproperties); < pragma INTERFACE (C, Xchangeproperty); < pragma INTERFACE (C, Xrotatewindowproperties); < pragma INTERFACE (C, Xdeleteproperty); < pragma INTERFACE (C, Xsetselectionowner); < pragma INTERFACE (C, Xgetselectionowner); < pragma INTERFACE (C, Xconvertselection); < pragma INTERFACE (C, Xreparentwindow); < pragma INTERFACE (C, Xchangesaveset); < pragma INTERFACE (C, Xaddtosaveset); < pragma INTERFACE (C, Xremovefromsaveset); < pragma INTERFACE (C, Xsavecontext); < pragma INTERFACE (C, Xfindcontext); < pragma INTERFACE (C, Xdeletecontext); < pragma INTERFACE (C, Xsynchronize); --- > pragma INTERFACE (C, Xgetvisualinfo, "_XGetVisualInfo"); > pragma INTERFACE (C, Xmatchvisualinfo, "_XMatchVisualInfo"); > pragma INTERFACE (C, Xsetstandardproperties, "_XSetStandardProperties"); > pragma INTERFACE (C, Xstorename, "_XStoreName"); > pragma INTERFACE (C, Xfetchname, "_XFetchName"); > pragma INTERFACE (C, Xseticonname, "_XSetIconName"); > pragma INTERFACE (C, Xgeticonname, "_XGetIconName"); > pragma INTERFACE (C, Xsetcommand, "_XSetCommand"); > pragma INTERFACE (C, Xsetwmhints, "_XSetWMHints"); > pragma INTERFACE (C, Xgetwmhints, "_XGetWMHints"); > pragma INTERFACE (C, Xgetstandardcolormap, "_XGetStandardColormap"); > pragma INTERFACE (C, Xsetstandardcolormap, "_XSetStandardColormap"); > pragma INTERFACE (C, Xcreatewindow, "_XCreateWindow"); > pragma INTERFACE (C, Xcreatesimplewindow, "_XCreateSimpleWindow"); > pragma INTERFACE (C, Xdestroywindow, "_XDestroyWindow"); > pragma INTERFACE (C, Xdestroysubwindows, "_XDestroySubwindows"); > pragma INTERFACE (C, Xmapwindow, "_XMapWindow"); > pragma INTERFACE (C, Xmapraised, "_XMapRaised"); > pragma INTERFACE (C, Xmapsubwindows, "_XMapSubwindows"); > pragma INTERFACE (C, Xunmapwindow, "_XUnmapWindow"); > pragma INTERFACE (C, Xunmapsubwindows, "_XUnmapSubwindows"); > pragma INTERFACE (C, Xsetnormalhints, "_XSetNormalHints"); > pragma INTERFACE (C, Xgetnormalhints, "_XGetNormalHints"); > pragma INTERFACE (C, Xsetzoomhints, "_XSetZoomHints"); > pragma INTERFACE (C, Xgetzoomhints, "_XGetZoomHints"); > pragma INTERFACE (C, Xsetsizehints, "_XSetSizeHints"); > pragma INTERFACE (C, Xgetsizehints, "_XGetSizeHints"); > pragma INTERFACE (C, Xseticonsizes, "_XSetIconSizes"); > pragma INTERFACE (C, Xgeticonsizes, "_XGetIconSizes"); > pragma INTERFACE (C, Xsetclasshint, "_XSetClassHint"); > pragma INTERFACE (C, Xgetclasshint, "_XGetClassHint"); > pragma INTERFACE (C, Xsettransientforhint, "_XSetTransientForHint"); > pragma INTERFACE (C, Xgettransientforhint, "_XGetTransientForHint"); > pragma INTERFACE (C, Xconfigurewindow, "_XConfigureWindow"); > pragma INTERFACE (C, Xmovewindow, "_XMoveWindow"); > pragma INTERFACE (C, Xresizewindow, "_XResizeWindow"); > pragma INTERFACE (C, Xmoveresizewindow, "_XMoveResizeWindow"); > pragma INTERFACE (C, Xsetwindowborderwidth, "_XSetWindowBorderWidth"); > pragma INTERFACE (C, Xraisewindow, "_XRaiseWindow"); > pragma INTERFACE (C, Xlowerwindow, "_XLowerWindow"); > pragma INTERFACE (C, Xcirculatesubwindows, "_XCirculateSubwindows"); > pragma INTERFACE (C, Xcirculatesubwindowsup, "_XCirculateSubwindowsUp"); > pragma INTERFACE (C, Xcirculatesubwindowsdown, "_XCirculateSubwindowsDown"); > pragma INTERFACE (C, Xrestackwindows, "_XRestackWindows"); > pragma INTERFACE (C, Xchangewindowattributes, "_XChangeWindowAttributes"); > pragma INTERFACE (C, Xsetwindowbackground, "_XSetWindowBackground"); > pragma INTERFACE (C, Xsetwindowbackgroundpixmap, > "_XSetWindowBackgroundPixmap"); > pragma INTERFACE (C, Xsetwindowborder, "_XSetWindowBorder"); > pragma INTERFACE (C, Xsetwindowborderpixmap, "_XSetWindowBorderPixmap"); > pragma INTERFACE (C, Xtranslatecoordinates, "_XTranslateCoordinates"); > pragma INTERFACE (C, Xquerytree, "_XQueryTree"); > pragma INTERFACE (C, Xgetwindowattributes, "_XGetWindowAttributes"); > pragma INTERFACE (C, Xgetgeometry, "_XGetGeometry"); > pragma INTERFACE (C, Xparsegeometry, "_XParseGeometry"); > pragma INTERFACE (C, Xgeometry, "_XGeometry"); > pragma INTERFACE (C, Xquerypointer, "_XQueryPointer"); > pragma INTERFACE (C, Xinternatom, "_XInternAtom"); > pragma INTERFACE (C, Xgetatomname, "_XGetAtomName"); > pragma INTERFACE (C, Xgetwindowproperty, "_XGetWindowProperty"); > pragma INTERFACE (C, Xlistproperties, "_XListProperties"); > pragma INTERFACE (C, Xchangeproperty, "_XChangeProperty"); > pragma INTERFACE (C, Xrotatewindowproperties, "_XRotateWindowProperties"); > pragma INTERFACE (C, Xdeleteproperty, "_XDeleteProperty"); > pragma INTERFACE (C, Xsetselectionowner, "_XSetSelectionOwner"); > pragma INTERFACE (C, Xgetselectionowner, "_XGetSelectionOwner"); > pragma INTERFACE (C, Xconvertselection, "_XConvertSelection"); > pragma INTERFACE (C, Xreparentwindow, "_XReparentWindow"); > pragma INTERFACE (C, Xchangesaveset, "_XChangeSaveSet"); > pragma INTERFACE (C, Xaddtosaveset, "_XAddToSaveSet"); > pragma INTERFACE (C, Xremovefromsaveset, "_XRemoveFromSaveSet"); > pragma INTERFACE (C, Xsavecontext, "_XSaveContext"); > pragma INTERFACE (C, Xfindcontext, "_XFindContext"); > pragma INTERFACE (C, Xdeletecontext, "_XDeleteContext"); > pragma INTERFACE (C, Xsynchronize, "_XSynchronize"); 1910,1984d1790 < pragma INTERFACE_NAME (Xgetvisualinfo, "XGetVisualInfo"); < pragma INTERFACE_NAME (Xmatchvisualinfo, "XMatchVisualInfo"); < pragma INTERFACE_NAME (Xsetstandardproperties, "XSetStandardProperties"); < pragma INTERFACE_NAME (Xstorename, "XStoreName"); < pragma INTERFACE_NAME (Xfetchname, "XFetchName"); < pragma INTERFACE_NAME (Xseticonname, "XSetIconName"); < pragma INTERFACE_NAME (Xgeticonname, "XGetIconName"); < pragma INTERFACE_NAME (Xsetcommand, "XSetCommand"); < pragma INTERFACE_NAME (Xsetwmhints, "XSetWMHints"); < pragma INTERFACE_NAME (Xgetwmhints, "XGetWMHints"); < pragma INTERFACE_NAME (Xgetstandardcolormap, "XGetStandardColormap"); < pragma INTERFACE_NAME (Xsetstandardcolormap, "XSetStandardColormap"); < pragma INTERFACE_NAME (Xcreatewindow, "XCreateWindow"); < pragma INTERFACE_NAME (Xcreatesimplewindow, "XCreateSimpleWindow"); < pragma INTERFACE_NAME (Xdestroywindow, "XDestroyWindow"); < pragma INTERFACE_NAME (Xdestroysubwindows, "XDestroySubwindows"); < pragma INTERFACE_NAME (Xmapwindow, "XMapWindow"); < pragma INTERFACE_NAME (Xmapraised, "XMapRaised"); < pragma INTERFACE_NAME (Xmapsubwindows, "XMapSubwindows"); < pragma INTERFACE_NAME (Xunmapwindow, "XUnmapWindow"); < pragma INTERFACE_NAME (Xunmapsubwindows, "XUnmapSubwindows"); < pragma INTERFACE_NAME (Xsetnormalhints, "XSetNormalHints"); < pragma INTERFACE_NAME (Xgetnormalhints, "XGetNormalHints"); < pragma INTERFACE_NAME (Xsetzoomhints, "XSetZoomHints"); < pragma INTERFACE_NAME (Xgetzoomhints, "XGetZoomHints"); < pragma INTERFACE_NAME (Xsetsizehints, "XSetSizeHints"); < pragma INTERFACE_NAME (Xgetsizehints, "XGetSizeHints"); < pragma INTERFACE_NAME (Xseticonsizes, "XSetIconSizes"); < pragma INTERFACE_NAME (Xsetclasshint, "XSetClassHint"); < pragma INTERFACE_NAME (Xgetclasshint, "XGetClassHint"); < pragma INTERFACE_NAME (Xgeticonsizes, "XGetIconSizes"); < pragma INTERFACE_NAME (Xsettransientforhint, "XSetTransientForHint"); < pragma INTERFACE_NAME (Xgettransientforhint, "XGetTransientForHint"); < pragma INTERFACE_NAME (Xconfigurewindow, "XConfigureWindow"); < pragma INTERFACE_NAME (Xmovewindow, "XMoveWindow"); < pragma INTERFACE_NAME (Xresizewindow, "XResizeWindow"); < pragma INTERFACE_NAME (Xmoveresizewindow, "XMoveResizeWindow"); < pragma INTERFACE_NAME (Xsetwindowborderwidth, "XSetWindowBorderWidth"); < pragma INTERFACE_NAME (Xraisewindow, "XRaiseWindow"); < pragma INTERFACE_NAME (Xlowerwindow, "XLowerWindow"); < pragma INTERFACE_NAME (Xcirculatesubwindows, "XCirculateSubwindows"); < pragma INTERFACE_NAME (Xcirculatesubwindowsup, "XCirculateSubwindowsUp"); < pragma INTERFACE_NAME (Xcirculatesubwindowsdown, "XCirculateSubwindowsDown"); < pragma INTERFACE_NAME (Xrestackwindows, "XRestackWindows"); < pragma INTERFACE_NAME (Xchangewindowattributes, "XChangeWindowAttributes"); < pragma INTERFACE_NAME (Xsetwindowbackground, "XSetWindowBackground"); < pragma INTERFACE_NAME (Xsetwindowbackgroundpixmap, < "XSetWindowBackgroundPixmap"); < pragma INTERFACE_NAME (Xsetwindowborder, "XSetWindowBorder"); < pragma INTERFACE_NAME (Xsetwindowborderpixmap, "XSetWindowBorderPixmap"); < pragma INTERFACE_NAME (Xtranslatecoordinates, "XTranslateCoordinates"); < pragma INTERFACE_NAME (Xquerytree, "XQueryTree"); < pragma INTERFACE_NAME (Xgetwindowattributes, "XGetWindowAttributes"); < pragma INTERFACE_NAME (Xgetgeometry, "XGetGeometry"); < pragma INTERFACE_NAME (Xparsegeometry, "XParseGeometry"); < pragma INTERFACE_NAME (Xgeometry, "XGeometry"); < pragma INTERFACE_NAME (Xquerypointer, "XQueryPointer"); < pragma INTERFACE_NAME (Xinternatom, "XInternAtom"); < pragma INTERFACE_NAME (Xgetatomname, "XGetAtomName"); < pragma INTERFACE_NAME (Xgetwindowproperty, "XGetWindowProperty"); < pragma INTERFACE_NAME (Xlistproperties, "XListProperties"); < pragma INTERFACE_NAME (Xchangeproperty, "XChangeProperty"); < pragma INTERFACE_NAME (Xrotatewindowproperties, "XRotateWindowProperties"); < pragma INTERFACE_NAME (Xdeleteproperty, "XDeleteProperty"); < pragma INTERFACE_NAME (Xsetselectionowner, "XSetSelectionOwner"); < pragma INTERFACE_NAME (Xgetselectionowner, "XGetSelectionOwner"); < pragma INTERFACE_NAME (Xconvertselection, "XConvertSelection"); < pragma INTERFACE_NAME (Xreparentwindow, "XReparentWindow"); < pragma INTERFACE_NAME (Xchangesaveset, "XChangeSaveSet"); < pragma INTERFACE_NAME (Xaddtosaveset, "XAddToSaveSet"); < pragma INTERFACE_NAME (Xremovefromsaveset, "XRemoveFromSaveSet"); < pragma INTERFACE_NAME (Xsavecontext, "XSaveContext"); < pragma INTERFACE_NAME (Xfindcontext, "XFindContext"); < pragma INTERFACE_NAME (Xdeletecontext, "XDeleteContext"); < 2014,2019c1820,1825 < pragma INTERFACE (C, Xstorebuffer); < pragma INTERFACE (C, Xstorebytes); < pragma INTERFACE (C, Xfetchbuffer); < pragma INTERFACE (C, Xfetchbytes); < pragma INTERFACE (C, Xrotatebuffers); < pragma INTERFACE (C, Xdisplayname); --- > pragma INTERFACE (C, Xstorebuffer, "_XStoreBuffer"); > pragma INTERFACE (C, Xstorebytes, "_XStoreBytes"); > pragma INTERFACE (C, Xfetchbuffer, "_XFetchBuffer"); > pragma INTERFACE (C, Xfetchbytes, "_XFetchBytes"); > pragma INTERFACE (C, Xrotatebuffers, "_XRotateBuffers"); > pragma INTERFACE (C, Xdisplayname, "_XDisplayName"); 2021,2027d1826 < pragma INTERFACE_NAME (Xstorebuffer, "XStoreBuffer"); < pragma INTERFACE_NAME (Xstorebytes, "XStoreBytes"); < pragma INTERFACE_NAME (Xfetchbuffer, "XFetchBuffer"); < pragma INTERFACE_NAME (Xfetchbytes, "XFetchBytes"); < pragma INTERFACE_NAME (Xrotatebuffers, "XRotateBuffers"); < pragma INTERFACE_NAME (Xdisplayname, "XDisplayName"); < 2165,2189c1964,1988 < pragma INTERFACE (C, Xselectinput); < pragma INTERFACE (C, Xflush); < pragma INTERFACE (C, Xsync); < pragma INTERFACE (C, Xpending); < pragma INTERFACE (C, Xeventsqueued); < pragma INTERFACE (C, Xnextevent); < pragma INTERFACE (C, Xpeekevent); < pragma INTERFACE (C, Xputbackevent); < pragma INTERFACE (C, Xwindowevent); < pragma INTERFACE (C, Xcheckwindowevent); < pragma INTERFACE (C, Xchecktypedevent); < pragma INTERFACE (C, Xchecktypedwindowevent); < pragma INTERFACE (C, Xmaskevent); < pragma INTERFACE (C, Xcheckmaskevent); < pragma INTERFACE (C, Xgetmotionevents); < pragma INTERFACE (C, Xsendevent); < pragma INTERFACE (C, Xlookupkeysym); < pragma INTERFACE (C, Xrefreshkeyboardmapping); < pragma INTERFACE (C, Xlookupstring); < pragma INTERFACE (C, Xrebindkeysym); < pragma INTERFACE (C, Xstringtokeysym); < pragma INTERFACE (C, Xkeysymtostring); < pragma INTERFACE (C, Xkeycodetokeysym); < pragma INTERFACE (C, Xkeysymtokeycode); < pragma INTERFACE (C, Xgetdefault); --- > pragma INTERFACE (C, Xselectinput, "_XSelectInput"); > pragma INTERFACE (C, Xflush, "_XFlush"); > pragma INTERFACE (C, Xsync, "_XSync"); > pragma INTERFACE (C, Xpending, "_XPending"); > pragma INTERFACE (C, Xeventsqueued, "_XEventsQueued"); > pragma INTERFACE (C, Xnextevent, "_XNextEvent"); > pragma INTERFACE (C, Xpeekevent, "_XPeekEvent"); > pragma INTERFACE (C, Xputbackevent, "_XPutBackEvent"); > pragma INTERFACE (C, Xwindowevent, "_XWindowEvent"); > pragma INTERFACE (C, Xcheckwindowevent, "_XCheckWindowEvent"); > pragma INTERFACE (C, Xchecktypedevent, "_XCheckTypedEvent"); > pragma INTERFACE (C, Xchecktypedwindowevent, "_XCheckTypedWindowEvent"); > pragma INTERFACE (C, Xmaskevent, "_XMaskEvent"); > pragma INTERFACE (C, Xcheckmaskevent, "_XCheckMaskEvent"); > pragma INTERFACE (C, Xgetmotionevents, "_XGetMotionEvents"); > pragma INTERFACE (C, Xsendevent, "_XSendEvent"); > pragma INTERFACE (C, Xlookupkeysym, "_XLookupKeysym"); > pragma INTERFACE (C, Xrefreshkeyboardmapping, "_XRefreshKeyboardMapping"); > pragma INTERFACE (C, Xlookupstring, "_XLookupString"); > pragma INTERFACE (C, Xrebindkeysym, "_XRebindKeysym"); > pragma INTERFACE (C, Xstringtokeysym, "_XStringToKeysym"); > pragma INTERFACE (C, Xkeysymtostring, "_XKeysymToString"); > pragma INTERFACE (C, Xkeycodetokeysym, "_XKeycodeToKeysym"); > pragma INTERFACE (C, Xkeysymtokeycode, "_XKeysymToKeycode"); > pragma INTERFACE (C, Xgetdefault, "_XGetDefault"); 2191,2216d1989 < pragma INTERFACE_NAME (Xgetmotionevents, "XGetMotionEvents"); < pragma INTERFACE_NAME (Xsendevent, "XSendEvent"); < pragma INTERFACE_NAME (Xlookupkeysym, "XLookupKeysym"); < pragma INTERFACE_NAME (Xrefreshkeyboardmapping, "XRefreshKeyboardMapping"); < pragma INTERFACE_NAME (Xlookupstring, "XLookupString"); < pragma INTERFACE_NAME (Xrebindkeysym, "XRebindKeysym"); < pragma INTERFACE_NAME (Xgetdefault, "XGetDefault"); < pragma INTERFACE_NAME (Xstringtokeysym, "XStringToKeysym"); < pragma INTERFACE_NAME (Xkeysymtostring, "XKeysymToString"); < pragma INTERFACE_NAME (Xkeycodetokeysym, "XKeycodeToKeysym"); < pragma INTERFACE_NAME (Xkeysymtokeycode, "XKeysymToKeycode"); < pragma INTERFACE_NAME (Xselectinput, "XSelectInput"); < pragma INTERFACE_NAME (Xflush, "XFlush"); < pragma INTERFACE_NAME (Xsync, "XSync"); < pragma INTERFACE_NAME (Xpending, "XPending"); < pragma INTERFACE_NAME (Xeventsqueued, "XEventsQueued"); < pragma INTERFACE_NAME (Xnextevent, "XNextEvent"); < pragma INTERFACE_NAME (Xpeekevent, "XPeekEvent"); < pragma INTERFACE_NAME (Xputbackevent, "XPutBackEvent"); < pragma INTERFACE_NAME (Xwindowevent, "XWindowEvent"); < pragma INTERFACE_NAME (Xcheckwindowevent, "XCheckWindowEvent"); < pragma INTERFACE_NAME (Xchecktypedevent, "XCheckTypedEvent"); < pragma INTERFACE_NAME (Xchecktypedwindowevent, "XCheckTypedWindowEvent"); < pragma INTERFACE_NAME (Xmaskevent, "XMaskEvent"); < pragma INTERFACE_NAME (Xcheckmaskevent, "XCheckMaskEvent"); < 2284c2057 < !3 Window_Id : in Long; --- > Window_Id : in Long; 2445,2539c2218,2264 < pragma INTERFACE (C, Xgrabbutton); < pragma INTERFACE (C, Xungrabbutton); < pragma INTERFACE (C, Xgrabpointer); < pragma INTERFACE (C, Xungrabpointer); < pragma INTERFACE (C, Xchangeactivepointergrab); < pragma INTERFACE (C, Xgrabkeyboard); < pragma INTERFACE (C, Xungrabkeyboard); < pragma INTERFACE (C, Xgrabkey); < pragma INTERFACE (C, Xungrabkey); < pragma INTERFACE (C, Xallowevents); < pragma INTERFACE (C, Xgrabserver); < pragma INTERFACE (C, Xungrabserver); < pragma INTERFACE (C, Xwarppointer); < pragma INTERFACE (C, Xsetinputfocus); < pragma INTERFACE (C, Xgetinputfocus); < pragma INTERFACE (C, Xchangepointercontrol); < pragma INTERFACE (C, Xgetpointercontrol); < pragma INTERFACE (C, Xsetclosedownmode); < pragma INTERFACE (C, Xkillclient); < pragma INTERFACE (C, Xchangekeyboardcontrol); < pragma INTERFACE (C, Xgetkeyboardcontrol); < pragma INTERFACE (C, Xautorepeaton); < pragma INTERFACE (C, Xautorepeatoff); < pragma INTERFACE (C, Xbell); < pragma INTERFACE (C, Xsetpointermapping); < pragma INTERFACE (C, Xgetpointermapping); < pragma INTERFACE (C, Xquerykeymap); < pragma INTERFACE (C, Xgetkeyboardmapping); < pragma INTERFACE (C, Xchangekeyboardmapping); < pragma INTERFACE (C, Xsetmodifiermapping); < pragma INTERFACE (C, Xgetmodifiermapping); < pragma INTERFACE (C, Xfreemodifiermapping); < pragma INTERFACE (C, Xnewmodifiermapping); < pragma INTERFACE (C, Xsetscreensaver); < pragma INTERFACE (C, Xforcescreensaver); < pragma INTERFACE (C, Xactivatescreensaver); < pragma INTERFACE (C, Xresetscreensaver); < pragma INTERFACE (C, Xgetscreensaver); < pragma INTERFACE (C, Xaddhost); < pragma INTERFACE (C, Xaddhosts); < pragma INTERFACE (C, Xlisthosts); < pragma INTERFACE (C, Xremovehost); < pragma INTERFACE (C, Xremovehosts); < pragma INTERFACE (C, Xsetaccesscontrol); < pragma INTERFACE (C, Xenableaccesscontrol); < pragma INTERFACE (C, Xdisableaccesscontrol); < < pragma INTERFACE_NAME (Xgrabbutton, "XGrabButton"); < pragma INTERFACE_NAME (Xungrabbutton, "XUngrabButton"); < pragma INTERFACE_NAME (Xgrabpointer, "XGrabPointer"); < pragma INTERFACE_NAME (Xungrabpointer, "XUngrabPointer"); < pragma INTERFACE_NAME (Xchangeactivepointergrab, "XChangeActivePointerGrab"); < pragma INTERFACE_NAME (Xgrabkeyboard, "XGrabKeyboard"); < pragma INTERFACE_NAME (Xungrabkeyboard, "XUngrabKeyboard"); < pragma INTERFACE_NAME (Xgrabkey, "XGrabKey"); < pragma INTERFACE_NAME (Xungrabkey, "XUngrabKey"); < pragma INTERFACE_NAME (Xallowevents, "XAllowEvents"); < pragma INTERFACE_NAME (Xgrabserver, "XGrabServer"); < pragma INTERFACE_NAME (Xungrabserver, "XUngrabServer"); < pragma INTERFACE_NAME (Xwarppointer, "XWarpPointer"); < pragma INTERFACE_NAME (Xsetinputfocus, "XSetInputFocus"); < pragma INTERFACE_NAME (Xgetinputfocus, "XGetInputFocus"); < pragma INTERFACE_NAME (Xchangepointercontrol, "XChangePointerControl"); < pragma INTERFACE_NAME (Xgetpointercontrol, "XGetPointerControl"); < pragma INTERFACE_NAME (Xsetclosedownmode, "XSetCloseDownMode"); < pragma INTERFACE_NAME (Xkillclient, "XKillClient"); < pragma INTERFACE_NAME (Xchangekeyboardcontrol, "XChangeKeyboardControl"); < pragma INTERFACE_NAME (Xgetkeyboardcontrol, "XGetKeyboardControl"); < pragma INTERFACE_NAME (Xautorepeaton, "XAutoRepeatOn"); < pragma INTERFACE_NAME (Xautorepeatoff, "XAutoRepeatOff"); < pragma INTERFACE_NAME (Xbell, "XBell"); < pragma INTERFACE_NAME (Xsetpointermapping, "XSetPointerMapping"); < pragma INTERFACE_NAME (Xgetpointermapping, "XGetPointerMapping"); < pragma INTERFACE_NAME (Xquerykeymap, "XQueryKeymap"); < pragma INTERFACE_NAME (Xgetkeyboardmapping, "XGetKeyboardMapping"); < pragma INTERFACE_NAME (Xchangekeyboardmapping, "XChangeKeyboardMapping"); < pragma INTERFACE_NAME (Xsetmodifiermapping, "XSetModifierMapping"); < pragma INTERFACE_NAME (Xgetmodifiermapping, "XGetModifierMapping"); < pragma INTERFACE_NAME (Xfreemodifiermapping, "XFreeModifiermap"); < pragma INTERFACE_NAME (Xnewmodifiermapping, "XNewModifiermap"); < pragma INTERFACE_NAME (Xsetscreensaver, "XSetScreenSaver"); < pragma INTERFACE_NAME (Xforcescreensaver, "XForceScreenSaver"); < pragma INTERFACE_NAME (Xactivatescreensaver, "XActivateScreenSaver"); < pragma INTERFACE_NAME (Xresetscreensaver, "XResetScreenSaver"); < pragma INTERFACE_NAME (Xgetscreensaver, "XGetScreenSaver"); < pragma INTERFACE_NAME (Xaddhost, "XAddHost"); < pragma INTERFACE_NAME (Xaddhosts, "XAddHosts"); < pragma INTERFACE_NAME (Xlisthosts, "XListHosts"); < pragma INTERFACE_NAME (Xremovehost, "XRemoveHost"); < pragma INTERFACE_NAME (Xremovehosts, "XRemoveHosts"); < pragma INTERFACE_NAME (Xsetaccesscontrol, "XSetAccessControl"); < pragma INTERFACE_NAME (Xenableaccesscontrol, "XEnableAccessControl"); < pragma INTERFACE_NAME (Xdisableaccesscontrol, "XDisableAccessControl"); < pragma INTERFACE_NAME (Xsynchronize, "XSynchronize"); < --- > pragma INTERFACE (C, Xgrabbutton, "_XGrabButton"); > pragma INTERFACE (C, Xungrabbutton, "_XUngrabButton"); > pragma INTERFACE (C, Xgrabpointer, "_XGrabPointer"); > pragma INTERFACE (C, Xungrabpointer, "_XUngrabPointer"); > pragma INTERFACE (C, Xchangeactivepointergrab, "_XChangeActivePointerGrab"); > pragma INTERFACE (C, Xgrabkeyboard, "_XGrabKeyboard"); > pragma INTERFACE (C, Xungrabkeyboard, "_XUngrabKeyboard"); > pragma INTERFACE (C, Xgrabkey, "_XGrabKey"); > pragma INTERFACE (C, Xungrabkey, "_XUngrabKey"); > pragma INTERFACE (C, Xallowevents, "_XAllowEvents"); > pragma INTERFACE (C, Xgrabserver, "_XGrabServer"); > pragma INTERFACE (C, Xungrabserver, "_XUngrabServer"); > pragma INTERFACE (C, Xwarppointer, "_XWarpPointer"); > pragma INTERFACE (C, Xsetinputfocus, "_XSetInputFocus"); > pragma INTERFACE (C, Xgetinputfocus, "_XGetInputFocus"); > pragma INTERFACE (C, Xchangepointercontrol, "_XChangePointerControl"); > pragma INTERFACE (C, Xgetpointercontrol, "_XGetPointerControl"); > pragma INTERFACE (C, Xsetclosedownmode, "_XSetCloseDownMode"); > pragma INTERFACE (C, Xkillclient, "_XKillClient"); > pragma INTERFACE (C, Xchangekeyboardcontrol, "_XChangeKeyboardControl"); > pragma INTERFACE (C, Xgetkeyboardcontrol, "_XGetKeyboardControl"); > pragma INTERFACE (C, Xautorepeaton, "_XAutoRepeatOn"); > pragma INTERFACE (C, Xautorepeatoff, "_XAutoRepeatOff"); > pragma INTERFACE (C, Xbell, "_XBell"); > pragma INTERFACE (C, Xsetpointermapping, "_XSetPointerMapping"); > pragma INTERFACE (C, Xgetpointermapping, "_XGetPointerMapping"); > pragma INTERFACE (C, Xquerykeymap, "_XQueryKeymap"); > pragma INTERFACE (C, Xgetkeyboardmapping, "_XGetKeyboardMapping"); > pragma INTERFACE (C, Xchangekeyboardmapping, "_XChangeKeyboardMapping"); > pragma INTERFACE (C, Xsetmodifiermapping, "_XSetModifierMapping"); > pragma INTERFACE (C, Xgetmodifiermapping, "_XGetModifierMapping"); > pragma INTERFACE (C, Xfreemodifiermapping, "_XFreeModifiermap"); > pragma INTERFACE (C, Xnewmodifiermapping, "_XNewModifiermap"); > pragma INTERFACE (C, Xsetscreensaver, "_XSetScreenSaver"); > pragma INTERFACE (C, Xforcescreensaver, "_XForceScreenSaver"); > pragma INTERFACE (C, Xactivatescreensaver, "_XActivateScreenSaver"); > pragma INTERFACE (C, Xresetscreensaver, "_XResetScreenSaver"); > pragma INTERFACE (C, Xgetscreensaver, "_XGetScreenSaver"); > pragma INTERFACE (C, Xaddhost, "_XAddHost"); > pragma INTERFACE (C, Xaddhosts, "_XAddHosts"); > pragma INTERFACE (C, Xlisthosts, "_XListHosts"); > pragma INTERFACE (C, Xremovehost, "_XRemoveHost"); > pragma INTERFACE (C, Xremovehosts, "_XRemoveHosts"); > pragma INTERFACE (C, Xsetaccesscontrol, "_XSetAccessControl"); > pragma INTERFACE (C, Xenableaccesscontrol, "_XEnableAccessControl"); > pragma INTERFACE (C, Xdisableaccesscontrol, "_XDisableAccessControl"); > 2604,2619c2329,2344 < pragma INTERFACE (C, Xpolygonregion); < pragma INTERFACE (C, Xclipbox); < pragma INTERFACE (C, Xsetregion); < pragma INTERFACE (C, Xcreateregion); < pragma INTERFACE (C, Xdestroyregion); < pragma INTERFACE (C, Xoffsetregion); < pragma INTERFACE (C, Xshrinkregion); < pragma INTERFACE (C, Xintersectregion); < pragma INTERFACE (C, Xunionregion); < pragma INTERFACE (C, Xunionrectwithregion); < pragma INTERFACE (C, Xsubtractregion); < pragma INTERFACE (C, Xxorregion); < pragma INTERFACE (C, Xemptyregion); < pragma INTERFACE (C, Xequalregion); < pragma INTERFACE (C, Xpointinregion); < pragma INTERFACE (C, Xrectinregion); --- > pragma INTERFACE (C, Xpolygonregion, "_XPolygonRegion"); > pragma INTERFACE (C, Xclipbox, "_XClipBox"); > pragma INTERFACE (C, Xsetregion, "_XSetRegion"); > pragma INTERFACE (C, Xcreateregion, "_XCreateRegion"); > pragma INTERFACE (C, Xdestroyregion, "_XDestroyRegion"); > pragma INTERFACE (C, Xoffsetregion, "_XOffsetRegion"); > pragma INTERFACE (C, Xshrinkregion, "_XShrinkRegion"); > pragma INTERFACE (C, Xintersectregion, "_XIntersectRegion"); > pragma INTERFACE (C, Xunionregion, "_XUnionRegion"); > pragma INTERFACE (C, Xunionrectwithregion, "_XUnionRectWithRegion"); > pragma INTERFACE (C, Xsubtractregion, "_XSubtractRegion"); > pragma INTERFACE (C, Xxorregion, "_XXorRegion"); > pragma INTERFACE (C, Xemptyregion, "_XEmptyRegion"); > pragma INTERFACE (C, Xequalregion, "_XEqualRegion"); > pragma INTERFACE (C, Xpointinregion, "_XPointInRegion"); > pragma INTERFACE (C, Xrectinregion, "_XRectInRegion"); 2621,2637d2345 < pragma INTERFACE_NAME (Xpolygonregion, "XPolygonRegion"); < pragma INTERFACE_NAME (Xclipbox, "XClipBox"); < pragma INTERFACE_NAME (Xsetregion, "XSetRegion"); < pragma INTERFACE_NAME (Xcreateregion, "XCreateRegion"); < pragma INTERFACE_NAME (Xdestroyregion, "XDestroyRegion"); < pragma INTERFACE_NAME (Xoffsetregion, "XOffsetRegion"); < pragma INTERFACE_NAME (Xshrinkregion, "XShrinkRegion"); < pragma INTERFACE_NAME (Xintersectregion, "XIntersectRegion"); < pragma INTERFACE_NAME (Xunionregion, "XUnionRegion"); < pragma INTERFACE_NAME (Xunionrectwithregion, "XUnionRectWithRegion"); < pragma INTERFACE_NAME (Xsubtractregion, "XSubtractRegion"); < pragma INTERFACE_NAME (Xxorregion, "XXorRegion"); < pragma INTERFACE_NAME (Xemptyregion, "XEmptyRegion"); < pragma INTERFACE_NAME (Xequalregion, "XEqualRegion"); < pragma INTERFACE_NAME (Xpointinregion, "XPointInRegion"); < pragma INTERFACE_NAME (Xrectinregion, "XRectInRegion"); < 2661,2662c2369,2370 < pragma INTERFACE (C, "Or"); < pragma INTERFACE (C, "And"); --- > pragma INTERFACE (C, "Or", "_or"); > pragma INTERFACE (C, "And", "_and"); 3. Modification of the EVENT records in the body of the events package. diff x_events.a ../x_events.a 87a88,94 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 127a135,141 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 167a182,188 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 207a229,235 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 249a278,284 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 274a310,316 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 305a348,354 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 340a390,396 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 377a434,440 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 409a473,479 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 440a511,517 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 477a555,561 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 508a593,599 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 540a632,638 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 572a671,677 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 603a709,715 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 638a751,757 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 676a796,802 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 709a836,842 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 741a875,881 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 780a921,927 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 812a960,966 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 844a999,1005 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 877a1039,1045 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 909a1078,1084 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 944a1120,1126 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 978a1161,1167 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 1007a1197,1203 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 1040a1237,1243 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 1075a1279,1285 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 1107a1318,1324 > Word_17 : X_Windows_Interface.Long; > Word_18 : X_Windows_Interface.Long; > Word_19 : X_Windows_Interface.Long; > Word_20 : X_Windows_Interface.Long; > Word_21 : X_Windows_Interface.Long; > Word_22 : X_Windows_Interface.Long; > Word_23 : X_Windows_Interface.Long; 2149c2366,2367 < State => Mask_To_Long (The_Event.Crossing.State))); --- > State => Mask_To_Long (The_Event.Crossing.State), > others => 0)); ------------------ Distribution and Copyright ----------------- -- -- Derivation : MIT X Window System, V11.R1 -- -- This Ada language binding to the X Window System inherits -- the MIT copyright. The following copyright must be included -- in all software utilizing this binding. -- -- Copyright 1985, 1986, 1987 by the Massachusetts Institute of Technology -- -- Permission to use, copy, modify, and distribute this -- software and its documentation for any purpose and without -- fee is hereby granted, provided that the above copyright -- notice appear in all copies and that both that copyright -- notice and this permission notice appear in supporting -- documentation, and that the name of M.I.T. not be used in -- advertising or publicity pertaining to distribution of the -- software without specific, written prior permission. -- M.I.T. makes no representations about the suitability of -- this software for any purpose. It is provided "as is" -- without express or implied warranty. -- ------------------ Disclaimer --------------------------------- -- -- This software and its documentation are provided "AS IS" and -- without any expressed or implied warranties whatsoever. -- No warranties as to performance, merchantability, or fitness -- for a particular purpose exist. -- -- In no event shall any person or organization of people be -- held responsible for any direct, indirect, consequential -- or inconsequential damages or lost profits. -- -------------------END-PROLOGUE--------------------------------