--- a/TextView.st	Tue Dec 02 14:13:30 2008 +0100
+++ b/TextView.st	Wed Dec 03 17:38:21 2008 +0100
@@ -1665,6 +1665,25 @@
     selectionBgColor := selectionBgColor onDevice:device.
 !
 
+mouseWheelZoom:amount
+    "ALT-wheel action"
+
+    |oldSize newSize delta mul|
+
+    amount > 0 ifTrue:[
+        delta := 1.  mul := 1.
+        delta := 0.  mul := 1.2.
+    ] ifFalse:[
+        delta := -1. mul := 1.
+        delta := 0. mul := 0.8.
+    ].
+    oldSize := font size.
+    newSize := ((oldSize + delta)* mul) max:2.
+    newSize ~= oldSize ifTrue:[
+        self font:(font size:newSize).
+    ].
+!
+
 quadClickX:x y:y
     "quadrupleClick-click - select all"
 
@@ -4270,7 +4289,7 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.293 2008-11-28 17:03:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.294 2008-12-03 16:38:21 cg Exp $'
 ! !
 
 TextView initialize!