Packages June 2008

packages@lists.squeakfoundation.org

4 participants
104 discussions

Monticello Public: PackageInfo-Base-mtf.49.mcz
by squeaksource-noreply＠iam.unibe.ch 10 Jun '08

10 Jun '08

A new version of PackageInfo-Base was added to project Monticello Public: http://www.squeaksource.com/mc/PackageInfo-Base-mtf.49.mcz ==================== Summary ==================== Name: PackageInfo-Base-mtf.49 Author: mtf Time: 9 June 2008, 9:12:31 pm UUID: 95d45bb7-4d50-409b-94a3-66e2dd2ff92c Ancestors: PackageInfo-Base-mtf.48 added three methods that were left out during the re-integration of PackageOrganizer =============== Diff against PackageInfo-Base-mtf.48 =============== Item was added: + ----- Method: PackageOrganizer class>>forcefullyClearCache (in category 'as yet unclassified') ----- + forcefullyClearCache + "Clear out the cache dangerously. Forgets any preambles that have been defined" + default := nil! Item was added: + ----- Method: PackageOrganizer class>>freeSomeSpace (in category 'as yet unclassified') ----- + freeSomeSpace + self default clearCacheButPreservePreambles! Item was added: + ----- Method: PackageOrganizer>>clearCacheButPreservePreambles (in category 'initializing') ----- + clearCacheButPreservePreambles + "Remove every PI from the cache which does not have either a preamble or postscript" + self packages do: [:package | (package hasPreamble + or: [package hasPostscript] + or: [package hasPreambleOfRemoval] + or: [package hasPostscriptOfRemoval]) + ifFalse: [self unregisterPackage: package]]!

1 0

Monticello Public: PackageInfo-Base-mtf.48.mcz
by squeaksource-noreply＠iam.unibe.ch 10 Jun '08

10 Jun '08

