ScrollableView.st
changeset 3006 e8a68c8dc2d6
parent 2986 30f050e2a9a1
child 3011 fa053cef51f8
equal deleted inserted replaced
3005:4c0635baff41 3006:e8a68c8dc2d6
  2183 doesNotUnderstand:aMessage
  2183 doesNotUnderstand:aMessage
  2184     "this is funny: all message we do not understand, are passed
  2184     "this is funny: all message we do not understand, are passed
  2185      on to the scrolledView - so we do not have to care for all
  2185      on to the scrolledView - so we do not have to care for all
  2186      possible messages ...(thanks to the Message class)"
  2186      possible messages ...(thanks to the Message class)"
  2187 
  2187 
  2188      scrolledView isNil ifFalse:[
  2188      scrolledView notNil ifTrue:[
  2189 	 ^ scrolledView perform:(aMessage selector)
  2189          ^ aMessage sendTo:scrolledView.
  2190 		  withArguments:(aMessage arguments)
       
  2191      ].
  2190      ].
  2192      ^ super doesNotUnderstand:aMessage
  2191      ^ super doesNotUnderstand:aMessage
  2193 
  2192 
  2194     "Created: 6.3.1997 / 18:06:24 / cg"
  2193     "Created: 6.3.1997 / 18:06:24 / cg"
  2195     "Modified: 6.3.1997 / 18:38:54 / cg"
  2194     "Modified: 6.3.1997 / 18:38:54 / cg"
  2286 ! !
  2285 ! !
  2287 
  2286 
  2288 !ScrollableView class methodsFor:'documentation'!
  2287 !ScrollableView class methodsFor:'documentation'!
  2289 
  2288 
  2290 version
  2289 version
  2291     ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.129 2004-06-01 11:17:39 cg Exp $'
  2290     ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.130 2004-08-30 17:55:27 stefan Exp $'
  2292 ! !
  2291 ! !