home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / AUROR21A.ZIP / CFGMOUSE.AML < prev    next >
Encoding:
Text File  |  1995-09-01  |  2.9 KB  |  102 lines
  1. /* ------------------------------------------------------------------ */
  2. /* Macro:        CFGMOUSE.AML                                         */
  3. /* Written by:   nuText Systems                                       */
  4. /*                                                                    */
  5. /* Description:  This macro displays a configuration dialog box for   */
  6. /*               mouse options.                                       */
  7. /* ------------------------------------------------------------------ */
  8.  
  9.   include bootpath "define.aml"
  10.  
  11.   var mainopt
  12.   var mousenx
  13.   var mouseny
  14.   var moudst
  15.   var moudouble
  16.   var mouhold
  17.   var moudelay
  18.   var moumark
  19.   var moumarkd
  20.  
  21.   // create dialog box
  22.   dialog "Mouse Options" 58 16 "c"
  23.  
  24.   // write dialog box text
  25.   writestr "Speed:" '' 3 7
  26.   writestr "Delays:" '' 3 12
  27.  
  28.   // mouse options group box
  29.   groupbox "Main Options:" 3 2
  30.     (menu ''
  31.        item " [ ] &Mouse Enabled"
  32.        item " [ ] &Reverse Mouse Buttons"
  33.        item " [ ] &Hide Mouse on Keypress "
  34.      end) '' _Mouse + _MouseOpt 'yrd'
  35.  
  36.   // edit fields
  37.   field "&X-Sensitivity:      >"  5  8 6 _MouSenX
  38.   field "&Y-Sensitivity:      >"  5  9 6 _MouSenY
  39.   field "Dou&ble Speed:       >"  5 10 6 _MouDST
  40.  
  41.   field "&Double Click Time:  >"  5 13 6 _MouDouble
  42.   field "H&old Time:          >"  5 14 6 _MouHold
  43.   field "Scroll Dela&y:       >"  5 15 6 _MouDelay
  44.  
  45.   // mark type on single-click and drag
  46.   groupbox "Single-Click Mark Type"  35 2
  47.     (menu ''
  48.        item " ( ) &Column"
  49.        item " ( ) &Line"
  50.        item " ( ) &Stream"
  51.      end) '' _MouMark 'kls'
  52.  
  53.   // mark type on double-click and drag
  54.   groupbox "Double-Click Mark Type" 35 7
  55.     (menu ''
  56.        item " ( ) &Column"
  57.        item " ( ) &Line"
  58.        item " ( ) &Stream"
  59.      end) '' _MouMarkD 'kls'
  60.  
  61.  
  62.   // ok/cancel buttons
  63.   button "O&k"    36 14 8
  64.   button "Cancel" 47 14 8
  65.  
  66.   // display dialog box
  67.   if (getdialog ref mainopt ref mousenx ref mouseny ref moudst
  68.                 ref moudouble ref mouhold ref moudelay
  69.                 ref moumark ref moumarkd) == 'Ok' then
  70.  
  71.     setobj Mouse      (if? (pos 'y' mainopt) 'y') 'prf'
  72.     setobj MouseOpt   (sub 'y' '' mainopt)        'prf'
  73.     setobj MouSenX    mousenx   'prf'
  74.     setobj MouSenY    mouseny   'prf'
  75.     setobj MouDst     moudst    'prf'
  76.     setobj MouDouble  moudouble 'prf'
  77.     setobj MouHold    mouhold   'prf'
  78.     setobj MouDelay   moudelay  'prf'
  79.     setobj MouMark    moumark   'prf'
  80.     setobj MouMarkD   moumarkd  'prf'
  81.  
  82.     x = getmousex
  83.     y = getmousey
  84.  
  85.     closemouse
  86.  
  87.     // re-initialize the mouse
  88.     if _Mouse == 'y' then
  89.       if openmouse _MouseOpt then
  90.         mousepos x y
  91.         y_sens = _MouSenY
  92.         if (getos 'v') > 9 then
  93.           mousesense (_MouSenX * 5) / 8  (y_sens * 5) / 8  _MouDST
  94.         else
  95.           mousesense _MouSenX y_sens _MouDST
  96.         end
  97.       end
  98.     end
  99.  
  100.   end
  101.  
  102.