A new version of PackageInfo-Base was added to project Monticello Public: http://www.squeaksource.com/mc/PackageInfo-Base-mtf.48.mcz ==================== Summary ==================== Name: PackageInfo-Base-mtf.48 Author: mtf Time: 9 June 2008, 9:09:26 pm UUID: 5abb87ec-9a92-4d96-bebf-0c881b8c8b45 Ancestors: PackageInfo-Base-kph.47 no more underscore assignments =============== Diff against PackageInfo-Base-kph.47 =============== Item was changed: ----- Method: PackageList>>packageSelection: (in category 'morphic') ----- packageSelection: aNumber + selectedPackage := self packages at: aNumber ifAbsent: []. - selectedPackage _ self packages at: aNumber ifAbsent: []. self changed: #packageSelection! Item was changed: ----- Method: PackageInfo>>preamble: (in category 'preamble/postscript') ----- + preamble:aString - preamble: aString + preamble := StringHolder new contents: aString! - preamble _ StringHolder new contents: aString! Item was changed: ----- Method: PackageInfo>>preambleOfRemoval: (in category 'preamble/postscript') ----- preambleOfRemoval: aString + preambleOfRemoval := StringHolder new contents: aString - preambleOfRemoval _ StringHolder new contents: aString ! Item was changed: ----- Method: PackageList>>addPackage (in category 'actions') ----- addPackage | packageName | + packageName := FillInTheBlank request: 'Package name:'. - packageName _ FillInTheBlank request: 'Package name:'. packageName isEmpty ifFalse: + [selectedPackage := self packageOrganizer registerPackageNamed: packageName. - [selectedPackage _ self packageOrganizer registerPackageNamed: packageName. self changed: #packageSelection]! Item was changed: ----- Method: PackageInfo>>preambleOfRemoval (in category 'preamble/postscript') ----- preambleOfRemoval + ^ preambleOfRemoval ifNil: [preambleOfRemoval := StringHolder new contents: '"below, add code to prepare for the unloading of this package"']! - ^ preambleOfRemoval ifNil: [preambleOfRemoval _ StringHolder new contents: '"below, add code to prepare for the unloading of this package"']! Item was changed: ----- Method: PackageInfo>>postscriptOfRemoval (in category 'preamble/postscript') ----- postscriptOfRemoval + ^ postscriptOfRemoval ifNil: [postscriptOfRemoval := StringHolder new contents: '"below, add code to clean up after the unloading of this package"']! - ^ postscriptOfRemoval ifNil: [postscriptOfRemoval _ StringHolder new contents: '"below, add code to clean up after the unloading of this package"']! Item was added: + ----- Method: PackageOrganizer>>packages (in category 'accessing') ----- + packages + ^ packages values! Item was changed: ----- Method: PackageList>>packages (in category 'as yet unclassified') ----- packages + ^ packages ifNil: [packages := self packageOrganizer packageInfos asSortedCollection: - ^ packages ifNil: [packages _ self packageOrganizer packageInfos asSortedCollection: [:a :b | a packageName <= b packageName]]! Item was changed: ----- Method: PackageInfo>>changeRecordForOverriddenMethod: (in category 'testing') ----- changeRecordForOverriddenMethod: aMethodReference | position prevPos prevFileIndex thePreamble tokens sourceFilesCopy stamp method file methodCategory | + method := aMethodReference actualClass compiledMethodAt: aMethodReference methodSymbol. + position := method filePosition. + sourceFilesCopy := SourceFiles collect: - method _ aMethodReference actualClass compiledMethodAt: aMethodReference methodSymbol. - position _ method filePosition. - sourceFilesCopy _ SourceFiles collect: [:x | x isNil ifTrue: [ nil ] ifFalse: [x readOnlyCopy]]. [method fileIndex == 0 ifTrue: [^ nil]. + file := sourceFilesCopy at: method fileIndex. - file _ sourceFilesCopy at: method fileIndex. [position notNil & file notNil] whileTrue: [file position: (0 max: position-150). "Skip back to before the preamble" [file position < (position-1)] "then pick it up from the front" + whileTrue: [thePreamble := file nextChunk]. - whileTrue: [thePreamble _ file nextChunk]. "thePreamble is likely a linked method preamble, if we're in a changes file (not the sources file). Try to parse it for prior source position and file index" + prevPos := nil. + stamp := ''. - prevPos _ nil. - stamp _ ''. (thePreamble findString: 'methodsFor:' startingAt: 1) > 0 + ifTrue: [tokens := Scanner new scanTokens: thePreamble] + ifFalse: [tokens := Array new "ie cant be back ref"]. - ifTrue: [tokens _ Scanner new scanTokens: thePreamble] - ifFalse: [tokens _ Array new "ie cant be back ref"]. ((tokens size between: 7 and: 8) and: [(tokens at: tokens size-5) = #methodsFor:]) ifTrue: [(tokens at: tokens size-3) = #stamp: ifTrue: ["New format gives change stamp and unified prior pointer" + stamp := tokens at: tokens size-2. + prevPos := tokens last. + prevFileIndex := sourceFilesCopy fileIndexFromSourcePointer: prevPos. + prevPos := sourceFilesCopy filePositionFromSourcePointer: prevPos] - stamp _ tokens at: tokens size-2. - prevPos _ tokens last. - prevFileIndex _ sourceFilesCopy fileIndexFromSourcePointer: prevPos. - prevPos _ sourceFilesCopy filePositionFromSourcePointer: prevPos] ifFalse: ["Old format gives no stamp; prior pointer in two parts" + prevPos := tokens at: tokens size-2. + prevFileIndex := tokens last]. + (prevPos = 0 or: [prevFileIndex = 0]) ifTrue: [prevPos := nil]]. - prevPos _ tokens at: tokens size-2. - prevFileIndex _ tokens last]. - (prevPos = 0 or: [prevFileIndex = 0]) ifTrue: [prevPos _ nil]]. ((tokens size between: 5 and: 6) and: [(tokens at: tokens size-3) = #methodsFor:]) ifTrue: [(tokens at: tokens size-1) = #stamp: ifTrue: ["New format gives change stamp and unified prior pointer" + stamp := tokens at: tokens size]]. + methodCategory := tokens after: #methodsFor: ifAbsent: ['as yet unclassifed']. - stamp _ tokens at: tokens size]]. - methodCategory _ tokens after: #methodsFor: ifAbsent: ['as yet unclassifed']. (self includesMethodCategory: methodCategory ofClass: aMethodReference actualClass) ifTrue: + [methodCategory = (Smalltalk at: #Categorizer ifAbsent: [Smalltalk at: #ClassOrganizer]) default ifTrue: [methodCategory := methodCategory, ' ']. - [methodCategory = (Smalltalk at: #Categorizer ifAbsent: [Smalltalk at: #ClassOrganizer]) default ifTrue: [methodCategory _ methodCategory, ' ']. ^ ChangeRecord new file: file position: position type: #method class: aMethodReference classSymbol category: methodCategory meta: aMethodReference classIsMeta stamp: stamp]. + position := prevPos. - position _ prevPos. prevPos notNil ifTrue: + [file := sourceFilesCopy at: prevFileIndex]]. - [file _ sourceFilesCopy at: prevFileIndex]]. ^ nil] ensure: [sourceFilesCopy do: [:x | x notNil ifTrue: [x close]]] ! Item was changed: ----- Method: PackageInfo>>postscriptOfRemoval: (in category 'preamble/postscript') ----- postscriptOfRemoval: aString + postscriptOfRemoval := StringHolder new contents: aString - postscriptOfRemoval _ StringHolder new contents: aString ! Item was changed: ----- Method: PackageList>>update: (in category 'actions') ----- update: aSymbol aSymbol = #packages ifTrue: + [packages := nil. - [packages _ nil. self changed: #packageList; changed: #packageSelection]! Item was changed: ----- Method: PackageList>>buildWindow (in category 'morphic') ----- buildWindow | window | + window := SystemWindow labelled: self label. - window _ SystemWindow labelled: self label. window model: self. window addMorph: self buildList fullFrame: (LayoutFrame fractions: (0@0 corner: 1@1)). ^ window! Item was changed: ----- Method: PackageInfo>>preamble (in category 'preamble/postscript') ----- preamble + ^ preamble ifNil: [preamble := StringHolder new contents: '"below, add code to be run before the loading of this package"']. - ^ preamble ifNil: [preamble _ StringHolder new contents: '"below, add code to be run before the loading of this package"']. ! Item was changed: ----- Method: PackageInfo>>postscript (in category 'preamble/postscript') ----- postscript + ^ postscript ifNil: [postscript := StringHolder new contents: '"below, add code to be run after the loading of this package"'].! - ^ postscript ifNil: [postscript _ StringHolder new contents: '"below, add code to be run after the loading of this package"'].! Item was changed: ----- Method: PackageInfo>>postscript: (in category 'preamble/postscript') ----- postscript: aString + postscript := StringHolder new contents: aString! - postscript _ StringHolder new contents: aString!

1 0

Monticello Public: Monticello.impl-mtf.525.mcz
by squeaksource-noreply＠iam.unibe.ch 10 Jun '08

10 Jun '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.525.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.525 Author: mtf Time: 9 June 2008, 9:00:13 pm UUID: 2cf5823f-0e38-4f4f-ae8f-44beafde5dce Ancestors: Monticello.impl-mtf.524 no more underscore assignments =============== Diff against Monticello.impl-mtf.524 =============== Item was changed: ----- Method: MCHttpRepository>>user: (in category 'as yet unclassified') ----- user: userString + user := userString! - user _ userString! Item was changed: ----- Method: MCWorkingCopyBrowser>>pickRepositorySatisfying: (in category 'morphic ui') ----- pickRepositorySatisfying: aBlock | repos index | repos := MCRepositoryGroup default repositories select: aBlock. + index := (PopUpMenu labelArray: (repos collect: [:ea | ea descriptionDisplay ])) - index _ (PopUpMenu labelArray: (repos collect: [:ea | ea descriptionDisplay ])) startUpWithCaption: 'Repository:'. ^ index = 0 ifFalse: [repos at: index]! Item was changed: ----- Method: MCPatchBrowser>>revertSelection (in category 'as yet unclassified') ----- revertSelection | loader | selection ifNotNil: + [loader := MCPackageLoader new. - [loader _ MCPackageLoader new. selection inverse applyTo: loader. loader loadWithName: self changeSetNameForInstall ]! Item was changed: ----- Method: Encoder>>undeclared: (in category '*monticello-override') ----- undeclared: name | sym | requestor interactive ifTrue: [ requestor requestor == #error: ifTrue: [requestor error: 'Undeclared']. ^ self notify: 'Undeclared']. "Transcript show: ' (' , name , ' is Undeclared) '." + sym := name asSymbol. - sym _ name asSymbol. Undeclared at: sym put: nil. ^self global: (Undeclared associationAt: sym) name: sym! Item was changed: ----- Method: MCGOODSRepository>>db (in category 'as yet unclassified') ----- db Smalltalk at: #KKDatabase ifPresent: [:classKKDatabase | (connection isNil or: [connection isConnected not]) ifTrue: [ + connection := classKKDatabase onHost:hostname port: port]. - connection _ classKKDatabase onHost:hostname port: port]. ]. ^ connection! Item was changed: ----- Method: MCWorkingCopyBrowser>>viewChanges (in category 'actions') ----- viewChanges | patch | 'Finding changes' displayProgressAt: Sensor cursorPoint from: 0 to: 10 during:[:bar| self canSave ifTrue:[ bar value: 1. + patch := workingCopy changesRelativeToRepository: self repository]. - patch _ workingCopy changesRelativeToRepository: self repository]. patch isNil ifTrue: [^ self]. bar value:3. patch isEmpty ifTrue: [ workingCopy modified: false. bar value: 10. self inform: 'No changes' ] ifFalse: [ workingCopy modified: true. bar value: 5. (MCPatchBrowser forPatch: patch) label: 'Patch Browser: ', workingCopy description; show]]!

