home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / Write / Module / STANDARD.MACRO < prev    next >
Encoding:
Text File  |  1996-09-27  |  1.2 KB  |  65 lines
  1. /*
  2.  *   $VER: STANDARD.MACRO 4.0039 (22-Mai-95)
  3.  */
  4.  
  5. VERSIONCHECK 40000 "STANDARD.MACRO"
  6.  
  7. MACRO "M_OPEN"
  8.   IF 
  9.     COMPARE 0 _CHANGED;
  10.     NOP;
  11.     ASK "\"$_FileName$\"\nwurde verändert!\nTrotzdem öffnen?" "_Öffnen|_Speichern  & neu öffnen*|A_bbrechen!^" 
  12.     BREAK 0 _RN 2 ;
  13.   IF 
  14.     COMPARE _RN 1;
  15.     SAVE _FILENAME ;
  16.     NOP;
  17.   IF 
  18.     COMPARE _FILEPATH "";
  19.     GETFILE _PATH "" 
  20.     OPEN _RS ;
  21.     GETFILE _FILEPATH "" 
  22.     OPEN _RS ;;
  23.  
  24. MACRO "M_RELOAD"
  25.   IF 
  26.     COMPARE 0 _CHANGED;
  27.     NOP;
  28.     ASK "\"$_FileName$\"\nwurde verändert!\nTrotzdem öffnen?" "_Neu öffnen|A_bbrechen!^" 
  29.     BREAK 0 _RN 1 ;
  30.   OPEN _FILENAME ;
  31.  
  32. MACRO "M_NEW"
  33.   IF 
  34.     COMPARE 0 _CHANGED;
  35.     NOP;
  36.     ASK "\"$_FileName$\"\nwurde verändert!\nTrotzdem löschen?" "_Löschen|_Speichern & löschen*|A_bbrechen!^" 
  37.     BREAK 0 _RN 2 ;
  38.   IF 
  39.     COMPARE _RN 1;
  40.     SAVE _FILENAME ;
  41.     NOP;
  42.   NEW
  43.   SETTITLE "Text gelöscht." 0;
  44.  
  45. MACRO "M_SAVE_QUIT"
  46.   IF 
  47.     COMPARE 0 _CHANGED;
  48.     NOP;
  49.     SAVE _FILENAME ;
  50.   QUITED;
  51.  
  52. MACRO "M_QUIT"
  53.   IF 
  54.     COMPARE 0 _CHANGED;
  55.     NOP;
  56.     ASK "\"$_FileName$\"\nwurde verändert!\nTrotzdem beenden?" "Be_enden|_Speichern & Ende*|A_bbrechen!^" 
  57.     BREAK 0 _RN 2 ;
  58.   IF 
  59.     COMPARE _RN 1;
  60.     SAVE _FILENAME ;
  61.     NOP;
  62.   QUITED;
  63.  
  64.  
  65.