Squeak-dev June 2015

squeak-dev@lists.squeakfoundation.org

35 participants
162 discussions

The Trunk: Morphic-cmm.988.mcz
by commits＠source.squeak.org 10 Jun '15

10 Jun '15

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.988.mcz ==================== Summary ==================== Name: Morphic-cmm.988 Author: cmm Time: 9 June 2015, 5:49:27.528 pm UUID: 5355a2fc-cc89-418d-ab6c-7bf0d238de76 Ancestors: Morphic-mt.987 Remove duplicate check. =============== Diff against Morphic-mt.987 =============== Item was changed: ----- Method: TextEditor>>autoEncloseFor: (in category 'typing support') ----- autoEncloseFor: typedChar "Answer whether typeChar was handled by auto-enclosure. Caller should call normalCharacter if not." | openers closers | openers := '([{'. closers := ')]}'. + (closers includes: typedChar) ifTrue: + [ | pos | + self blinkPrevParen: typedChar. + ((pos := self indexOfNextNonwhitespaceCharacter) notNil and: [ (paragraph string at: pos) = typedChar ]) + ifTrue: + [ self + moveCursor: [ : position | position + pos - pointBlock stringIndex + 1 ] + forward: true + select: false. + ^ true ] + ifFalse: [ ^ false ] ]. - (closers includes: typedChar) - ifTrue: - [ | pos | - self blinkPrevParen: typedChar. - ((pos := self indexOfNextNonwhitespaceCharacter) notNil and: [ (paragraph string at: pos) = typedChar ]) - ifTrue: - [ (paragraph string at: pos) = typedChar ifTrue: - [ self - moveCursor: [ : position | position + pos - pointBlock stringIndex + 1 ] - forward: true - select: false ]. - ^ true ] - ifFalse: [ ^ false ] ]. (self class autoEnclose and: [ openers includes: typedChar ]) ifTrue: [ self addString: (closers at: (openers indexOf: typedChar)) asString ; insertTypeAhead ; moveCursor: [ : position | position - 1 ] forward: false select: false. ^ false ]. ^ false!

1 0

Updating Squeak 4.5 to Squeak 4.6
by marcel.taeumel 08 Jun '15

08 Jun '15

Hi, there. If there are only the latest packages in the Squeak 4.6 repository, there may be many important mcm-checkpoints (together with postLoad-migration-scripts) are missing. Updating a busy 4.5 image to 4.6 might fail easily. Don't we want to support that? Best, Marcel -- View this message in context: http://forum.world.st/Updating-Squeak-4-5-to-Squeak-4-6-tp4830777.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

5 5

Trying to understand thisContext
by matthias.springer 08 Jun '15

08 Jun '15

