home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / dev / misc / dlerror / arexx / dle_func.ged < prev   
Text File  |  1995-05-28  |  493b  |  23 lines
  1. /*  $VER: DLError.ged 1.0 (25.5.95) DOGUET Emmanuel
  2. **
  3. **  Arexx script for link GoldED and DLError
  4. **/
  5. OPTIONS RESULTS
  6. PARSE ARG Function
  7.  
  8. IF Function = '' THEN do
  9.     Say "I need a parameters: WindowToFront/S,WindowToBack/S,QUIT/S, CURRENT/S,FIRST/S,PREV/S,NEXT/S,LAST/S."
  10.     EXIT
  11. END
  12.  
  13. IF ~show('p', 'DLERROR.01') THEN DO
  14.     'LOCK CURRENT'
  15.     'REQUEST TITLE="DLE_Func.ged" BODY="DLError port not found !"'
  16.     'UNLOCK'
  17.     EXIT
  18. END
  19.  
  20.  
  21. /* Envoi la fonction */
  22. address 'DLERROR.01' Function
  23.