home *** CD-ROM | disk | FTP | other *** search
/ MacGames Sampler / PHT MacGames Bundle.iso / MacSource Folder / Samples from the CD / Pascal / Source□ / Talk Source / My Libraries / MyOOAboutHelp.unit < prev    next >
Encoding:
Text File  |  1992-04-20  |  1.6 KB  |  94 lines  |  [TEXT/PJMM]
  1. unit OOAboutHelp;
  2.  
  3. { This program was written by Peter N Lewis, Mar 1992 in THINK Pascal 4.0.1 }
  4.  
  5. interface
  6.  
  7.     uses
  8.         OOMainLoop;
  9.  
  10.     var
  11.         about_object: WObject;
  12.         help_object: WObject;
  13.  
  14.     procedure InitOOAboutHelp;
  15.     procedure DoOOAbout;
  16.     procedure DoOOHelp;
  17.     function IsAboutFront: boolean;
  18.     function IsHelpFront: boolean;
  19.  
  20. implementation
  21.  
  22.     uses
  23.         MyUtils, MyUtilities;
  24.  
  25.     type
  26.         VerObject = object(DObject)
  27.                 procedure Create (id: integer);
  28.                 override;
  29.             end;
  30.         AObject = object(VerObject)
  31.                 procedure Destroy;
  32.                 override;
  33.             end;
  34.         HObject = object(VerObject)
  35.                 procedure Destroy;
  36.                 override;
  37.             end;
  38.  
  39.     procedure VerObject.Create (id: integer);
  40.     begin
  41.         UseResFile(app_resfile);
  42.         SetVersionParamText('', '');
  43.         inherited Create(id);
  44.         SetPort(window);
  45.         TextFont(geneva);
  46.     end;
  47.  
  48.     procedure AObject.Destroy;
  49.     begin
  50.         about_object := nil;
  51.         inherited Destroy;
  52.     end;
  53.  
  54.     procedure HObject.Destroy;
  55.     begin
  56.         help_object := nil;
  57.         inherited Destroy;
  58.     end;
  59.  
  60. {$S Init}
  61.     procedure InitOOAboutHelp;
  62.     begin
  63.         about_object := nil;
  64.         help_object := nil;
  65.     end;
  66.  
  67. {$S}
  68.     procedure DoOOAbout;
  69.     begin
  70.         if about_object <> nil then begin
  71.             if FrontWindow <> about_object.window then
  72.                 SelectWindow(about_object.window);
  73.         end
  74.         else begin
  75.             new(AObject(about_object));
  76.             about_object.Create(about_dialog_id);
  77.             ShowWindow(about_object.window);
  78.         end;
  79.     end;
  80.  
  81.     procedure DoOOHelp;
  82.     begin
  83.         if help_object <> nil then begin
  84.             if FrontWindow <> help_object.window then
  85.                 SelectWindow(help_object.window);
  86.         end
  87.         else begin
  88.             new(HObject(help_object));
  89.             help_object.Create(help_dialog_id);
  90.             ShowWindow(help_object.window);
  91.         end;
  92.     end;
  93.  
  94. end.