--- a/UserPreferences.st	Wed Dec 03 14:43:27 2008 +0100
+++ b/UserPreferences.st	Wed Dec 03 17:41:28 2008 +0100
@@ -898,6 +898,28 @@
 
 !UserPreferences methodsFor:'accessing-prefs-UI'!
 
+allowMouseWheelZoom
+    "return the flag which controls if text can be magnified via the ALT-wheel-action"
+
+    ^ self at:#allowMouseWheelZoom ifAbsent:[ true ]
+
+    "
+     UserPreferences current allowMouseWheelZoom
+    "
+!
+
+allowMouseWheelZoom:aBooleanOrNil
+    "set/clear the flag which controls if text can be magnified via the ALT-wheel-action"
+
+    ^ self at:#allowMouseWheelZoom put:aBooleanOrNil
+
+    "
+     UserPreferences current allowMouseWheelZoom:true
+     UserPreferences current allowMouseWheelZoom:false
+     UserPreferences current allowMouseWheelZoom
+    "
+!
+
 beepEnabled
     "return the flag which controls the beeper"
 
@@ -2667,5 +2689,5 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.207 2008-10-14 08:45:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.208 2008-12-03 16:41:28 cg Exp $'
 ! !