1 0

Monticello Public: Monticello.impl-mtf.524.mcz
by squeaksource-noreply＠iam.unibe.ch 10 Jun '08

10 Jun '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.524.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.524 Author: mtf Time: 9 June 2008, 8:30:18 pm UUID: 7523f454-68c8-46b8-b340-bcd1dae2d755 Ancestors: Monticello.impl-mtf.523 fixed some underscore assignments =============== Diff against Monticello.impl-mtf.523 =============== Item was changed: ----- Method: HTTPSocket class>>httpPost:args:user:passwd: (in category '*monticello-override') ----- httpPost: url args: args user: user passwd: passwd | authorization result | + authorization := (Base64MimeConverter mimeEncode: (user , ':' , passwd) readStream) contents. - authorization _ (Base64MimeConverter mimeEncode: (user , ':' , passwd) readStream) contents. result := self httpPostDocument: url args: args accept: '*/*' request: 'Authorization: Basic ' , authorization , CrLf. result isString ifFalse: [^result]. authorization := self digestFor: result method: 'POST' url: url user: user password: passwd. authorization ifNil: [^result]. ^self httpPostDocument: url args: args accept: '*/*' request: 'Authorization: Digest ' , authorization , CrLf. ! Item was changed: ----- Method: HTTPSocket class>>httpGetDocument:args:accept:request: (in category '*monticello-override') ----- httpGetDocument: url args: args accept: mimeType request: requestString "Return the exact contents of a web object. Asks for the given MIME type. If mimeType is nil, use 'text/html'. An extra requestString may be submitted and must end with crlf. The parsed header is saved. Use a proxy server if one has been registered. tk 7/23/97 17:12" "Note: To fetch raw data, you can use the MIME type 'application/octet-stream'." | serverName serverAddr port sock header length bare page list firstData aStream index connectToHost connectToPort type newUrl | Socket initializeNetwork. + bare := (url asLowercase beginsWith: 'http://') - bare _ (url asLowercase beginsWith: 'http://') ifTrue: [url copyFrom: 8 to: url size] ifFalse: [url]. + bare := bare copyUpTo: $#. "remove fragment, if specified" + serverName := bare copyUpTo: $/. + page := bare copyFrom: serverName size + 1 to: bare size. - bare _ bare copyUpTo: $#. "remove fragment, if specified" - serverName _ bare copyUpTo: $/. - page _ bare copyFrom: serverName size + 1 to: bare size. (serverName includes: $:) + ifTrue: [ index := serverName indexOf: $:. + port := (serverName copyFrom: index+1 to: serverName size) asNumber. + serverName := serverName copyFrom: 1 to: index-1. ] + ifFalse: [ port := self defaultPort ]. + page size = 0 ifTrue: [page := '/']. - ifTrue: [ index _ serverName indexOf: $:. - port _ (serverName copyFrom: index+1 to: serverName size) asNumber. - serverName _ serverName copyFrom: 1 to: index-1. ] - ifFalse: [ port _ self defaultPort ]. - page size = 0 ifTrue: [page _ '/']. "add arguments" + args ifNotNil: [page := page, (self argString: args) ]. - args ifNotNil: [page _ page, (self argString: args) ]. (self shouldUseProxy: serverName) ifFalse: [ + connectToHost := serverName. + connectToPort := port ] - connectToHost _ serverName. - connectToPort _ port ] ifTrue: [ + page := 'http://', serverName, ':', port printString, page. "put back - page _ 'http://', serverName, ':', port printString, page. "put back together" + connectToHost := HTTPProxyServer. + connectToPort := HTTPProxyPort]. - connectToHost _ HTTPProxyServer. - connectToPort _ HTTPProxyPort]. + serverAddr := NetNameResolver addressForName: connectToHost timeout: 20. - serverAddr _ NetNameResolver addressForName: connectToHost timeout: 20. serverAddr ifNil: [ ^ 'Could not resolve the server named: ', connectToHost]. 3 timesRepeat: [ + sock := HTTPSocket new. - sock _ HTTPSocket new. sock connectTo: serverAddr port: connectToPort. (sock waitForConnectionUntil: (self deadlineSecs: 30)) ifFalse: [ Socket deadServer: connectToHost. sock destroy. ^ 'Server ',connectToHost,' is not responding']. "Transcript cr;show: url; cr. Transcript show: page; cr." sock sendCommand: 'GET ', page, ' HTTP/1.0', CrLf, (mimeType ifNotNil: ['ACCEPT: ', mimeType, CrLf] ifNil: ['']), 'ACCEPT: text/html', CrLf, "Always accept plain text" HTTPBlabEmail, "may be empty" requestString, "extra user request. Authorization" self userAgentString, CrLf, 'Host: ', serverName, ':', port printString, CrLf. "blank line automatically added" + list := sock getResponseUpTo: CrLf, CrLf ignoring: (String with: CR). "list = header, CrLf, CrLf, - list _ sock getResponseUpTo: CrLf, CrLf ignoring: (String with: CR). "list = header, CrLf, CrLf, beginningOfData" + header := list at: 1. - header _ list at: 1. "Transcript show: page; cr; show: header; cr." + firstData := list at: 3. - firstData _ list at: 3. header isEmpty + ifTrue: [aStream := 'server aborted early'] - ifTrue: [aStream _ 'server aborted early'] ifFalse: [ "dig out some headers" sock header: header. + length := sock getHeader: 'content-length'. + length ifNotNil: [ length := length asNumber ]. + type := sock getHeader: 'content-type'. - length _ sock getHeader: 'content-length'. - length ifNotNil: [ length _ length asNumber ]. - type _ sock getHeader: 'content-type'. sock responseCode first = $3 ifTrue: [ + newUrl := sock getHeader: 'location'. - newUrl _ sock getHeader: 'location'. newUrl ifNotNil: [ Transcript show: 'redirecting to ', newUrl; cr. sock destroy. + newUrl := self expandUrl: newUrl ip: serverAddr port: connectToPort. - newUrl _ self expandUrl: newUrl ip: serverAddr port: connectToPort. ^self httpGetDocument: newUrl args: args accept: mimeType request: requestString] ]. + aStream := sock getRestOfBuffer: firstData totalLength: length. - aStream _ sock getRestOfBuffer: firstData totalLength: length. "a 400-series error" sock responseCode first = $4 ifTrue: [^ header, aStream contents]. ]. sock destroy. "Always OK to destroy!!" aStream class ~~ String ifTrue: [ ^ MIMEDocument contentType: type content: aStream contents url: url]. aStream = 'server aborted early' ifTrue: [ ^aStream ]. ]. {'HTTPSocket class>>httpGetDocument:args:accept:request:'. aStream. url} inspect. ^'some other bad thing happened!!'! Item was changed: ----- Method: MCAncestry>>trimAfterVersionInfo: (in category 'ancestry') ----- trimAfterVersionInfo: aVersionInfo aVersionInfo = self + ifTrue: [ancestors := #()] - ifTrue: [ancestors _ #()] ifFalse: [aVersionInfo date <= self date ifTrue: [self ancestors do: [:ea | ea trimAfterVersionInfo: aVersionInfo]] ]! Item was changed: ----- Method: HTTPSocket class>>httpPut:to:user:passwd: (in category '*monticello-override') ----- httpPut: contents to: url user: user passwd: passwd "Upload the contents of the stream to a file on the server" | bare serverName specifiedServer port page serverAddr authorization s list header firstData length aStream command digest | Socket initializeNetwork. "parse url" + bare := (url asLowercase beginsWith: 'http://') - bare _ (url asLowercase beginsWith: 'http://') ifTrue: [url copyFrom: 8 to: url size] ifFalse: [url]. + serverName := bare copyUpTo: $/. + specifiedServer := serverName. + (serverName includes: $:) ifFalse: [ port := self defaultPort ] ifTrue: [ + port := (serverName copyFrom: (serverName indexOf: $:) + 1 - serverName _ bare copyUpTo: $/. - specifiedServer _ serverName. - (serverName includes: $:) ifFalse: [ port _ self defaultPort ] ifTrue: [ - port _ (serverName copyFrom: (serverName indexOf: $:) + 1 to: serverName size) asNumber. + serverName := serverName copyUpTo: $:. - serverName _ serverName copyUpTo: $:. ]. - - page _ bare copyFrom: (bare indexOf: $/) to: bare size. - page size = 0 ifTrue: [page _ '/']. - (self shouldUseProxy: serverName) ifTrue: [ - page _ 'http://', serverName, ':', port printString, page. "put back together" - serverName _ HTTPProxyServer. - port _ HTTPProxyPort]. - - "make the request" - serverAddr _ NetNameResolver addressForName: serverName timeout: 20. - serverAddr ifNil: [ - ^ 'Could not resolve the server named: ', serverName]. - - authorization _ ' Basic ', (Base64MimeConverter mimeEncode: (user , ':' , passwd) readStream) contents. - [ - s _ HTTPSocket new. - s connectTo: serverAddr port: port. - s waitForConnectionUntil: self standardDeadline. - Transcript cr; show: url; cr. - command _ - 'PUT ', page, ' HTTP/1.0', CrLf, - self userAgentString, CrLf, - 'Host: ', specifiedServer, CrLf, - 'ACCEPT: */*', CrLf, - HTTPProxyCredentials, - 'Authorization: ' , authorization , CrLf , - 'Content-length: ', contents size printString, CrLf , CrLf , - contents. - s sendCommand: command. - "get the header of the reply" - list _ s getResponseUpTo: CrLf, CrLf ignoring: (String with: CR). "list = header, CrLf, CrLf, beginningOfData" - header _ list at: 1. - "Transcript show: page; cr; show: argsStream contents; cr; show: header; cr." - firstData _ list at: 3. - - "dig out some headers" - s header: header. - - (authorization beginsWith: 'Digest ') not - and: [(digest := self digestFrom: s method: 'PUT' url: url user: user password: passwd) notNil]] - whileTrue: [authorization := 'Digest ', digest]. - - length _ s getHeader: 'content-length'. - length ifNotNil: [ length _ length asNumber ]. + page := bare copyFrom: (bare indexOf: $/) to: bare size. + page size = 0 ifTrue: [page := '/']. + (self shouldUseProxy: serverName) ifTrue: [ + page := 'http://', serverName, ':', port printString, page. "put back together" + serverName := HTTPProxyServer. + port := HTTPProxyPort]. + + "make the request" + serverAddr := NetNameResolver addressForName: serverName timeout: 20. + serverAddr ifNil: [ + ^ 'Could not resolve the server named: ', serverName]. + + authorization := ' Basic ', (Base64MimeConverter mimeEncode: (user , ':' , passwd) readStream) contents. + [ + s := HTTPSocket new. + s connectTo: serverAddr port: port. + s waitForConnectionUntil: self standardDeadline. + Transcript cr; show: url; cr. + command := + 'PUT ', page, ' HTTP/1.0', CrLf, + self userAgentString, CrLf, + 'Host: ', specifiedServer, CrLf, + 'ACCEPT: */*', CrLf, + HTTPProxyCredentials, + 'Authorization: ' , authorization , CrLf , + 'Content-length: ', contents size printString, CrLf , CrLf , + contents. + s sendCommand: command. + "get the header of the reply" + list := s getResponseUpTo: CrLf, CrLf ignoring: (String with: CR). "list = header, CrLf, CrLf, beginningOfData" + header := list at: 1. + "Transcript show: page; cr; show: argsStream contents; cr; show: header; cr." + firstData := list at: 3. + + "dig out some headers" + s header: header. + + (authorization beginsWith: 'Digest ') not + and: [(digest := self digestFrom: s method: 'PUT' url: url user: user password: passwd) notNil]] + whileTrue: [authorization := 'Digest ', digest]. + + length := s getHeader: 'content-length'. + length ifNotNil: [ length := length asNumber ]. + + aStream := s getRestOfBuffer: firstData totalLength: length. - aStream _ s getRestOfBuffer: firstData totalLength: length. s destroy. "Always OK to destroy!!" ^ header, aStream contents!

