home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / AUROR21A.ZIP / CFGCONF.AML < prev    next >
Encoding:
Text File  |  1995-09-01  |  1.3 KB  |  36 lines
  1. /* ------------------------------------------------------------------ */
  2. /* Macro:        CFGCONF.AML                                          */
  3. /* Written by:   nuText Systems                                       */
  4. /*                                                                    */
  5. /* Description:  This macro displays a configuration dialog box for   */
  6. /*               confirmation options.                                */
  7. /* ------------------------------------------------------------------ */
  8.  
  9.   include bootpath "define.aml"
  10.  
  11.   var options
  12.  
  13.   // create dialog box
  14.   dialog "Confirmation Options" 45 7 "cp"
  15.  
  16.   // confirmation options
  17.   groupbox 'Options:' 3 2
  18.     (menu ''
  19.        item " [ ] Confirm on File &Delete"
  20.        item " [ ] Confirm on File &Replace "
  21.        item " [ ] Confirm on File &Touch"
  22.      end) '' (if? _ConDel == 'y' 'a') + (if? _ConRpl  == 'y' 'b') +
  23.              (if? _ConTch == 'y' 'c')  "abc"
  24.  
  25.   // ok/cancel buttons
  26.   button "O&k"     35  3 8
  27.   button "Cancel"  35  5 8
  28.  
  29.   // display dialog box
  30.   if (getdialog ref options) == 'Ok' then
  31.     setobj ConDel  (if? (pos 'a' options) 'y' 'n')  'prf'
  32.     setobj ConRpl  (if? (pos 'b' options) 'y' 'n')  'prf'
  33.     setobj ConTch  (if? (pos 'c' options) 'y' 'n')  'prf'
  34.   end
  35.  
  36.