home *** CD-ROM | disk | FTP | other *** search
/ Megahits 4 / MegaHits_Vol.4.iso / rexx / menu_editkeymacro.edge < prev    next >
Text File  |  1994-10-23  |  1KB  |  62 lines
  1. /*
  2. ** $VER: EditKeyMacro.edge 1.0 (Friday 22-Oct-93 12:59:14)
  3. **
  4. ** Editiert das ARexx-Makro eines Tastatur-Befehls
  5. **
  6. ** Geschrieben von Thomas liljetoft & Inovatronics
  7. ** deutsche Kommentare von Thomas Heinze
  8. */
  9.  
  10. options results
  11.  
  12. /* Fehlerstufe des Benutzers auslesen */
  13. getenvvar _ge_errlevel
  14. errlevel = result
  15.  
  16. /* Nach der zu ändernden Taste fragen */
  17. 'requestkey' title '"Welche Taste soll geändert werden?"'
  18. if RC==0 then do
  19.  
  20.     /* Ok, momentan installierten Befehl auslesen */
  21.     key = result
  22.     'keyboard' key ask
  23.     if RC==0 then do
  24.  
  25.         /* Ist es eine Datei? */
  26.         if index(result,':')~=0 then do
  27.             
  28.             /* Merken und prüfen, ob die Datei existiert */
  29.             name=result
  30.             if exists(name) then do
  31.                 
  32.                 /* Ist das aktuelle Fenster leer? */
  33.                 getenvvar _fe_size
  34.                 if result>0 then do
  35.  
  36.                     /* Neues Fenster öffnen und die Datei einladen */
  37.                     new
  38.                     if RC==0 then do
  39.                         address value result
  40.                         open '"'name'"'
  41.                     end
  42.                 end
  43.                 else do
  44.                     /* In dieses Fenster einladen */
  45.                     open '"'name'"'
  46.                 end
  47.             end
  48.             
  49.             /* Dem Benutzer mitteilen, daß die Datei nicht gefunden werden konnte */
  50.             else requestnotify 'Konnte Date nicht finden:' name
  51.         end
  52.     end
  53.  
  54. if RC >= errlevel then do
  55.  
  56.     /* Etwas ist schiefgegangen, Fehlermeldung ausgeben */
  57.     'fault'
  58.     'requestnotify' result
  59.     end
  60.  
  61. exit(0)
  62.