1 0

Monticello Public: Monticello.impl-mtf.523.mcz
by squeaksource-noreply＠iam.unibe.ch 10 Jun '08

10 Jun '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.523.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.523 Author: mtf Time: 9 June 2008, 8:26:58 pm UUID: 5dabce14-e7a4-4489-aef5-4de54a8890dd Ancestors: Monticello.impl-kph.521 removed direct references to ClassEditor =============== Diff against Monticello.impl-kph.521 =============== Item was changed: ----- Method: MCClassDefinition>>edUnload: (in category 'system editor') ----- edUnload: editor + (editor at: name) removeFromSystem. - (ClassEditor named: name for: editor) removeFromSystem. ^ false "we dont need an edPostload"! Item was changed: ----- Method: MCClassDefinition>>edLoad: (in category 'system editor') ----- edLoad: editor | new old theClass theSuperclass | + theClass := editor at: name. + theSuperclass := editor at: superclassName. - theClass := ClassEditor named: name for: editor. - theSuperclass := ClassEditor named: superclassName for: editor. theClass superclass = theSuperclass ifFalse: [ theClass superclass: theSuperclass ]. theClass subject typeOfClass = type ifFalse: [ theClass typeOfClass: type ]. old := theClass instVarNames. new := self selectVariables: #isInstanceVariable. (old difference: new) do: [ :iv | theClass removeInstVarName: iv ]. (new difference: old) do: [ :iv | theClass addInstVarName: iv ]. old := theClass classVarNames. new := self selectVariables: #isClassVariable. (old difference: new) do: [ :iv | theClass removeClassVarName: iv ]. (new difference: old) do: [ :iv | theClass addClassVarName: iv ]. old := theClass sharedPools. new := self selectVariables: #isPoolImport. (old difference: new) do: [ :iv | theClass removeSharedPool: iv ]. (new difference: old) do: [ :iv | theClass addSharedPool: iv ]. old := theClass class instVarNames. new := self selectVariables: #isClassInstanceVariable. (old difference: new) do: [ :iv | theClass class removeInstVarName: iv ]. (new difference: old) do: [ :iv | theClass class addInstVarName: iv ]. self hasComment ifTrue: [ theClass classComment: comment stamp: commentStamp ]. ^ false "we dont need an edPostload"!

