home *** CD-ROM | disk | FTP | other *** search
/ Apple WWDC 1996 / WWDC96_1996 (CD).toast / Technology Materials / AMT / Sample AMT⁄PE Code / SOURCES / LaunchAndOpen.k < prev    next >
Encoding:
Text File  |  1996-02-05  |  803 b   |  41 lines  |  [TEXT/MPS ]
  1. -- this is a general purpose launcher for both Acrobat and other app and files
  2.  
  3.  
  4. object GML_LAUNCHER is ANY
  5. has    
  6.     Open(theDoc)
  7.       theDoc is? STRING;
  8.         external "MyLauncherOpen";
  9.         
  10.     ChapterOpen(theDoc)                -- this is the new method 11/27/95
  11.       theDoc is? STRING;
  12.         external "MyChapterOpen";
  13.     
  14.     AcrobatOpen(theDoc)
  15.       theDoc is? STRING;
  16.         external "MyAcroLauncherOpen";
  17.         
  18.     GotoPage(pageNum)
  19.       pageNum is? INTEGER;
  20.         external "MyLauncherGotoPage";
  21.  
  22. end;
  23.  
  24.  
  25.  
  26.  
  27. object LAUNCHER_HELPER is ANY
  28. has
  29.     ThePath;            -- the path up to the application, including the delimiter
  30.     TheDelimiter;        -- the final char of ThePath, that is, the delimiter
  31.     
  32.     GetParams()
  33.         do
  34.             self.ThePath := oSorter.RelativeFolder.Name;
  35.             self.TheDelimiter := (oSorter.RelativeFolder.Name @ #(oSorter.RelativeFolder.Name));
  36.         end;    
  37. end;
  38.  
  39.  
  40.  
  41.