Squeak-dev December 2013

squeak-dev@lists.squeakfoundation.org

45 participants
325 discussions

Daily Commit Log
by commits＠source.squeak.org 07 Dec '13

07 Dec '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-December/006695.h… Name: UpdateStream-nice.1 Ancestors: Create an UpdateStreamDownloader class to host Utilities class>>'fetching updates' methods. Utilities class side methods are copied as is to UpdateStreamDownloader class side with original authors/stamps The pre-trunk updateFromServer version has been restored. In the future, the UpdateStreamDownloader could create instances if this makes sense... But since this is essentially unused, it might as well not happen. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006696.h… Name: UpdateStream-nice.2 Ancestors: UpdateStream-nice.1 Prefer own Preferences ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006697.h… Name: 45Deprecated-fbs.18 Ancestors: 45Deprecated-fbs.17 If you want to know what kind of Browser to use, ask the AppRegistry that knows - SystemBrowser. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006698.h… Name: System-fbs.634 Ancestors: System-fbs.633 If you want to know what kind of Browser to use, ask the AppRegistry that knows - SystemBrowser. Also, the old #browseThemes implementation (a) referred directly to Browser, and (b) did almost exactly the usual thing - browsing a method selects the correct category, and just the label changes. Not worth extending ToolSet's API for such a small use case. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006699.h… Name: Morphic-fbs.700 Ancestors: Morphic-fbs.699 Systematically ask SystemBrowser for a Browser (class). ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006700.h… Name: System-fbs.635 Ancestors: System-fbs.634 FilePackage has a bunch of logic around handling update streams' changesets. This logic now belongs in UpdateStream. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006701.h… Name: UpdateStream-fbs.3 Ancestors: UpdateStream-nice.2 FilePackage has a bunch of logic around handling update streams' changesets. This logic now belongs in UpdateStream. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006702.h… Name: Tests-fbs.270 Ancestors: Tests-fbs.269 System -/-> Tools ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006703.h… Name: 45Deprecated-nice.19 Ancestors: 45Deprecated-fbs.18 Deprecate updateStream utilities ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006704.h… Name: System-nice.636 Ancestors: System-fbs.635 Deprecate updateStream utilities ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006705.h… Name: Morphic-fbs.701 Ancestors: Morphic-fbs.700 Use the new updater API. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006706.h… Name: MorphicExtras-fbs.129 Ancestors: MorphicExtras-fbs.128 Use the new updater API. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006707.h… Name: System-fbs.637 Ancestors: System-nice.636 Use the new updater API. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006708.h… Name: UpdateStream-nice.4 Ancestors: UpdateStream-fbs.3 Move some updateStream hooks in UpdateStream package This does not make the package properly removeable, because those hooks often are hardcoded So after removal, there will be some unimplemented sends ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006709.h… Name: Tools-nice.508 Ancestors: Tools-cmm.507 Move updateStream stuff to UpdateStream package ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006710.h… Name: System-nice.638 Ancestors: System-fbs.637 Move updateStream stuff to UpdateStream package ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006711.h… Name: Network-nice.145 Ancestors: Network-topa.144 Move updateStream stuff to UpdateStream package ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006712.h… Name: MonticelloConfigurations-nice.121 Ancestors: MonticelloConfigurations-fbs.120 Move updateStream stuff to UpdateStream package Note that the UI button 'post' is connected to this method #post. There should be a way to hook those extensions (annotations?) =============================================

1 0

The Trunk: MonticelloConfigurations-nice.121.mcz
by commits＠source.squeak.org 07 Dec '13

07 Dec '13

Nicolas Cellier uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-nice.121.mcz ==================== Summary ==================== Name: MonticelloConfigurations-nice.121 Author: nice Time: 7 December 2013, 12:21:38.051 am UUID: cc848ba7-62b2-49d2-b2a0-56edca262bb7 Ancestors: MonticelloConfigurations-fbs.120 Move updateStream stuff to UpdateStream package Note that the UI button 'post' is connected to this method #post. There should be a way to hook those extensions (annotations?) =============== Diff against MonticelloConfigurations-fbs.120 =============== Item was removed: - ----- Method: MCConfigurationBrowser>>post (in category 'actions') ----- - post - "Take the current configuration and post an update" - | name update managers names choice | - (self checkRepositories and: [self checkDependencies]) ifFalse: [^self]. - name := UIManager default - request: 'Update name (.cs) will be appended):' - initialAnswer: self configuration suggestedNameOfNextVersion. - name isEmpty ifTrue:[^self]. - self configuration name: name. - update := MCPseudoFileStream on: (String new: 100). - update localName: name, '.cs'. - update nextPutAll: '"Change Set: ', name. - update cr; nextPutAll: 'Date: ', Date today printString. - update cr; nextPutAll: 'Author: Posted by Monticello'. - update cr; cr; nextPutAll: 'This is a configuration map created by Monticello."'. - - update cr; cr; nextPutAll: '(MCConfiguration fromArray: #'. - self configuration fileOutOn: update. - update nextPutAll: ') upgrade.'. - update position: 0. - - managers := Smalltalk at: #UpdateManager ifPresent:[:mgr| mgr allRegisteredManagers]. - managers ifNil:[managers := #()]. - managers size > 0 ifTrue:[ - | servers index | - servers := ServerDirectory groupNames asSortedArray. - names := (managers collect:[:each| each packageVersion]), servers. - index := UIManager default chooseFrom: names lines: {managers size}. - index = 0 ifTrue:[^self]. - index <= managers size ifTrue:[ - | mgr | - mgr := managers at: index. - ^mgr publishUpdate: update. - ]. - choice := names at: index. - ] ifFalse:[ - names := ServerDirectory groupNames asSortedArray. - choice := UIManager default chooseFrom: names values: names. - choice == nil ifTrue: [^ self]. - ]. - (ServerDirectory serverInGroupNamed: choice) putUpdate: update.!

1 0

The Trunk: Network-nice.145.mcz
by commits＠source.squeak.org 07 Dec '13

07 Dec '13