1 0

Monticello Public: Monticello.impl-mtf.522.mcz
by squeaksource-noreply＠iam.unibe.ch 10 Jun '08

10 Jun '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.522.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.522 Author: mtf Time: 9 June 2008, 8:16:32 pm UUID: dcd90336-92a4-44e3-8817-89dcac4dc6a0 Ancestors: Monticello.impl-kph.521 removed direct references to ClassEditor =============== Diff against Monticello.impl-kph.521 =============== Item was changed: ----- Method: HTTPSocket class>>httpPost:args:user:passwd: (in category '*monticello-override') ----- httpPost: url args: args user: user passwd: passwd | authorization result | + authorization := (Base64MimeConverter mimeEncode: (user , ':' , passwd) readStream) contents. - authorization _ (Base64MimeConverter mimeEncode: (user , ':' , passwd) readStream) contents. result := self httpPostDocument: url args: args accept: '*/*' request: 'Authorization: Basic ' , authorization , CrLf. result isString ifFalse: [^result]. authorization := self digestFor: result method: 'POST' url: url user: user password: passwd. authorization ifNil: [^result]. ^self httpPostDocument: url args: args accept: '*/*' request: 'Authorization: Digest ' , authorization , CrLf. ! Item was changed: ----- Method: MCClassDefinition>>edUnload: (in category 'system editor') ----- edUnload: editor + (editor at: name) removeFromSystem. - (ClassEditor named: name for: editor) removeFromSystem. ^ false "we dont need an edPostload"! Item was changed: ----- Method: HTTPSocket class>>httpGetDocument:args:accept:request: (in category '*monticello-override') ----- httpGetDocument: url args: args accept: mimeType request: requestString "Return the exact contents of a web object. Asks for the given MIME type. If mimeType is nil, use 'text/html'. An extra requestString may be submitted and must end with crlf. The parsed header is saved. Use a proxy server if one has been registered. tk 7/23/97 17:12" "Note: To fetch raw data, you can use the MIME type 'application/octet-stream'." | serverName serverAddr port sock header length bare page list firstData aStream index connectToHost connectToPort type newUrl | Socket initializeNetwork. + bare := (url asLowercase beginsWith: 'http://') - bare _ (url asLowercase beginsWith: 'http://') ifTrue: [url copyFrom: 8 to: url size] ifFalse: [url]. + bare := bare copyUpTo: $#. "remove fragment, if specified" + serverName := bare copyUpTo: $/. + page := bare copyFrom: serverName size + 1 to: bare size. - bare _ bare copyUpTo: $#. "remove fragment, if specified" - serverName _ bare copyUpTo: $/. - page _ bare copyFrom: serverName size + 1 to: bare size. (serverName includes: $:) + ifTrue: [ index := serverName indexOf: $:. + port := (serverName copyFrom: index+1 to: serverName size) asNumber. + serverName := serverName copyFrom: 1 to: index-1. ] + ifFalse: [ port := self defaultPort ]. + page size = 0 ifTrue: [page := '/']. - ifTrue: [ index _ serverName indexOf: $:. - port _ (serverName copyFrom: index+1 to: serverName size) asNumber. - serverName _ serverName copyFrom: 1 to: index-1. ] - ifFalse: [ port _ self defaultPort ]. - page size = 0 ifTrue: [page _ '/']. "add arguments" + args ifNotNil: [page := page, (self argString: args) ]. - args ifNotNil: [page _ page, (self argString: args) ]. (self shouldUseProxy: serverName) ifFalse: [ + connectToHost := serverName. + connectToPort := port ] - connectToHost _ serverName. - connectToPort _ port ] ifTrue: [ + page := 'http://', serverName, ':', port printString, page. "put back - page _ 'http://', serverName, ':', port printString, page. "put back together" + connectToHost := HTTPProxyServer. + connectToPort := HTTPProxyPort]. - connectToHost _ HTTPProxyServer. - connectToPort _ HTTPProxyPort]. + serverAddr := NetNameResolver addressForName: connectToHost timeout: 20. - serverAddr _ NetNameResolver addressForName: connectToHost timeout: 20. serverAddr ifNil: [ ^ 'Could not resolve the server named: ', connectToHost]. 3 timesRepeat: [ + sock := HTTPSocket new. - sock _ HTTPSocket new. sock connectTo: serverAddr port: connectToPort. (sock waitForConnectionUntil: (self deadlineSecs: 30)) ifFalse: [ Socket deadServer: connectToHost. sock destroy. ^ 'Server ',connectToHost,' is not responding']. "Transcript cr;show: url; cr. Transcript show: page; cr." sock sendCommand: 'GET ', page, ' HTTP/1.0', CrLf, (mimeType ifNotNil: ['ACCEPT: ', mimeType, CrLf] ifNil: ['']), 'ACCEPT: text/html', CrLf, "Always accept plain text" HTTPBlabEmail, "may be empty" requestString, "extra user request. Authorization" self userAgentString, CrLf, 'Host: ', serverName, ':', port printString, CrLf. "blank line automatically added" + list := sock getResponseUpTo: CrLf, CrLf ignoring: (String with: CR). "list = header, CrLf, CrLf, - list _ sock getResponseUpTo: CrLf, CrLf ignoring: (String with: CR). "list = header, CrLf, CrLf, beginningOfData" + header := list at: 1. - header _ list at: 1. "Transcript show: page; cr; show: header; cr." + firstData := list at: 3. - firstData _ list at: 3. header isEmpty + ifTrue: [aStream := 'server aborted early'] - ifTrue: [aStream _ 'server aborted early'] ifFalse: [ "dig out some headers" sock header: header. + length := sock getHeader: 'content-length'. + length ifNotNil: [ length := length asNumber ]. + type := sock getHeader: 'content-type'. - length _ sock getHeader: 'content-length'. - length ifNotNil: [ length _ length asNumber ]. - type _ sock getHeader: 'content-type'. sock responseCode first = $3 ifTrue: [ + newUrl := sock getHeader: 'location'. - newUrl _ sock getHeader: 'location'. newUrl ifNotNil: [ Transcript show: 'redirecting to ', newUrl; cr. sock destroy. + newUrl := self expandUrl: newUrl ip: serverAddr port: connectToPort. - newUrl _ self expandUrl: newUrl ip: serverAddr port: connectToPort. ^self httpGetDocument: newUrl args: args accept: mimeType request: requestString] ]. + aStream := sock getRestOfBuffer: firstData totalLength: length. - aStream _ sock getRestOfBuffer: firstData totalLength: length. "a 400-series error" sock responseCode first = $4 ifTrue: [^ header, aStream contents]. ]. sock destroy. "Always OK to destroy!!" aStream class ~~ String ifTrue: [ ^ MIMEDocument contentType: type content: aStream contents url: url]. aStream = 'server aborted early' ifTrue: [ ^aStream ]. ]. {'HTTPSocket class>>httpGetDocument:args:accept:request:'. aStream. url} inspect. ^'some other bad thing happened!!'! Item was changed: ----- Method: MCAncestry>>trimAfterVersionInfo: (in category 'ancestry') ----- trimAfterVersionInfo: aVersionInfo aVersionInfo = self + ifTrue: [ancestors := #()] - ifTrue: [ancestors _ #()] ifFalse: [aVersionInfo date <= self date ifTrue: [self ancestors do: [:ea | ea trimAfterVersionInfo: aVersionInfo]] ]! Item was changed: ----- Method: MCClassDefinition>>edLoad: (in category 'system editor') ----- edLoad: editor | new old theClass theSuperclass | + theClass := editor at: name. + theSuperclass := editor at: superclassName. - theClass := ClassEditor named: name for: editor. - theSuperclass := ClassEditor named: superclassName for: editor. theClass superclass = theSuperclass ifFalse: [ theClass superclass: theSuperclass ]. theClass subject typeOfClass = type ifFalse: [ theClass typeOfClass: type ]. old := theClass instVarNames. new := self selectVariables: #isInstanceVariable. (old difference: new) do: [ :iv | theClass removeInstVarName: iv ]. (new difference: old) do: [ :iv | theClass addInstVarName: iv ]. old := theClass classVarNames. new := self selectVariables: #isClassVariable. (old difference: new) do: [ :iv | theClass removeClassVarName: iv ]. (new difference: old) do: [ :iv | theClass addClassVarName: iv ]. old := theClass sharedPools. new := self selectVariables: #isPoolImport. (old difference: new) do: [ :iv | theClass removeSharedPool: iv ]. (new difference: old) do: [ :iv | theClass addSharedPool: iv ]. old := theClass class instVarNames. new := self selectVariables: #isClassInstanceVariable. (old difference: new) do: [ :iv | theClass class removeInstVarName: iv ]. (new difference: old) do: [ :iv | theClass class addInstVarName: iv ]. self hasComment ifTrue: [ theClass classComment: comment stamp: commentStamp ]. ^ false "we dont need an edPostload"! Item was changed: ----- Method: HTTPSocket class>>httpPut:to:user:passwd: (in category '*monticello-override') ----- httpPut: contents to: url user: user passwd: passwd "Upload the contents of the stream to a file on the server" | bare serverName specifiedServer port page serverAddr authorization s list header firstData length aStream command digest | Socket initializeNetwork. "parse url" + bare := (url asLowercase beginsWith: 'http://') - bare _ (url asLowercase beginsWith: 'http://') ifTrue: [url copyFrom: 8 to: url size] ifFalse: [url]. + serverName := bare copyUpTo: $/. + specifiedServer := serverName. + (serverName includes: $:) ifFalse: [ port := self defaultPort ] ifTrue: [ + port := (serverName copyFrom: (serverName indexOf: $:) + 1 - serverName _ bare copyUpTo: $/. - specifiedServer _ serverName. - (serverName includes: $:) ifFalse: [ port _ self defaultPort ] ifTrue: [ - port _ (serverName copyFrom: (serverName indexOf: $:) + 1 to: serverName size) asNumber. + serverName := serverName copyUpTo: $:. - serverName _ serverName copyUpTo: $:. ]. - - page _ bare copyFrom: (bare indexOf: $/) to: bare size. - page size = 0 ifTrue: [page _ '/']. - (self shouldUseProxy: serverName) ifTrue: [ - page _ 'http://', serverName, ':', port printString, page. "put back together" - serverName _ HTTPProxyServer. - port _ HTTPProxyPort]. - - "make the request" - serverAddr _ NetNameResolver addressForName: serverName timeout: 20. - serverAddr ifNil: [ - ^ 'Could not resolve the server named: ', serverName]. - - authorization _ ' Basic ', (Base64MimeConverter mimeEncode: (user , ':' , passwd) readStream) contents. - [ - s _ HTTPSocket new. - s connectTo: serverAddr port: port. - s waitForConnectionUntil: self standardDeadline. - Transcript cr; show: url; cr. - command _ - 'PUT ', page, ' HTTP/1.0', CrLf, - self userAgentString, CrLf, - 'Host: ', specifiedServer, CrLf, - 'ACCEPT: */*', CrLf, - HTTPProxyCredentials, - 'Authorization: ' , authorization , CrLf , - 'Content-length: ', contents size printString, CrLf , CrLf , - contents. - s sendCommand: command. - "get the header of the reply" - list _ s getResponseUpTo: CrLf, CrLf ignoring: (String with: CR). "list = header, CrLf, CrLf, beginningOfData" - header _ list at: 1. - "Transcript show: page; cr; show: argsStream contents; cr; show: header; cr." - firstData _ list at: 3. - - "dig out some headers" - s header: header. - - (authorization beginsWith: 'Digest ') not - and: [(digest := self digestFrom: s method: 'PUT' url: url user: user password: passwd) notNil]] - whileTrue: [authorization := 'Digest ', digest]. - - length _ s getHeader: 'content-length'. - length ifNotNil: [ length _ length asNumber ]. + page := bare copyFrom: (bare indexOf: $/) to: bare size. + page size = 0 ifTrue: [page := '/']. + (self shouldUseProxy: serverName) ifTrue: [ + page := 'http://', serverName, ':', port printString, page. "put back together" + serverName := HTTPProxyServer. + port := HTTPProxyPort]. + + "make the request" + serverAddr := NetNameResolver addressForName: serverName timeout: 20. + serverAddr ifNil: [ + ^ 'Could not resolve the server named: ', serverName]. + + authorization := ' Basic ', (Base64MimeConverter mimeEncode: (user , ':' , passwd) readStream) contents. + [ + s := HTTPSocket new. + s connectTo: serverAddr port: port. + s waitForConnectionUntil: self standardDeadline. + Transcript cr; show: url; cr. + command := + 'PUT ', page, ' HTTP/1.0', CrLf, + self userAgentString, CrLf, + 'Host: ', specifiedServer, CrLf, + 'ACCEPT: */*', CrLf, + HTTPProxyCredentials, + 'Authorization: ' , authorization , CrLf , + 'Content-length: ', contents size printString, CrLf , CrLf , + contents. + s sendCommand: command. + "get the header of the reply" + list := s getResponseUpTo: CrLf, CrLf ignoring: (String with: CR). "list = header, CrLf, CrLf, beginningOfData" + header := list at: 1. + "Transcript show: page; cr; show: argsStream contents; cr; show: header; cr." + firstData := list at: 3. + + "dig out some headers" + s header: header. + + (authorization beginsWith: 'Digest ') not + and: [(digest := self digestFrom: s method: 'PUT' url: url user: user password: passwd) notNil]] + whileTrue: [authorization := 'Digest ', digest]. + + length := s getHeader: 'content-length'. + length ifNotNil: [ length := length asNumber ]. + + aStream := s getRestOfBuffer: firstData totalLength: length. - aStream _ s getRestOfBuffer: firstData totalLength: length. s destroy. "Always OK to destroy!!" ^ header, aStream contents! Item was removed: - ----- Method: MCHttpRepository>>user: (in category 'as yet unclassified') ----- - user: userString - user _ userString! Item was removed: - ----- Method: MCWorkingCopyBrowser>>pickRepositorySatisfying: (in category 'morphic ui') ----- - pickRepositorySatisfying: aBlock - | repos index | - repos := MCRepositoryGroup default repositories select: aBlock. - index _ (PopUpMenu labelArray: (repos collect: [:ea | ea descriptionDisplay ])) - startUpWithCaption: 'Repository:'. - ^ index = 0 ifFalse: [repos at: index]! Item was removed: - ----- Method: MCPatchBrowser>>revertSelection (in category 'as yet unclassified') ----- - revertSelection - | loader | - selection ifNotNil: - [loader _ MCPackageLoader new. - selection inverse applyTo: loader. - loader loadWithName: self changeSetNameForInstall ]! Item was removed: - ----- Method: MCGOODSRepository>>db (in category 'as yet unclassified') ----- - db - Smalltalk at: #KKDatabase ifPresent: [:classKKDatabase | - (connection isNil or: [connection isConnected not]) ifTrue: [ - connection _ classKKDatabase onHost:hostname port: port]. - ]. - ^ connection! Item was removed: - ----- Method: MCWorkingCopyBrowser>>viewChanges (in category 'actions') ----- - viewChanges - | patch | - 'Finding changes' displayProgressAt: Sensor cursorPoint from: 0 to: 10 during:[:bar| - self canSave ifTrue:[ - bar value: 1. - patch _ workingCopy changesRelativeToRepository: self repository]. - patch isNil ifTrue: [^ self]. - bar value:3. - patch isEmpty - ifTrue: [ workingCopy modified: false. - bar value: 10. - self inform: 'No changes' ] - ifFalse: - [ workingCopy modified: true. - bar value: 5. - (MCPatchBrowser forPatch: patch) - label: 'Patch Browser: ', workingCopy description; - show]]!

