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