home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sa104os2.zip / SATHR104.ZIP / SATHER / CONTRIB / SCHNETTR / XLIB / GENERAL.SA < prev    next >
Text File  |  1994-11-22  |  563b  |  28 lines
  1. -- -*-Sather-*-
  2. -- access to the X window system routines
  3. -- (c) 1994/11/03 - 1994/11/22 by Erik Schnetter
  4.    
  5.    
  6.    
  7. class X_GENERAL is
  8.    -- general class, for all the things that belong nowhere
  9.    
  10. -- free a structure allocated by the Xlib
  11.    Free (ptr: EXT_OB) is C_X_GENERAL::X_Free(ptr) end;
  12.   
  13. -- return a value suitable for routine calls
  14.    AllPlanes: INT is return C_X_GENERAL::X_AllPlanes end;
  15.    
  16. end; -- class X_GENERAL
  17.    
  18.    
  19.    
  20. external class C_X_GENERAL is
  21.    
  22.    X_Free (ptr: EXT_OB);
  23.    
  24.    X_AllPlanes: INT;
  25.    
  26. end; -- class C_X_GENERAL
  27.    
  28.