1 0

Packages: Packages-Core-kph.41.mcz
by squeaksource-noreply＠iam.unibe.ch 10 Jun '08

10 Jun '08

A new version of Packages-Core was added to project Packages: http://www.squeaksource.com/Packages/Packages-Core-kph.41.mcz ==================== Summary ==================== Name: Packages-Core-kph.41 Author: kph Time: 10 June 2008, 2:59:05 am UUID: 424cd605-4d57-448e-83bd-722f42e6ae7a Ancestors: Packages-Core-kph.40 . =============== Diff against Packages-Core-kph.40 =============== Item was added: + ----- Method: Packages>>allDependants (in category 'as yet unclassified') ----- + allDependants + + | list | + + list := OrderedCollection new. + + self provides in: [ :target | + + self class allPackagesDo: [ :package | + + package withAllPriorTasksIgnoringErrorsDo: [ :ea | + (ea dependsOn includesAnyOf: target) ifTrue: [ (list includes: package) ifFalse: [ list add: package ] ]. + ] + ] + ]. + + ^ list + + " + String streamContents: [ :str | (Packages current named:'Seaside') allDependants do: [ :ea | str << ea info name << String cr << ea info description << String cr << '======='; cr ] ] + "! Item was changed: ----- Method: Packages>>taskUnloadDependants (in category 'as yet unclassified') ----- taskUnloadDependants "if the task is the provided one, then we return the provided dependants." + self loadedDependants in: [ :deps | - self dependants in: [ :deps | deps ifEmpty: [ ^ nil ]. ^ (self class provided at: self name ifAbsent: nil) == self ifTrue: [ (deps collect: [ :ea | ea copy beUnloading ]) asTask ] ifFalse: [ (deps collect: [ : ea | (self class named: ea name) beUnloading ]) asTask ] ].! Item was added: + ----- Method: Packages class>>allPackagesDo: (in category 'public') ----- + allPackagesDo: aBlock + + ^ (self allSelectorsBelow: Packages) collect: [ :ea | aBlock value: (self named: ea) ]! Item was added: + ----- Method: Packages>>loadedDependants (in category 'as yet unclassified') ----- + loadedDependants + + ^ self class provided select: [ :dependant | + dependant dependsOn includesAnyOf: self provides. + ]. + !

