home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 2 / crawlyvol2.bin / program / pascal / pdial / intrface / tools.int < prev   
Encoding:
Text File  |  1993-07-14  |  1.0 KB  |  40 lines
  1. unit tools;
  2.  
  3. interface
  4.  
  5. uses gem;
  6.  
  7. type 
  8.     GRECT            =    record
  9.                             g_x, g_y, g_w, g_h    :    integer;
  10.                         end;    
  11. type
  12.     MAPProc    =    function(tree: AESTreePtr; obj: integer): boolean;
  13.     
  14. function min(a, b: integer): integer;
  15. function max(a, b: integer): integer;
  16.  
  17. function hiword(l: longint): word;
  18. function loword(l: longint): word;
  19.  
  20. function  get_cookie(cookie: longint): pointer;
  21.  
  22. procedure set_state  (var obj: AESObject; state: integer);
  23. procedure unset_state(var obj: AESObject; state: integer);
  24. function  is_state   (var obj: AESObject; state: integer): boolean;
  25.    
  26. procedure set_flag  (var obj: AESObject; flag: integer);
  27. procedure unset_flag(var obj: AESObject; flag: integer);
  28. function  is_flag   (var obj: AESObject; flag: integer): boolean;
  29.  
  30. procedure deselect(var obj: AESObject);
  31. procedure draw_object(tree: AESTreePtr; obj: integer);
  32. function  is_enabled(var obj: AESObject): boolean;
  33.  
  34. procedure maptree(tree: AESTreePtr; this, last: integer; 
  35.                         routine: MAPProc);
  36.                     
  37. function isspace(c: char): boolean;
  38.  
  39.  
  40.