--- a/XWorkstation.st	Fri Oct 20 13:13:54 2000 +0200
+++ b/XWorkstation.st	Fri Oct 20 13:16:01 2000 +0200
@@ -4377,7 +4377,7 @@
     "/ physical to logical button translation
     logicalButton := buttonTranslation at:button ifAbsent:button.
 
-    "/ special for HPs mouse-wheel implementation
+    "/ special for mouse-wheel implementation
     (logicalButton == #wheelFwd or:[logicalButton == #wheelBwd]) ifTrue:[
       self mouseWheelMotion:state x:x y:y amount:(logicalButton == #wheelFwd ifTrue:[10] ifFalse:[-10]) deltaTime:10 view:view.
       ^ self.
@@ -11742,6 +11742,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.380 2000-10-20 10:19:47 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.381 2000-10-20 11:16:01 stefan Exp $'
 ! !
 XWorkstation initialize!