--- a/ViewScroller.st	Sat Oct 04 13:30:08 2008 +0200
+++ b/ViewScroller.st	Mon Oct 06 22:03:50 2008 +0200
@@ -173,10 +173,11 @@
 
     panel := VerticalPanelView new.
     panel horizontalLayout:#leftSpace.
+    panel extent:1.0@1.0.
 
     textView1 := ScrollableView for:EditTextView in:panel.
-    textView1 extent:2000 @ 300.
-    textView1 scrolledView contents:('Makefile' asFilename readStream contents).
+    textView1 extent:1.0 @ 300.
+    textView1 scrolledView contents:('keyboard.rc' asFilename readStream contents).
 
     textView2 := ScrollableView for:EditTextView in:panel.
     textView2 extent:500 @ 300.
@@ -185,7 +186,9 @@
     1 to:100 do:[:i |
         Button label:(i printString) in:panel
     ].
+    vscroller resizeScrolledViewHorizontal:true.
     vscroller scrolledView:panel.
+    
     top open.
                                                                 [exEnd]
 "
@@ -668,5 +671,5 @@
 !ViewScroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ViewScroller.st,v 1.38 2008-08-01 08:10:31 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ViewScroller.st,v 1.39 2008-10-06 20:03:50 cg Exp $'
 ! !