home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / AUROR21A.ZIP / CFGMISC.AML < prev    next >
Text File  |  1995-09-01  |  2KB  |  45 lines
  1. /* ------------------------------------------------------------------ */
  2. /* Macro:        CFGMISC.AML                                          */
  3. /* Written by:   nuText Systems                                       */
  4. /*                                                                    */
  5. /* Description:  This macro displays a configuration dialog box for   */
  6. /*               miscellaneous editing options.                       */
  7. /* ------------------------------------------------------------------ */
  8.  
  9.   include bootpath "define.aml"
  10.  
  11.   var cset
  12.   var tilesplit
  13.   var menucursor
  14.  
  15.   // create dialog box
  16.   dialog "Miscellaneous Options" 44 11 "cp"
  17.  
  18.   // default word char set
  19.   field "&Default Char Set for Words: "  3 2 28 _CSet
  20.  
  21.   // number of tiles before second orthogonal split
  22.   field "&Tile Split Threshold:  >"  3 5 5 _TileSplit
  23.  
  24.   // hardward cursor on menus
  25.   groupbox 'Hardware Cursor on Menus:' 3 7
  26.     (menu ''
  27.        item " ( ) &Hidden"
  28.        item " ( ) &Insert Cursor Size"
  29.        item " ( ) &Overstrike Cursor Size "
  30.      end) '' (if? _MenuCursor _MenuCursor 'h') "hio"
  31.  
  32.   // ok/cancel buttons
  33.   button "O&k"    34  3 8
  34.   button "Cancel" 34  5 8
  35.  
  36.   // display dialog box
  37.   if (getdialog ref cset ref tilesplit ref menucursor) == 'Ok' then
  38.     setobj CSet       cset          'prf'
  39.     setobj TileSplit  tilesplit     'prf'
  40.     setobj MenuCursor menucursor    'prf'
  41.     // change actual menucursor immediately
  42.     setmenucurs menucursor
  43.   end
  44.  
  45.