El 6/28/08 5:05 AM, "Klaus D. Witzel" <[EMAIL PROTECTED]> escribió: >>> For not raise the error >>> Utilities readServerUpdatesThrough: 7181 saveLocally: true updateImage: >>> true >> >> Thank you Edgar, I'll give it a try. > > Tried it: "0 new update file(s) processed" :( Sometimes I was caught in my own traps :=) I forget I using my own folder and not the "official" releases . In the first mail you said >>> o started the .image and made flaps go away you think Flaps should go ? As I said the image could be updated hitting load updates from Squeak flap. If you file first the attached, only you was asked twice, one asking your initials and the other for a Ok. Utilities slUpdates should load until 7183. This weekend I concentrate in doing a database of all packages in Squeak 3.10 Universes and requirements or prerequisites they have. I made a Universes.obj the image could load and small logic for deal with. So , with a Muses help, soon we have a working thing, with no more oddities of any other Squeak. Very thanks Edgar
7173Utilities-slUpdates-edc.1.cs
Description: application/applefile
'From SqueakLight|II of 31 May 2008 [latest update: #7181] on 26 June 2008 at
10:52:53 am'!
!Utilities class methodsFor: 'fetching updates' stamp: 'edc 6/26/2008 10:52'!
slUpdates
"Utilities slUpdates"
| numero server dir count sourceFile fileName pos |
numero := (ChangeSorter highestNumberedChangeSet + 1) asString.
server := (ServerDirectory serverNamed: 'SL').
dir := server directoryNamed: 'SLupdates'.
count := 0.
dir entries select: [:c| (c name startsWithDigit) & (c name > numero) ]
thenCollect:[ :any|
(any name endsWith: '.sqz') ifTrue:[fileName := any name .
pos := fileName findString: '.sqz'.
fileName := fileName copyFrom: 1 to: pos - 1.
sourceFile := HTTPLoader default
retrieveContentsFor: 'ftp.squeak.org/various_images/SqueakLight//SLupdates/',
any name.
sourceFile := RWBinaryOrTextStream with:
(sourceFile content unzipped).
]
ifFalse:[sourceFile := RWBinaryOrTextStream with: (dir
getFileNamed: any name ) contents.
sourceFile reset].
ChangeSorter newChangesFromStream: sourceFile named:
any name .
count := count + 1].
PopUpMenu inform: count asString,' new update file(s) processed.'.
SystemVersion current registerUpdate: ChangeSorter highestNumberedChangeSet! !_______________________________________________ V3dot10 mailing list [email protected] http://lists.squeakfoundation.org/mailman/listinfo/v3dot10
