--- 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 $'
! !