Nicolas Cellier uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-nice.145.mcz ==================== Summary ==================== Name: Network-nice.145 Author: nice Time: 7 December 2013, 12:18:04.883 am UUID: 5db477ec-3e3d-49da-830d-51da62c79e17 Ancestors: Network-topa.144 Move updateStream stuff to UpdateStream package =============== Diff against Network-topa.144 =============== Item was removed: - ----- Method: ImageReadWriter class>>formFromServerFile: (in category '*network') ----- - formFromServerFile: fileName - "Answer a ColorForm stored on the file with the given name. Meant to be called from during the getting of updates from the server. That assures that (Utilities serverUrls) returns the right group of servers." - - | urls | - urls := Utilities serverUrls collect: - [:url | url, fileName]. " fileName starts with: 'updates/' " - urls do: [:aURL | | form doc | - (fileName findTokens: '.') last asLowercase = 'gif' ifTrue: [ - form := HTTPSocket httpGif: aURL. - form = (ColorForm extent: 20@20 depth: 8) - ifTrue: [self inform: 'The file ',aURL,' is ill formed.']. - ^ form]. - (fileName findTokens: '.') last asLowercase = 'bmp' ifTrue: [ - doc := HTTPSocket httpGet: aURL accept: 'image/bmp'. - form := Form fromBMPFile: doc. - doc close. - form ifNil: [self inform: 'The file ',aURL,' is ill formed.'. ^ Form new] - ifNotNil: [^ form]]. - self inform: 'File ', fileName, 'does not end with .gif or .bmp']. - self inform: 'That file not found on any server we know'.! Item was removed: - ----- Method: ServerDirectory class>>convertGroupNames (in category 'server groups') ----- - convertGroupNames - "ServerDirectory convertGroupNames" - self servers do: [:each | each convertGroupName]! Item was removed: - ----- Method: ServerDirectory class>>groupNames (in category 'server groups') ----- - groupNames - "Return the names of all registered groups of servers, including individual servers not in any group." - "ServerDirectory groupNames" - | names | - names := Set new. - self servers do: [:server | - names add: server groupName]. - ^names asSortedArray - ! Item was removed: - ----- Method: ServerDirectory class>>serverInGroupNamed: (in category 'server groups') ----- - serverInGroupNamed: groupName - "Return the first (available) server in the group of this name." - - | servers | - servers := self serversInGroupNamed: groupName. - servers isEmpty - ifTrue: [self error: 'No server found in group "' , groupName asString , '".']. - ^servers first! Item was removed: - ----- Method: ServerDirectory class>>serversInGroupNamed: (in category 'server groups') ----- - serversInGroupNamed: nameString - "Return the servers in the group of this name." - "ServerDirectory serversInGroupNamed: 'Squeak Public Updates' " - - ^self servers values select: [:server | - nameString = server groupName]. - ! Item was removed: - ----- Method: ServerDirectory>>checkNames: (in category 'updates') ----- - checkNames: list - "Look at these names for update and see if they are OK" - - list do: [:local | - (local count: [:char | char == $.]) > 1 ifTrue: [ - self inform: 'File name ',local,' - may not have more than one period'. - ^ false]. - local size > 26 ifTrue: ["allows for 5 digit update numbers" - self inform: 'File name ',local,' - is too long. Please rename it.'. - ^ false]. - (local at: 1) isDigit ifTrue: [ - self inform: 'File name ',local,' - may not begin with a number'. - ^ false]. - (local findDelimiters: '%/* ' startingAt: 1) <= local size ifTrue: [ - self inform: 'File name ',local,' - may not contain % / * or space'. - ^ false]]. - ^ true - ! Item was removed: - ----- Method: ServerDirectory>>checkServersWithPrefix:andParseListInto: (in category 'updates') ----- - checkServersWithPrefix: prefix andParseListInto: listBlock - "Check that all servers are up and have the latest Updates.list. - Warn user when can't write to a server that can still be read. - The contents of updates.list is parsed into {{vers. {fileNames*}}*}, - and returned via the listBlock." - - | serverList updateLists listContents maxSize outOfDateServers | - serverList := self serversInGroup. - serverList isEmpty - ifTrue: [^Array new]. - - updateLists := Dictionary new. - serverList do: [:updateServer | - [listContents := updateServer getFileNamed: prefix , 'updates.list'. - updateLists at: updateServer put: listContents] - on: Error - do: [:ex | - UIManager default chooseFrom: #('Cancel entire update') - title: 'Server ', updateServer moniker, - ' is unavailable.\Please consider phoning the administator.\' withCRs, listContents. - ^Array new]]. - - maxSize := (updateLists collect: [:each | each size]) max. - outOfDateServers := updateLists keys select: [:updateServer | - (updateLists at: updateServer) size < maxSize]. - - outOfDateServers do: [:updateServer | - (self outOfDate: updateServer) ifTrue: [^Array new]]. - - listBlock value: (Utilities parseListContents: listContents). - - serverList removeAll: outOfDateServers. - ^serverList - - ! Item was removed: - ----- Method: ServerDirectory>>closeGroup (in category 'server groups') ----- - closeGroup - "Close connection with all servers in the group." - - self serversInGroup do: [:aDir | aDir quit]. - ! Item was removed: - ----- Method: ServerDirectory>>convertGroupName (in category 'server groups') ----- - convertGroupName - group - ifNotNil: [self groupName: self groupName]! Item was removed: - ----- Method: ServerDirectory>>copyUpdatesNumbered:toVersion: (in category 'updates') ----- - copyUpdatesNumbered: selectList toVersion: otherVersion - "Into the section of updates.list corresponding to otherVersion, - copy all the fileNames from this version matching the selectList." - " - (ServerDirectory serverInGroupNamed: 'Disney Internal Updates*') - copyUpdatesNumbered: #(4411 4412) to version: 'Squeak3.1beta'. - " - | myServers updateStrm indexPrefix version versIndex lastNum otherVersIndex additions outOfOrder listContents | - self openGroup. - indexPrefix := (self groupName includes: $*) - ifTrue: [(self groupName findTokens: ' ') first] "special for internal updates" - ifFalse: ['']. "normal" - myServers := self checkServersWithPrefix: indexPrefix - andParseListInto: [:x | listContents := x]. - myServers size = 0 ifTrue: [self closeGroup. ^ self]. - - version := SystemVersion current version. - versIndex := (listContents collect: [:pair | pair first]) indexOf: version. - versIndex = 0 ifTrue: - [self inform: 'There is no section in updates.list for your version'. - self closeGroup. ^ nil]. "abort" - otherVersIndex := (listContents collect: [:pair | pair first]) indexOf: otherVersion. - otherVersIndex = 0 ifTrue: - [self inform: 'There is no section in updates.list for the target version'. - self closeGroup. ^ nil]. "abort" - versIndex < listContents size ifTrue: - [(self confirm: 'This system, ', version , - ' is not the latest version.\OK to copy updates from that old version?' withCRs) - ifFalse: [self closeGroup. ^ nil]]. "abort" - - "Append all fileNames in my list that are not in the export list" - additions := OrderedCollection new. - outOfOrder := OrderedCollection new. - lastNum := (listContents at: otherVersIndex) last isEmpty - ifTrue: [0] "no checking if the current list is empty" - ifFalse: [(listContents at: otherVersIndex) last last initialIntegerOrNil]. - (listContents at: versIndex) last do: - [:fileName | | seq | seq := fileName initialIntegerOrNil. - (selectList includes: seq) ifTrue: - [seq > lastNum - ifTrue: [additions addLast: fileName] - ifFalse: [outOfOrder addLast: seq]]]. - outOfOrder isEmpty ifFalse: - [UIManager default inform: 'Updates numbered ' , outOfOrder asArray printString, - ' are out of order.\ The last update in ' withCRs, - otherVersion, ' is ', lastNum printString, - '.\No update will take place.' withCRs. - self closeGroup. ^ nil]. "abort" - - "Save old copy of updates.list on local disk" - FileDirectory default deleteFileNamed: indexPrefix , 'updates.list.bk'. - Utilities writeList: listContents toStream: (FileStream fileNamed: indexPrefix , 'updates.list.bk'). - - "Write a new copy of updates.list on all servers..." - listContents at: otherVersIndex put: - {otherVersion. (listContents at: otherVersIndex) last , additions}. - updateStrm := ReadStream on: - (String streamContents: [:s | Utilities writeList: listContents toStream: s]). - myServers do: - [:aServer | - updateStrm reset. - aServer putFile: updateStrm named: indexPrefix , 'updates.list' retry: true. - Transcript show: 'Update succeeded on server ', aServer moniker; cr]. - self closeGroup. - - Transcript cr; show: 'Be sure to test your new update!!'; cr. - ! Item was removed: - ----- Method: ServerDirectory>>exportUpdatesExcept: (in category 'updates') ----- - exportUpdatesExcept: skipList - "Into the section of updates.list corresponding to this version, - copy all the fileNames in the named updates.list for this group - that are more recently numbered." - " - (ServerDirectory serverInGroupNamed: 'Disney Internal Updates*') - exportUpdatesExcept: #(3959). - " - | myServers updateStrm response indexPrefix version versIndex lastNum expContents expVersIndex additions listContents | - self openGroup. - indexPrefix := (self groupName includes: $*) - ifTrue: [(self groupName findTokens: ' ') first] "special for internal updates" - ifFalse: ['']. "normal" - myServers := self checkServersWithPrefix: indexPrefix - andParseListInto: [:x | listContents := x]. - myServers size = 0 ifTrue: [self closeGroup. ^ self]. - - version := SystemVersion current version. - versIndex := (listContents collect: [:pair | pair first]) indexOf: version. - versIndex = 0 ifTrue: - [self inform: 'There is no section in updates.list for your version'. - self closeGroup. ^ nil]. "abort" - versIndex < listContents size ifTrue: - [response := UIManager default - chooseFrom: #('Make update from an older version' 'Cancel update') - title: 'This system, ', SystemVersion current version, - ' is not the latest version'. - response = 1 ifFalse: [self closeGroup. ^ nil]]. "abort" - - "Get the old export updates.list." - expContents := Utilities parseListContents: - (myServers first getFileNamed: 'updates.list'). - expVersIndex := (expContents collect: [:pair | pair first]) indexOf: version. - expVersIndex = 0 ifTrue: - [self inform: 'There is no section in updates.list for your version'. - self closeGroup. ^ nil]. "abort" - lastNum := (expContents at: expVersIndex) last isEmpty - ifTrue: [0] "no checking if the current list is empty" - ifFalse: [(expContents at: expVersIndex) last last initialIntegerOrNil]. - - "Save old copy of updates.list on local disk" - FileDirectory default deleteFileNamed: 'updates.list.bk'. - Utilities writeList: expContents toStream: (FileStream fileNamed: 'updates.list.bk'). - - "Append all fileNames in my list that are not in the export list" - additions := OrderedCollection new. - (listContents at: versIndex) last do: - [:fileName | | seq | seq := fileName initialIntegerOrNil. - (seq > lastNum and: [(skipList includes: seq) not]) ifTrue: - [additions addLast: fileName]]. - expContents at: expVersIndex put: - {version. (expContents at: expVersIndex) last , additions}. - (self confirm: 'Do you really want to export ' , additions size printString , ' recent updates?') - ifFalse: [self closeGroup. ^ nil]. "abort" - - "Write a new copy of updates.list on all servers..." - updateStrm := ReadStream on: - (String streamContents: [:s | Utilities writeList: expContents toStream: s]). - myServers do: - [:aServer | - updateStrm reset. - aServer putFile: updateStrm named: 'updates.list' retry: true. - Transcript show: 'Update succeeded on server ', aServer moniker; cr]. - self closeGroup. - - Transcript cr; show: 'Be sure to test your new update!!'; cr. - ! Item was removed: - ----- Method: ServerDirectory>>openGroup (in category 'server groups') ----- - openGroup - "Open all servers in the group. Don't forget to close later." - - self serversInGroup do: [:aDir | aDir wakeUp]. - ! Item was removed: - ----- Method: ServerDirectory>>outOfDate: (in category 'updates') ----- - outOfDate: aServer - "Inform the user that this server does not have a current version of 'Updates.list' Return true if the user does not want any updates to happen." - - | response | - response := UIManager default chooseFrom: #('Install on others' 'Cancel entire update') - title: 'The server ', aServer moniker, ' is not up to date. - Please store the missing updates maually.'. - ^ response ~= 1! Item was removed: - ----- Method: ServerDirectory>>putUpdate: (in category 'updates') ----- - putUpdate: fileStrm - "Put this file out as an Update on the servers of my group. Each version of the system may have its own set of update files, or they may all share the same files. 'updates.list' holds the master list. Each update is a fileIn whose name begins with a number. See Utilities class readServerUpdatesThrough:saveLocally:updateImage:. - When two sets of updates are stored on the same directory, one of them has a * in its - serverUrls description. When that is true, the first word of the description is put on - the front of 'updates.list', and that index file is used." - - | myServers updateStrm newName response localName seq indexPrefix listContents version versIndex lastNum stripped | - localName := fileStrm localName. - fileStrm size = 0 ifTrue: - [^ self inform: 'That file has zero bytes!! May have a new name.']. - (fileStrm contentsOfEntireFile includes: Character linefeed) - ifTrue: [self notifyWithLabel: 'That file contains linefeeds. Proceed if... - you know that this is okay (e.g. the file contains raw binary data).']. - fileStrm reset. - (self checkNames: {localName}) ifFalse: [^ nil]. "illegal characters" - response := UIManager default chooseFrom: #('Install update' 'Cancel update') - title: 'Do you really want to broadcast the file ', localName, - '\to every Squeak user who updates from ' withCRs, self groupName, '?'. - response = 1 ifFalse: [^ nil]. "abort" - - self openGroup. - indexPrefix := (self groupName includes: $*) - ifTrue: [(self groupName findTokens: ' ') first] "special for internal updates" - ifFalse: ['']. "normal" - myServers := self checkServersWithPrefix: indexPrefix - andParseListInto: [:x | listContents := x]. - myServers size = 0 ifTrue: [self closeGroup. ^ self]. - - version := SystemVersion current version. - versIndex := (listContents collect: [:pair | pair first]) indexOf: version. - versIndex = 0 ifTrue: - [self inform: 'There is no section in updates.list for your version'. - self closeGroup. ^ nil]. "abort" - - "A few affirmations..." - versIndex < listContents size ifTrue: - [(self confirm: 'This system, ', version , - ' is not the latest version.\Make update for an older version?' withCRs) - ifFalse: [self closeGroup. ^ nil]]. "abort" - (listContents at: versIndex) last isEmpty ifTrue: - [(self confirm: 'Please confirm that you mean to issue the first update for ' , - version , '\(otherwise something is wrong).' withCRs) - ifFalse: [self closeGroup. ^ nil]]. - - "We now determine next update number to be max of entire index" - lastNum := listContents inject: 0 into: - [:max :pair | pair last isEmpty - ifTrue: [max] - ifFalse: [max max: pair last last initialIntegerOrNil]]. - - "Save old copy of updates.list on local disk" - FileDirectory default deleteFileNamed: indexPrefix , 'updates.list.bk'. - Utilities writeList: listContents toStream: (FileStream fileNamed: indexPrefix , 'updates.list.bk'). - - "append name to updates with new sequence number" - seq := (lastNum + 1) printString padded: #left to: 4 with: $0. - "strip off any old seq number" - stripped := localName copyFrom: (localName findFirst: [:c | c isDigit not]) to: localName size. - newName := seq , stripped. - listContents at: versIndex put: - {version. (listContents at: versIndex) last copyWith: newName}. - - "Write a new copy on all servers..." - updateStrm := ReadStream on: - (String streamContents: [:s | Utilities writeList: listContents toStream: s]). - myServers do: - [:aServer | - fileStrm reset. "reopen" - aServer putFile: fileStrm named: newName retry: true. - updateStrm reset. - aServer putFile: updateStrm named: indexPrefix , 'updates.list' retry: true. - Transcript show: 'Update succeeded on server ', aServer moniker; cr]. - self closeGroup. - - Transcript cr; show: 'Be sure to test your new update!!'; cr. - "rename the file locally (may fail)" - fileStrm directory rename: localName toBe: newName. - ! Item was removed: - ----- Method: ServerDirectory>>putUpdateMulti:fromDirectory: (in category 'updates') ----- - putUpdateMulti: list fromDirectory: updateDirectory - "Put these files out as an Update on the servers of my group. List is an array of local file names with or without number prefixes. Each version of the system has its own set of update files. 'updates.list' holds the master list. Each update is a fileIn whose name begins with a number. See Utilities class absorbUpdatesFromServer." - - | myServers updateStrm lastNum response newNames numStr indexPrefix version versIndex listContents | - (self checkNames: (list collect: "Check the names without their numbers" - [:each | each copyFrom: (each findFirst: [:c | c isDigit not]) to: each size])) - ifFalse: [^ nil]. - response := UIManager default chooseFrom: #('Install update' 'Cancel update') - title: 'Do you really want to broadcast ', list size printString, ' updates', - '\to every Squeak user who updates from ' withCRs, self groupName, '?'. - response = 1 ifFalse: [^ nil]. "abort" - - self openGroup. - indexPrefix := (self groupName includes: $*) - ifTrue: [(self groupName findTokens: ' ') first] "special for internal updates" - ifFalse: ['']. "normal" - myServers := self checkServersWithPrefix: indexPrefix - andParseListInto: [:x | listContents := x]. - myServers size = 0 ifTrue: [self closeGroup. ^ self]. - - version := SystemVersion current version. - versIndex := (listContents collect: [:pair | pair first]) indexOf: version. - versIndex = 0 ifTrue: - [self inform: 'There is no section in updates.list for your version'. - self closeGroup. ^ nil]. "abort" - lastNum := (listContents at: versIndex) last last initialIntegerOrNil. - versIndex < listContents size ifTrue: - [response := UIManager default chooseFrom: #('Make update for an older version' 'Cancel update') - title: 'This system, ', SystemVersion current version, - ' is not the latest version'. - response = 1 ifFalse: [self closeGroup. ^ nil]. - numStr := UIManager default - request: 'Please confirm or change the starting update number' - initialAnswer: (lastNum+1) printString. - lastNum := numStr asNumber - 1]. "abort" - "Save old copy of updates.list on local disk" - FileDirectory default deleteFileNamed: indexPrefix , 'updates.list.bk'. - Utilities writeList: listContents toStream: (FileStream fileNamed: indexPrefix , 'updates.list.bk'). - - "Append names to updates with new sequence numbers" - newNames := list with: (lastNum+1 to: lastNum+list size) collect: - [:each :num | | stripped seq | seq := num printString padded: #left to: 4 with: $0. - "strip off any old seq number" - stripped := each copyFrom: (each findFirst: [:c | c isDigit not]) to: each size. - seq , stripped]. - listContents at: versIndex put: - {version. (listContents at: versIndex) second , newNames}. - - "Write a new copy on all servers..." - updateStrm := ReadStream on: - (String streamContents: [:s | Utilities writeList: listContents toStream: s]). - myServers do: - [:aServer | - list doWithIndex: [:local :ind | | file | - file := updateDirectory oldFileNamed: local. - aServer putFile: file named: (newNames at: ind) retry: true. - file close]. - updateStrm reset. - aServer putFile: updateStrm named: indexPrefix , 'updates.list' retry: true. - Transcript show: 'Update succeeded on server ', aServer moniker; cr]. - self closeGroup. - - Transcript cr; show: 'Be sure to test your new update!!'; cr. - "rename the file locally" - list with: newNames do: - [:local :newName | updateDirectory rename: local toBe: newName]. - ! Item was removed: - ----- Method: ServerDirectory>>serversInGroup (in category 'server groups') ----- - serversInGroup - ^self groupName - ifNil: [Array with: self] - ifNotNil: [self class serversInGroupNamed: self groupName]! Item was removed: - ----- Method: ServerDirectory>>updateInstallVersion: (in category 'updates') ----- - updateInstallVersion: newVersion - "For each server group, ask whether we want to put the new version marker (eg 'Squeak2.3') at the end of the file. Current version of Squeak must be the old one when this is done. - ServerDirectory new updateInstallVersion: 'Squeak9.9test' - " - | myServers updateStrm names choice indexPrefix listContents version versIndex | - [names := ServerDirectory groupNames asSortedArray. - choice := UIManager default chooseFrom: names values: names. - choice == nil] - whileFalse: - [indexPrefix := (choice endsWith: '*') - ifTrue: [(choice findTokens: ' ') first] "special for internal updates" - ifFalse: ['']. "normal" - myServers := (ServerDirectory serverInGroupNamed: choice) - checkServersWithPrefix: indexPrefix - andParseListInto: [:x | listContents := x]. - myServers size = 0 ifTrue: [^ self]. - - version := SystemVersion current version. - versIndex := (listContents collect: [:pair | pair first]) indexOf: version. - versIndex = 0 ifTrue: - [^ self inform: 'There is no section in updates.list for your version']. "abort" - - "Append new version to updates following my version" - listContents := listContents copyReplaceFrom: versIndex+1 to: versIndex with: {{newVersion. {}}}. - updateStrm := ReadStream on: - (String streamContents: [:s | Utilities writeList: listContents toStream: s]). - - myServers do: - [:aServer | updateStrm reset. - aServer putFile: updateStrm named: indexPrefix ,'updates.list'. - Transcript cr; show: indexPrefix ,'updates.list written on server ', aServer moniker]. - self closeGroup]!

1 0

The Trunk: System-nice.638.mcz
by commits＠source.squeak.org 07 Dec '13

07 Dec '13

Nicolas Cellier uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-nice.638.mcz ==================== Summary ==================== Name: System-nice.638 Author: nice Time: 7 December 2013, 12:15:40.007 am UUID: fda82750-d26d-4ec3-9863-333b0f49d3dc Ancestors: System-fbs.637 Move updateStream stuff to UpdateStream package =============== Diff against System-fbs.637 =============== Item was removed: - ----- Method: AutoStart class>>checkForUpdates (in category 'updating') ----- - checkForUpdates - | availableUpdate updateServer | - World ifNotNil: - [ World install. - ActiveHand position: 100 @ 100 ]. - HTTPClient isRunningInBrowser ifFalse: [ ^ self processUpdates ]. - availableUpdate := (Smalltalk namedArguments - at: 'UPDATE' - ifAbsent: [ '' ]) asInteger. - availableUpdate ifNil: [ ^ false ]. - updateServer := Smalltalk namedArguments - at: 'UPDATESERVER' - ifAbsent: - [ Smalltalk namedArguments - at: 'UPDATE_SERVER' - ifAbsent: [ 'Squeakland' ] ]. - Utilities setUpdateServer: updateServer. - ^ SystemVersion checkAndApplyUpdates: availableUpdate! Item was removed: - ----- Method: SystemVersion class>>checkAndApplyUpdates: (in category 'updating') ----- - checkAndApplyUpdates: availableUpdate - "SystemVersion checkAndApplyUpdates: nil" - - ^(availableUpdate isNil - or: [availableUpdate > SystemVersion current highestUpdate]) - ifTrue: [ - (self confirm: 'There are updates available. Do you want to install them now?') - ifFalse: [^false]. - Utilities - readServerUpdatesThrough: availableUpdate - saveLocally: false - updateImage: true. - Smalltalk snapshot: true andQuit: false. - true] - ifFalse: [false]! Item was changed: Object subclass: #Utilities instanceVariableNames: '' + classVariableNames: 'AuthorInitials AuthorName CommonRequestStrings LastStats' - classVariableNames: 'AuthorInitials AuthorName CommonRequestStrings LastStats UpdateDownloader UpdateUrlLists' poolDictionaries: '' category: 'System-Support'! !Utilities commentStamp: '<historical>' prior: 0! A repository for general and miscellaneous utilities; much of what is here are in effect global methods that don't naturally attach to anything else. 1/96 sw!

1 0

The Trunk: Tools-nice.508.mcz
by commits＠source.squeak.org 07 Dec '13

07 Dec '13

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-nice.508.mcz ==================== Summary ==================== Name: Tools-nice.508 Author: nice Time: 7 December 2013, 12:13:33.913 am UUID: ac2116d8-39a8-4359-b9d3-fbbebd2b10c4 Ancestors: Tools-cmm.507 Move updateStream stuff to UpdateStream package =============== Diff against Tools-cmm.507 =============== Item was removed: - ----- Method: FileList>>putUpdate: (in category 'server list') ----- - putUpdate: fullFileName - "Put this file out as an Update on the servers." - - | names choice | - self canDiscardEdits ifFalse: [^ self changed: #flash]. - names := ServerDirectory groupNames asSortedArray. - choice := UIManager default chooseFrom: names values: names. - choice == nil ifTrue: [^ self]. - (ServerDirectory serverInGroupNamed: choice) putUpdate: - (directory oldFileNamed: fullFileName). - self volumeListIndex: volListIndex. - ! Item was removed: - ----- Method: FileList>>serviceBroadcastUpdate (in category 'own services') ----- - serviceBroadcastUpdate - "Answer a service for broadcasting a file as an update" - - ^ SimpleServiceEntry - provider: self - label: 'broadcast as update' - selector: #putUpdate: - description: 'broadcast file as update' - buttonLabel: 'broadcast'!

1 0

The Trunk: UpdateStream-nice.4.mcz
by commits＠source.squeak.org 07 Dec '13

07 Dec '13

Nicolas Cellier uploaded a new version of UpdateStream to project The Trunk: http://source.squeak.org/trunk/UpdateStream-nice.4.mcz ==================== Summary ==================== Name: UpdateStream-nice.4 Author: nice Time: 7 December 2013, 12:08:41.719 am UUID: 5fcdedce-88aa-469a-bf8b-32820f051c4f Ancestors: UpdateStream-fbs.3 Move some updateStream hooks in UpdateStream package This does not make the package properly removeable, because those hooks often are hardcoded So after removal, there will be some unimplemented sends =============== Diff against UpdateStream-fbs.3 =============== Item was added: + ----- Method: AutoStart class>>checkForUpdates (in category '*UpdateStream') ----- + checkForUpdates + | availableUpdate updateServer | + World ifNotNil: + [ World install. + ActiveHand position: 100 @ 100 ]. + HTTPClient isRunningInBrowser ifFalse: [ ^ self processUpdates ]. + availableUpdate := (Smalltalk namedArguments + at: 'UPDATE' + ifAbsent: [ '' ]) asInteger. + availableUpdate ifNil: [ ^ false ]. + updateServer := Smalltalk namedArguments + at: 'UPDATESERVER' + ifAbsent: + [ Smalltalk namedArguments + at: 'UPDATE_SERVER' + ifAbsent: [ 'Squeakland' ] ]. + UpdateStreamDownloader default setUpdateServer: updateServer. + ^ SystemVersion checkAndApplyUpdates: availableUpdate! Item was added: + ----- Method: FileList>>putUpdate: (in category '*UpdateStream') ----- + putUpdate: fullFileName + "Put this file out as an Update on the servers." + + | names choice | + self canDiscardEdits ifFalse: [^ self changed: #flash]. + names := ServerDirectory groupNames asSortedArray. + choice := UIManager default chooseFrom: names values: names. + choice == nil ifTrue: [^ self]. + (ServerDirectory serverInGroupNamed: choice) putUpdate: + (directory oldFileNamed: fullFileName). + self volumeListIndex: volListIndex. + ! Item was added: + ----- Method: FileList>>serviceBroadcastUpdate (in category '*UpdateStream') ----- + serviceBroadcastUpdate + "Answer a service for broadcasting a file as an update" + + ^ SimpleServiceEntry + provider: self + label: 'broadcast as update' + selector: #putUpdate: + description: 'broadcast file as update' + buttonLabel: 'broadcast'! Item was added: + ----- Method: ImageReadWriter class>>formFromServerFile: (in category '*UpdateStream') ----- + formFromServerFile: fileName + "Answer a ColorForm stored on the file with the given name. Meant to be called from during the getting of updates from the server. That assures that (UpdateStreamDownloader default serverUrls) returns the right group of servers." + + | urls | + urls := UpdateStreamDownloader default serverUrls collect: + [:url | url, fileName]. " fileName starts with: 'updates/' " + urls do: [:aURL | | form doc | + (fileName findTokens: '.') last asLowercase = 'gif' ifTrue: [ + form := HTTPSocket httpGif: aURL. + form = (ColorForm extent: 20@20 depth: 8) + ifTrue: [self inform: 'The file ',aURL,' is ill formed.']. + ^ form]. + (fileName findTokens: '.') last asLowercase = 'bmp' ifTrue: [ + doc := HTTPSocket httpGet: aURL accept: 'image/bmp'. + form := Form fromBMPFile: doc. + doc close. + form ifNil: [self inform: 'The file ',aURL,' is ill formed.'. ^ Form new] + ifNotNil: [^ form]]. + self inform: 'File ', fileName, 'does not end with .gif or .bmp']. + self inform: 'That file not found on any server we know'.! Item was added: + ----- Method: MCConfigurationBrowser>>post (in category '*UpdateStream') ----- + post + "Take the current configuration and post an update" + | name update managers names choice | + (self checkRepositories and: [self checkDependencies]) ifFalse: [^self]. + name := UIManager default + request: 'Update name (.cs) will be appended):' + initialAnswer: self configuration suggestedNameOfNextVersion. + name isEmpty ifTrue:[^self]. + self configuration name: name. + update := MCPseudoFileStream on: (String new: 100). + update localName: name, '.cs'. + update nextPutAll: '"Change Set: ', name. + update cr; nextPutAll: 'Date: ', Date today printString. + update cr; nextPutAll: 'Author: Posted by Monticello'. + update cr; cr; nextPutAll: 'This is a configuration map created by Monticello."'. + + update cr; cr; nextPutAll: '(MCConfiguration fromArray: #'. + self configuration fileOutOn: update. + update nextPutAll: ') upgrade.'. + update position: 0. + + managers := Smalltalk at: #UpdateManager ifPresent:[:mgr| mgr allRegisteredManagers]. + managers ifNil:[managers := #()]. + managers size > 0 ifTrue:[ + | servers index | + servers := ServerDirectory groupNames asSortedArray. + names := (managers collect:[:each| each packageVersion]), servers. + index := UIManager default chooseFrom: names lines: {managers size}. + index = 0 ifTrue:[^self]. + index <= managers size ifTrue:[ + | mgr | + mgr := managers at: index. + ^mgr publishUpdate: update. + ]. + choice := names at: index. + ] ifFalse:[ + names := ServerDirectory groupNames asSortedArray. + choice := UIManager default chooseFrom: names values: names. + choice == nil ifTrue: [^ self]. + ]. + (ServerDirectory serverInGroupNamed: choice) putUpdate: update.! Item was added: + ----- Method: ServerDirectory class>>convertGroupNames (in category '*UpdateStream-server groups') ----- + convertGroupNames + "ServerDirectory convertGroupNames" + self servers do: [:each | each convertGroupName]! Item was added: + ----- Method: ServerDirectory class>>groupNames (in category '*UpdateStream-server groups') ----- + groupNames + "Return the names of all registered groups of servers, including individual servers not in any group." + "ServerDirectory groupNames" + | names | + names := Set new. + self servers do: [:server | + names add: server groupName]. + ^names asSortedArray + ! Item was added: + ----- Method: ServerDirectory class>>serverInGroupNamed: (in category '*UpdateStream-server groups') ----- + serverInGroupNamed: groupName + "Return the first (available) server in the group of this name." + + | servers | + servers := self serversInGroupNamed: groupName. + servers isEmpty + ifTrue: [self error: 'No server found in group "' , groupName asString , '".']. + ^servers first! Item was added: + ----- Method: ServerDirectory class>>serversInGroupNamed: (in category '*UpdateStream-server groups') ----- + serversInGroupNamed: nameString + "Return the servers in the group of this name." + "ServerDirectory serversInGroupNamed: 'Squeak Public Updates' " + + ^self servers values select: [:server | + nameString = server groupName]. + ! Item was added: + ----- Method: ServerDirectory>>checkNames: (in category '*UpdateStream-updating') ----- + checkNames: list + "Look at these names for update and see if they are OK" + + list do: [:local | + (local count: [:char | char == $.]) > 1 ifTrue: [ + self inform: 'File name ',local,' + may not have more than one period'. + ^ false]. + local size > 26 ifTrue: ["allows for 5 digit update numbers" + self inform: 'File name ',local,' + is too long. Please rename it.'. + ^ false]. + (local at: 1) isDigit ifTrue: [ + self inform: 'File name ',local,' + may not begin with a number'. + ^ false]. + (local findDelimiters: '%/* ' startingAt: 1) <= local size ifTrue: [ + self inform: 'File name ',local,' + may not contain % / * or space'. + ^ false]]. + ^ true + ! Item was added: + ----- Method: ServerDirectory>>checkServersWithPrefix:andParseListInto: (in category '*UpdateStream-updating') ----- + checkServersWithPrefix: prefix andParseListInto: listBlock + "Check that all servers are up and have the latest Updates.list. + Warn user when can't write to a server that can still be read. + The contents of updates.list is parsed into {{vers. {fileNames*}}*}, + and returned via the listBlock." + + | serverList updateLists listContents maxSize outOfDateServers | + serverList := self serversInGroup. + serverList isEmpty + ifTrue: [^Array new]. + + updateLists := Dictionary new. + serverList do: [:updateServer | + [listContents := updateServer getFileNamed: prefix , 'updates.list'. + updateLists at: updateServer put: listContents] + on: Error + do: [:ex | + UIManager default chooseFrom: #('Cancel entire update') + title: 'Server ', updateServer moniker, + ' is unavailable.\Please consider phoning the administator.\' withCRs, listContents. + ^Array new]]. + + maxSize := (updateLists collect: [:each | each size]) max. + outOfDateServers := updateLists keys select: [:updateServer | + (updateLists at: updateServer) size < maxSize]. + + outOfDateServers do: [:updateServer | + (self outOfDate: updateServer) ifTrue: [^Array new]]. + + listBlock value: (UpdateStreamDownloader default parseListContents: listContents). + + serverList removeAll: outOfDateServers. + ^serverList + + ! Item was added: + ----- Method: ServerDirectory>>closeGroup (in category '*UpdateStream-server groups') ----- + closeGroup + "Close connection with all servers in the group." + + self serversInGroup do: [:aDir | aDir quit]. + ! Item was added: + ----- Method: ServerDirectory>>convertGroupName (in category '*UpdateStream-server groups') ----- + convertGroupName + group + ifNotNil: [self groupName: self groupName]! Item was added: + ----- Method: ServerDirectory>>copyUpdatesNumbered:toVersion: (in category '*UpdateStream-updating') ----- + copyUpdatesNumbered: selectList toVersion: otherVersion + "Into the section of updates.list corresponding to otherVersion, + copy all the fileNames from this version matching the selectList." + " + (ServerDirectory serverInGroupNamed: 'Disney Internal Updates*') + copyUpdatesNumbered: #(4411 4412) to version: 'Squeak3.1beta'. + " + | myServers updateStrm indexPrefix version versIndex lastNum otherVersIndex additions outOfOrder listContents | + self openGroup. + indexPrefix := (self groupName includes: $*) + ifTrue: [(self groupName findTokens: ' ') first] "special for internal updates" + ifFalse: ['']. "normal" + myServers := self checkServersWithPrefix: indexPrefix + andParseListInto: [:x | listContents := x]. + myServers size = 0 ifTrue: [self closeGroup. ^ self]. + + version := SystemVersion current version. + versIndex := (listContents collect: [:pair | pair first]) indexOf: version. + versIndex = 0 ifTrue: + [self inform: 'There is no section in updates.list for your version'. + self closeGroup. ^ nil]. "abort" + otherVersIndex := (listContents collect: [:pair | pair first]) indexOf: otherVersion. + otherVersIndex = 0 ifTrue: + [self inform: 'There is no section in updates.list for the target version'. + self closeGroup. ^ nil]. "abort" + versIndex < listContents size ifTrue: + [(self confirm: 'This system, ', version , + ' is not the latest version.\OK to copy updates from that old version?' withCRs) + ifFalse: [self closeGroup. ^ nil]]. "abort" + + "Append all fileNames in my list that are not in the export list" + additions := OrderedCollection new. + outOfOrder := OrderedCollection new. + lastNum := (listContents at: otherVersIndex) last isEmpty + ifTrue: [0] "no checking if the current list is empty" + ifFalse: [(listContents at: otherVersIndex) last last initialIntegerOrNil]. + (listContents at: versIndex) last do: + [:fileName | | seq | seq := fileName initialIntegerOrNil. + (selectList includes: seq) ifTrue: + [seq > lastNum + ifTrue: [additions addLast: fileName] + ifFalse: [outOfOrder addLast: seq]]]. + outOfOrder isEmpty ifFalse: + [UIManager default inform: 'Updates numbered ' , outOfOrder asArray printString, + ' are out of order.\ The last update in ' withCRs, + otherVersion, ' is ', lastNum printString, + '.\No update will take place.' withCRs. + self closeGroup. ^ nil]. "abort" + + "Save old copy of updates.list on local disk" + FileDirectory default deleteFileNamed: indexPrefix , 'updates.list.bk'. + UpdateStreamDownloader default writeList: listContents toStream: (FileStream fileNamed: indexPrefix , 'updates.list.bk'). + + "Write a new copy of updates.list on all servers..." + listContents at: otherVersIndex put: + {otherVersion. (listContents at: otherVersIndex) last , additions}. + updateStrm := ReadStream on: + (String streamContents: [:s | Utilities writeList: listContents toStream: s]). + myServers do: + [:aServer | + updateStrm reset. + aServer putFile: updateStrm named: indexPrefix , 'updates.list' retry: true. + Transcript show: 'Update succeeded on server ', aServer moniker; cr]. + self closeGroup. + + Transcript cr; show: 'Be sure to test your new update!!'; cr. + ! Item was added: + ----- Method: ServerDirectory>>exportUpdatesExcept: (in category '*UpdateStream-updating') ----- + exportUpdatesExcept: skipList + "Into the section of updates.list corresponding to this version, + copy all the fileNames in the named updates.list for this group + that are more recently numbered." + " + (ServerDirectory serverInGroupNamed: 'Disney Internal Updates*') + exportUpdatesExcept: #(3959). + " + | myServers updateStrm response indexPrefix version versIndex lastNum expContents expVersIndex additions listContents | + self openGroup. + indexPrefix := (self groupName includes: $*) + ifTrue: [(self groupName findTokens: ' ') first] "special for internal updates" + ifFalse: ['']. "normal" + myServers := self checkServersWithPrefix: indexPrefix + andParseListInto: [:x | listContents := x]. + myServers size = 0 ifTrue: [self closeGroup. ^ self]. + + version := SystemVersion current version. + versIndex := (listContents collect: [:pair | pair first]) indexOf: version. + versIndex = 0 ifTrue: + [self inform: 'There is no section in updates.list for your version'. + self closeGroup. ^ nil]. "abort" + versIndex < listContents size ifTrue: + [response := UIManager default + chooseFrom: #('Make update from an older version' 'Cancel update') + title: 'This system, ', SystemVersion current version, + ' is not the latest version'. + response = 1 ifFalse: [self closeGroup. ^ nil]]. "abort" + + "Get the old export updates.list." + expContents := UpdateStreamDownloader default parseListContents: + (myServers first getFileNamed: 'updates.list'). + expVersIndex := (expContents collect: [:pair | pair first]) indexOf: version. + expVersIndex = 0 ifTrue: + [self inform: 'There is no section in updates.list for your version'. + self closeGroup. ^ nil]. "abort" + lastNum := (expContents at: expVersIndex) last isEmpty + ifTrue: [0] "no checking if the current list is empty" + ifFalse: [(expContents at: expVersIndex) last last initialIntegerOrNil]. + + "Save old copy of updates.list on local disk" + FileDirectory default deleteFileNamed: 'updates.list.bk'. + UpdateStreamDownloader default writeList: expContents toStream: (FileStream fileNamed: 'updates.list.bk'). + + "Append all fileNames in my list that are not in the export list" + additions := OrderedCollection new. + (listContents at: versIndex) last do: + [:fileName | | seq | seq := fileName initialIntegerOrNil. + (seq > lastNum and: [(skipList includes: seq) not]) ifTrue: + [additions addLast: fileName]]. + expContents at: expVersIndex put: + {version. (expContents at: expVersIndex) last , additions}. + (self confirm: 'Do you really want to export ' , additions size printString , ' recent updates?') + ifFalse: [self closeGroup. ^ nil]. "abort" + + "Write a new copy of updates.list on all servers..." + updateStrm := ReadStream on: + (String streamContents: [:s | Utilities writeList: expContents toStream: s]). + myServers do: + [:aServer | + updateStrm reset. + aServer putFile: updateStrm named: 'updates.list' retry: true. + Transcript show: 'Update succeeded on server ', aServer moniker; cr]. + self closeGroup. + + Transcript cr; show: 'Be sure to test your new update!!'; cr. + ! Item was added: + ----- Method: ServerDirectory>>openGroup (in category '*UpdateStream-server groups') ----- + openGroup + "Open all servers in the group. Don't forget to close later." + + self serversInGroup do: [:aDir | aDir wakeUp]. + ! Item was added: + ----- Method: ServerDirectory>>outOfDate: (in category '*UpdateStream-updating') ----- + outOfDate: aServer + "Inform the user that this server does not have a current version of 'Updates.list' Return true if the user does not want any updates to happen." + + | response | + response := UIManager default chooseFrom: #('Install on others' 'Cancel entire update') + title: 'The server ', aServer moniker, ' is not up to date. + Please store the missing updates maually.'. + ^ response ~= 1! Item was added: + ----- Method: ServerDirectory>>putUpdate: (in category '*UpdateStream-updating') ----- + putUpdate: fileStrm + "Put this file out as an Update on the servers of my group. Each version of the system may have its own set of update files, or they may all share the same files. 'updates.list' holds the master list. Each update is a fileIn whose name begins with a number. See Utilities class readServerUpdatesThrough:saveLocally:updateImage:. + When two sets of updates are stored on the same directory, one of them has a * in its + serverUrls description. When that is true, the first word of the description is put on + the front of 'updates.list', and that index file is used." + + | myServers updateStrm newName response localName seq indexPrefix listContents version versIndex lastNum stripped | + localName := fileStrm localName. + fileStrm size = 0 ifTrue: + [^ self inform: 'That file has zero bytes!! May have a new name.']. + (fileStrm contentsOfEntireFile includes: Character linefeed) + ifTrue: [self notifyWithLabel: 'That file contains linefeeds. Proceed if... + you know that this is okay (e.g. the file contains raw binary data).']. + fileStrm reset. + (self checkNames: {localName}) ifFalse: [^ nil]. "illegal characters" + response := UIManager default chooseFrom: #('Install update' 'Cancel update') + title: 'Do you really want to broadcast the file ', localName, + '\to every Squeak user who updates from ' withCRs, self groupName, '?'. + response = 1 ifFalse: [^ nil]. "abort" + + self openGroup. + indexPrefix := (self groupName includes: $*) + ifTrue: [(self groupName findTokens: ' ') first] "special for internal updates" + ifFalse: ['']. "normal" + myServers := self checkServersWithPrefix: indexPrefix + andParseListInto: [:x | listContents := x]. + myServers size = 0 ifTrue: [self closeGroup. ^ self]. + + version := SystemVersion current version. + versIndex := (listContents collect: [:pair | pair first]) indexOf: version. + versIndex = 0 ifTrue: + [self inform: 'There is no section in updates.list for your version'. + self closeGroup. ^ nil]. "abort" + + "A few affirmations..." + versIndex < listContents size ifTrue: + [(self confirm: 'This system, ', version , + ' is not the latest version.\Make update for an older version?' withCRs) + ifFalse: [self closeGroup. ^ nil]]. "abort" + (listContents at: versIndex) last isEmpty ifTrue: + [(self confirm: 'Please confirm that you mean to issue the first update for ' , + version , '\(otherwise something is wrong).' withCRs) + ifFalse: [self closeGroup. ^ nil]]. + + "We now determine next update number to be max of entire index" + lastNum := listContents inject: 0 into: + [:max :pair | pair last isEmpty + ifTrue: [max] + ifFalse: [max max: pair last last initialIntegerOrNil]]. + + "Save old copy of updates.list on local disk" + FileDirectory default deleteFileNamed: indexPrefix , 'updates.list.bk'. + UpdateStreamDownloader default writeList: listContents toStream: (FileStream fileNamed: indexPrefix , 'updates.list.bk'). + + "append name to updates with new sequence number" + seq := (lastNum + 1) printString padded: #left to: 4 with: $0. + "strip off any old seq number" + stripped := localName copyFrom: (localName findFirst: [:c | c isDigit not]) to: localName size. + newName := seq , stripped. + listContents at: versIndex put: + {version. (listContents at: versIndex) last copyWith: newName}. + + "Write a new copy on all servers..." + updateStrm := ReadStream on: + (String streamContents: [:s | Utilities writeList: listContents toStream: s]). + myServers do: + [:aServer | + fileStrm reset. "reopen" + aServer putFile: fileStrm named: newName retry: true. + updateStrm reset. + aServer putFile: updateStrm named: indexPrefix , 'updates.list' retry: true. + Transcript show: 'Update succeeded on server ', aServer moniker; cr]. + self closeGroup. + + Transcript cr; show: 'Be sure to test your new update!!'; cr. + "rename the file locally (may fail)" + fileStrm directory rename: localName toBe: newName. + ! Item was added: + ----- Method: ServerDirectory>>putUpdateMulti:fromDirectory: (in category '*UpdateStream-updating') ----- + putUpdateMulti: list fromDirectory: updateDirectory + "Put these files out as an Update on the servers of my group. List is an array of local file names with or without number prefixes. Each version of the system has its own set of update files. 'updates.list' holds the master list. Each update is a fileIn whose name begins with a number. See Utilities class absorbUpdatesFromServer." + + | myServers updateStrm lastNum response newNames numStr indexPrefix version versIndex listContents | + (self checkNames: (list collect: "Check the names without their numbers" + [:each | each copyFrom: (each findFirst: [:c | c isDigit not]) to: each size])) + ifFalse: [^ nil]. + response := UIManager default chooseFrom: #('Install update' 'Cancel update') + title: 'Do you really want to broadcast ', list size printString, ' updates', + '\to every Squeak user who updates from ' withCRs, self groupName, '?'. + response = 1 ifFalse: [^ nil]. "abort" + + self openGroup. + indexPrefix := (self groupName includes: $*) + ifTrue: [(self groupName findTokens: ' ') first] "special for internal updates" + ifFalse: ['']. "normal" + myServers := self checkServersWithPrefix: indexPrefix + andParseListInto: [:x | listContents := x]. + myServers size = 0 ifTrue: [self closeGroup. ^ self]. + + version := SystemVersion current version. + versIndex := (listContents collect: [:pair | pair first]) indexOf: version. + versIndex = 0 ifTrue: + [self inform: 'There is no section in updates.list for your version'. + self closeGroup. ^ nil]. "abort" + lastNum := (listContents at: versIndex) last last initialIntegerOrNil. + versIndex < listContents size ifTrue: + [response := UIManager default chooseFrom: #('Make update for an older version' 'Cancel update') + title: 'This system, ', SystemVersion current version, + ' is not the latest version'. + response = 1 ifFalse: [self closeGroup. ^ nil]. + numStr := UIManager default + request: 'Please confirm or change the starting update number' + initialAnswer: (lastNum+1) printString. + lastNum := numStr asNumber - 1]. "abort" + "Save old copy of updates.list on local disk" + FileDirectory default deleteFileNamed: indexPrefix , 'updates.list.bk'. + UpdateStreamDownloader default writeList: listContents toStream: (FileStream fileNamed: indexPrefix , 'updates.list.bk'). + + "Append names to updates with new sequence numbers" + newNames := list with: (lastNum+1 to: lastNum+list size) collect: + [:each :num | | stripped seq | seq := num printString padded: #left to: 4 with: $0. + "strip off any old seq number" + stripped := each copyFrom: (each findFirst: [:c | c isDigit not]) to: each size. + seq , stripped]. + listContents at: versIndex put: + {version. (listContents at: versIndex) second , newNames}. + + "Write a new copy on all servers..." + updateStrm := ReadStream on: + (String streamContents: [:s | Utilities writeList: listContents toStream: s]). + myServers do: + [:aServer | + list doWithIndex: [:local :ind | | file | + file := updateDirectory oldFileNamed: local. + aServer putFile: file named: (newNames at: ind) retry: true. + file close]. + updateStrm reset. + aServer putFile: updateStrm named: indexPrefix , 'updates.list' retry: true. + Transcript show: 'Update succeeded on server ', aServer moniker; cr]. + self closeGroup. + + Transcript cr; show: 'Be sure to test your new update!!'; cr. + "rename the file locally" + list with: newNames do: + [:local :newName | updateDirectory rename: local toBe: newName]. + ! Item was added: + ----- Method: ServerDirectory>>serversInGroup (in category '*UpdateStream-server groups') ----- + serversInGroup + ^self groupName + ifNil: [Array with: self] + ifNotNil: [self class serversInGroupNamed: self groupName]! Item was added: + ----- Method: ServerDirectory>>updateInstallVersion: (in category '*UpdateStream-updating') ----- + updateInstallVersion: newVersion + "For each server group, ask whether we want to put the new version marker (eg 'Squeak2.3') at the end of the file. Current version of Squeak must be the old one when this is done. + ServerDirectory new updateInstallVersion: 'Squeak9.9test' + " + | myServers updateStrm names choice indexPrefix listContents version versIndex | + [names := ServerDirectory groupNames asSortedArray. + choice := UIManager default chooseFrom: names values: names. + choice == nil] + whileFalse: + [indexPrefix := (choice endsWith: '*') + ifTrue: [(choice findTokens: ' ') first] "special for internal updates" + ifFalse: ['']. "normal" + myServers := (ServerDirectory serverInGroupNamed: choice) + checkServersWithPrefix: indexPrefix + andParseListInto: [:x | listContents := x]. + myServers size = 0 ifTrue: [^ self]. + + version := SystemVersion current version. + versIndex := (listContents collect: [:pair | pair first]) indexOf: version. + versIndex = 0 ifTrue: + [^ self inform: 'There is no section in updates.list for your version']. "abort" + + "Append new version to updates following my version" + listContents := listContents copyReplaceFrom: versIndex+1 to: versIndex with: {{newVersion. {}}}. + updateStrm := ReadStream on: + (String streamContents: [:s | UpdateStreamDownloader default writeList: listContents toStream: s]). + + myServers do: + [:aServer | updateStrm reset. + aServer putFile: updateStrm named: indexPrefix ,'updates.list'. + Transcript cr; show: indexPrefix ,'updates.list written on server ', aServer moniker]. + self closeGroup]! Item was added: + ----- Method: SystemVersion class>>checkAndApplyUpdates: (in category '*UpdateStream') ----- + checkAndApplyUpdates: availableUpdate + "SystemVersion checkAndApplyUpdates: nil" + + ^(availableUpdate isNil + or: [availableUpdate > SystemVersion current highestUpdate]) + ifTrue: [ + (self confirm: 'There are updates available. Do you want to install them now?') + ifFalse: [^false]. + UpdateStreamDownloader default + readServerUpdatesThrough: availableUpdate + saveLocally: false + updateImage: true. + Smalltalk snapshot: true andQuit: false. + true] + ifFalse: [false]! Item was changed: + ----- Method: UpdateStreamDownloader class>>assureAbsenceOfUnstableUpdateStream (in category 'server urls') ----- - ----- Method: UpdateStreamDownloader class>>assureAbsenceOfUnstableUpdateStream (in category 'fetching updates') ----- assureAbsenceOfUnstableUpdateStream "Check to see if the unstable Updates stream is in the list; if it is, *remove* it. This is the *opposite* of #assureAvailabilityOfUnstableUpdateStream" UpdateUrlLists ifNil: [UpdateUrlLists := OrderedCollection new]. UpdateUrlLists := UpdateUrlLists select: [:pair | pair first ~= 'Unstable Updates*'] "UpdateStreamDownloader assureAbsenceOfUnstableUpdateStream"! Item was added: + ----- Method: UpdateStreamDownloader class>>assureAvailabilityOfSqueakPublicUpdateStream (in category 'server urls') ----- + assureAvailabilityOfSqueakPublicUpdateStream + "Check to see if the Squeak public Updates stream is in the list; if not, add it" + + UpdateUrlLists ifNil: [UpdateUrlLists := OrderedCollection new]. + UpdateUrlLists do: + [:pair | (pair first = 'Squeak Public Updates') ifTrue: [^ self]]. + + UpdateUrlLists addFirst: #('Squeak Public Updates' #('ftp.squeak.org/')) + + "UpdateStreamDownloader assureAvailabilityOfSqueakPublicUpdateStream"! Item was changed: + ----- Method: UpdateStreamDownloader class>>assureAvailabilityOfUnstableUpdateStream (in category 'server urls') ----- - ----- Method: UpdateStreamDownloader class>>assureAvailabilityOfUnstableUpdateStream (in category 'fetching updates') ----- assureAvailabilityOfUnstableUpdateStream "Check to see if the unstable Updates stream is in the list; if not, add it" UpdateUrlLists ifNil: [UpdateUrlLists := OrderedCollection new]. UpdateUrlLists do: [:pair | (pair first = 'Unstable Updates*') ifTrue: [^ self]]. UpdateUrlLists addFirst: #('Unstable Updates*' #('squeak.cs.uiuc.edu/Squeak2.0/' 'update.squeakfoundation.org/external/')) "UpdateStreamDownloader assureAvailabilityOfUnstableUpdateStream"! Item was added: + ----- Method: UpdateStreamDownloader class>>default (in category 'accessing') ----- + default + "Answer the default downloader. Currently, all methods are at class side, so it'll be ourself" + ^self! Item was changed: + ----- Method: UpdateStreamDownloader class>>serverUrls (in category 'server urls') ----- - ----- Method: UpdateStreamDownloader class>>serverUrls (in category 'fetching updates') ----- serverUrls "Return the current list of server URLs. For code updates. Format of UpdateUrlLists is #( ('squeak updates' ('url1' 'url2')) ('some other updates' ('url3' 'url4')))" | list | list := UpdateUrlLists first last. "If there is a dead server, return a copy with that server last" Socket deadServer ifNotNil: [ list clone withIndexDo: [:aName :ind | (aName beginsWith: Socket deadServer) ifTrue: [ list := list asOrderedCollection. "and it's a copy" list removeAt: ind. list addLast: aName]] ]. ^ list asArray! Item was changed: + ----- Method: UpdateStreamDownloader class>>updateUrlLists (in category 'server urls') ----- - ----- Method: UpdateStreamDownloader class>>updateUrlLists (in category 'fetching updates') ----- updateUrlLists UpdateUrlLists ifNil: [UpdateUrlLists := OrderedCollection new]. ^ UpdateUrlLists!

1 0

The Trunk: System-fbs.637.mcz
by commits＠source.squeak.org 06 Dec '13

06 Dec '13

Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.637.mcz ==================== Summary ==================== Name: System-fbs.637 Author: fbs Time: 6 December 2013, 10:47:46.203 pm UUID: 63ee1b96-ff75-2547-904d-e46c6202bef5 Ancestors: System-nice.636 Use the new updater API. =============== Diff against System-nice.636 =============== Item was changed: ----- Method: AutoStart class>>processUpdates (in category 'updating') ----- processUpdates "Process update files from a well-known update server. This method is called at system startup time, Only if the preference #updateFromServerAtStartup is true is the actual update processing undertaken automatically" | choice | (Preferences valueOfFlag: #updateFromServerAtStartup) ifTrue: [choice := UIManager default chooseFrom: #('Yes, Update' 'No, Not now' 'Don''t ask again') title: 'Shall I look for new code\updates on the server?' withCRs. choice = 1 ifTrue: [ + MCMcmUpdater updateFromServer]. - Utilities updateFromServer]. choice = 3 ifTrue: [ Preferences setPreference: #updateFromServerAtStartup toValue: false. self inform: 'Remember to save you image to make this setting permant.']]. ^false! Item was changed: ----- Method: Preferences class>>personalizeUserMenu: (in category 'personalization') ----- personalizeUserMenu: aMenu "The user has clicked on the morphic desktop with the yellow mouse button (option+click on the Mac); a menu is being constructed to present to the user in response; its default target is the current world. In this method, you are invited to add items to the menu as per personal preferences. The default implementation, for illustrative purposes, sets the menu title to 'personal', and adds items for go-to-previous-project, show/hide flaps, and load code updates" aMenu addTitle: 'personal' translated. "Remove or modify this as per personal choice" aMenu addStayUpItem. aMenu add: 'previous project' translated action: #goBack. + aMenu add: 'load latest code updates' translated target: MCMcmUpdater action: #updateFromServer. - aMenu add: 'load latest code updates' translated target: Utilities action: #updateFromServer. aMenu add: 'about this system...' translated target: Smalltalk action: #aboutThisSystem. aMenu addLine. aMenu addUpdating: #suppressFlapsString target: Project current action: #toggleFlapsSuppressed. aMenu balloonTextForLastItem: 'Whether prevailing flaps should be shown in the project right now or not.' translated! Item was changed: ----- Method: Utilities class>>openUpdateButton (in category 'user interface') ----- openUpdateButton PluggableButtonMorph new label: 'Load Code Updates'; + model: MCMcmUpdater; - model: Utilities; action: #updateFromServer; openInHand!

1 0

The Trunk: MorphicExtras-fbs.129.mcz
by commits＠source.squeak.org 06 Dec '13

06 Dec '13

Frank Shearar uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-fbs.129.mcz ==================== Summary ==================== Name: MorphicExtras-fbs.129 Author: fbs Time: 6 December 2013, 10:41:15.87 pm UUID: e7cf5f25-44eb-f945-89db-a302ca134ffc Ancestors: MorphicExtras-fbs.128 Use the new updater API. =============== Diff against MorphicExtras-fbs.128 =============== Item was changed: ----- Method: Flaps class>>newSqueakFlap (in category 'predefined flaps') ----- newSqueakFlap "Answer a new default 'Squeak' flap for the left edge of the screen" | aFlap aFlapTab aButton aClock buttonColor anOffset bb aFont | aFlap := PasteUpMorph newSticky borderWidth: 0. aFlapTab := FlapTab new referent: aFlap. aFlapTab setName: 'Squeak' translated edge: #left color: Color brown lighter lighter. aFlapTab position: (0 @ ((Display height - aFlapTab height) // 2)). aFlapTab setBalloonText: aFlapTab balloonTextForFlapsMenu. aFlap cellInset: 14@14. aFlap beFlap: true. aFlap color: (Color brown muchLighter lighter "alpha: 0.3"). aFlap extent: 150 @ self currentWorld height. aFlap layoutPolicy: TableLayout new. aFlap wrapCentering: #topLeft. aFlap layoutInset: 2. aFlap listDirection: #topToBottom. aFlap wrapDirection: #leftToRight. "self addProjectNavigationButtonsTo: aFlap." anOffset := 16. aClock := ClockMorph newSticky. aClock color: Color red. aClock showSeconds: false. aClock font: (TextStyle default fontAt: 3). aClock step. aClock setBalloonText: 'The time of day. If you prefer to see seconds, check out my menu.' translated. aFlap addCenteredAtBottom: aClock offset: anOffset. buttonColor := Color cyan muchLighter. bb := SimpleButtonMorph new target: Smalltalk. bb color: buttonColor. aButton := bb copy. aButton actionSelector: #saveSession. aButton setBalloonText: 'Make a complete snapshot of the current state of the image onto disk.' translated. aButton label: 'save' translated font: (aFont := ScriptingSystem fontForTiles). aFlap addCenteredAtBottom: aButton offset: anOffset. + aButton := bb copy target: MCMcmUpdater. - aButton := bb copy target: Utilities. aButton actionSelector: #updateFromServer. aButton label: 'load code updates' translated font: aFont. aButton color: buttonColor. aButton setBalloonText: 'Check the Squeak server for any new code updates, and load any that are found.' translated. aFlap addCenteredAtBottom: aButton offset: anOffset. aButton := SimpleButtonMorph new target: Smalltalk; actionSelector: #aboutThisSystem; label: 'about this system' translated font: aFont. aButton color: buttonColor. aButton setBalloonText: 'click here to find out version information' translated. aFlap addCenteredAtBottom: aButton offset: anOffset. aFlap addCenteredAtBottom: (Preferences themeChoiceButtonOfColor: buttonColor font: aFont) offset: anOffset. aButton := TrashCanMorph newSticky. aFlap addCenteredAtBottom: aButton offset: anOffset. aButton startStepping. ^ aFlapTab "Flaps replaceGlobalFlapwithID: 'Squeak' translated "!

1 0

The Trunk: Morphic-fbs.701.mcz
by commits＠source.squeak.org 06 Dec '13

06 Dec '13

Frank Shearar uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-fbs.701.mcz ==================== Summary ==================== Name: Morphic-fbs.701 Author: fbs Time: 6 December 2013, 10:37:13.209 pm UUID: 57fce961-d2fb-c24d-845a-452b559fe0e0 Ancestors: Morphic-fbs.700 Use the new updater API. =============== Diff against Morphic-fbs.700 =============== Item was changed: ----- Method: TheWorldMainDockingBar>>updateSqueak (in category 'menu actions') ----- updateSqueak + MCMcmUpdater updateFromServer.! - - Utilities updateFromServer! Item was changed: ----- Method: TheWorldMenu>>helpMenu (in category 'construction') ----- helpMenu "Build the help menu for the world." | menu | menu := self menu: 'help...'. self fillIn: menu from: { {'about this system...'. {Smalltalk. #aboutThisSystem}. 'current version information.'}. + {'update code from server'. {MCMcmUpdater. #updateFromServer}. 'load latest code updates via the internet'}. - {'update code from server'. {Utilities. #updateFromServer}. 'load latest code updates via the internet'}. {'preferences...'. {self. #openPreferencesBrowser}. 'view and change various options.'}. {'set language...' . {Project. #chooseNaturalLanguage}. 'choose the language in which tiles should be displayed.'} . nil. {'command-key help'. { Utilities . #openCommandKeyHelp}. 'summary of keyboard shortcuts.'} }. self addGestureHelpItemsTo: menu. self fillIn: menu from: { {'world menu help'. { self . #worldMenuHelp}. 'helps find menu items buried in submenus.'}. "{'info about flaps' . { Utilities . #explainFlaps}. 'describes how to enable and use flaps.'}." {'font size summary' . { TextStyle . #fontSizeSummary}. 'summary of names and sizes of available fonts.'}. {'useful expressions' . { Utilities . #openStandardWorkspace}. 'a window full of useful expressions.'}. {'annotation setup...' . { Preferences . #editAnnotations}. 'Click here to get a little window that will allow you to specify which types of annotations, in which order, you wish to see in the annotation panes of browsers and other tools'}. nil. {'graphical imports' . { Imports default . #viewImages}. 'view the global repository called ImageImports; you can easily import external graphics into ImageImports via the FileList'}. {'standard graphics library' . { ScriptingSystem . #inspectFormDictionary}. 'lets you view and change the system''s standard library of graphics.'}. nil. {'telemorphic...' . {self. #remoteDo}. 'commands for doing multi-machine "telemorphic" experiments'}. {#soundEnablingString . { SoundService . #toggleSoundEnabled}. 'turning sound off will completely disable Squeak''s use of sound.'}. nil. {'set author initials...' . { Utilities . #setAuthorInitials }. 'supply initials to be used to identify the author of code and other content.'}. {'vm statistics' . { self . #vmStatistics}. 'obtain some intriguing data about the vm.'}. nil. {'purge undo records' . { CommandHistory . #resetAllHistory }. 'save space by removing all the undo information remembered in all projects.'}. {'space left' . { self . #garbageCollect}. 'perform a full garbage-collection and report how many bytes of space remain in the image.'}. }. ^menu !

1 0

Re: [squeak-dev] The Trunk: 45Deprecated-nice.19.mcz
by Nicolas Cellier 06 Dec '13

06 Dec '13

Maybe some of these could have been just removed? It's hard to tell which one is really public/used in some scripts... So by now, they are all elected to deprecated... 2013/12/6 <commits(a)source.squeak.org> > Nicolas Cellier uploaded a new version of 45Deprecated to project The > Trunk: > http://source.squeak.org/trunk/45Deprecated-nice.19.mcz > > ==================== Summary ==================== > > Name: 45Deprecated-nice.19 > Author: nice > Time: 6 December 2013, 11:25:24.533 pm > UUID: 8dad8959-2671-4eaf-8224-7c0d1d630483 > Ancestors: 45Deprecated-fbs.18 > > Deprecate updateStream utilities > > =============== Diff against 45Deprecated-fbs.18 =============== > > Item was added: > + ----- Method: Utilities class>>applyUpdatesFromDisk (in category > '*45Deprecated-fetching updates') ----- > + applyUpdatesFromDisk > + self deprecated: 'Use UpdateStreamDownloader default >> > #applyUpdatesFromDisk:'. > + ^UpdateStreamDownloader default applyUpdatesFromDisk! > > Item was added: > + ----- Method: Utilities > class>>applyUpdatesFromDiskToUpdateNumber:stopIfGap: (in category > '*45Deprecated-fetching updates') ----- > + applyUpdatesFromDiskToUpdateNumber: lastUpdateNumber stopIfGap: > stopIfGapFlag > + self deprecated: 'Use UpdateStreamDownloader default >> > #applyUpdatesFromDiskToUpdateNumber:stopIfGap:'. > + ^UpdateStreamDownloader default > applyUpdatesFromDiskToUpdateNumber: lastUpdateNumber stopIfGap: > stopIfGapFlag ! > > Item was added: > + ----- Method: Utilities class>>assureAbsenceOfUnstableUpdateStream (in > category '*45Deprecated-fetching updates') ----- > + assureAbsenceOfUnstableUpdateStream > + self deprecated: 'Use UpdateStreamDownloader default >> > #assureAbsenceOfUnstableUpdateStream'. > + ^UpdateStreamDownloader default > assureAbsenceOfUnstableUpdateStream! > > Item was added: > + ----- Method: Utilities class>>assureAvailabilityOfUnstableUpdateStream > (in category '*45Deprecated-fetching updates') ----- > + assureAvailabilityOfUnstableUpdateStream > + self deprecated: 'Use UpdateStreamDownloader default >> > #assureAvailabilityOfUnstableUpdateStream'. > + ^UpdateStreamDownloader default > assureAvailabilityOfUnstableUpdateStream! > > Item was added: > + ----- Method: Utilities class>>broadcastUpdatesFrom:to:except: (in > category '*45Deprecated-fetching updates') ----- > + broadcastUpdatesFrom: n1 to: n2 except: skipList > + self deprecated: 'Use UpdateStreamDownloader default >> > #broadcastUpdatesFrom:to:except:'. > + ^UpdateStreamDownloader default broadcastUpdatesFrom: n1 to: n2 > except: skipList! > > Item was added: > + ----- Method: Utilities class>>chooseUpdateList (in category > '*45Deprecated-fetching updates') ----- > + chooseUpdateList > + self deprecated: 'Use UpdateStreamDownloader default >> > #chooseUpdateList'. > + ^UpdateStreamDownloader default chooseUpdateList! > > Item was added: > + ----- Method: Utilities class>>fileInFromUpdatesFolder: (in category > '*45Deprecated-fetching updates') ----- > + fileInFromUpdatesFolder: numberList > + self deprecated: 'Use UpdateStreamDownloader default >> > #fileInFromUpdatesFolder:'. > + ^UpdateStreamDownloader default fileInFromUpdatesFolder: > numberList! > > Item was added: > + ----- Method: Utilities class>>getUpdateDirectoryOrNil (in category > '*45Deprecated-fetching updates') ----- > + getUpdateDirectoryOrNil > + self deprecated: 'Use UpdateStreamDownloader default >> > #getUpdateDirectoryOrNil'. > + ^UpdateStreamDownloader default getUpdateDirectoryOrNil! > > Item was added: > + ----- Method: Utilities class>>lastUpdateNum: (in category > '*45Deprecated-fetching updates') ----- > + lastUpdateNum: updatesFileStrm > + self deprecated: 'Use UpdateStreamDownloader default >> > #lastUpdateNum:'. > + ^UpdateStreamDownloader default lastUpdateNum: updatesFileStrm! > > Item was added: > + ----- Method: Utilities class>>newUpdatesOn:special:throughNumber: (in > category '*45Deprecated-fetching updates') ----- > + newUpdatesOn: serverList special: indexPrefix throughNumber: aNumber > + self deprecated: 'Use UpdateStreamDownloader default >> > #newUpdatesOn:special:throughNumber:'. > + ^UpdateStreamDownloader default newUpdatesOn: serverList special: > indexPrefix throughNumber: aNumber! > > Item was added: > + ----- Method: Utilities class>>objectStrmFromUpdates: (in category > '*45Deprecated-fetching updates') ----- > + objectStrmFromUpdates: fileName > + self deprecated: 'Use UpdateStreamDownloader default >> > #objectStrmFromUpdates:'. > + ^UpdateStreamDownloader default objectStrmFromUpdates: fileName! > > Item was added: > + ----- Method: Utilities class>>parseListContents: (in category > '*45Deprecated-fetching updates') ----- > + parseListContents: listContents > + self deprecated: 'Use UpdateStreamDownloader default >> > #parseListContents:'. > + ^UpdateStreamDownloader default parseListContents: listContents! > > Item was added: > + ----- Method: Utilities class>>position:atVersion: (in category > '*45Deprecated-fetching updates') ----- > + position: updateStrm atVersion: version > + self deprecated: 'Use UpdateStreamDownloader default >> > #position:atVersion:'. > + ^UpdateStreamDownloader default position: updateStrm atVersion: > version! > > Item was added: > + ----- Method: Utilities class>>readNextUpdateFromServer (in category > '*45Deprecated-fetching updates') ----- > + readNextUpdateFromServer > + self deprecated: 'Use UpdateStreamDownloader default >> > #readNextUpdateFromServer'. > + ^UpdateStreamDownloader default readNextUpdateFromServer! > > Item was added: > + ----- Method: Utilities class>>readNextUpdatesFromDisk: (in category > '*45Deprecated-fetching updates') ----- > + readNextUpdatesFromDisk: n > + self deprecated: 'Use UpdateStreamDownloader default >> > #readNextUpdatesFromDisk:'. > + ^UpdateStreamDownloader default readNextUpdatesFromDisk: n! > > Item was added: > + ----- Method: Utilities > class>>readServer:special:updatesThrough:saveLocally:updateImage: (in > category '*45Deprecated-fetching updates') ----- > + readServer: serverList special: indexPrefix updatesThrough: maxNumber > saveLocally: saveLocally updateImage: updateImage > + self deprecated: 'Use UpdateStreamDownloader default >> > #readServer:special:updatesThrough:saveLocally:updateImage:'. > + ^UpdateStreamDownloader default readServer: serverList special: > indexPrefix updatesThrough: maxNumber saveLocally: saveLocally updateImage: > updateImage! > > Item was added: > + ----- Method: Utilities class>>readServerUpdatesSaveLocally:updateImage: > (in category '*45Deprecated-fetching updates') ----- > + readServerUpdatesSaveLocally: saveLocally updateImage: updateImage > + self deprecated: 'Use UpdateStreamDownloader default >> > #readServerUpdatesSaveLocally:updateImage:'. > + ^UpdateStreamDownloader default readServerUpdatesSaveLocally: > saveLocally updateImage: updateImage! > > Item was added: > + ----- Method: Utilities > class>>readServerUpdatesThrough:saveLocally:updateImage: (in category > '*45Deprecated-fetching updates') ----- > + readServerUpdatesThrough: maxNumber saveLocally: saveLocally > updateImage: updateImage > + self deprecated: 'Use UpdateStreamDownloader default >> > #readServerUpdatesThrough:saveLocally:updateImage:'. > + ^UpdateStreamDownloader default readServerUpdatesThrough: > maxNumber saveLocally: saveLocally updateImage: updateImage! > > Item was added: > + ----- Method: Utilities class>>retrieveUrls:ontoQueue:withWaitSema: (in > category '*45Deprecated-fetching updates') ----- > + retrieveUrls: urls ontoQueue: queue withWaitSema: waitSema > + self deprecated: 'Use UpdateStreamDownloader default >> > #retrieveUrls:ontoQueue:withWaitSema:'. > + ^UpdateStreamDownloader default retrieveUrls: urls ontoQueue: > queue withWaitSema: waitSema ! > > Item was added: > + ----- Method: Utilities class>>saveUpdate:onFile: (in category > '*45Deprecated-fetching updates') ----- > + saveUpdate: doc onFile: fileName > + self deprecated: 'Use UpdateStreamDownloader default >> > #saveUpdate:onFile:'. > + ^UpdateStreamDownloader default saveUpdate: doc onFile: fileName! > > Item was added: > + ----- Method: Utilities class>>serverUrls (in category > '*45Deprecated-fetching updates') ----- > + serverUrls > + self deprecated: 'Use UpdateStreamDownloader default >> > #serverUrls'. > + ^UpdateStreamDownloader default serverUrls! > > Item was added: > + ----- Method: Utilities class>>setUpdateServer: (in category > '*45Deprecated-fetching updates') ----- > + setUpdateServer: groupName > + self deprecated: 'Use UpdateStreamDownloader default >> > #setUpdateServer:'. > + ^UpdateStreamDownloader default setUpdateServer: groupName! > > Item was added: > + ----- Method: Utilities class>>summariesForUpdates:through: (in category > '*45Deprecated-fetching updates') ----- > + summariesForUpdates: startNumber through: stopNumber > + self deprecated: 'Use UpdateStreamDownloader default >> > #summariesForUpdates:through:'. > + ^UpdateStreamDownloader default summariesForUpdates: startNumber > through: stopNumber! > > Item was added: > + ----- Method: Utilities class>>updateFromServerThroughUpdateNumber: (in > category '*45Deprecated-fetching updates') ----- > + updateFromServerThroughUpdateNumber: aNumber > + self deprecated: 'Use UpdateStreamDownloader default >> > #updateFromServerThroughUpdateNumber:'. > + ^UpdateStreamDownloader default > updateFromServerThroughUpdateNumber: aNumber! > > Item was added: > + ----- Method: Utilities class>>updateUrlLists (in category > '*45Deprecated-fetching updates') ----- > + updateUrlLists > + self deprecated: 'Use UpdateStreamDownloader default >> > #updateUrlLists'. > + ^UpdateStreamDownloader default updateUrlLists! > > Item was added: > + ----- Method: Utilities class>>writeList:toStream: (in category > '*45Deprecated-fetching updates') ----- > + writeList: listContents toStream: strm > + self deprecated: 'Use UpdateStreamDownloader default >> > #writeList:toStream:'. > + ^UpdateStreamDownloader default writeList: listContents toStream: > strm! > > Item was added: > + ----- Method: Utilities class>>zapUpdateDownloader (in category > '*45Deprecated-fetching updates') ----- > + zapUpdateDownloader > + self deprecated: 'Use UpdateStreamDownloader default >> > #zapUpdateDownloader'. > + ^UpdateStreamDownloader default zapUpdateDownloader! > > >

2 1

← Newer
1
...
26
27
28
29
30
31
32
33
Older →

Jump to page: