home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / ST_PASCA.LZH / GEMSUBS.PAS < prev    next >
Pascal/Delphi Source File  |  1987-04-22  |  10KB  |  292 lines
  1. { gemsubs.pas - EXTERNAL declarations for Personal Pascal library routines. }
  2.  
  3. FUNCTION Init_Gem : integer ;
  4.   EXTERNAL ;
  5. PROCEDURE Exit_Gem ;
  6.   EXTERNAL ;
  7.  
  8. FUNCTION Do_Alert( alert : Str255 ; def_btn : integer ) : integer ;
  9.   EXTERNAL ;
  10.  
  11. FUNCTION New_Dialog( n_items, x, y, w, h : integer ) : Dialog_Ptr ;
  12.   EXTERNAL ;
  13. PROCEDURE Delete_Dialog( dial : Dialog_Ptr ) ;
  14.   EXTERNAL ;
  15. FUNCTION Add_DItem( dial : Dialog_Ptr ; i_type, flags : integer ;
  16.          x, y, w, h : integer ; border, color : integer ) : Tree_Index ;
  17.   EXTERNAL ;
  18. PROCEDURE Set_DText( dial : Dialog_Ptr ; item : Tree_Index ; s : Str255 ;
  19.                         font : integer ; just : TE_Just ) ;
  20.   EXTERNAL ;
  21. PROCEDURE Set_DEdit( dial : Dialog_Ptr ; item : Tree_Index ;
  22.                         template, valid, initial : Str255 ;
  23.                         font : integer ; just : TE_Just ) ;
  24.   EXTERNAL ;
  25. PROCEDURE Obj_SetState( dial : Dialog_Ptr ; index : Tree_Index ;
  26.                         state : integer ; redraw : boolean ) ;
  27.   EXTERNAL ;
  28. FUNCTION Obj_State( dial : Dialog_Ptr ; index : Tree_Index ) : integer ;
  29.   EXTERNAL ;
  30. PROCEDURE Obj_SetFlags( dial : Dialog_Ptr ; index : Tree_Index ;
  31.                         flags : integer ) ;
  32.   EXTERNAL ;
  33. FUNCTION Obj_Flags( dial : Dialog_Ptr ; index : Tree_Index ) : integer ;
  34.   EXTERNAL ;
  35. PROCEDURE Center_Dialog( dial : Dialog_Ptr ) ;
  36.   EXTERNAL ;
  37. FUNCTION Do_Dialog( dial : Dialog_Ptr ; start_obj : integer ) : integer ;
  38.   EXTERNAL ;
  39. PROCEDURE Get_DEdit( dial : Dialog_Ptr ; item : Tree_Index ; VAR s : Str255 ) ;
  40.   EXTERNAL ;
  41. FUNCTION Redo_Dialog( dial : Dialog_Ptr ; start_obj : integer ) : integer ;
  42.   EXTERNAL ;
  43. PROCEDURE End_Dialog( dial : Dialog_Ptr ) ;
  44.   EXTERNAL ;
  45.  
  46. FUNCTION Get_In_File( VAR path, name : Path_Name ) : boolean ;
  47.   EXTERNAL ;
  48. FUNCTION Get_Out_File( prompt : Str255 ; VAR name : Path_Name ) : boolean ;
  49.   EXTERNAL ;
  50.  
  51. FUNCTION New_Menu( n_items : integer ; about : Str255 ) : Menu_Ptr ;
  52.   EXTERNAL ;
  53. PROCEDURE Delete_Menu( menu : Menu_Ptr ) ;
  54.   EXTERNAL ;
  55. FUNCTION Add_MTitle( menu : Menu_Ptr ; item : Str255 ) : integer ;
  56.   EXTERNAL ;
  57. FUNCTION Add_MItem( menu : Menu_Ptr ; title : Tree_Index ; item : Str255 )
  58.                                                 : integer ;
  59.   EXTERNAL ;
  60. PROCEDURE Draw_Menu( menu : Menu_Ptr ) ;
  61.   EXTERNAL ;
  62. PROCEDURE Erase_Menu( menu : Menu_Ptr ) ;
  63.   EXTERNAL ;
  64. PROCEDURE Menu_Hilight( menu : Menu_Ptr ; title : Tree_Index ) ;
  65.   EXTERNAL ;
  66. PROCEDURE Menu_Normal( menu : Menu_Ptr ; title : Tree_Index ) ;
  67.   EXTERNAL ;
  68. PROCEDURE Menu_Check(menu : Menu_Ptr ; item : Tree_Index ; checked : boolean );
  69.   EXTERNAL ;
  70. PROCEDURE Menu_Enable( menu : Menu_Ptr ; item : Tree_Index ) ;
  71.   EXTERNAL ;
  72. PROCEDURE Menu_Disable( menu : Menu_Ptr ; item : Tree_Index ) ;
  73.   EXTERNAL ;
  74. PROCEDURE Menu_Text(menu : Menu_Ptr ; item : Tree_Index ; VAR mtext : Str255);
  75.   EXTERNAL ;
  76.  
  77. FUNCTION New_Window( w_type : integer ; VAR title : Window_Title ;
  78.                         x_max, y_max, w_max, h_max : integer ) : integer ;
  79.   EXTERNAL ;
  80. PROCEDURE Open_Window( handle : integer ; x, y, w, h : integer ) ;
  81.   EXTERNAL ;
  82. PROCEDURE Close_Window( handle : integer ) ;
  83.   EXTERNAL ;
  84. PROCEDURE Delete_Window( handle : integer ) ;
  85.   EXTERNAL ;
  86. PROCEDURE Set_WSize( handle, x, y, w, h : integer ) ;
  87.   EXTERNAL ;
  88. PROCEDURE Set_WName( handle : integer ; VAR title : Window_Title ) ;
  89.   EXTERNAL ;
  90. PROCEDURE Set_WInfo( handle : integer ; VAR info : Window_Title ) ;
  91.   EXTERNAL ;
  92. PROCEDURE Border_Rect( wind : integer ; VAR x, y, w, h : integer ) ;
  93.   EXTERNAL ;
  94. PROCEDURE Work_Rect( wind : integer ; VAR x, y, w, h : integer ) ;
  95.   EXTERNAL ;
  96. PROCEDURE First_Rect( wind : integer ; VAR x, y, w, h : integer ) ;
  97.   EXTERNAL ;
  98. PROCEDURE Next_Rect( wind : integer ; VAR x, y, w, h : integer ) ;
  99.   EXTERNAL ;
  100. FUNCTION Rect_Intersect( x, y, w, h : integer ; VAR x1, y1, w1, h1 : integer )
  101.                         : boolean ;
  102.   EXTERNAL ;
  103. FUNCTION Front_Window : integer ;
  104.   EXTERNAL ;
  105. PROCEDURE Bring_To_Front( handle : integer ) ;
  106.   EXTERNAL ;
  107. PROCEDURE Set_Window( handle : integer ) ;
  108.   EXTERNAL ;
  109. FUNCTION Get_Window : integer ;
  110.   EXTERNAL ;
  111.  
  112. PROCEDURE Set_Clip( x, y, w, h : integer ) ;
  113.   EXTERNAL ;
  114. PROCEDURE Draw_Mode( mode : Draw_Modes ) ;
  115.   EXTERNAL ;
  116. PROCEDURE Set_Color( reg : Color_Reg ; red, green, blue : integer ) ;
  117.   EXTERNAL ;
  118. PROCEDURE Line_Color( color : Color_Reg ) ;
  119.   EXTERNAL ;
  120. PROCEDURE Line_Style( style : Line_Types ) ;
  121.   EXTERNAL ;
  122. PROCEDURE Paint_Color( color : Color_Reg ) ;
  123.   EXTERNAL ;
  124. PROCEDURE Paint_Style( style : integer ) ;
  125.   EXTERNAL ;
  126. PROCEDURE Paint_Outline( on : boolean ) ;
  127.   EXTERNAL ;
  128. PROCEDURE Text_Color( color : Color_Reg ) ;
  129.   EXTERNAL ;
  130. PROCEDURE Text_Style( style : integer ) ;
  131.   EXTERNAL ;
  132.  
  133. PROCEDURE Move_To( x, y : integer ) ;
  134.   EXTERNAL ;
  135. PROCEDURE PLine( x1, y1, x2, y2 : integer ) ;
  136.   EXTERNAL ;
  137. PROCEDURE Line_To( newx, newy : integer ) ;
  138.   EXTERNAL ;
  139. PROCEDURE Plot( x, y : integer ) ;
  140.   EXTERNAL ;
  141. PROCEDURE Paint_Rect( x, y, w, h : integer ) ;
  142.   EXTERNAL ;
  143. PROCEDURE Frame_Rect( x, y, w, h : integer ) ;
  144.   EXTERNAL ;
  145. PROCEDURE Paint_Oval( x, y, x_rad, y_rad : integer ) ;
  146.   EXTERNAL ;
  147. PROCEDURE Frame_Oval( x, y, x_rad, y_rad : integer ) ;
  148.   EXTERNAL ;
  149. PROCEDURE Paint_Round_Rect( x, y, w, h : integer ) ;
  150.   EXTERNAL ;
  151. PROCEDURE Frame_Round_Rect( x, y, w, h : integer ) ;
  152.   EXTERNAL ;
  153. PROCEDURE Paint_Arc( x, y, x_rad, y_rad, beg_ang, end_ang : integer ) ;
  154.   EXTERNAL ;
  155. PROCEDURE Frame_Arc( x, y, x_rad, y_rad, beg_ang, end_ang : integer ) ;
  156.   EXTERNAL ;
  157. PROCEDURE Draw_String( x, y : integer ; s : Str255 ) ;
  158.   EXTERNAL ;
  159.  
  160. PROCEDURE Set_MForm( VAR form : Mouse_Form ) ;
  161.   EXTERNAL ;
  162. PROCEDURE Set_Mouse( m_type : Mouse_Type ) ;
  163.   EXTERNAL ;
  164. PROCEDURE Hide_Mouse ;
  165.   EXTERNAL ;
  166. PROCEDURE Show_Mouse ;
  167.   EXTERNAL ;
  168. PROCEDURE Init_Mouse ;
  169.   EXTERNAL ;
  170. PROCEDURE Begin_Mouse ;
  171.   EXTERNAL ;
  172. PROCEDURE End_Mouse ;
  173.   EXTERNAL ;
  174.  
  175. FUNCTION Get_Event(     emask, bmask, bstate, n_clicks : integer ;
  176.                         ticks : long_integer ;
  177.                         m1_flag : boolean ; m1x, m1y, m1w, m1h : integer ;
  178.                         m2_flag : boolean ; m2x, m2y, m2w, m2h : integer ;
  179.                         VAR message : Message_Buffer ;
  180.                         VAR key, brtn, bclick, mx, my, kstate : integer
  181.                         ) : integer ;
  182.   EXTERNAL ;
  183. PROCEDURE Begin_Update ;
  184.   EXTERNAL ;
  185. PROCEDURE End_Update ;
  186.   EXTERNAL ;
  187.  
  188. PROCEDURE Wind_Get( handle, request : integer ; VAR v1, v2, v3, v4 : integer );
  189.   EXTERNAL ;
  190. PROCEDURE Wind_Set( handle, request, v1, v2, v3, v4 : integer ) ;
  191.   EXTERNAL ;
  192. PROCEDURE Sys_Font_Size( VAR w_char, h_char, w_box, h_box : integer ) ;
  193.   EXTERNAL ;
  194. PROCEDURE Clear_Screen ;
  195.   EXTERNAL ;
  196. FUNCTION Load_Resource( fn : Str255 ) : boolean ;
  197.   EXTERNAL ;
  198. PROCEDURE Find_Menu( index : integer ; VAR menu : Menu_Ptr ) ;
  199.   EXTERNAL ;
  200. PROCEDURE Find_Dialog( index : integer ; VAR dial : Dialog_Ptr ) ;
  201.   EXTERNAL ;
  202. PROCEDURE Find_Alert( index : integer ; VAR alert : Str255 ) ;
  203.   EXTERNAL ;
  204. PROCEDURE Free_Resource ;
  205.   EXTERNAL ;
  206. FUNCTION Menu_Register( id : integer ; VAR name : Str255 ) : integer ;
  207.   EXTERNAL ;
  208.  
  209. PROCEDURE VDI_Call( cmd, sub_cmd : integer ; nints, npts : integer ;
  210.                     VAR ctrl : Ctrl_Parms ;
  211.                     VAR int_in : Int_In_Parms ; VAR int_out : Int_Out_Parms ;
  212.                     VAR pts_in : Pts_In_Parms ; VAR pts_out : Pts_Out_Parms ;
  213.                     translate : boolean ) ;
  214.   EXTERNAL ;
  215.  
  216. PROCEDURE AES_CALL( op:integer; var Int_in :Int_in_parms; var INT_out:
  217.                     Int_out_Parms; var addr_in:addr_in_Parms;
  218.                     VAR Addr_out:addr_out_parms);
  219.   EXTERNAL;
  220.  
  221. PROCEDURE DRAGBOX (x1,y1,b1,h1,x2,y2,b2,h2:integer;
  222.                    VAR endx,endy  :integer);  
  223. EXTERNAL;
  224.  
  225. PROCEDURE RUBBERBOX (x,y,b1,h1:integer;VAR b2,h2 :integer);     
  226. EXTERNAL;
  227.  
  228. PROCEDURE MOVEBOX ( x1,y1,breite,hoehe,x2,y2: integer ); 
  229. EXTERNAL;
  230.  
  231. PROCEDURE GROWBOX ( kl_x,kl_y,kl_b,kl_h,gr_x,gr_y,gr_b,gr_h : integer);
  232. EXTERNAL;
  233.  
  234. PROCEDURE SHRINKBOX ( kl_x,kl_y,kl_b,kl_h,gr_x,gr_y,gr_b,gr_h : integer);
  235. EXTERNAL;
  236.  
  237. PROCEDURE Line_Width(Breite:integer);
  238. EXTERNAL;
  239.  
  240. PROCEDURE Line_Endstyle(anfang,ende:integer);
  241. EXTERNAL;
  242.  
  243. PROCEDURE Text_Rotation(winkel:integer);
  244. EXTERNAL;
  245.  
  246. PROCEDURE Justified_Text(x,y,Laenge,wort,zeichen:integer; s:Str255);
  247.  
  248. EXTERNAL;
  249.  
  250. PROCEDURE Text_Alignment(hor,ver:integer);
  251. EXTERNAL;
  252.  
  253. PROCEDURE Open_Port ( device : Gem_Device );
  254. EXTERNAL;
  255.  
  256. PROCEDURE Close_Port ( port_handle : integer);
  257. EXTERNAL;
  258.  
  259. FUNCTION Obj_Find ( obj :Dialog_ptr ;start, depth, x, y : integer):integer;
  260. EXTERNAL;
  261.  
  262. PROCEDURE Obj_Offset ( t:Dialog_ptr; index:integer; VAR x,y:integer);
  263. EXTERNAL;
  264.  
  265. FUNCTION Find_Window ( x,y :integer ) : integer;
  266. EXTERNAL;
  267.  
  268. FUNCTION Find_Resource ( r_type, r_index : integer ) : tree_ptr;
  269. EXTERNAL;
  270.  
  271. PROCEDURE Obj_Size ( t:Tree_Ptr; index:integer; VAR x,y,b,h:integer);
  272. EXTERNAL;
  273.  
  274. PROCEDURE Obj_Draw( t:Tree_ptr; start,tiefe:Tree_index; 
  275.                     x_clip,y_clip,b_clip,h_clip:integer);
  276. EXTERNAL;
  277.  
  278. FUNCTION D_Color( Border, Text : Integer; Mode : Boolean; Pattern,  
  279.                   Inside : Integer ) : Integer; 
  280. EXTERNAL;
  281.  
  282. PROCEDURE Obj_Redraw(Box:Dialog_Ptr; item:Tree_index);
  283. EXTERNAL;
  284.  
  285. PROCEDURE Text_Heigth(Hoehe:integer);
  286. EXTERNAL;
  287.  
  288. PROCEDURE Show_Dialog ( Box:Dialog_Ptr );
  289. EXTERNAL;
  290.  
  291. {end of gemsubs}
  292.