home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / AUROR21A.ZIP / CFGEDIT1.AML < prev    next >
Encoding:
Text File  |  1995-09-01  |  2.0 KB  |  63 lines
  1. /* ------------------------------------------------------------------ */
  2. /* Macro:        CFGEDIT1.AML                                         */
  3. /* Written by:   nuText Systems                                       */
  4. /*                                                                    */
  5. /* Description:  This macro displays a configuration dialog box for   */
  6. /*               edit options 1.                                      */
  7. /* ------------------------------------------------------------------ */
  8.  
  9.   include bootpath "define.aml"
  10.  
  11.   var defset
  12.   var undosiz
  13.   var clipname
  14.   var linestyle
  15.  
  16.   // create dialog box
  17.   dialog "Edit Options 1" 63 15 "cp"
  18.  
  19.   // default edit settings group box
  20.   groupbox 'Default Edit Settings:' 3 2
  21.     (menu ''
  22.        item " [ ] &Autoindent"
  23.        item " [ ] &Backup"
  24.        item " [ ] &Draw Mode"
  25.        item " [ ] &Insert Mode"
  26.        item " [ ] &Live Word Wrap"
  27.        item " [ ] &Match Character"
  28.        item " [ ] &Smart Tabs"
  29.        item " [ ] &Translate"
  30.        item " [ ] &Undo Enabled"
  31.        item " [ ] &Variable Tabs"
  32.        item " [ ] Standard &Word Wrap"
  33.        item " [ ] Synta&x Highlighting "
  34.      end) '' _DefaultSet "abdilmstuvwx"
  35.  
  36.   // edit fields
  37.   field "Undo Si&ze:"        31  2 18 _UndoSize
  38.   field "Default &Clipboard:"  31  5 18 _ClipName
  39.  
  40.   // default linestyle
  41.   groupbox 'Default Line Style:' 31 9
  42.     (menu ''
  43.        item " ( ) &Single              ┌──┐ "
  44.        item " ( ) Double &Horizontal   ╒══╕"
  45.        item " ( ) Double &Vertical     ╓──╖"
  46.        item " ( ) &Double              ╔══╗"
  47.        item " ( ) &Eraser"
  48.      end) '' _LineStyle "01234"
  49.  
  50.   // ok/cancel buttons
  51.   button "O&k"    53  3 8
  52.   button "Cancel" 53  5 8
  53.  
  54.   // display dialog box
  55.   if (getdialog ref defset ref undosiz ref clipname
  56.                 ref linestyle) == 'Ok' then
  57.     setobj DefaultSet   defset        'prf'
  58.     setobj UndoSize     undosiz       'prf'   // requires re-entry
  59.     setobj ClipName     clipname      'prf'
  60.     setobj LineStyle    linestyle     'prf'
  61.   end
  62.  
  63.