home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / AUROR21A.ZIP / CFGSAVE.AML < prev    next >
Encoding:
Text File  |  1995-09-01  |  1.6 KB  |  50 lines
  1. /* ------------------------------------------------------------------ */
  2. /* Macro:        CFGSAVE.AML                                          */
  3. /* Written by:   nuText Systems                                       */
  4. /*                                                                    */
  5. /* Description:  This macro displays a configuration dialog box for   */
  6. /*               save options.                                        */
  7. /* ------------------------------------------------------------------ */
  8.  
  9.   include bootpath "define.aml"
  10.  
  11.   var saveopt
  12.   var backupdir
  13.   var foldsign
  14.   var bakext
  15.   var autoint
  16.  
  17.   dialog "Save Options" 61 11 "cp"
  18.  
  19.   // save options group box
  20.   groupbox 'Save Options:' 3 2
  21.     (menu ''
  22.        item " [ ] &Entab on Save"
  23.        item " [ ] &Trim Trailing Blanks "
  24.        item " [ ] E&xclude Fold Comments "
  25.        item " [ ] Append Ctrl-&Z"
  26.      end) '' _SaveOpt 'etxz'
  27.  
  28.   // edit fields
  29.   field "Backup &Directory:"        33  2 27 _BackupDir
  30.   field "&Fold Comment Signature:"  33  5 27 _FoldSign
  31.  
  32.   field "&Backup Extension:   >"  3  9  7 _BackupExt
  33.   field "&Autosave Interval:  >"  3 10  7 _AutoSave
  34.  
  35.   // ok/cancel buttons
  36.   button "O&k"    37  9 8
  37.   button "Cancel" 48  9 8
  38.  
  39.   // display dialog box
  40.   if (getdialog ref saveopt ref backupdir ref foldsign
  41.                 ref bakext  ref autoint) == 'Ok' then
  42.     setobj SaveOpt      saveopt       'prf'
  43.     setobj BackupDir    backupdir     'prf'
  44.     setobj FoldSign     foldsign      'prf'
  45.     setobj BackupExt    bakext        'prf'
  46.     setobj AutoSave     autoint       'prf'
  47.     sendobject "edit" "autosave" autoint
  48.   end
  49.  
  50.