1 0

Monticello Public: Monticello.impl-kph.521.mcz
by squeaksource-noreply＠iam.unibe.ch 09 Jun '08

09 Jun '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-kph.521.mcz ==================== Summary ==================== Name: Monticello.impl-kph.521 Author: kph Time: 9 June 2008, 12:54:13 pm UUID: 33b3d005-a3bc-49a1-b6c1-d83afa46086d Ancestors: Monticello.impl-kph.520 fix squeakmap release repository url (i think) =============== Diff against Monticello.impl-kph.520 =============== Item was changed: ----- Method: MCSMReleaseRepository>>squeakMapUrl (in category 'as yet unclassified') ----- squeakMapUrl + ^ 'http://map.squeak.org/sm' + + ! - ^ 'http://localhost:9070/sm' - !

1 0

Monticello Public: Monticello.impl-kph.520.mcz
by squeaksource-noreply＠iam.unibe.ch 08 Jun '08

08 Jun '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-kph.520.mcz ==================== Summary ==================== Name: Monticello.impl-kph.520 Author: kph Time: 8 June 2008, 9:33:24 pm UUID: aa488473-74a0-40eb-bbe9-ed09f21ef704 Ancestors: Monticello.impl-kph.519 removed fixObsoleteReferences so that we can load into squeak light, according to mtf =============== Diff against Monticello.impl-kph.519 =============== Item was changed: ----- Method: MCWorkingCopy class>>initialize (in category 'as yet unclassified') ----- initialize Smalltalk at: #MczInstaller ifPresent: [:installer | self adoptVersionInfoFrom: installer]. registry ifNotNil:[registry rehash]. "changed #=" self allInstancesDo:[:each| "moved notifications" Smalltalk at: #SystemChangeNotifier ifPresent:[:cls| cls uniqueInstance noMoreNotificationsFor: each. ]. ]. self registerForNotifications. + ! - SmalltalkImage current fixObsoleteReferences. - !

