ScrollableView.st
changeset 3006 e8a68c8dc2d6
parent 2986 30f050e2a9a1
child 3011 fa053cef51f8
--- a/ScrollableView.st	Fri Aug 20 10:56:52 2004 +0200
+++ b/ScrollableView.st	Mon Aug 30 19:55:43 2004 +0200
@@ -2185,9 +2185,8 @@
      on to the scrolledView - so we do not have to care for all
      possible messages ...(thanks to the Message class)"
 
-     scrolledView isNil ifFalse:[
-	 ^ scrolledView perform:(aMessage selector)
-		  withArguments:(aMessage arguments)
+     scrolledView notNil ifTrue:[
+         ^ aMessage sendTo:scrolledView.
      ].
      ^ super doesNotUnderstand:aMessage
 
@@ -2288,5 +2287,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.129 2004-06-01 11:17:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.130 2004-08-30 17:55:27 stefan Exp $'
 ! !