home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / apps / spread / opusprg / opussrc / gemsubs.def < prev    next >
Text File  |  1988-04-01  |  6KB  |  180 lines
  1.  
  2.  
  3. { gemsubs.pas }
  4.  
  5.  
  6. FUNCTION Init_Gem : integer ;
  7.   EXTERNAL ;
  8. PROCEDURE Exit_Gem ;
  9.   EXTERNAL ;
  10.  
  11. FUNCTION Do_Alert( alert : Str255 ; def_btn : integer ) : integer ;
  12.   EXTERNAL ;
  13.  
  14. PROCEDURE Obj_SetState( dial : Dialog_Ptr ; index : Tree_Index ;
  15.                         state : integer ; redraw : boolean ) ;
  16.   EXTERNAL ;
  17. FUNCTION Obj_State( dial : Dialog_Ptr ; index : Tree_Index ) : integer ;
  18.   EXTERNAL ;
  19. FUNCTION Obj_Flags( dial : Dialog_Ptr ; index : Tree_Index ) : integer ;
  20.   EXTERNAL ;
  21. PROCEDURE Obj_SetFlags( dial : Dialog_Ptr; index : Tree_Index; 
  22.                         flags : INTEGER );
  23.   EXTERNAL;
  24.  
  25. FUNCTION Get_In_File( VAR path, name : Path_Name ) : boolean ;
  26.   EXTERNAL ;
  27. FUNCTION Get_Out_File( prompt : Str255 ; VAR name : Path_Name ) : boolean ;
  28.   EXTERNAL ;
  29.  
  30. PROCEDURE Draw_Menu( menu : Menu_Ptr ) ;
  31.   EXTERNAL ;
  32. PROCEDURE Erase_Menu( menu : Menu_Ptr ) ;
  33.   EXTERNAL ;
  34. PROCEDURE Menu_Hilight( menu : Menu_Ptr ; title : Tree_Index ) ;
  35.   EXTERNAL ;
  36. PROCEDURE Menu_Normal( menu : Menu_Ptr ; title : Tree_Index ) ;
  37.   EXTERNAL ;
  38. PROCEDURE Menu_Check(menu : Menu_Ptr ; item : Tree_Index ; checked : boolean );
  39.   EXTERNAL ;
  40. PROCEDURE Menu_Enable( menu : Menu_Ptr ; item : Tree_Index ) ;
  41.   EXTERNAL ;
  42. PROCEDURE Menu_Disable( menu : Menu_Ptr ; item : Tree_Index ) ;
  43.   EXTERNAL ;
  44. PROCEDURE Menu_Text(menu : Menu_Ptr ; item : Tree_Index ; mtext : Str255);
  45.   EXTERNAL ;
  46.  
  47. FUNCTION New_Window( w_type : integer ; VAR title : Window_Title ; 
  48.                         x_max, y_max, w_max, h_max : integer ) : integer ;
  49.   EXTERNAL ;
  50. PROCEDURE Open_Window( handle : integer ; x, y, w, h : integer ) ;
  51.   EXTERNAL ;
  52. PROCEDURE Close_Window( handle : integer ) ;
  53.   EXTERNAL ;
  54. PROCEDURE Delete_Window( handle : integer ) ;
  55.   EXTERNAL ;
  56. PROCEDURE Set_WSize( handle, x, y, w, h : integer ) ;
  57.   EXTERNAL ;
  58. PROCEDURE Set_WName( handle : integer ; VAR title : Window_Title ) ;
  59.   EXTERNAL ;
  60. PROCEDURE Set_WInfo( handle : integer ; VAR info : Window_Title ) ;
  61.   EXTERNAL ;
  62. PROCEDURE Border_Rect( wind : integer ; VAR x, y, w, h : integer ) ;
  63.   EXTERNAL ;
  64. PROCEDURE Work_Rect( wind : integer ; VAR x, y, w, h : integer ) ;
  65.   EXTERNAL ;
  66. PROCEDURE First_Rect( wind : integer ; VAR x, y, w, h : integer ) ;
  67.   EXTERNAL ;
  68. PROCEDURE Next_Rect( wind : integer ; VAR x, y, w, h : integer ) ;
  69.   EXTERNAL ;
  70. FUNCTION Rect_Intersect ( x1, y1, w1, h1     : integer;
  71.                           VAR x2, y2, w2, h2 : integer ) : boolean ;
  72.   EXTERNAL ;
  73. FUNCTION Front_Window : integer ;
  74.   EXTERNAL ;
  75. PROCEDURE Bring_To_Front( handle : integer ) ;
  76.   EXTERNAL ;
  77. PROCEDURE Set_Window( handle : integer ) ;
  78.   EXTERNAL ;
  79. FUNCTION Get_Window : integer ;
  80.   EXTERNAL ;
  81.  
  82. PROCEDURE Set_Clip( x, y, w, h : integer ) ;
  83.   EXTERNAL ;
  84. PROCEDURE Draw_Mode( mode : Draw_Modes ) ;
  85.   EXTERNAL ;
  86. PROCEDURE Set_Color( reg : Color_Reg ; red, green, blue : integer ) ;
  87.   EXTERNAL ;
  88. PROCEDURE Line_Color( color : Color_Reg ) ;
  89.   EXTERNAL ;
  90. PROCEDURE Line_Style( style : Line_Types ) ;
  91.   EXTERNAL ;
  92. PROCEDURE Plot( x, y : integer ) ;
  93.   EXTERNAL ;
  94. PROCEDURE Paint_Color( color : Color_Reg ) ;
  95.   EXTERNAL ;
  96. PROCEDURE Paint_Style( style : integer ) ;
  97.   EXTERNAL ;
  98. PROCEDURE Paint_Outline( on : boolean ) ;
  99.   EXTERNAL ;
  100. PROCEDURE Text_Color( color : Color_Reg ) ;
  101.   EXTERNAL ;
  102. PROCEDURE Text_Style( style : integer ) ;
  103.   EXTERNAL ;
  104. PROCEDURE Line( x1, y1, x2, y2 : integer ) ;
  105.   EXTERNAL ;
  106. PROCEDURE Paint_Rect( x, y, w, h : integer ) ;
  107.   EXTERNAL ;
  108. PROCEDURE Paint_Round_Rect( x, y, w, h : integer ) ;
  109.   EXTERNAL ;
  110. PROCEDURE Frame_Round_Rect( x, y, w, h : integer ) ;
  111.   EXTERNAL ;
  112. PROCEDURE Frame_Rect( x, y, w, h : integer ) ;
  113.   EXTERNAL ;
  114.  
  115. PROCEDURE Draw_String( x, y : integer ; s : Str255 ) ;
  116.   EXTERNAL ;
  117.  
  118. PROCEDURE Set_MForm( VAR form : Mouse_Form ) ;
  119.   EXTERNAL ;
  120. PROCEDURE Set_Mouse( m_type : Mouse_Type ) ;
  121.   EXTERNAL ;
  122. PROCEDURE Hide_Mouse ;
  123.   EXTERNAL ;
  124. PROCEDURE Show_Mouse ;
  125.   EXTERNAL ;
  126.  
  127. FUNCTION Get_Event(     emask, bmask, bstate, n_clicks : integer ;
  128.                         ticks : long_integer ;
  129.                         m1_flag : boolean ; m1x, m1y, m1w, m1h : integer ;
  130.                         m2_flag : boolean ; m2x, m2y, m2w, m2h : integer ;
  131.                         VAR message : Message_Buffer ;
  132.                         VAR key, brtn, bclick, mx, my, kstate : integer
  133.                         ) : integer ;
  134.   EXTERNAL ;
  135. PROCEDURE Begin_Update ;
  136.   EXTERNAL ;
  137. PROCEDURE End_Update ;
  138.   EXTERNAL ;
  139. PROCEDURE Begin_Mouse;
  140.    EXTERNAL;
  141. PROCEDURE End_Mouse;
  142.    EXTERNAL;
  143.  
  144. PROCEDURE Wind_Get( handle, request : integer ; VAR v1, v2, v3, v4 : integer );
  145.   EXTERNAL ;
  146. PROCEDURE Wind_Set( handle, request, v1, v2, v3, v4 : integer ) ;
  147.   EXTERNAL ;
  148.  
  149. PROCEDURE Clear_Screen ;
  150.   EXTERNAL ;
  151.  
  152. FUNCTION Load_Resource( fn : Str255 ) : boolean ;
  153.   EXTERNAL ;
  154. PROCEDURE Find_Menu( index : integer ; VAR menu : Menu_Ptr ) ;
  155.   EXTERNAL ;
  156. PROCEDURE Find_Dialog( index : integer ; VAR dial : Dialog_Ptr ) ;
  157.   EXTERNAL ;
  158. PROCEDURE Find_Alert( index : integer ; VAR alert : Str255 ) ;
  159.   EXTERNAL ;
  160. PROCEDURE Free_Resource ;
  161.   EXTERNAL ;
  162.  
  163. FUNCTION IO_State : Boolean ;
  164.     EXTERNAL ;
  165. FUNCTION IO_Result : Short_Integer ;
  166.     EXTERNAL ;
  167. PROCEDURE IO_Check ( YesNo : Boolean ) ;
  168.     EXTERNAL ;
  169.  
  170. PROCEDURE Obj_Draw ( dial : Dialog_Ptr; index,depth : INTEGER;
  171.                      x_clip,y_clip,w_clip,h_clip : INTEGER );
  172.    EXTERNAL;
  173. PROCEDURE Obj_Size ( dial: Dialog_Ptr; index: INTEGER; VAR x,y,w,h: INTEGER );
  174.    EXTERNAL;
  175.  
  176. { end of Pascal standard library }
  177.  
  178.  
  179.  
  180.