--- a/TextView.st	Wed Feb 18 00:20:00 2009 +0100
+++ b/TextView.st	Wed Feb 18 17:55:24 2009 +0100
@@ -1665,26 +1665,6 @@
     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"
 
@@ -4294,7 +4274,7 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.296 2008-12-10 11:12:09 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.297 2009-02-18 16:55:24 cg Exp $'
 ! !
 
 TextView initialize!