UserPreferences.st
changeset 11390 f0f1b0711272
parent 11214 ad61819068b9
child 11419 ee9207931cac
equal deleted inserted replaced
11389:4f63adbf978a 11390:f0f1b0711272
   896     ^ DiffCodeView
   896     ^ DiffCodeView
   897 ! !
   897 ! !
   898 
   898 
   899 !UserPreferences methodsFor:'accessing-prefs-UI'!
   899 !UserPreferences methodsFor:'accessing-prefs-UI'!
   900 
   900 
       
   901 allowMouseWheelZoom
       
   902     "return the flag which controls if text can be magnified via the ALT-wheel-action"
       
   903 
       
   904     ^ self at:#allowMouseWheelZoom ifAbsent:[ true ]
       
   905 
       
   906     "
       
   907      UserPreferences current allowMouseWheelZoom
       
   908     "
       
   909 !
       
   910 
       
   911 allowMouseWheelZoom:aBooleanOrNil
       
   912     "set/clear the flag which controls if text can be magnified via the ALT-wheel-action"
       
   913 
       
   914     ^ self at:#allowMouseWheelZoom put:aBooleanOrNil
       
   915 
       
   916     "
       
   917      UserPreferences current allowMouseWheelZoom:true
       
   918      UserPreferences current allowMouseWheelZoom:false
       
   919      UserPreferences current allowMouseWheelZoom
       
   920     "
       
   921 !
       
   922 
   901 beepEnabled
   923 beepEnabled
   902     "return the flag which controls the beeper"
   924     "return the flag which controls the beeper"
   903 
   925 
   904     ^ self at:#beepEnabled ifAbsentPut:true
   926     ^ self at:#beepEnabled ifAbsentPut:true
   905 
   927 
  2665 ! !
  2687 ! !
  2666 
  2688 
  2667 !UserPreferences class methodsFor:'documentation'!
  2689 !UserPreferences class methodsFor:'documentation'!
  2668 
  2690 
  2669 version
  2691 version
  2670     ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.207 2008-10-14 08:45:13 cg Exp $'
  2692     ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.208 2008-12-03 16:41:28 cg Exp $'
  2671 ! !
  2693 ! !