home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / text_dtp / editor / edge_d / rexx / menu_savedefmac.edge < prev    next >
Text File  |  1995-07-10  |  636b  |  24 lines
  1. /*
  2. ** $VER: Menu_SaveDefMac.edge 1.0 (Friday 22-Oct-93 12:55:22)
  3. **
  4. ** Sichert das aktuelle Standardmakro in eine Datei
  5. **
  6. ** Geschrieben von Thomas liljetoft & Inovatronics,
  7. ** deutsche Kommentare von Thomas Heinze
  8. */
  9.  
  10. options results
  11.  
  12. /* Prüfen, ob das Makro existiert */
  13. if exists('ram:edge.macro') then do
  14.     
  15.     /* Wohin soll das Standardmakro gesichert werden? */
  16.     requestfile title """Makro speicher unter...""" path """rexx:""" getdir save
  17.  
  18.     /* Makro dorthin kopieren */
  19.     if rc==0 then address command copy """ram:edge.macro""" result
  20. end
  21.  
  22. /* wenn nicht, dann beschweren */
  23. else requestnotify """Es existiert kein Standardmakro."""
  24.