1 0

Monticello Public: Monticello.impl-kph.519.mcz
by squeaksource-noreply＠iam.unibe.ch 08 Jun '08

08 Jun '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-kph.519.mcz ==================== Summary ==================== Name: Monticello.impl-kph.519 Author: kph Time: 8 June 2008, 3:44:31 am UUID: 89279ace-723e-4728-986c-538c0663736d Ancestors: Monticello.impl-mtf.518 Renamed menu items to be less confusing and to give a clearer indication as to what they do. http://bugs.squeak.org/view.php?id=7023 =============== Diff against Monticello.impl-mtf.518 =============== Item was changed: ----- Method: MCWorkingCopy>>myMenu:inBrowser: (in category 'menu') ----- myMenu: aMenu inBrowser: browser browser fillMenu: aMenu fromSpecs: #( ('add required package' #addRequiredPackage) ('clear required packages' #clearRequiredPackages) ('add repository...' #addPackageRepository) "('browse package' #browseWorkingCopy) ('view changes' #viewChanges) ('view history' #viewHistory)" ('recompile package' #recompilePackage) ('recompile all packages' #recompileAllPackages) ('memory use for all packages' #viewMemoryUseAll) ('memory use' #viewMemoryUse) ('revert package...' #revertPackage) + ('unload package code' #unloadPackage) - ('unload package' #unloadPackage) ('trim ancestry' #trimAncestry) + ('remove package name from list' #deleteWorkingCopy) - ('delete working copy' #deleteWorkingCopy) ('explore working copy' #exploreWorkingCopy) ). (Smalltalk includesKey: #SARMCPackageDumper) ifTrue: [ aMenu add: 'make SAR' target: self selector: #fileOutAsSAR ]. ^ aMenu !

1 0

← Newer
1
...
5
6
7
8
9
10
11
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages June 2008