Hi there, I am trying to understand what the meaning and implementation of "thisContext" is. On a recent COG VM, "[ |a b| a:=b:=1. thisContext basicSize ] value" returns 3. Adding more temp vars increases that value. On a Cocoa VM (http://squeakvm.org/mac/release/Squeak%205.7.4.1.zip), the same code always returns 0. Also, "thisContext at: 1" etc. is out of bounds. Which one is correct? Any ideas? The reason why I am asking is because there is code that seems to rely on this (e.g. SystemTracer2>>writeContext:) and I am trying to get it running on RSqueak. Thanks, Matthias -- View this message in context: http://forum.world.st/Trying-to-understand-thisContext-tp4830938.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

3 3

Re: [squeak-dev] Is this a bug with Step "Over"?
by Ben Coman 06 Jun '15

06 Jun '15

On Sat, Jun 6, 2015 at 4:35 AM, Chris Muller <asqueaker(a)gmail.com> wrote: > 3 timesRepeat: [Warning signal]. > 10 factorial > > Select the above in a workspace, select "debug it" then, in the > debugger, click the "Over" button just once. > > 3 Warning pre-debuggers appear instantly and then the execution moves > to the "factorial". > > Warnings have the opportunity to resume or cancel? IOW, shouldn't it > work more like as if it were a halt? > > 3 timesRepeat: [ self halt ]. > 10 factorial > Pharo does the same and its an interesting question so I've cross posted. If you "do it" then you get *one* pre-debug window at a time. When you "debug it" and step "Over" you get *three* debug windows at once. Shouldn't it behave the same as the "do it" to get *one* at a time ? cheers -ben

1 0

Re: [Box-Admins] Fwd: build.squeak.org down
by Tobias Pape 05 Jun '15

05 Jun '15

On 05.06.2015, at 22:57, Chris Muller <asqueaker(a)gmail.com> wrote: > Service Temporarily Unavailable > > (cc'ing the correct list) I rebooted it. It's back. The IRC plugin somehow took it down because of crypto issues. I disabled that the hard way (i hope, I have had some wine tonight, tho) best regards -tobias

1 0

Squeak 4.6: ScriptLoader-cmm.338.mcz
by commits＠source.squeak.org 05 Jun '15

05 Jun '15

Chris Muller uploaded a new version of ScriptLoader to project Squeak 4.6: http://source.squeak.org/squeak46/ScriptLoader-cmm.338.mcz ==================== Summary ==================== Name: ScriptLoader-cmm.338 Author: cmm Time: 23 January 2014, 10:59:17.946 am UUID: adb79117-0915-40a5-a5ee-c766e4b50d42 Ancestors: ScriptLoader-fbs.337 More empty category cruft cleanup. ==================== Snapshot ====================

1 0

Squeak 4.6: VersionNumberTests-fbs.4.mcz
by commits＠source.squeak.org 05 Jun '15

05 Jun '15

Chris Muller uploaded a new version of VersionNumberTests to project Squeak 4.6: http://source.squeak.org/squeak46/VersionNumberTests-fbs.4.mcz ==================== Summary ==================== Name: VersionNumberTests-fbs.4 Author: fbs Time: 6 November 2013, 6:43:26.326 pm UUID: 953a944c-9648-dd4b-898e-9e10e0507b91 Ancestors: VersionNumberTests-nice.3 More #shouldnt:raise: Error fixes. ==================== Snapshot ==================== SystemOrganization addCategory: #VersionNumberTests! ClassTestCase subclass: #VersionNumberTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'VersionNumberTests'! !VersionNumberTest commentStamp: 'it 7/15/2009 23:32' prior: 0! This is the unit tests for the class VersionNumber. VersionNumber has no specification beyond its implementation. There are few important elements to be noted: * Does NOT support 0 in versioning, i.e. 0, 1.0, 5.0.843, etc. * Does support empty version from a string, e.g. '', or a collection, e.g. #(). * VersionNumber>>fromString will ignore trailing numbers if not sperated by a dot. * VersionNumber>>next advances the minor number (last value), without turn over. * VersionNumber>>branchNext creates a sub-minor version number, e.g. 1.5 becomes 1.5.1. * VersionNumber>>previous reduces may truncate the number, e.g. 9.1 -> 9, 1 to empty. * An annoying character improperly displayed as "" should be removed from source code.! ----- Method: VersionNumberTest>>classToBeTested (in category 'Coverage') ----- classToBeTested ^ VersionNumber! ----- Method: VersionNumberTest>>selectorsToBeIgnored (in category 'Coverage') ----- selectorsToBeIgnored ^ super selectorsToBeIgnored.! ----- Method: VersionNumberTest>>setUp (in category 'Running') ----- setUp super setUp.! ----- Method: VersionNumberTest>>tearDown (in category 'Running') ----- tearDown super tearDown.! ----- Method: VersionNumberTest>>testAsVersion (in category 'Tests') ----- testAsVersion "note: a version number string '3 2 1' will only consider the first number as a version, ignoring the trailing '2 1'. Whether it is a desired feature or not should be determined." | numbers | numbers := { '' -> #(). '1 '-> #(1). '1.2' -> #(1 2). '3.4.5' -> #(3 4 5). '6.7.890' -> #(6 7 890). '9 8' -> #(9). '98 7 6' -> #(98). '54.3 2 1' -> #(54 3) }. numbers do: [:item | | version | version := (item key) asVersion. self assert: (VersionNumber = version class). self assert: ((item value) = version numbers). ]. self assert: 9999999999999999999 equals: '9999999999999999999' asVersion numbers first. self should: ['-1' asVersion] raise: TestResult error. self should: [' 1' asVersion] raise: TestResult error. "notice leading space!!" self should: ['version' asVersion] raise: TestResult error. self should: ['1.2.10.20.-1.4' asVersion] raise: TestResult error. self should: ['1.2.10.20.R4' asVersion] raise: TestResult error.! ----- Method: VersionNumberTest>>testBranchNext (in category 'Tests') ----- testBranchNext | numbers | numbers := #(#(1) #(9) #(1 2) #(1 9) #(1 9 1) #(1 9 9) #(1 1 1 1 1 99)). numbers do: [:item | | temp version | version := VersionNumber fromCollection: item. temp := item asOrderedCollection. temp add: 1. self assert: (temp asArray = version branchNext numbers). ].! ----- Method: VersionNumberTest>>testFirst (in category 'Tests') ----- testFirst | version | version := VersionNumber first. self assert: (VersionNumber = version class). self assert: (#(1) = version numbers).! ----- Method: VersionNumberTest>>testFromCollection (in category 'Tests') ----- testFromCollection | numbers | numbers := #(#(1) #(1 2) #(3 4 5) #(6 7 890)). numbers do: [:item | | version | version := VersionNumber fromCollection: item. self assert: (VersionNumber = version class). self assert: (item = version numbers). ]. self assert: #() equals: (VersionNumber fromCollection: #()) numbers. self assert: #(9999999999999999999) equals: (VersionNumber fromCollection: #(9999999999999999999)) numbers. self should: [VersionNumber fromCollection: #(0)] raise: TestResult error. self should: [VersionNumber fromCollection: #(-1)] raise: TestResult error. self should: [VersionNumber fromCollection: #(1 2 10 20 -1 4)] raise: TestResult error. self should: [VersionNumber fromCollection: #(1 2 10 20 '1' 4)] raise: TestResult error. self should: [VersionNumber fromCollection: #('version')] raise: TestResult error. ! ----- Method: VersionNumberTest>>testFromString (in category 'Tests') ----- testFromString "note: a version number string '3 2 1' will only consider the first number as a version, ignoring the trailing '2 1'. Whether it is a desired feature or not should be determined." | numbers | numbers := { '' -> #(). '1 '-> #(1). '1.2' -> #(1 2). '3.4.5' -> #(3 4 5). '6.7.890' -> #(6 7 890). '9 8' -> #(9). '98 7 6' -> #(98). '54.3 2 1' -> #(54 3) }. numbers do: [:item | | version | version := VersionNumber fromString: (item key). self assert: (VersionNumber = version class). self assert: ((item value) = version numbers). ]. self assert: #(9999999999999999999) equals: (VersionNumber fromString: '9999999999999999999') numbers. self should: [VersionNumber fromString: '-1'] raise: TestResult error. self should: [VersionNumber fromString: ' 1'] raise: TestResult error. "notice leading space!!" self should: [VersionNumber fromString: 'version'] raise: TestResult error. self should: [VersionNumber fromString: '1.2.10.20.-1.4'] raise: TestResult error. self should: [VersionNumber fromString: '1.2.10.20.R4'] raise: TestResult error. ! ----- Method: VersionNumberTest>>testInitializeNumbers (in category 'Tests') ----- testInitializeNumbers | numbers | numbers := #(#(1) #(1 2) #(3 4 5) #(6 7 890)). numbers do: [:item | | version | version := VersionNumber new initializeNumbers: item. self assert: (VersionNumber = version class). self assert: (item = version numbers). ]. self assert: #() equals: (VersionNumber new initializeNumbers: #()) numbers. self assert: #(9999999999999999999) equals: (VersionNumber new initializeNumbers: #(9999999999999999999)) numbers. self should: [VersionNumber new initializeNumbers: #(0)] raise: TestResult error. self should: [VersionNumber new initializeNumbers: #(-1)] raise: TestResult error. self should: [VersionNumber new initializeNumbers: #(1 2 10 20 -1 4)] raise: TestResult error. self should: [VersionNumber new initializeNumbers: #(1 2 10 20 '1' 4)] raise: TestResult error. self should: [VersionNumber new initializeNumbers: #('version')] raise: TestResult error. ! ----- Method: VersionNumberTest>>testIsEqual (in category 'Tests') ----- testIsEqual "Test VersionNumber>>=" | version | version := VersionNumber first. self assert: (VersionNumber new initializeNumbers: #(1)) = version. self assert: (VersionNumber new initializeNumbers: #(2)) = (version next). self assert: (VersionNumber new initializeNumbers: #(1 1)) = (version branchNext).! ----- Method: VersionNumberTest>>testNext (in category 'Tests') ----- testNext | numbers | numbers := #(#(1) #(9) #(1 2) #(1 9) #(1 9 1) #(1 9 9) #(1 1 1 1 1 99)). numbers do: [:item | | version temp | version := VersionNumber fromCollection: item. temp := item copy. temp atLast: 1 put: (temp last + 1). self assert: (temp = version next numbers). ].! ----- Method: VersionNumberTest>>testPrevious (in category 'Tests') ----- testPrevious | numbers | numbers := { #(1) -> #(). #(2) -> #(1). #(9) -> #(8). #(7 9) -> #(7 8). #(7 1) -> #(7). #(9 9 9 9 1) -> #(9 9 9 9). }. numbers do: [:item | | version | version := VersionNumber fromCollection: (item key). self assert: ((item value) = version previous numbers). ].!

1 0

Squeak 4.6: TrunkScript-cmm.5.mcz
by commits＠source.squeak.org 05 Jun '15

05 Jun '15

Chris Muller uploaded a new version of TrunkScript to project Squeak 4.6: http://source.squeak.org/squeak46/TrunkScript-cmm.5.mcz ==================== Summary ==================== Name: TrunkScript-cmm.5 Author: cmm Time: 16 March 2011, 10:54:07.164 pm UUID: 6e38e09d-571f-49c3-8249-50e28d72bf8e Ancestors: TrunkScript-cmm.4 Fixed syntax error. ==================== Snapshot ==================== (PackageInfo named: 'TrunkScript') preamble: '"below, add code to be run before the loading of this package" (Installer repository: ''http://source.squeak.org/trunk'') install: ''Monticello-cmm.439'' ; install: ''MonticelloConfigurations-cmm.89''. "Convert cached file-names to new MCVersionName so comparisons work properly." MCRepositoryGroup default repositoriesDo: [ : each | (each isKindOf: MCFileBasedRepository) ifTrue: [ each instVarNamed: ''allFileNames'' put: (each allFileNames) ] ]. "We also need to get all VersionInfo''s names converted." MCVersionInfo allInstances do: [ : each | each instVarNamed: ''name'' put: (each name asMCVersionName) ]. "Although the new Monticello has been loaded, we still have the cbc 8/25/2010 09:13 version of MCMcmUpdater class>>#updateFromRepositories: executing on the stack. That version of the method needs this old method. Compile it back." MCFileBasedRepository compile: ''versionFromFileNamed: aString | v | v := self cache at: aString ifAbsent: [self loadVersionFromFileNamed: aString]. self resizeCache: cache. (v notNil and: [v isCacheable]) ifTrue: [cache at: aString put: v]. ^ v'''!

1 0

Squeak 4.6: 45Deprecated-fbs.24.mcz
by commits＠source.squeak.org 05 Jun '15

05 Jun '15

Chris Muller uploaded a new version of 45Deprecated to project Squeak 4.6: http://source.squeak.org/squeak46/45Deprecated-fbs.24.mcz ==================== Summary ==================== Name: 45Deprecated-fbs.24 Author: fbs Time: 11 January 2014, 4:41:18.972 pm UUID: 4033c169-94c6-7741-9aee-5a7570a7ec7a Ancestors: 45Deprecated-nice.23 This stuff has rotted. It probably ought to simply be deleted, but let's hedge our bets and move it to 45Deprecated. ==================== Snapshot ==================== SystemOrganization addCategory: #'45Deprecated-Installer-Core'! ----- Method: CompiledMethod>>setMySourcePointer: (in category '*45Deprecated') ----- setMySourcePointer: srcPointer self deprecated: 'Use #setSourcePointer: '. ^ self setSourcePointer: srcPointer! ----- Method: SmalltalkImage>>cleanUpUndoCommands (in category '*45Deprecated') ----- cleanUpUndoCommands self deprecated: 'This method was superseded by Command class >> #cleanUp'. globals at: #Command ifPresent: [ :command | command cleanUp ]! ----- Method: SmalltalkImage>>do: (in category '*45Deprecated') ----- do: aBlock "Obsoleted." self deprecated: 'Use Smalltalk globals'. ^globals do: aBlock! ----- Method: SmalltalkImage>>forgetDoIts (in category '*45Deprecated') ----- forgetDoIts self deprecated: 'This method does not have to be sent anymore!!' ! ----- Method: SmalltalkImage>>includes: (in category '*45Deprecated') ----- includes: element "Obsoleted." self deprecated: 'Use Smalltalk globals'. ^globals includes: element! ----- Method: SmalltalkImage>>keyAtIdentityValue:ifAbsent: (in category '*45Deprecated') ----- keyAtIdentityValue: anObject ifAbsent: aBlock "Obsoleted." self deprecated: 'Use Smalltalk globals'. ^globals keyAtIdentityValue: anObject ifAbsent: aBlock! ----- Method: SmalltalkImage>>keyAtValue: (in category '*45Deprecated') ----- keyAtValue: value "Answer the key that is the external name for the argument, value. If there is none, answer nil." self deprecated: 'Use Smalltalk globals'. ^globals keyAtValue: value ! ----- Method: SmalltalkImage>>keys (in category '*45Deprecated') ----- keys "Obsoleted." self deprecated: 'Use Smalltalk globals'. ^globals keys! ----- Method: SmalltalkImage>>keysAndValuesDo: (in category '*45Deprecated') ----- keysAndValuesDo: aBlock "Obsoleted." self deprecated: 'Use Smalltalk globals'. ^globals keysAndValuesDo: aBlock! ----- Method: SmalltalkImage>>removeKey: (in category '*45Deprecated') ----- removeKey: key "Obsoleted." self deprecated: 'Use Smalltalk globals'. ^globals removeKey: key! ----- Method: SmalltalkImage>>removeKey:ifAbsent: (in category '*45Deprecated') ----- removeKey: key ifAbsent: aBlock "Obsoleted." self deprecated: 'Use Smalltalk globals'. ^globals removeKey: key ifAbsent: aBlock! ----- Method: SmalltalkImage>>scopeFor:from:envtAndPathIfFound: (in category '*45Deprecated') ----- scopeFor: varName from: lower envtAndPathIfFound: envtAndPathBlock "Obsoleted." self deprecated: 'Use Smalltalk globals'. (globals includesKey: varName) ifTrue: [^ envtAndPathBlock value: self value: String new] ifFalse: [^ nil]! ----- Method: SmalltalkImage>>size (in category '*45Deprecated') ----- size "Obsoleted." self deprecated: 'Use Smalltalk globals'. ^globals size! ----- Method: SocketStream class>>finger: (in category '*45Deprecated-example') ----- finger: userName self error: 'Use SocketStream >> #finger:at:'.! ----- Method: MessageTally>>close (in category '*45Deprecated') ----- close self deprecated: 'Use MessageTally >> #terminateTimerProcess'. Timer ifNotNil: [ Timer terminate ]. Timer := nil. class := method := tally := receivers := nil! ----- Method: Integer>>asStringWithCommasSigned (in category '*45Deprecated') ----- asStringWithCommasSigned "123456789 asStringWithCommasSigned" "-123456789 asStringWithCommasSigned" | digits | self deprecated: 'Use #asStringWithCommasSigned:'. digits := self abs printString. ^ String streamContents: [:strm | self sign = -1 ifTrue: [strm nextPut: $-] ifFalse:[strm nextPut: $+]. 1 to: digits size do: [:i | strm nextPut: (digits at: i). (i < digits size and: [(i - digits size) \\ 3 = 0]) ifTrue: [strm nextPut: $,]]]! ----- Method: Integer>>raisedToInteger:modulo: (in category '*45Deprecated') ----- raisedToInteger: exp modulo: m self deprecated: 'rather use #raisedTo:modulo: for efficiency'. (exp = 0) ifTrue: [^ 1]. exp even ifTrue: [^ (self raisedToInteger: (exp // 2) modulo: m) squared \\ m] ifFalse: [^ (self * (self raisedToInteger: (exp - 1) modulo: m)) \\ m].! ----- Method: BitBlt>>displayString:from:to:at:kern:baselineY:font: (in category '*45Deprecated') ----- displayString: aString from: startIndex to: stopIndex at: aPoint kern: kernDelta baselineY: baselineY font: aFont "Double dispatch into the font. This method is present so that other-than-bitblt entities can be used by CharacterScanner and friends to display text." ^ aFont displayString: aString on: self from: startIndex to: stopIndex at: aPoint kern: kernDelta baselineY: baselineY! ----- Method: BitBlt>>displayString:from:to:at:kern:font: (in category '*45Deprecated') ----- displayString: aString from: startIndex to: stopIndex at: aPoint kern: kernDelta font: aFont "Double dispatch into the font. This method is present so that other-than-bitblt entities can be used by CharacterScanner and friends to display text." ^ aFont displayString: aString on: self from: startIndex to: stopIndex at: aPoint kern: kernDelta! ----- Method: BitBlt>>installFont:foregroundColor:backgroundColor: (in category '*45Deprecated') ----- installFont: aFont foregroundColor: foregroundColor backgroundColor: backgroundColor "Double dispatch into the font. This method is present so that other-than-bitblt entities can be used by CharacterScanner and friends to display text." ^aFont installOn: self foregroundColor: foregroundColor backgroundColor: backgroundColor! ----- Method: LanguageEnvironment>>setupSqueaklandSpecifics (in category '*45Deprecated-utilities') ----- setupSqueaklandSpecifics "Write language specific settings here"! ----- Method: SystemNavigation>>allMethodsNoDoitsSelect: (in category '*45Deprecated') ----- allMethodsNoDoitsSelect: aBlock "Like allSelect:, but strip out Doits" self deprecated: 'Doits are not present in MethodDictionaries anymore. Use #allMethodsSelect:'. ^self allMethodsSelect: aBlock! ----- Method: SystemNavigation>>selectAllMethods: (in category '*45Deprecated') ----- selectAllMethods: aBlock "Answer a SortedCollection of each method that, when used as the block argument to aBlock, gives a true result." self deprecated: 'Use #allMethodsSelect:'. ^self allMethodsSelect: aBlock! ----- Method: SystemNavigation>>selectAllMethodsNoDoits: (in category '*45Deprecated') ----- selectAllMethodsNoDoits: aBlock "Like allSelect:, but strip out Doits" self deprecated: 'Doits are not present in MethodDictionaries anymore. Use #allMethodsSelect:'. ^self allMethodsSelect: aBlock! ----- Method: CharacterScanner>>initializeStringMeasurer (in category '*45Deprecated') ----- initializeStringMeasurer "This method was once required to measure String but is now obsolescent." self deprecated: 'initializeStringMeasurer is no longer required' ! ----- Method: Parser>>initPattern:notifying:return: (in category '*45Deprecated') ----- initPattern: aString notifying: req return: aBlock req ifNil: [self deprecated: 'Notifying nil is unnecessary, simply use #initPattern:return:'. ^self initPattern: aString return: aBlock] ifNotNil: [| result | self deprecated: '#initPattern:return: was preferred because everybody was notifying nil, but you. You could ask for re-integration of this message'. self init: (ReadStream on: aString asString) cue: (CompilationCue source: aString requestor: req) failBlock: [^nil]. encoder := self. result := aBlock value: (self pattern: false inContext: nil). encoder := failBlock := nil. "break cycles" ^result]! ----- Method: TextDiffBuilder class>>buildDisplayPatchFrom:to:inClass: (in category '*45Deprecated') ----- buildDisplayPatchFrom: sourceText to: destinationText inClass: sourceClass self deprecated: 'Use #buildDisplayPatchFrom:to:inClass:prettyDiffs:'. ^self buildDisplayPatchFrom: sourceText to: destinationText inClass: sourceClass prettyDiffs: (Preferences valueOfFlag: #diffsWithPrettyPrint)! ----- Method: SystemDictionary>>hasSpecialSelector:ifTrueSetByte: (in category '*45Deprecated') ----- hasSpecialSelector: aLiteral ifTrueSetByte: aBlock self deprecated: 'Use Smalltalk'. ^Smalltalk hasSpecialSelector: aLiteral ifTrueSetByte: aBlock! ----- Method: InputSensor>>currentCursor (in category '*45Deprecated') ----- currentCursor "The current cursor is maintained in class Cursor." self deprecated: 'Use Cursor >> #currentCursor'. ^ Cursor currentCursor! ----- Method: InputSensor>>currentCursor: (in category '*45Deprecated') ----- currentCursor: newCursor "The current cursor is maintained in class Cursor." self deprecated: 'Use Cursor >> #currentCursor:'. Cursor currentCursor: newCursor.! ----- Method: Behavior>>compile:classified:notifying:trailer:ifFail: (in category '*45Deprecated') ----- compile: code classified: category notifying: requestor trailer: bytes ifFail: failBlock self deprecated: 'Use #compile:notifying:trailer:ifFail:'. ^self compile: code notifying: requestor trailer: bytes ifFail: failBlock! ----- Method: Behavior>>whichSelectorsAssign: (in category '*45Deprecated') ----- whichSelectorsAssign: instVarName "Answer a Set of selectors whose methods store into the argument, instVarName, as a named instance variable." self deprecated: 'Use #whichSelectorsStoreInto:.'. ^self whichSelectorsStoreInto: instVarName! Installer subclass: #InstallerCruft instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: '45Deprecated-Installer-Core'! !InstallerCruft commentStamp: 'mtf 10/1/2008 22:24' prior: 0! I am a copy of Installer as of Installer-Core-kph.232. I am being split up. I am called InstallerCruft because I stand-in for Sake{MC,SM,Mantis,Web,etc}Installer! ----- Method: InstallerCruft class>>classProjectLauncher (in category 'accessing system') ----- classProjectLauncher ^Smalltalk at: #ProjectLauncher ifAbsent: [ self error: 'ProjectLauncher not present' ]! ----- Method: InstallerCruft class>>classSakePackages (in category 'accessing system') ----- classSakePackages ^Smalltalk at: #SakePackages ifAbsent: [ self error: 'Sake Packages code not present' ]! ----- Method: InstallerCruft class>>classes (in category 'accessing system') ----- classes ^ Smalltalk! ----- Method: InstallerCruft class>>history (in category 'documentation') ----- history " 7 Jan 2007 !!Installer fixBug: <aBugNo> aBugNo can now be a number or a string, beginning with a number. This allows the mantis bug report summary to be used verbatim. It also provides more infomarion for Installer to support self documentation. !!Install fix if not already installed Installer ensureFix: <aBugNoOrString> Installer ensureFixes: #(1 2 3 4) Installer now keeps a list of fix <aBugNoOrString> that have been installed up to this point. #ensureFix: will only install the fix if it has not already been loaded. note that only the bugNumber not the description is significant in the check. 8 Jan 2007 !!Installer view: <webPageNameOrUrl> Provided that web page based scripts follow some simple rules, installer can collate the scripts from web pages into a single workspace where you can manually 'doit' portions as you wish. The report generation is not very clever, it only matches on: 'Installer install:' , 'Installer installUrl:', and 'Installer mantis fixBug:' note these lines must be properly completed with an ending $. (period). also invoked by commandline option VIEW=<webPageNameOrUrl> 10 Jan 2007 !!Now matches simpler html Check for an html page, now matches '<!!DOCTYPE HTML' and <html> the allows use of pbwiki's raw=bare option which returns iframe embeddable html without the usual headers. 8 May 2007 Modified bug:fix:date: so that the fixesApplied history does not contain unnecessary duplicate entries. Fixed changeset naming for mantis bugs. 25 July 2007 Added Universes Support "! ----- Method: InstallerCruft class>>mczInstall: (in category 'documentation') ----- mczInstall: urlOrFile ^ self new mczInstall: urlOrFile ! ----- Method: InstallerCruft class>>smalltalkImage (in category 'accessing system') ----- smalltalkImage ^ Smalltalk! ----- Method: InstallerCruft class>>sourceFiles (in category 'accessing system') ----- sourceFiles ^ SourceFiles! ----- Method: InstallerCruft class>>unload: (in category 'unload') ----- unload: categoryMatchesString ^ self error: 'deprecated, use Installer mc unload: ''pkgname''.'! ----- Method: InstallerCruft>>classMCMczReader (in category 'class references') ----- classMCMczReader ^Smalltalk at: #MCMczReader ifAbsent: [ nil ] ! ----- Method: InstallerCruft>>createRBforBug: (in category 'mantis') ----- createRBforBug: aBugNo | aStream fileList selFile aFileName suffix | self setBug: aBugNo. fileList := self maFiles keys asOrderedCollection. fileList addLast: 'none'. (Smalltalk classNamed: #ReleaseBuilderFor3dot10) clear. [selFile := UIManager default chooseFrom: fileList title: 'Choose what files load '. selFile = fileList size ifFalse:[ aFileName := fileList at: selFile. self logCR: 'obtaining ', aFileName, '...'. aStream := self maStreamForFile: aFileName .suffix := (FileDirectory extensionFor: aFileName) asLowercase. suffix caseOf: { ['gz'] -> [self installGZ: aFileName from: aStream ]. ['cs' ] -> [self installCS: aFileName from: aStream]. ['st' ] -> [self installCS: aFileName from: aStream]. ['mcz' ] -> [self installMCZ: aFileName from: aStream ]. ['sar'] -> [self installSAR: aFileName from: aStream ]. }otherwise: [Error]. ].selFile = fileList size]whileFalse. (Smalltalk classNamed: #ReleaseBuilderFor3dot10) current newUpdateFor: aBugNo ! ----- Method: InstallerCruft>>evaluate: (in category 'mantis') ----- evaluate: stream stream fileIn.! ----- Method: InstallerCruft>>info (in category 'accessing') ----- info self sm ifTrue: [ ^ self smInfo ]. self wsm ifNotNil: [ ^ self wsmInfo ].! ----- Method: InstallerCruft>>mczInstall: (in category 'monticello') ----- mczInstall: urlOrFile self log: ('Loading ', urlOrFile, ' ...'). (urlOrFile beginsWith: 'http:') ifTrue: [ MczInstaller installStream: (HTTPSocket httpGet: urlOrFile) ] ifFalse: [ MczInstaller installFileNamed: urlOrFile ]. self logCR: ' Loaded'. ! ----- Method: InstallerCruft>>preambleCsForRB: (in category 'mantis') ----- preambleCsForRB: aBugNo " Installer mantis preambleCsForRB: 5936. " | page text | self setBug: aBugNo. page := self maPage. text := String streamContents: [ :str | #('Reporter' 'Summary' 'Description' 'Additional Information' ) do: [ :field | | f | f := self maRead: page field: field. str nextPutAll: f key; nextPutAll: ': '; nextPutAll: f value; cr. ] ]. ^ text ! ----- Method: InstallerCruft>>skipTests (in category 'mantis') ----- skipTests ! ----- Method: InstallerCruft>>viewUrl (in category 'utils') ----- viewUrl ^Workspace new contents: (self urlGet contents); openLabel: self urlToDownload. ! ----- Method: JapaneseEnvironment>>setupSqueaklandSpecifics (in category '*45Deprecated-utilities') ----- setupSqueaklandSpecifics | server | ChangeSet current name: 'Unnamed' translated , '1'. ServerDirectory resetServers. server := SuperSwikiServer new type: #http; server: 'squeakland.jp'; directory: '/super/SuperSwikiProj'; acceptsUploads: (Preferences eToyFriendly not); encodingName: 'shift_jis'. ServerDirectory servers at: 'Squeakland.JP' put: server. Smalltalk garbageCollect! ----- Method: MethodDictionary>>methodArray (in category '*45Deprecated') ----- methodArray self deprecated: 'Use #array'. ^array! ----- Method: Number>>isInf (in category '*45Deprecated') ----- isInf self deprecated: 'Use #isInfinite instead'. ^self isInfinite! ----- Method: Utilities class>>addToTrash: (in category '*45Deprecated-scraps') ----- addToTrash: aMorph self deprecated: 'Use ScrapBook default >> #addToTrash:'. ScrapBook default addToTrash: aMorph.! ----- Method: Utilities class>>applyUpdatesFromDisk (in category '*45Deprecated-fetching updates') ----- applyUpdatesFromDisk self deprecated: 'Use UpdateStreamDownloader default >> #applyUpdatesFromDisk:'. ^UpdateStreamDownloader default applyUpdatesFromDisk! ----- 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 ! ----- Method: Utilities class>>assureAbsenceOfUnstableUpdateStream (in category '*45Deprecated-fetching updates') ----- assureAbsenceOfUnstableUpdateStream self deprecated: 'Use UpdateStreamDownloader default >> #assureAbsenceOfUnstableUpdateStream'. ^UpdateStreamDownloader default assureAbsenceOfUnstableUpdateStream! ----- Method: Utilities class>>assureAvailabilityOfUnstableUpdateStream (in category '*45Deprecated-fetching updates') ----- assureAvailabilityOfUnstableUpdateStream self deprecated: 'Use UpdateStreamDownloader default >> #assureAvailabilityOfUnstableUpdateStream'. ^UpdateStreamDownloader default assureAvailabilityOfUnstableUpdateStream! ----- 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! ----- Method: Utilities class>>chooseUpdateList (in category '*45Deprecated-fetching updates') ----- chooseUpdateList self deprecated: 'Use UpdateStreamDownloader default >> #chooseUpdateList'. ^UpdateStreamDownloader default chooseUpdateList! ----- Method: Utilities class>>classFromPattern:withCaption: (in category '*45Deprecated') ----- classFromPattern: pattern withCaption: aCaption self deprecated: 'Use UIManager >> #classFromPattern:withCaption:'. ^ UIManager default classFromPattern: pattern withCaption: aCaption.! ----- Method: Utilities class>>classOrTraitFrom:pattern:label: (in category '*45Deprecated') ----- classOrTraitFrom: environment pattern: pattern label: label self deprecated: 'Use UIManager >> #classOrTraitFrom:pattern:label:'. ^ UIManager default classOrTraitFrom: environment pattern: pattern label: label.! ----- Method: Utilities class>>emptyScrapsBook (in category '*45Deprecated-scraps') ----- emptyScrapsBook self deprecated: 'Use ScrapBook default emptyScrapBook'. ScrapBook default emptyScrapBook! ----- Method: Utilities class>>fileInFromUpdatesFolder: (in category '*45Deprecated-fetching updates') ----- fileInFromUpdatesFolder: numberList self deprecated: 'Use UpdateStreamDownloader default >> #fileInFromUpdatesFolder:'. ^UpdateStreamDownloader default fileInFromUpdatesFolder: numberList! ----- Method: Utilities class>>getUpdateDirectoryOrNil (in category '*45Deprecated-fetching updates') ----- getUpdateDirectoryOrNil self deprecated: 'Use UpdateStreamDownloader default >> #getUpdateDirectoryOrNil'. ^UpdateStreamDownloader default getUpdateDirectoryOrNil! ----- Method: Utilities class>>getterSelectorFor: (in category '*45Deprecated-etoys') ----- getterSelectorFor: identifier self deprecated: 'Use String >> #asSetterSelector'. ^ identifier asGetterSelector.! ----- Method: Utilities class>>inherentSelectorForGetter: (in category '*45Deprecated-etoys') ----- inherentSelectorForGetter: aGetterSelector self deprecated: 'Use String >> inherentSelector'. ^ aGetterSelector inherentSelector.! ----- Method: Utilities class>>lastUpdateNum: (in category '*45Deprecated-fetching updates') ----- lastUpdateNum: updatesFileStrm self deprecated: 'Use UpdateStreamDownloader default >> #lastUpdateNum:'. ^UpdateStreamDownloader default lastUpdateNum: updatesFileStrm! ----- Method: Utilities class>>maybeEmptyTrash (in category '*45Deprecated-scraps') ----- maybeEmptyTrash self deprecated: 'Use ScrapBook >> #maybeEmptyTrash'. ScrapBook default maybeEmptyTrash.! ----- Method: Utilities class>>methodDiffFor:class:selector:prettyDiffs: (in category '*45Deprecated-miscellaneous') ----- methodDiffFor: aString class: aClass selector: aSelector prettyDiffs: prettyDiffBoolean "Return a string comprising a source-code diff between an existing method and the source-code in aString. DO prettyDiff if prettyDiffBoolean is true." ^ (aClass notNil and: [aClass includesSelector: aSelector]) ifTrue: [TextDiffBuilder buildDisplayPatchFrom: (aClass sourceCodeAt: aSelector) to: aString inClass: aClass prettyDiffs: prettyDiffBoolean] ifFalse: [aString copy]! ----- 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! ----- Method: Utilities class>>objectStrmFromUpdates: (in category '*45Deprecated-fetching updates') ----- objectStrmFromUpdates: fileName self deprecated: 'Use UpdateStreamDownloader default >> #objectStrmFromUpdates:'. ^UpdateStreamDownloader default objectStrmFromUpdates: fileName! ----- Method: Utilities class>>parseListContents: (in category '*45Deprecated-fetching updates') ----- parseListContents: listContents self deprecated: 'Use UpdateStreamDownloader default >> #parseListContents:'. ^UpdateStreamDownloader default parseListContents: listContents! ----- 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! ----- Method: Utilities class>>readNextUpdateFromServer (in category '*45Deprecated-fetching updates') ----- readNextUpdateFromServer self deprecated: 'Use UpdateStreamDownloader default >> #readNextUpdateFromServer'. ^UpdateStreamDownloader default readNextUpdateFromServer! ----- Method: Utilities class>>readNextUpdatesFromDisk: (in category '*45Deprecated-fetching updates') ----- readNextUpdatesFromDisk: n self deprecated: 'Use UpdateStreamDownloader default >> #readNextUpdatesFromDisk:'. ^UpdateStreamDownloader default readNextUpdatesFromDisk: n! ----- 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! ----- 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! ----- 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! ----- 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 ! ----- 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! ----- Method: Utilities class>>scrapsBook (in category '*45Deprecated-scraps') ----- scrapsBook self deprecated: 'Use ScrapBook default scrapBook'. ^ ScrapBook default scrapBook! ----- Method: Utilities class>>serverUrls (in category '*45Deprecated-fetching updates') ----- serverUrls self deprecated: 'Use UpdateStreamDownloader default >> #serverUrls'. ^UpdateStreamDownloader default serverUrls! ----- Method: Utilities class>>setUpdateServer: (in category '*45Deprecated-fetching updates') ----- setUpdateServer: groupName self deprecated: 'Use UpdateStreamDownloader default >> #setUpdateServer:'. ^UpdateStreamDownloader default setUpdateServer: groupName! ----- Method: Utilities class>>setterSelectorFor: (in category '*45Deprecated-etoys') ----- setterSelectorFor: aName self deprecated: 'Use String >> #asSetterSelector'. ^ aName asString asSetterSelector.! ----- Method: Utilities class>>simpleSetterFor: (in category '*45Deprecated-flaps') ----- simpleSetterFor: aSymbol self deprecated: 'Use Symbol >> #asSimpleSetter'. ^ aSymbol asSimpleSetter.! ----- 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! ----- Method: Utilities class>>updateFromServerThroughUpdateNumber: (in category '*45Deprecated-fetching updates') ----- updateFromServerThroughUpdateNumber: aNumber self deprecated: 'Use UpdateStreamDownloader default >> #updateFromServerThroughUpdateNumber:'. ^UpdateStreamDownloader default updateFromServerThroughUpdateNumber: aNumber! ----- Method: Utilities class>>updateUrlLists (in category '*45Deprecated-fetching updates') ----- updateUrlLists self deprecated: 'Use UpdateStreamDownloader default >> #updateUrlLists'. ^UpdateStreamDownloader default updateUrlLists! ----- 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! ----- Method: Utilities class>>zapUpdateDownloader (in category '*45Deprecated-fetching updates') ----- zapUpdateDownloader self deprecated: 'Use UpdateStreamDownloader default >> #zapUpdateDownloader'. ^UpdateStreamDownloader default zapUpdateDownloader! ----- Method: Preferences class>>browseToolClass (in category '*45Deprecated') ----- browseToolClass "This method is used for returning the appropiate class for the #browserShowsPackagePane preference. Now that preference modifies the registry so here we query directly to the registry" self deprecated: 'Use SystemBrowser default'. ^ SystemBrowser default.! ----- Method: Preferences class>>soundEnablingString (in category '*45Deprecated') ----- soundEnablingString self deprecated: 'Ask the sound service for this'. ^ SoundService soundEnablingString! ----- Method: Preferences class>>toggleSoundEnabling (in category '*45Deprecated') ----- toggleSoundEnabling self deprecated: 'Now uses pragma preference, and is stored in SoundService'. SoundService toggleSoundEnabled!

1 0

Squeak 4.6: MonticelloConfigurations-dtl.135.mcz
by commits＠source.squeak.org 05 Jun '15

05 Jun '15

Chris Muller uploaded a new version of MonticelloConfigurations to project Squeak 4.6: http://source.squeak.org/squeak46/MonticelloConfigurations-dtl.135.mcz ==================== Summary ==================== Name: MonticelloConfigurations-dtl.135 Author: dtl Time: 30 May 2015, 8:10:12.525 am UUID: aabac991-61d2-4a2f-82e9-39e8572e2099 Ancestors: MonticelloConfigurations-eem.134 Restore missing method required by SqueakTrunk CI job ==================== Snapshot ==================== SystemOrganization addCategory: #MonticelloConfigurations! (PackageInfo named: 'MonticelloConfigurations') postscript: '"below, add code to be run after the loading of this package" MCConfiguration upgradeIsMerge: Preferences upgradeIsMerge.'! MCTool subclass: #MCConfigurationBrowser instanceVariableNames: 'configuration dependencyIndex repositoryIndex' classVariableNames: '' poolDictionaries: '' category: 'MonticelloConfigurations'! !MCConfigurationBrowser commentStamp: 'dtl 5/10/2010 21:48' prior: 0! A MCConfigurationBrowser displays an MCConfiguration, and edits the configuration to add or remove package dependencies and repository specifications. It allows a configuration to be stored in a repository or posted to an update stream.! ----- Method: MCConfigurationBrowser class>>initialize (in category 'class initialization') ----- initialize TheWorldMenu registerOpenCommand: { 'Monticello Configurations' . { self . #open }. 'Monticello Configuration Browser' }.! ----- Method: MCConfigurationBrowser class>>open (in category 'opening') ----- open ^self new show! ----- Method: MCConfigurationBrowser>>addDependency (in category 'dependencies') ----- addDependency (self pickWorkingCopiesSatisfying: [:each | (self includesPackage: each package) not]) do: [:wc | wc ancestors isEmpty ifTrue: [self inform: 'You must save ', wc packageName, ' first!! Skipping this package'] ifFalse: [ self dependencies add: (MCVersionDependency package: wc package info: wc ancestors first)]]. self changed: #dependencyList; changed: #description! ----- Method: MCConfigurationBrowser>>addRepository (in category 'repositories') ----- addRepository (self pickRepositorySatisfying: [ : ea | (self repositories includes: ea) not ]) ifNotNil: [ : repo | repo class supportsConfigurations ifFalse: [ ^ self inform: 'Not all of these repositories support MCConfigurations.' ]. self repositories add: repo. self changed: #repositoryList ]! ----- Method: MCConfigurationBrowser>>buttonSpecs (in category 'morphic ui') ----- buttonSpecs ^ #(('Add' addDependency 'Add a dependency') ('Update' updateMenu 'Update dependencies') ('Install' installMenu 'Load/Merge/Upgrade into image') ('Up' up 'Move item up in list' canMoveUp) ('Down' down 'Move item down in list' canMoveDown) ('Remove' remove 'Remove item' canRemove) ('Store' store 'store configuration') ('Post' post 'Post this configuration to an update stream') )! ----- Method: MCConfigurationBrowser>>canMoveDown (in category 'testing') ----- canMoveDown ^self index between: 1 and: self maxIndex - 1 ! ----- Method: MCConfigurationBrowser>>canMoveUp (in category 'testing') ----- canMoveUp ^self index > 1! ----- Method: MCConfigurationBrowser>>canRemove (in category 'testing') ----- canRemove ^self index > 0! ----- Method: MCConfigurationBrowser>>changedButtons (in category 'selection') ----- changedButtons self changed: #canMoveDown. self changed: #canMoveUp. self changed: #canRemove.! ----- Method: MCConfigurationBrowser>>changedList (in category 'selection') ----- changedList self dependencyIndex > 0 ifTrue: [^self changed: #dependencyList]. self repositoryIndex > 0 ifTrue: [^self changed: #repositoryList]. self error: 'nothing selected'! ----- Method: MCConfigurationBrowser>>checkDependencies (in category 'dependencies') ----- checkDependencies ^self checkModified and: [self checkMissing]! ----- Method: MCConfigurationBrowser>>checkMissing (in category 'dependencies') ----- checkMissing | missing | missing := (self dependencies collect: [ : ea | ea versionInfo name ]) asSet. self repositories do: [ : eachRepository | eachRepository cacheAllFileNamesDuring: [ missing copy do: [ : eachVersionName | (eachRepository includesVersionNamed: eachVersionName) ifTrue: [ missing remove: eachVersionName ] ] ] ]. ^ missing isEmpty or: [ self selectDependency: missing anyOne. self confirm: (String streamContents: [ : strm | strm nextPutAll: 'No repository found for' ; cr. missing do: [ : r | strm nextPutAll: r ; cr ]. strm nextPutAll: 'Do you still want to store?' ]) ]! ----- Method: MCConfigurationBrowser>>checkModified (in category 'dependencies') ----- checkModified | modified | modified := self dependencies select: [:dep | dep isFulfilled and: [dep package workingCopy modified]]. ^modified isEmpty or: [ self selectDependency: modified anyOne. self confirm: (String streamContents: [:strm | strm nextPutAll: 'These packages are modified:'; cr. modified do: [:dep | strm nextPutAll: dep package name; cr]. strm nextPutAll: 'Do you still want to store?'])] ! ----- Method: MCConfigurationBrowser>>checkRepositories (in category 'repositories') ----- checkRepositories | bad | bad := self repositories reject: [:repo | repo class supportsConfigurations ]. ^bad isEmpty or: [ self selectRepository: bad first. self inform: (String streamContents: [:strm | strm nextPutAll: 'Please remove these repositories:'; cr. bad do: [:r | strm nextPutAll: r description; cr]. strm nextPutAll: '(only HTTP repositories are supported)']). false]. ! ----- Method: MCConfigurationBrowser>>checkRepositoryTemplates (in category 'repositories') ----- checkRepositoryTemplates "unused for now - we only do HTTP" | bad | bad := self repositories select: [:repo | repo creationTemplate isNil]. ^bad isEmpty or: [ self selectRepository: bad first. self inform: (String streamContents: [:strm | strm nextPutAll: 'Creation template missing for'; cr. bad do: [:r | strm nextPutAll: r description; cr]. strm nextPutAll: 'Please fill in the details first!!']). false]. ! ----- Method: MCConfigurationBrowser>>configuration (in category 'accessing') ----- configuration ^configuration ifNil: [configuration := MCConfiguration new]! ----- Method: MCConfigurationBrowser>>configuration: (in category 'accessing') ----- configuration: aConfiguration configuration := aConfiguration! ----- Method: MCConfigurationBrowser>>defaultExtent (in category 'morphic ui') ----- defaultExtent ^ 350@500! ----- Method: MCConfigurationBrowser>>dependencies (in category 'accessing') ----- dependencies ^self configuration dependencies ! ----- Method: MCConfigurationBrowser>>dependencies: (in category 'accessing') ----- dependencies: aCollection self configuration dependencies: aCollection. self changed: #dependencyList; changed: #description ! ----- Method: MCConfigurationBrowser>>dependencyIndex (in category 'selection') ----- dependencyIndex ^dependencyIndex ifNil: [0]! ----- Method: MCConfigurationBrowser>>dependencyIndex: (in category 'selection') ----- dependencyIndex: anInteger dependencyIndex := anInteger. dependencyIndex > 0 ifTrue: [self repositoryIndex: 0]. self changed: #dependencyIndex; changed: #description. self changedButtons.! ----- Method: MCConfigurationBrowser>>dependencyList (in category 'dependencies') ----- dependencyList ^self dependencies collect: [:dep | Text string: dep versionInfo name attributes: (Array streamContents: [:attr | dep isFulfilledByAncestors ifFalse: [attr nextPut: TextEmphasis bold] ifTrue: [dep isCurrent ifFalse: [attr nextPut: TextEmphasis italic]]. ])] ! ----- Method: MCConfigurationBrowser>>dependencyMenu: (in category 'morphic ui') ----- dependencyMenu: aMenu self fillMenu: aMenu fromSpecs: #(('add new dependency...' addDependency)). self selectedDependency ifNotNil: [ self fillMenu: aMenu fromSpecs: #( addLine ('remove this dependency' remove) ('update this dependency from image' updateSelectedDependencyFromImage) ('update this dependency from repositories' updateSelectedDependencyFromRepositories) )]. ^aMenu! ----- Method: MCConfigurationBrowser>>description (in category 'description') ----- description self selectedDependency ifNotNil: [:dep | ^ ('Package: ', dep package name, String cr, dep versionInfo summary) asText]. self selectedRepository ifNotNil: [:repo | ^repo creationTemplate ifNotNil: [repo creationTemplate asText] ifNil: [repo asCreationTemplate asText addAttribute: TextColor red]]. ^('A configuration is a set of particular versions of packages. These can be used to manage multiple dependencies amongst packages when an update requires changes to multiple packages. One stores the current configuration and then modifies the various packages needing modification. On load, the image will be updated to at least the versions in the current configuration, hence providing the support needed to load the new packages.\\To create a new configuration first load the most up-to-date configuration in your repository (e.g.', MCHttpRepository trunkUrlString, '), open that repository in the Monticello browser, scroll down to the "update" package, select the first entry in the list on the right hand side and click Browse, which will open the configuration in a new MCConfigurationBrowser. Then in the new MCConfigurationBrowser click Update, and choose "update all from image" from the pop-up menu. Click Store to save back to the repository. If required, one can add repositories to the browser to store the configuration in a different repository.') withCRs! ----- Method: MCConfigurationBrowser>>description: (in category 'description') ----- description: aText self selectedRepository ifNotNil: [:repo | | new | new := MCRepository readFrom: aText asString. (new class = repo class and: [new description = repo description]) ifTrue: [ repo creationTemplate: aText asString. self changed: #description] ifFalse: [ self inform: 'This does not match the previous definition!!' ] ]. ! ----- Method: MCConfigurationBrowser>>down (in category 'actions') ----- down self canMoveDown ifTrue: [ self list swap: self index with: self index + 1. self index: self index + 1. self changedList. ]. ! ----- Method: MCConfigurationBrowser>>includesPackage: (in category 'testing') ----- includesPackage: aPackage ^self dependencies anySatisfy: [:each | each package = aPackage]! ----- Method: MCConfigurationBrowser>>index (in category 'selection') ----- index ^self dependencyIndex max: self repositoryIndex! ----- Method: MCConfigurationBrowser>>index: (in category 'selection') ----- index: anInteger self dependencyIndex > 0 ifTrue: [^self dependencyIndex: anInteger]. self repositoryIndex > 0 ifTrue: [^self repositoryIndex: anInteger]. anInteger > 0 ifTrue: [self error: 'cannot select']! ----- Method: MCConfigurationBrowser>>installMenu (in category 'actions') ----- installMenu | action | action := UIManager default chooseFrom: #('load packages' 'merge packages' 'upgrade packages') values: #(#load #merge #upgrade). action ifNotNil: [self perform: action].! ----- Method: MCConfigurationBrowser>>list (in category 'selection') ----- list self dependencyIndex > 0 ifTrue: [^self dependencies]. self repositoryIndex > 0 ifTrue: [^self repositories]. ^#()! ----- Method: MCConfigurationBrowser>>load (in category 'actions') ----- load self configuration load. self changed: #dependencyList; changed: #description ! ----- Method: MCConfigurationBrowser>>maxIndex (in category 'selection') ----- maxIndex ^ self list size! ----- Method: MCConfigurationBrowser>>merge (in category 'actions') ----- merge self configuration merge. self changed: #dependencyList; changed: #description ! ----- Method: MCConfigurationBrowser>>pickName (in category 'morphic ui') ----- pickName | name | name := UIManager default request: 'Name (.', self configuration writerClass extension, ' will be appended):' initialAnswer: self configuration suggestedNameOfNextVersion. ^ name isEmpty ifFalse: [name]! ----- Method: MCConfigurationBrowser>>pickRepository (in category 'morphic ui') ----- pickRepository ^self pickRepositorySatisfying: [:ea | true] ! ----- Method: MCConfigurationBrowser>>pickRepositorySatisfying: (in category 'morphic ui') ----- pickRepositorySatisfying: aBlock | index list | list := MCRepositoryGroup default repositories select: aBlock. index := UIManager default chooseFrom: (list collect: [:ea | ea description]) title: 'Repository:'. ^ index = 0 ifFalse: [list at: index]! ----- Method: MCConfigurationBrowser>>pickWorkingCopiesSatisfying: (in category 'morphic ui') ----- pickWorkingCopiesSatisfying: aBlock | copies item | copies := (MCWorkingCopy allManagers select: aBlock) asSortedCollection: [:a :b | a packageName <= b packageName]. item := UIManager default chooseFrom: #('match ...'),(copies collect: [:ea | ea packageName]) lines: #(1) title: 'Package:'. item = 1 ifTrue: [ | pattern | pattern := UIManager default request: 'Packages matching:' initialAnswer: '*'. ^pattern isEmptyOrNil ifTrue: [#()] ifFalse: [ (pattern includes: $*) ifFalse: [pattern := '*', pattern, '*']. copies select: [:ea | pattern match: ea packageName]] ]. ^ item = 0 ifTrue: [#()] ifFalse: [{copies at: item - 1}]! ----- Method: MCConfigurationBrowser>>remove (in category 'actions') ----- remove self canRemove ifTrue: [ self list removeAt: self index. self changedList. self updateIndex. ]. ! ----- Method: MCConfigurationBrowser>>removeRepository (in category 'repositories') ----- removeRepository repositoryIndex > 0 ifTrue: [self repositories removeAt: repositoryIndex. repositoryIndex := 0. self changed: #repositoryList]! ----- Method: MCConfigurationBrowser>>repositories (in category 'accessing') ----- repositories ^ self configuration repositories! ----- Method: MCConfigurationBrowser>>repositories: (in category 'accessing') ----- repositories: aCollection ^self configuration repositories: aCollection ! ----- Method: MCConfigurationBrowser>>repositoryIndex (in category 'selection') ----- repositoryIndex ^repositoryIndex ifNil: [0]! ----- Method: MCConfigurationBrowser>>repositoryIndex: (in category 'selection') ----- repositoryIndex: anInteger repositoryIndex := anInteger. repositoryIndex > 0 ifTrue: [self dependencyIndex: 0]. self changed: #repositoryIndex; changed: #description. self changedButtons.! ----- Method: MCConfigurationBrowser>>repositoryList (in category 'repositories') ----- repositoryList ^self repositories collect: [:ea | ea description] ! ----- Method: MCConfigurationBrowser>>repositoryMenu: (in category 'morphic ui') ----- repositoryMenu: aMenu self fillMenu: aMenu fromSpecs: #(('add repository...' addRepository)). self selectedRepository ifNotNil: [ self fillMenu: aMenu fromSpecs: #(('remove repository' removeRepository))]. ^aMenu ! ----- Method: MCConfigurationBrowser>>selectDependency: (in category 'selection') ----- selectDependency: aDependency self dependencyIndex: (self dependencies indexOf: aDependency)! ----- Method: MCConfigurationBrowser>>selectRepository: (in category 'selection') ----- selectRepository: aRepository self repositoryIndex: (self repositories indexOf: aRepository)! ----- Method: MCConfigurationBrowser>>selectedDependency (in category 'dependencies') ----- selectedDependency ^ self dependencies at: self dependencyIndex ifAbsent: []! ----- Method: MCConfigurationBrowser>>selectedPackage (in category 'dependencies') ----- selectedPackage ^ self selectedDependency ifNotNil: [:dep | dep package]! ----- Method: MCConfigurationBrowser>>selectedRepository (in category 'repositories') ----- selectedRepository ^ self repositories at: self repositoryIndex ifAbsent: []! ----- Method: MCConfigurationBrowser>>store (in category 'actions') ----- store (self checkRepositories and: [self checkDependencies]) ifFalse: [^self]. self pickName ifNotNil: [:name | self configuration name: name. self pickRepository ifNotNil: [:repo | repo storeVersion: self configuration]].! ----- Method: MCConfigurationBrowser>>up (in category 'actions') ----- up self canMoveUp ifTrue: [ self list swap: self index with: self index - 1. self index: self index - 1. self changedList. ].! ----- Method: MCConfigurationBrowser>>updateFromImage (in category 'updating') ----- updateFromImage self configuration updateFromImage. self changed: #dependencyList; changed: #description ! ----- Method: MCConfigurationBrowser>>updateFromRepositories (in category 'updating') ----- updateFromRepositories self configuration updateFromRepositories. self changed: #dependencyList; changed: #description ! ----- Method: MCConfigurationBrowser>>updateIndex (in category 'selection') ----- updateIndex self index > 0 ifTrue: [self index: (self index min: self maxIndex)]! ----- Method: MCConfigurationBrowser>>updateMenu (in category 'actions') ----- updateMenu | action | action := UIManager default chooseFrom: #('update all from image' 'update all from repositories') values: #(#updateFromImage #updateFromRepositories). action ifNotNil: [self perform: action].! ----- Method: MCConfigurationBrowser>>updateSelectedDependencyFromImage (in category 'actions') ----- updateSelectedDependencyFromImage self configuration updateFromImage: self dependencyIndex. self changed: #dependencyList; changed: #description ! ----- Method: MCConfigurationBrowser>>updateSelectedDependencyFromRepositories (in category 'actions') ----- updateSelectedDependencyFromRepositories self configuration updateFromRepositories: self dependencyIndex. self changed: #dependencyList; changed: #description ! ----- Method: MCConfigurationBrowser>>upgrade (in category 'actions') ----- upgrade self configuration upgrade. self changed: #dependencyList; changed: #description ! ----- Method: MCConfigurationBrowser>>widgetSpecs (in category 'morphic ui') ----- widgetSpecs ^ #( ((buttonRow) (0 0 1 0) (0 0 0 defaultButtonPaneHeight)) ((listMorph:selection:menu: dependencyList dependencyIndex dependencyMenu:) (0 0 1 1) (0 defaultButtonPaneHeight 0 -180)) ((listMorph:selection:menu: repositoryList repositoryIndex repositoryMenu:) (0 1 1 1) (0 -180 0 -120)) ((textMorph: description) (0 1 1 1) (0 -120 0 0)) )! ----- Method: MCRepository class>>supportsConfigurations (in category '*monticelloconfigurations') ----- supportsConfigurations ^ false! RWBinaryOrTextStream subclass: #MCPseudoFileStream instanceVariableNames: 'localName' classVariableNames: '' poolDictionaries: '' category: 'MonticelloConfigurations'! !MCPseudoFileStream commentStamp: '<historical>' prior: 0! A pseudo file stream which can be used for updates.! ----- Method: MCPseudoFileStream>>localName (in category 'accessing') ----- localName ^localName! ----- Method: MCPseudoFileStream>>localName: (in category 'accessing') ----- localName: aString localName := aString! MCWriter subclass: #MCMcmWriter instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'MonticelloConfigurations'! !MCMcmWriter commentStamp: 'dtl 5/10/2010 22:20' prior: 0! An MCMcmWriter stores an MCConfiguration on a stream in the form of an array specification. ! ----- Method: MCMcmWriter class>>fileOut:on: (in category 'writing') ----- fileOut: aConfiguration on: aStream | inst | inst := self on: aStream. inst writeConfiguration: aConfiguration. inst close. ! ----- Method: MCMcmWriter class>>readerClass (in category 'accessing') ----- readerClass ^ MCMcmReader! ----- Method: MCMcmWriter>>close (in category 'writing') ----- close stream close! ----- Method: MCMcmWriter>>writeConfiguration: (in category 'writing') ----- writeConfiguration: aConfiguration stream nextPut: $(. aConfiguration repositories do: [:ea | stream cr. stream nextPutAll: 'repository '. (MCConfiguration repositoryToArray: ea) printElementsOn: stream]. aConfiguration dependencies do: [:ea | stream cr. stream nextPutAll: 'dependency '. (MCConfiguration dependencyToArray: ea) printElementsOn: stream]. stream nextPutAll: 'name '; nextPutAll: aConfiguration name printString. stream cr. stream nextPut: $). stream cr.! Object subclass: #MCConfiguration instanceVariableNames: 'name dependencies repositories log' classVariableNames: 'DefaultLog ExtraProgressInfo LogToFile UpgradeIsMerge' poolDictionaries: '' category: 'MonticelloConfigurations'! !MCConfiguration commentStamp: 'dtl 5/10/2010 23:03' prior: 0! An MCConfiguration specifies the configuration of a set of related Monticello packages. It maintains an ordered list of package versions and a list of repositories in which the packages may be found. An MCConfiguration may be filed out for storage as an array specification, and new instances can be created from a stored array specification. ! ----- Method: MCConfiguration class>>defaultLog (in category 'accessing') ----- defaultLog "Answer the default configuration log" ^DefaultLog! ----- Method: MCConfiguration class>>defaultLog: (in category 'accessing') ----- defaultLog: aStream "Set the default configuration log" DefaultLog := aStream.! ----- Method: MCConfiguration class>>dependencyFromArray: (in category 'converting') ----- dependencyFromArray: anArray ^MCVersionDependency package: (MCPackage named: anArray first) info: ( MCVersionInfo name: anArray second id: (UUID fromString: anArray third) message: nil date: nil time: nil author: nil ancestors: nil)! ----- Method: MCConfiguration class>>dependencyToArray: (in category 'converting') ----- dependencyToArray: aDependency ^ { aDependency package name . aDependency versionInfo name . aDependency versionInfo id asString }! ----- Method: MCConfiguration class>>extraProgressInfo (in category 'preferences') ----- extraProgressInfo "Answer true for additional progress info during load. With the newly added MC down/upload operations this seems unnecessary but some people might disagree, so let's leave it as a preference right now" <preference: 'Extra Progress Info' category: 'Monticello' description: 'If true, additional progress information is displayed when loading MC configurations (i.e., during updates)' type: #Boolean> ^ExtraProgressInfo ifNil:[false]! ----- Method: MCConfiguration class>>extraProgressInfo: (in category 'preferences') ----- extraProgressInfo: aBool "Whether to display for additional progress info during load." ExtraProgressInfo := aBool. ! ----- Method: MCConfiguration class>>fromArray: (in category 'instance creation') ----- fromArray: anArray | configuration | configuration := self new. anArray pairsDo: [:key :value | key = #repository ifTrue: [configuration repositories add: (self repositoryFromArray: value)]. key = #dependency ifTrue: [configuration dependencies add: (self dependencyFromArray: value)]. key = #name ifTrue: [configuration name: value]. ]. ^configuration! ----- Method: MCConfiguration class>>logToFile (in category 'preferences') ----- logToFile "Whether to log configuration info to files by default. If true, logs to a file named after the configuration (config.nn.log). If false, logs to the transcript." <preference: 'Log config info to disk' category: 'Monticello' description: 'If true, configuration information (such as change logs) are logged to disk instead of the Transcript. The log file is named after the configuration map (config.nn.log)' type: #Boolean> ^LogToFile ifNil:[true].! ----- Method: MCConfiguration class>>logToFile: (in category 'preferences') ----- logToFile: aBool "Whether to log configuration info to files by default. MCConfiguration logToFile: true. MCConfiguration logToFile: false. " LogToFile := aBool! ----- Method: MCConfiguration class>>repositoryFromArray: (in category 'converting') ----- repositoryFromArray: anArray ^ MCRepositoryGroup default repositories detect: [:repo | repo description = anArray first] ifNone: [ MCHttpRepository location: anArray first user: '' password: '']! ----- Method: MCConfiguration class>>repositoryToArray: (in category 'converting') ----- repositoryToArray: aRepository ^ {aRepository description}! ----- Method: MCConfiguration class>>upgradeIsMerge (in category 'preferences') ----- upgradeIsMerge "Answer true if you wish to merge upstream changes whenever you upgrade." <preference: 'Upgrade is merge' category: 'updates' description: 'When upgrading packages, use merge instead of load' type: #Boolean> ^UpgradeIsMerge ifNil: [true]! ----- Method: MCConfiguration class>>upgradeIsMerge: (in category 'preferences') ----- upgradeIsMerge: aBoolean UpgradeIsMerge := aBoolean.! ----- Method: MCConfiguration>>browse (in category 'actions') ----- browse (MCConfigurationBrowser new configuration: self) show! ----- Method: MCConfiguration>>cacheAllFileNamesDuring: (in category 'private') ----- cacheAllFileNamesDuring: aBlock ^ (repositories inject: aBlock into: [ :innerBlock :repository | [ repository cacheAllFileNamesDuring: innerBlock ] ]) value ! ----- Method: MCConfiguration>>changes (in category 'faking') ----- changes ^MCPatch operations: #()! ----- Method: MCConfiguration>>dependencies (in category 'accessing') ----- dependencies ^dependencies ifNil: [dependencies := OrderedCollection new]! ----- Method: MCConfiguration>>dependencies: (in category 'accessing') ----- dependencies: aCollection dependencies := aCollection! ----- Method: MCConfiguration>>depsSatisfying:versionDo:displayingProgress: (in category 'private') ----- depsSatisfying: selectBlock versionDo: verBlock displayingProgress: progressString | count selectedVersions cleanWorkingCopies | self cacheAllFileNamesDuring: [ self repositories do: [ :eachRepository | MCRepositoryGroup default addRepository: eachRepository ]. "First, download selected versions" count := 0. selectedVersions := OrderedCollection new. self withProgress: progressString in: self dependencies do: [ :dep | | verName repo | verName := dep versionInfo name. self class extraProgressInfo ifTrue: [ ProgressNotification signal: '' extra: 'Downloading ' , verName ]. repo := self repositories detect: [ :eachRepository | eachRepository includesVersionNamed: verName ] ifNone: [ self logError: 'Version ' , verName , ' not found in any repository'. self logError: 'Aborting'. ^ count ]. (selectBlock value: dep) ifTrue: [ | version | version := self versionNamed: verName for: dep from: repo. version ifNil: [ self logError: 'Could not download version ' , verName , ' from ' , repo description. self logError: 'Aborting'. ^ count ]. dep package workingCopy newRepositoryGroupIfDefault. "fix old working copies" dep package workingCopy repositoryGroup addRepository: repo. selectedVersions add: version]]. "Then, process only those definitions that moved from one package to another, to avoid order dependence" cleanWorkingCopies := MCWorkingCopy allManagers reject: [ :wc | wc modified ]. MCReorganizationPreloader preloadMovesBetween: selectedVersions. "Finally, load/merge selected versions" self withProgress: progressString in: selectedVersions do: [ :version | self logUpdate: version package with: version. self class extraProgressInfo ifTrue: [ ProgressNotification signal: '' extra: 'Installing ' , version info name ]. verBlock value: version. count := count + 1 ]. "Clean up packages made dirty by MCReorganizationPreloader" cleanWorkingCopies do: [ :wc | wc modified ifTrue: [wc checkModified] ]. ]. ^ count! ----- Method: MCConfiguration>>diffBaseFor: (in category 'private') ----- diffBaseFor: aDependency | wc | aDependency package hasWorkingCopy ifFalse: [^nil]. wc := aDependency package workingCopy. wc ancestors ifEmpty: [^nil]. ^wc ancestors first versionName! ----- Method: MCConfiguration>>fileName (in category 'accessing') ----- fileName ^ self name, '.', self writerClass extension ! ----- Method: MCConfiguration>>fileOutOn: (in category 'actions') ----- fileOutOn: aStream self writerClass fileOut: self on: aStream! ----- Method: MCConfiguration>>info (in category 'faking') ----- info ^MCVersionInfo new! ----- Method: MCConfiguration>>initialize (in category 'initialize') ----- initialize super initialize. log := DefaultLog.! ----- Method: MCConfiguration>>isCacheable (in category 'testing') ----- isCacheable ^false! ----- Method: MCConfiguration>>load (in category 'actions') ----- load ^self depsSatisfying: [:dep | dep isCurrent not] versionDo: [:ver | ver load] displayingProgress: 'loading packages' ! ----- Method: MCConfiguration>>log (in category 'accessing') ----- log "Answer the receiver's log. If no log exist use the default log" ^log ifNil: [ (name notNil and: [ self class logToFile ]) ifFalse: [ Transcript countOpenTranscripts = 0 ifTrue: [Transcript open]. ^Transcript ]. self log: ((FileStream fileNamed: self logFileName) setToEnd; yourself). log ]! ----- Method: MCConfiguration>>log: (in category 'accessing') ----- log: aStream log := aStream.! ----- Method: MCConfiguration>>logError: (in category 'private') ----- logError: aString self log cr; nextPutAll: 'ERROR: '; nextPutAll: aString; cr; flush. ! ----- Method: MCConfiguration>>logFileName (in category 'accessing') ----- logFileName ^self name, '-', (FileDirectory localNameFor: Smalltalk imageName), '.log' ! ----- Method: MCConfiguration>>logUpdate:with: (in category 'private') ----- logUpdate: aPackage with: aVersion self log cr; nextPutAll: '========== ', aVersion info name, ' =========='; cr; cr; nextPutAll: aVersion info message asString; cr; flush. aPackage hasWorkingCopy ifFalse: [^self]. aPackage workingCopy ancestors do: [:each | (aVersion info hasAncestor: each) ifTrue: [(aVersion info allAncestorsOnPathTo: each) do: [:ver | self log cr; nextPutAll: '>>> ', ver name, ' <<<'; cr; nextPutAll: ver message; cr; flush]]]! ----- Method: MCConfiguration>>logWarning: (in category 'private') ----- logWarning: aString self log cr; nextPutAll: 'WARNING: '; nextPutAll: aString; cr; flush. ! ----- Method: MCConfiguration>>merge (in category 'actions') ----- merge ^self depsSatisfying: [:dep | dep isFulfilledByAncestors not] versionDo: [:ver | ver merge] displayingProgress: 'merging packages' ! ----- Method: MCConfiguration>>mustMerge: (in category 'private') ----- mustMerge: aVersion "answer true if we have to do a full merge and false if we can simply load instead" | pkg wc current | (pkg := aVersion package) hasWorkingCopy ifFalse: [^false "no wc -> load"]. (wc := pkg workingCopy) modified ifTrue: [^true "modified -> merge"]. wc ancestors isEmpty ifTrue: [^true "no ancestor info -> merge"]. current := wc ancestors first. (aVersion info hasAncestor: current) ifTrue: [^false "direct descendant of wc -> load"]. "new branch -> merge" ^true! ----- Method: MCConfiguration>>name (in category 'accessing') ----- name ^name! ----- Method: MCConfiguration>>name: (in category 'accessing') ----- name: aString name := aString! ----- Method: MCConfiguration>>repositories (in category 'accessing') ----- repositories ^repositories ifNil: [repositories := OrderedCollection new]! ----- Method: MCConfiguration>>repositories: (in category 'accessing') ----- repositories: aCollection repositories := aCollection! ----- Method: MCConfiguration>>setSystemVersion (in category 'updating') ----- setSystemVersion "Set the current system version date to the latest date found in my configuration (or the associated working copy). Also set the highest update number to the sum of version numbers in my configuration." | versionNumbers versionDates | versionNumbers := self dependencies collect: [:d | (d versionInfo name copyAfterLast: $.) asInteger]. versionDates := self dependencies collect: [:d | d versionInfo date ifNil: [d package workingCopy ancestors first date]]. SystemVersion current date: versionDates max; highestUpdate: versionNumbers sum.! ----- Method: MCConfiguration>>suggestedNameOfNextVersion (in category 'private') ----- suggestedNameOfNextVersion "Suggest a name for the next version of this configuration. The format is assumed to be name-authorInitials.version. Automatically increments the version, takes author initials from Utilities." ^'{1}-{2}.{3}' format: { name ifNil: [ 'newConfiguration' ] ifNotNil: [ name asMCVersionName packageName ]. Utilities authorInitials. name ifNil: [ 1 ] ifNotNil: [ name asMCVersionName versionNumber + 1 ] }! ----- Method: MCConfiguration>>summary (in category 'accessing') ----- summary ^String streamContents: [:stream | self dependencies do: [:ea | stream nextPutAll: ea versionInfo name; cr ]]! ----- Method: MCConfiguration>>updateFromImage (in category 'updating') ----- updateFromImage self dependencies: (self dependencies collect: [:dep | dep package hasWorkingCopy ifTrue: [ dep package workingCopy in: [:wc | MCVersionDependency package: wc package info: wc ancestors first]] ifFalse: [dep]]). ! ----- Method: MCConfiguration>>updateFromImage: (in category 'updating') ----- updateFromImage: packageIndex | dep newDeps | dep := self dependencies at: packageIndex. newDeps := self dependencies copy. newDeps at: packageIndex put: (dep package hasWorkingCopy ifTrue: [dep package workingCopy in: [:wc | MCVersionDependency package: wc package info: wc ancestors first]] ifFalse: [dep]). self dependencies: newDeps. ! ----- Method: MCConfiguration>>updateFromRepositories (in category 'updating') ----- updateFromRepositories self cacheAllFileNamesDuring: [ self updateFromRepositoriesWithoutCaching ]! ----- Method: MCConfiguration>>updateFromRepositories: (in category 'updating') ----- updateFromRepositories: packageIndex self cacheAllFileNamesDuring: [ self updateFromRepositoriesWithoutCaching: packageIndex ]! ----- Method: MCConfiguration>>updateFromRepositoriesWithoutCaching (in category 'updating') ----- updateFromRepositoriesWithoutCaching | oldNames newNames sortedNames newDeps | oldNames := self dependencies collect: [:dep | dep versionInfo versionName]. newNames := Dictionary new. self repositories do: [:repo | ProgressNotification signal: '' extra: 'Checking ', repo description. (repo possiblyNewerVersionsOfAnyOf: oldNames) do: [:newName | newNames at: newName put: repo]] displayingProgress: 'Searching new versions'. sortedNames := newNames keys asArray sort: [:a :b | a versionNumber > b versionNumber]. newDeps := OrderedCollection new: self dependencies size. self dependencies do: [:dep | newDeps add: (sortedNames detect: [:each | each packageAndBranchName = dep packageAndBranchName] ifFound: [ :newName | | repo | repo := newNames at: newName. (self versionInfoNamed: newName for: dep from: repo) ifNil: [ dep ] ifNotNil: [ :info | MCVersionDependency package: dep package info: info ] ] ifNone: [ dep ]) ] displayingProgress: 'downloading new versions'. self dependencies: newDeps. ! ----- Method: MCConfiguration>>updateFromRepositoriesWithoutCaching: (in category 'updating') ----- updateFromRepositoriesWithoutCaching: packageIndex | oldNames newNames sortedNames newDeps dep | dep := dependencies at: packageIndex. oldNames := {dep versionInfo versionName}. newNames := Dictionary new. self repositories do: [:repo | ProgressNotification signal: '' extra: 'Checking ', repo description. (repo possiblyNewerVersionsOfAnyOf: oldNames) do: [:newName | newNames at: newName put: repo]] displayingProgress: 'Searching new versions'. sortedNames := newNames keys asArray sort: [:a :b | a versionNumber > b versionNumber]. newDeps := self dependencies copy. newDeps at: packageIndex put: ( sortedNames detect: [:each | each packageAndBranchName = dep packageAndBranchName] ifFound: [ :newName | | repo | repo := newNames at: newName. (self versionInfoNamed: newName for: dep from: repo) ifNil: [ dep ] ifNotNil: [ :info | MCVersionDependency package: dep package info: info ] ] ifNone: [ dep ]). self dependencies: newDeps. ! ----- Method: MCConfiguration>>upgrade (in category 'actions') ----- upgrade ^self depsSatisfying: [:dep | dep isFulfilledByAncestors not] versionDo: [:ver | (self class upgradeIsMerge and: [ver shouldMerge]) ifFalse: [ver load] ifTrue: [[ver merge] on: MCNoChangesException do: [:req| req resume ] on: MCMergeResolutionRequest do: [:request | request merger conflicts isEmpty ifTrue: [request resume: true] ifFalse: [request pass]]]] displayingProgress: 'upgrading packages'! ----- Method: MCConfiguration>>versionInfoNamed:for:from: (in category 'private') ----- versionInfoNamed: newName for: dep from: repo "Retrieves the version info instead of the version. Searches in-image first, in case the desired version is part of an already loaded package (usual case when doing a partial update). If not present defaults to versionNamed:for:from: an uses its result." MCWorkingCopy registry at: dep package ifPresent:[:workingCopy| | seen | "Don't use allAncestorsDo: - apparently this can loop indefinitely. Rather keep track of the versions that we've seen and make sure we don't loop." seen := Set new. workingCopy ancestry ancestorsDoWhileTrue:[:vInfo| vInfo name = newName ifTrue:[^vInfo]. (seen includes: vInfo) ifTrue:[false] ifFalse:[seen add: vInfo. false] ]. ]. ^(self versionNamed: newName for: dep from: repo) info! ----- Method: MCConfiguration>>versionNamed:for:from: (in category 'private') ----- versionNamed: aMCVersionName for: aDependency from: repo | baseName fileName ver | (repo filterFileNames: repo cachedFileNames forVersionNamed: aMCVersionName) ifNotEmptyDo: [:cachedNames | fileName := cachedNames anyOne. self class extraProgressInfo ifTrue:[ProgressNotification signal: '' extra: 'Using cached ', fileName]. ver := repo versionNamed: fileName]. ver ifNil: [ baseName := self diffBaseFor: aDependency. (baseName notNil and: [baseName ~= aMCVersionName and: [repo includesVersionNamed: baseName]]) ifTrue: [ fileName := (MCDiffyVersion nameForVer: aMCVersionName base: baseName), '.mcd'. self class extraProgressInfo ifTrue:[ProgressNotification signal: '' extra: 'Downloading ', fileName]. ver := [repo versionNamed: fileName] ifError: []]]. ver ifNil: [ fileName := aMCVersionName versionName, '.mcz'. self class extraProgressInfo ifTrue:[ProgressNotification signal: '' extra: 'Downloading ', fileName]. ver := repo versionNamed: fileName]. ^ver! ----- Method: MCConfiguration>>withProgress:in:do: (in category 'private') ----- withProgress: progressString in: aCollection do: aBlock ^self class extraProgressInfo ifTrue: [ aCollection do: aBlock displayingProgress: progressString ] ifFalse: [ aCollection do: aBlock ] ! ----- Method: MCConfiguration>>writerClass (in category 'accessing') ----- writerClass ^ MCMcmWriter ! Object subclass: #MCMcmUpdater instanceVariableNames: 'updateMapName lastUpdateMap' classVariableNames: 'DefaultUpdateURL LastUpdateMap SkipPackages UpdateFromServerAtStartup UpdateMapName UpdateMissingPackages Updaters' poolDictionaries: '' category: 'MonticelloConfigurations'! !MCMcmUpdater commentStamp: 'dtl 5/4/2015 16:03' prior: 0! MCMcmUpdater provides utility methods for updating Monticello packages from Monticello configurations. When Monticello configurations are stored in a repository (or repositories), MCMcmUpdater acts as an update stream. It first ensures that each configuration map has been loaded in sequence, then updates the last configuration map to the most recent version for each specified package, and finally loads these versions to produce a fully updated configuration. Currently if a set of packages are unloaded from the image, using this class to reload them may cause problems, depending on what dependencies those classes have. Success is not assured. Removing packages via SmalltalkImage>>unloadAllKnownPackages will be successful, it flags the packages removed so that they are not loaded by this utility. If you wish to not have MCMcmUpdater update packages, there are two ways to handle this: 1) To have MCMcmUpdater not update any packages not currently in the image set the UpdateMissingPackages preference to false: MCMcmUpdater updateMissingPackages: false Note that any new packages added to the repositories will not be picked up when this is turned off. 2) To have MCMcmUpdater not update a specific package, evaluate MCMcmUpdater disableUpdatesOfPackage: <packageName> Class Variables definitions: DefaultUpdateURL - String: the URL that will be checked by default for updates. This would be set for a common standard location to check. Updaters - A dictionary of MCMcmUpdater instances keyed by repository URL. SkipPackages - Set of Strings: names of packages to not update in MCMcmUpdater (empty by default). UpdateMissingPackages - Boolean: if true (default), new packages in the update config map will be loaded unless they are in SkipPackages. If false, packages not currently loaded in the image will not be loaded by MCMcmUpdater. (This can be dangerous if packages are split - use at your own risk). Instance Variables: updateMapName - Base name of the files used for this updater, typically a name such as 'update' or 'update.spur'. lastUpdateMap - Dictionary of Integer: version number of the last loaded update map per repository. Keeps track of the last configuration map, so that the utility will not have to run through the full history in the repositories each time you ask to update. ! ----- Method: MCMcmUpdater class>>default (in category 'instance creation') ----- default "The default instance for system updates. Uses a default update map name that may be set as a preference to enable a specific update stream for a repository." ^ self updaters at: self defaultUpdateURL ifAbsentPut: [self updateMapName: self updateMapName]! ----- Method: MCMcmUpdater class>>defaultBaseName (in category 'updating') ----- defaultBaseName "If not otherwise specified, look for update maps with this base name" ^ 'update'! ----- Method: MCMcmUpdater class>>defaultUpdateURL (in category 'preferences') ----- defaultUpdateURL "The default update repository URL" <preference: 'Update URL' category: 'updates' description: 'The repository URL for loading updates' type: #String> ^DefaultUpdateURL ifNil:['']! ----- Method: MCMcmUpdater class>>defaultUpdateURL: (in category 'preferences') ----- defaultUpdateURL: aString "The default update repository URL" DefaultUpdateURL := aString! ----- Method: MCMcmUpdater class>>disableUpdatesOfPackage: (in category 'preferences') ----- disableUpdatesOfPackage: packageName self skipPackages add: packageName! ----- Method: MCMcmUpdater class>>enableUpdatesForAllPackages (in category 'preferences') ----- enableUpdatesForAllPackages SkipPackages := Set new! ----- Method: MCMcmUpdater class>>enableUpdatesOfPackage: (in category 'preferences') ----- enableUpdatesOfPackage: packageName self skipPackages remove: packageName ifAbsent: [].! ----- Method: MCMcmUpdater class>>initialize (in category 'class initialization') ----- initialize "MCMcmUpdater initialize" LastUpdateMap ifNil:[ LastUpdateMap := Dictionary new. ]. DefaultUpdateURL ifNil:[ DefaultUpdateURL := MCHttpRepository trunkUrlString. ]. Updaters := nil. self flag: #FIXME. "The next line is to faciliate updating from class-side methods to instance based. Building a new default update map is very time consuming, so do not do it. Delete this after the transition is complete. Also delete class var LastUpdateMap and its initialization above. -dtl May 2015" LastUpdateMap ifNotNil: [ self default lastUpdateMap: LastUpdateMap ] ! ----- Method: MCMcmUpdater class>>skipPackages (in category 'preferences') ----- skipPackages ^SkipPackages ifNil: [SkipPackages := Set new]! ----- Method: MCMcmUpdater class>>updateFromDefaultRepository (in category 'updating') ----- updateFromDefaultRepository "Update from the default repository only" ^ self default updateFromDefaultRepository ! ----- Method: MCMcmUpdater class>>updateFromRepositories: (in category 'updating') ----- updateFromRepositories: repositoryUrls "MCMcmUpdater updateFromRepositories: #( 'http://squeaksource.com/MCUpdateTest' )" ^ self default updateFromRepositories: repositoryUrls! ----- Method: MCMcmUpdater class>>updateFromRepositories:using:baseName: (in category 'updating') ----- updateFromRepositories: repositoryUrls using: updaterUrlKey baseName: baseName "Update all repositoryUrls using an MCMcmUpdater identified by updaterUrlKey, and using update map baseName" ^ (self updateMapName: baseName repository: updaterUrlKey) updateFromRepositories: repositoryUrls! ----- Method: MCMcmUpdater class>>updateFromRepository: (in category 'updating') ----- updateFromRepository: updaterUrlKey "Update using an MCMcmUpdater identified by updaterUrlKey using the default update map baseName" ^ self updateFromRepository: updaterUrlKey baseName: self defaultBaseName ! ----- Method: MCMcmUpdater class>>updateFromRepository:baseName: (in category 'updating') ----- updateFromRepository: updaterUrlKey baseName: baseName "Update using an MCMcmUpdater identified by updaterUrlKey, and using update map baseName" ^ (self updateMapName: baseName repository: updaterUrlKey) updateFrom: updaterUrlKey! ----- Method: MCMcmUpdater class>>updateFromServer (in category 'updating') ----- updateFromServer "Update the image by loading all pending updates from the server." ^self default updateFrom: self defaultUpdateURL ! ----- Method: MCMcmUpdater class>>updateFromServerAtStartup (in category 'preferences') ----- updateFromServerAtStartup <preference: 'Update from server at startup' category: 'updates' description: 'If true, the system will check for and load any available updates.' type: #Boolean> ^ UpdateFromServerAtStartup ifNil: [false].! ----- Method: MCMcmUpdater class>>updateFromServerAtStartup: (in category 'preferences') ----- updateFromServerAtStartup: aBool "Whether to update the image on startup." UpdateFromServerAtStartup := aBool.! ----- Method: MCMcmUpdater class>>updateMapName (in category 'preferences') ----- updateMapName "Name for update map, without version info" <preference: 'Update map name' category: 'updates' description: 'Base name for the update maps' type: #String> ^UpdateMapName ifNil: ['update']! ----- Method: MCMcmUpdater class>>updateMapName: (in category 'instance creation') ----- updateMapName: baseName "Answer a new instance with a base update name baseName such as 'update' or 'update.oscog' " ^ self new updateMapName: baseName! ----- Method: MCMcmUpdater class>>updateMapName:repository: (in category 'instance creation') ----- updateMapName: baseName repository: url "Answer an instance for the given repository URL with a base update name baseName. The instance will be updated in the Updaters dictionary if baseName has changed." | updater | updater := self updaters at: url ifAbsentPut: [ self updateMapName: baseName ]. updater updateMapName = baseName ifFalse: [ ^ self updaters at: url put: (self updateMapName: baseName )]. ^ updater ! ----- Method: MCMcmUpdater class>>updateMissingPackages (in category 'preferences') ----- updateMissingPackages "Whether to update missing (unloaded) packages" <preference: 'Update missing package' category: 'updates' description: 'If true, missing (unloaded) packages will be loaded during the update process.' type: #Boolean> ^UpdateMissingPackages ifNil:[true]! ----- Method: MCMcmUpdater class>>updateMissingPackages: (in category 'preferences') ----- updateMissingPackages: aBool "Whether to update missing (unloaded) packages" UpdateMissingPackages := aBool.! ----- Method: MCMcmUpdater class>>updaters (in category 'accessing') ----- updaters "A dictionary of updaters, including the system default, indexed by repository URL" ^ Updaters ifNil: [ Updaters := Dictionary new ]! ----- Method: MCMcmUpdater>>lastUpdateMap (in category 'accessing') ----- lastUpdateMap ^ lastUpdateMap ifNil: [ lastUpdateMap := Dictionary new ] ! ----- Method: MCMcmUpdater>>lastUpdateMap: (in category 'accessing') ----- lastUpdateMap: aDictionary lastUpdateMap := aDictionary ! ----- Method: MCMcmUpdater>>refreshUpdateMapFor:with: (in category 'updating') ----- refreshUpdateMapFor: r with: updateList "Update the lastUpdateMap and answer a possibly reduced updateList" | config | (lastUpdateMap at: r description ifAbsent: [0]) = 0 ifTrue: [ "No update has ever been loaded from this repo. If no package is present in the image either, we can skip right to the latest config" config := r versionNamed: updateList last value. (config dependencies anySatisfy: [:dep | dep package hasWorkingCopy]) ifFalse: [(self useLatestPackagesFrom: r) ifTrue: [lastUpdateMap at: r description put: updateList last key]. updateList isEmpty ifTrue: [^ #()] ifFalse: [^ updateList last: 1]]]. ^ updateList ! ----- Method: MCMcmUpdater>>skipPackages (in category 'private') ----- skipPackages ^SkipPackages ifNil: [SkipPackages := Set new]! ----- Method: MCMcmUpdater>>updateFrom: (in category 'updating') ----- updateFrom: url "Update the image by loading all pending updates from the server." | config | "Flush all caches. If a previous download failed this is often helpful" MCFileBasedRepository flushAllCaches. config := self updateFromRepositories: { url }. config ifNil: [^self inform: 'Unable to retrieve updates from remote repository.' translated]. config setSystemVersion. self inform: ('Update completed. Current update number: ' translated, SystemVersion current highestUpdate).! ----- Method: MCMcmUpdater>>updateFromConfig: (in category 'updating') ----- updateFromConfig: config "Skip packages that were specifically unloaded" config dependencies: (config dependencies reject: [:dep| self class skipPackages includes: dep package name]). self class updateMissingPackages ifFalse:[ "Skip packages that are not in the image" config dependencies: (config dependencies select: [:dep| dep package hasWorkingCopy])]. (config dependencies allSatisfy:[:dep| dep isFulfilled]) ifFalse:[config upgrade]. ! ----- Method: MCMcmUpdater>>updateFromDefaultRepository (in category 'updating') ----- updateFromDefaultRepository "Update from the default repository only" ^self updateFromRepositories: {self class defaultUpdateURL}! ----- Method: MCMcmUpdater>>updateFromRepositories: (in category 'updating') ----- updateFromRepositories: repositoryUrls "MCMcmUpdater updateFromRepositories: #( 'http://squeaksource.com/MCUpdateTest' )" | repos config | MCConfiguration upgradeIsMerge: true. "The list of repositories to consult in order" repos := repositoryUrls collect:[:url| MCRepositoryGroup default repositories detect:[:r| r description = url] ifNone:[ | r | r := MCHttpRepository location: url user: '' password: ''. MCRepositoryGroup default addRepository: r. r]]. "The list of updates-author.version.mcm sorted by version" repos do:[ :r | config := self updateFromRepository: r ]. ^config! ----- Method: MCMcmUpdater>>updateFromRepository: (in category 'updating') ----- updateFromRepository: repository | config | repository cacheAllFileNamesDuring: [ | updateList | updateList := self updateListFor: repository. "Proceed only if there are updates available at all." updateList ifNotEmpty: [ updateList := self refreshUpdateMapFor: repository with: updateList. "Now process each update file. Check if we have all dependencies and if not, load the entire configuration (this is mostly to skip older updates quickly)" updateList do:[:assoc| ProgressNotification signal: '' extra: 'Processing ', assoc value. config := repository versionNamed: assoc value. self updateFromConfig: config. self lastUpdateMap at: repository description put: assoc key. ] displayingProgress: 'Processing configurations'. "We've loaded all the provided update configurations. Use the latest configuration to update all the remaining packages." (self useLatestPackagesFrom: repository) ifTrue: [ config updateFromRepositories. config upgrade]. ]]. ^ config ! ----- Method: MCMcmUpdater>>updateListFor: (in category 'private') ----- updateListFor: repo | updateList allNames minVersion | updateList := OrderedCollection new. minVersion := self lastUpdateMap at: repo description ifAbsent: [0]. "Find all the update-*.mcm files" allNames := 'Checking ', repo description displayProgressFrom: 0 to: 1 during: [:bar| bar value: 0. repo allFileNamesOrCache ]. allNames do: [:fileName | | version | ((fileName endsWith: '.mcm') and: [fileName packageAndBranchName = self updateMapName and: [(version := fileName versionNumber) >= minVersion]]) ifTrue: [updateList add: version -> fileName]]. ^updateList sort! ----- Method: MCMcmUpdater>>updateMapName (in category 'accessing') ----- updateMapName "Name for update map, without version info" ^ updateMapName ifNil: [updateMapName := self class updateMapName]! ----- Method: MCMcmUpdater>>updateMapName: (in category 'accessing') ----- updateMapName: aString "Name for update map, without version info" updateMapName := aString! ----- Method: MCMcmUpdater>>useLatestPackagesFrom: (in category 'private') ----- useLatestPackagesFrom: repo "for overriding on a per repository basis" ^true! ----- Method: MCFileBasedRepository class>>supportsConfigurations (in category '*monticelloconfigurations') ----- supportsConfigurations ^ true! MCVersionReader subclass: #MCMcmReader instanceVariableNames: 'fileName configuration' classVariableNames: '' poolDictionaries: '' category: 'MonticelloConfigurations'! !MCMcmReader commentStamp: 'dtl 5/10/2010 22:22' prior: 0! A MCMcmReader creates an MCConfiguration by reading an array specification from a stream. ! ----- Method: MCMcmReader class>>extension (in category 'accessing') ----- extension ^ 'mcm'! ----- Method: MCMcmReader class>>loadVersionFile: (in category 'instance creation') ----- loadVersionFile: fileName | version | version := self versionFromFile: fileName. version load. ! ----- Method: MCMcmReader class>>on:fileName: (in category 'instance creation') ----- on: aStream fileName: aFileName | reader | reader := self on: aStream. reader fileName: aFileName. ^reader! ----- Method: MCMcmReader>>configuration (in category 'accessing') ----- configuration configuration ifNil: [self loadConfiguration]. "browser modifies configuration, but the reader might get cached" ^configuration copy! ----- Method: MCMcmReader>>fileName: (in category 'accessing') ----- fileName: aString fileName := aString! ----- Method: MCMcmReader>>loadConfiguration (in category 'accessing') ----- loadConfiguration stream reset. configuration := MCConfiguration fromArray: (MCScanner scan: stream). configuration name ifNil: [ configuration name: self parseNameFromFilename ]! ----- Method: MCMcmReader>>loadVersionInfo (in category 'accessing') ----- loadVersionInfo info := self configuration! ----- Method: MCMcmReader>>parseNameFromFilename (in category 'accessing') ----- parseNameFromFilename ^fileName ifNotNil: [(fileName findTokens: '/\:') last copyUpToLast: $.]! ----- Method: MCMcmReader>>version (in category 'accessing') ----- version ^self configuration!

1 0

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

Jump to page: