Remove #test.
--- 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 $'
! !