home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / text_dtp / editor / edge_d / rexx / menu_editkey.edge < prev    next >
Text File  |  1995-07-10  |  918b  |  51 lines
  1. /*
  2. ** $VER: EditKey.edge 1.2 (Sunday 19-Sep-93 13:57:38)
  3. **
  4. ** Einen Tastatur-Befehl editieren
  5. **
  6. ** Geschrieben von Thomas Liljetoft, deutsche Kommentare von Thomas Heinze
  7. */
  8.  
  9.  
  10. options results
  11.  
  12. /* Fehlerstufe des Benutzers auslesen */
  13.  
  14. getenvvar _ge_errlevel
  15. errlevel = result
  16.  
  17. /* Nach der zu editierenden Tastatur-Beschreibung fragen */
  18.  
  19. 'requestkey' title '"Zu editierende Taste eingeben"'
  20. if RC == 0 then do
  21.  
  22.     /* Ok, momentan installierten Befehl auslesen */
  23.  
  24.     key = result
  25.     'keyboard' key ask
  26.     if RC == 0 then do
  27.  
  28.     /* Neuen Befehl auswählen lassen, der alte bleibt als Vorgabe. */
  29.  
  30.         def = result
  31.         'requeststring' title '"Neue Definition eingeben."' default '"'def'"'
  32.         if RC == 0 then do
  33.  
  34.         /* Auf den neuen Befehl ändern */
  35.  
  36.             'keyboard' key force result
  37.  
  38.             end
  39.         end
  40.     end
  41.  
  42. if RC >= errlevel then do
  43.  
  44.     /* Es ist etwas schiefgegangen, Fehlermeldung ausgeben */
  45.  
  46.     'fault'
  47.     'requestnotify' result
  48.     end
  49.  
  50. exit(0)
  51.