--- a/FileBrowser.st Mon Jan 09 09:52:40 2006 +0100
+++ b/FileBrowser.st Mon Jan 09 09:57:35 2006 +0100
@@ -6050,7 +6050,7 @@
for very big files, give ObjectMemory a hint, to preallocate more
"
(sz := stream fileSize) > (1024*1024) ifTrue:[
- Processor activeProcess withPriority:Processor userBackgroundPriority do:[
+ Processor activeProcess withUserBackgroundPriorityDo:[
ObjectMemory announceSpaceNeed:(sz + (sz // 5)) "/ add 20% for tab expansion
].
].
@@ -7520,5 +7520,5 @@
!FileBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.606 2005-12-21 20:10:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.607 2006-01-09 08:56:39 cg Exp $'
! !