--- a/SequenceView.st	Sat Feb 28 13:57:56 2004 +0100
+++ b/SequenceView.st	Mon Mar 01 12:17:53 2004 +0100
@@ -50,18 +50,16 @@
 
 examples
 "
-    same behavior as a SelectionInListView
+    same behavior as a SelectionInListView, but scrollable
                                                                         [exBegin]
-    |top doc holder|
+    |view|
 
-    top := StandardSystemView extent:500@500.
-    doc := self origin:0.0@ 0.0 corner:1.0@1.0 in:top.
-    top openAndWait.
-    doc list:#( 'a' 'b' 'c' 'd' ).
-    doc multipleSelectOk:true.
+    view := self extent:100@100.
+    view list:#( 'a' 'b' 'c' 'd' 'e' 'f' 'g' 'h' 'in der Ruhe liegt die Kraft').
+    view multipleSelectOk:true.
+    view openAndWait.
                                                                         [exEnd]
 "
-
 ! !
 
 !SequenceView class methodsFor:'defaults'!
@@ -80,31 +78,27 @@
     "Created: / 6.7.1998 / 13:26:18 / cg"
 ! !
 
-!SequenceView methodsFor:'accessing'!
-
-font:aFont
-    "set the font for the scrooled view
-    "
-    super font:aFont.
-    self scrolledView font:aFont.
-! !
-
 !SequenceView methodsFor:'initialization'!
 
 initialize
-    "setup scrollable view a SelectionInList instance
-    "
+    "setup a ScrollableView scrolling a SelectionInList instance"
+
     super initialize.
 
     self verticalScrollable:true;     verticalMini:false.
     self horizontalScrollable:true; horizontalMini:false.
 
     self scrolledView:SelectionInListView new
-
-
 ! !
 
-!SequenceView methodsFor:'misc'!
+!SequenceView methodsFor:'slave-view messages'!
+
+font:aFont
+    "set the font for the scrolled view"
+
+    super font:aFont.
+    self scrolledView font:aFont.
+!
 
 invalidate
     "senders assume that I am the listView - not a wrapper"
@@ -139,5 +133,5 @@
 !SequenceView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SequenceView.st,v 1.9 2003-05-07 14:30:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SequenceView.st,v 1.10 2004-03-01 11:17:53 stefan Exp $'
 ! !