--- a/ComboListView.st	Thu Jun 02 14:29:51 2005 +0200
+++ b/ComboListView.st	Tue Jun 07 17:01:59 2005 +0200
@@ -84,6 +84,20 @@
      top open.
                                                                 [exEnd]
 
+  a really, really long list (notice scrollup/down buttons at the top/bottom); 
+                                                                [exBegin]
+     |top comboList|
+
+     top := StandardSystemView new.
+     top extent:(300 @ 200).
+
+     comboList := ComboListView in:top.
+     comboList origin:(0.0 @ 0.0) corner:(1.0 @ 0.0).
+     comboList bottomInset:(comboList preferredExtent y negated).
+
+     comboList list:((1 to:100) collect:[:n | n printString]).
+     top open.
+                                                                [exEnd]
 
 
     with callBack:
@@ -637,5 +651,5 @@
 !ComboListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboListView.st,v 1.37 2000-09-01 10:14:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboListView.st,v 1.38 2005-06-07 15:01:59 cg Exp $'
 ! !