--- a/DataSetView.st	Fri Aug 20 15:46:25 1999 +0200
+++ b/DataSetView.st	Fri Aug 20 18:40:55 1999 +0200
@@ -441,6 +441,67 @@
     ].
     Transcript showCR:'READY'.
 
+!
+
+test2
+"
+self test2
+"
+    |t1 top scr clDc rows slct list bool tmArr listModel|
+
+    top  := StandardSystemView new label:'select'; extent:600@440.
+    scr  := DataSetView origin:(0.0 @ 0.0) corner:(1.0 @ 1.0) in:top.
+
+    clDc := OrderedCollection new.
+    rows := OrderedCollection new.
+    list := #( 'Text ' 'Field ' 'C-Box ' 'C-List ' true ).
+    slct := #( #text   #field   #cbox    #clist    #toggle ).
+    bool := true.
+
+    clDc add:( DataSetColumnSpec label:'Text'   editorType:#None        selector:#text ).
+    clDc add:( DataSetColumnSpec label:'Field'  editorType:#InputField  selector:#field ).
+    clDc add:( DataSetColumnSpec label:'C-Box'  editorType:#ComboBox    selector:#cbox ).
+    clDc add:( DataSetColumnSpec label:'C-List' editorType:#ComboList   selector:#clist ).
+    clDc add:( DataSetColumnSpec label:'Toggle' editorType:#CheckToggle selector:#toggle ).
+
+    scr columnDescriptors:clDc.
+    scr beDependentOfRows:false.
+    scr has3Dseparators:false.
+
+    top openAndWait.
+    tmArr := Array new:1.
+    listModel := List new.
+    scr listHolder:listModel.
+
+    (1 to:tmArr size) do:[:i|
+        listModel removeAll.
+
+        t1 := Time millisecondsToRun:[
+            1 to:30 do:[:i| |values|
+                values := list collect:[:n|
+                    n isString ifTrue:[n, i printString]
+                              ifFalse:[n == true ifTrue:[bool] ifFalse:[n]]
+                ].
+                listModel add:(Structure newWith:slct values:values).
+                bool := bool not.
+                i even ifTrue:[
+                    listModel removeFirst
+                ].       
+            Delay waitForSeconds:0.5.
+            ].
+        ].
+        tmArr at:i put:t1
+    ].
+    t1 := 0.
+
+    Transcript showCR:'----------'.
+    tmArr do:[:t|
+        t1 := t1 + t.
+        Transcript showCR:'TIME : ', t printString.
+    ].
+    Transcript showCR:'----------'.
+    Transcript showCR:'DIFF : ', (t1 // tmArr size) printString.
+
 ! !
 
 !DataSetView methodsFor:'accessing'!
@@ -895,5 +956,5 @@
 !DataSetView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetView.st,v 1.28 1999-05-22 07:56:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetView.st,v 1.29 1999-08-20 16:40:01 cg Exp $'
 ! !