# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 885999484 -3600
# Node ID 797dc717a3b971d4bb2e9786a7aa162f217c1834
# Parent  e93da973b635cdaebd5ee905bd7a7cee1533aa5f
Remove #test.

diff -r e93da973b635 -r 797dc717a3b9 FileSelectionTree.st
--- a/FileSelectionTree.st	Wed Jan 28 15:09:48 1998 +0100
+++ b/FileSelectionTree.st	Wed Jan 28 15:58:04 1998 +0100
@@ -285,35 +285,6 @@
                                                                         [exEnd]
 "
 
-!
-
-test
-    |top scr time total max|
-
-    top := StandardSystemView new label:'select'; extent:300@500.
-    scr := HVScrollableView for:FileSelectionTree origin:(0.0 @ 0.0) corner:(1.0 @ 1.0) in:top.
-    scr := scr scrolledView.
-
-    scr selectionHolder:nil asValue.
-    scr multipleSelectOk:true.
-    top openAndWait.
-    total := 0.
-
-    total ~~ 0 ifTrue:[
-        MessageTally spyOn:[
-            scr directory:'/home2/cg/st80src2.5.1'
-        ].
-    ] ifFalse:[
-        max := 20.
-        max timesRepeat:[|time|
-            "/ DirectoryContents releaseResources.
-            time  := Time millisecondsToRun:[scr directory:'/home2/cg/st80src2.5.1'].
-            total := total + time.
-        ].
-        Transcript showCR:'----'.
-        Transcript showCR:(total // max).
-    ].
-
 ! !
 
 !FileSelectionTree class methodsFor:'constants'!
@@ -747,5 +718,5 @@
 !FileSelectionTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionTree.st,v 1.9 1997-10-29 08:27:43 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionTree.st,v 1.10 1998-01-28 14:58:04 stefan Exp $'
 ! !