# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1202121413 -3600
# Node ID 250f9f98b4076066ff1b9287375e5c29b702227e
# Parent  8d2a6394f01a64d3c0306aac4be92fe2879af35d
handle mouse-wheel

diff -r 8d2a6394f01a -r 250f9f98b407 ViewScroller.st
--- a/ViewScroller.st	Mon Feb 04 11:36:17 2008 +0100
+++ b/ViewScroller.st	Mon Feb 04 11:36:53 2008 +0100
@@ -241,49 +241,6 @@
     ^ scrolledView 
 !
 
-scrolledView:aView
-    "set a new scolled view; dependent on the #keepViewsChannel
-     the old scolled view will be destroyed or unmapped."
-
-    scrolledView ~~ aView ifTrue:[
-        scrolledView ifNotNil:[
-            self keepViews ifTrue:[ scrolledView beInvisible ]
-                          ifFalse:[ scrolledView destroy ].
-        ].
-        scrolledView := aView.
-
-        "test whether new scrolled view not nil and
-         not already added to my subViews.
-        "
-        (scrolledView notNil and:[scrolledView superView ~~ frame]) ifTrue:[
-            |extent|
-
-            scrolledView borderWidth:0; level:0.
-            extent := scrolledView preferredExtent.
-            frame addSubView:scrolledView.
-
-            "/ test whether the new view is a scrollWrapper.
-            "/ in this case scrolling can be done by this view
-
-            scrolledView isScrollWrapper ifTrue:[
-                scrolledView isHorizontalScrollable ifTrue:[ extent x:1.0 ].     
-                scrolledView isVerticalScrollable   ifTrue:[ extent y:1.0 ].
-            ].
-
-            resizeScrolledViewHorizontal ifTrue:[ extent x:1.0 ].
-            resizeScrolledViewVertical   ifTrue:[ extent y:1.0 ].
-
-            scrolledView extent:extent.
-        ].
-
-        realized ifTrue:[
-            scrolledView ifNotNil:[scrolledView beVisible].
-            self sizeChanged:nil.
-        ].
-    ].
-    model value:scrolledView.
-!
-
 scrolledViews
     "Returns the collection of all scrolled views including the current scrolled view
      and all unmapped scrolled views."
@@ -484,6 +441,12 @@
     model addDependent:self.
 !
 
+realize
+    super realize.
+    self sensor addEventListener:self.
+
+!
+
 release
     "release all dependencies"
 
@@ -582,5 +545,5 @@
 !ViewScroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ViewScroller.st,v 1.25 2007-10-23 14:27:31 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ViewScroller.st,v 1.26 2008-02-04 10:36:53 cg Exp $'
 ! !