home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / filer-3.14.lha / Filer / Rexx / PlayModuleOld.filer < prev    next >
Encoding:
Text File  |  1993-12-19  |  1.1 KB  |  63 lines
  1. /* 
  2.  
  3.    $VER: PlayModule.filer 1.1 (19.12.93)
  4.  
  5.    Author:
  6.     Matthias Scheler (tron@lyssa.pb.owl.de)
  7.  
  8.    Function:
  9.     Tells DeliTracker via ARexx to play the module supplied as argument.
  10.     If DeliTracker is not running it's loaded automatically and the window
  11.     is placed on Filer's screen.
  12.  
  13.    Requires:
  14.     DeliTracker 1.3x or newer
  15.  
  16.    Call:
  17.     PlayModule FILENAME
  18.  
  19.    Example for "Filer.RC":
  20.     REXXCLASS "MOD.#?","","PlayModule %s"
  21.  
  22. */
  23.  
  24. PARSE ARG FileName
  25.  
  26. ADDRESS 'FilerRexx'
  27. OPTIONS RESULTS
  28.  
  29. GETSCREENNAME
  30. IF RESULT="RESULT" THEN EXIT 5
  31. ScreenName=RESULT
  32.  
  33. GETSOURCEPATH
  34. IF RESULT="RESULT" THEN EXIT 5
  35. SourceDir=RESULT
  36.  
  37. IF RIGHT(SourceDir,1)=":" THEN SourceName=SourceDir||FileName
  38. ELSE SourceName=SourceDir||"/"||FileName
  39.  
  40. PANEL OFF
  41.  
  42. IF ~SHOW('Ports','rexx_DT') THEN
  43.  DO
  44.   'STATUS Loading DeliTracker ...'
  45.  
  46.   ADDRESS 'COMMAND' 'DeliTracker PUBSCREEN' ScreenName 'WINDOWXY 0/16'
  47.   ADDRESS 'COMMAND' 'WaitForPort rexx_DT'
  48.  
  49.   IF ~SHOW('Ports','rexx_DT') THEN
  50.    DO
  51.     "HISTORY Can't load DeliTracker !"
  52.     PANEL ON
  53.  
  54.     EXIT 10
  55.    END
  56.  END
  57.  
  58. 'STATUS Loading module "'||SourceName||'" into DeliTracker.'
  59.  
  60. ADDRESS 'rexx_DT' 'PLAYMOD "'||SourceName||'"'
  61.  
  62. PANEL ON
  63.