home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / Libraries / PNL Libraries / MySIVCManual.p < prev    next >
Encoding:
Text File  |  1995-07-26  |  748 b   |  41 lines  |  [TEXT/CWIE]
  1. unit MySIVCManual;
  2.  
  3. interface
  4.  
  5.     uses
  6.         MySIVC;
  7.         
  8.     procedure InitSIVCManual(mcresult: SIVCManualQueryCallBack);
  9.     procedure FinishSIVCManual;
  10.     
  11. implementation
  12.  
  13.     uses
  14.         MyFMenus, MyMenus;
  15.  
  16.     var
  17.         mcresult_callback : SIVCManualQueryCallBack;
  18.  
  19.     procedure DoSIVCManual;
  20.     begin
  21.         ManualQuery(mcresult_callback);
  22.     end;
  23.     
  24.     procedure SetSIVCManual(themenu, theitem:integer);
  25.     begin
  26.         SetIDItemEnable(themenu, theitem, CanManualQuery);
  27.     end;
  28.     
  29.     procedure InitSIVCManual(mcresult: SIVCManualQueryCallBack);
  30.     begin
  31.         SetFBoth('sivc',@DOSIVCManual,@SetSIVCManual);
  32.         mcresult_callback := mcresult;
  33.     end;
  34.     
  35.     procedure FinishSIVCManual;
  36.     begin
  37.     end;
  38.     
  39. end.
  40.     procedure SetFBoth (command: OSType; cmdproc, smproc: ProcPtr); { NOTE: ProcPtr, NOT UniversalProcPtr! }
  41.