Squeak-dev November 2018

squeak-dev@lists.squeakfoundation.org

48 participants
94 discussions

Start a nNew thread

Seems mighty quiet around here
by Bruce O'Neel 14 Nov '18

14 Nov '18

Hi, Did something break? It seems mighty quiet in these parts. cheers bruce

4 6

The Inbox: Installer-Core-cmm.427.mcz
by commits＠source.squeak.org 14 Nov '18

14 Nov '18

Chris Muller uploaded a new version of Installer-Core to project The Inbox: http://source.squeak.org/inbox/Installer-Core-cmm.427.mcz ==================== Summary ==================== Name: Installer-Core-cmm.427 Author: cmm Time: 9 November 2018, 1:46:00.513629 pm UUID: 080be346-3724-453d-ab98-190199cc236f Ancestors: Installer-Core-cmm.424 If an explicit MC version is specified for Installer, load that version. Otherwise load the most recent version of the applicable package or package branch. =============== Diff against Installer-Core-cmm.424 =============== Item was removed: - ----- Method: InstallerMonticello>>mcDetectFileBlock: (in category 'monticello') ----- - mcDetectFileBlock: pkg - - pkg isString ifTrue: [ ^ [ :aMCVersionName | - (pkg beginsWith: aMCVersionName packageAndBranchName) and: [aMCVersionName beginsWith: pkg ] ] ]. - - (pkg isKindOf: Array) - ifTrue: [ ^ [ :aMCVersionName | pkg anySatisfy: [ :item | - (item beginsWith: aMCVersionName packageAndBranchName) and: [aMCVersionName beginsWith: item ] ] ] ]. - - pkg isBlock ifTrue: [ ^ pkg ]. - ! Item was changed: ----- Method: InstallerMonticello>>mcThing (in category 'monticello') ----- mcThing | loader | loader := self classMCVersionLoader new. "several attempts to read files - repository readableFileNames sometimes fails" self packages + do: [:pkg | + | mcVersion versionNames sortedVersions fileToLoad version | + mcVersion := pkg asMCVersionName . - do: [:pkg | - | versionNames fileToLoad version | versionNames := mc versionNamesForPackageNamed: + (mcVersion versionNumber = 0 - (pkg asMCVersionName versionNumber = 0 ifTrue: [ "Just a package name specified, use it whole." pkg ] + ifFalse: [mcVersion packageName]). + sortedVersions := versionNames sorted: self mcSortFileBlock. + fileToLoad := self versionToLoad: mcVersion fromVersions: sortedVersions. - ifFalse: [pkg asMCVersionName packageName]). - fileToLoad := (versionNames sorted: self mcSortFileBlock) - detect: (self mcDetectFileBlock: pkg) - ifNone: [ nil ]. fileToLoad ifNotNil: [version := mc versionNamed: fileToLoad. (version isKindOf: MCConfiguration) ifTrue: [^ version] ifFalse: [self normalizedRepositories do: [:repo | MCRepositoryGroup default addRepository: repo]. self normalizedRepositories do: [:repo | version workingCopy repositoryGroup addRepository: repo]. loader addVersion: version]. self logCR: ' found ' , version fileName , '...']]. ^ loader! Item was added: + ----- Method: InstallerMonticello>>versionToLoad:fromVersions: (in category 'monticello') ----- + versionToLoad: mcVersion fromVersions: sortedVersions + "From a list of sortedVersions, answer the most recent version or the + exact version if explicitly specified." + ^ sortedVersions + detect: [:aMCVersionName | aMCVersionName = mcVersion "explicit version specified"] + ifNone: [sortedVersions + detect: [:aMCVersionName | (mcVersion beginsWith: aMCVersionName packageAndBranchName) + and: [aMCVersionName beginsWith: mcVersion "most recent version that matches"]] + ifNone: []]!

4 6

The Inbox: SMLoader-cmm.93.mcz
by commits＠source.squeak.org 13 Nov '18

13 Nov '18

Chris Muller uploaded a new version of SMLoader to project The Inbox: http://source.squeak.org/inbox/SMLoader-cmm.93.mcz ==================== Summary ==================== Name: SMLoader-cmm.93 Author: cmm Time: 12 November 2018, 9:32:37.990598 pm UUID: f8100409-b6fa-45f5-ad2a-acc81a6f614a Ancestors: SMLoader-cmm.91 - Allow releases which are not necessarily published to be selected when the UI selection was at the package level. - Fix the problem of Release scripts seemingly not updating, due to not refreshing the local cache after uploading the script to the server. =============== Diff against SMLoader-cmm.91 =============== Item was changed: ----- Method: SMLoader>>installPackageRelease (in category 'actions') ----- installPackageRelease "Install selected package or release. The cache is used." | item release | item := self selectedPackageOrRelease ifNil: [^ nil]. item isPackageRelease ifTrue: [^ self installPackageRelease: item] + ifFalse: [release := item lastReleaseForCurrentSystemVersion. - ifFalse: [release := item lastPublishedReleaseForCurrentSystemVersion. release ifNil: [(self confirm: 'The package has no published release for your Squeak version, try releases for any Squeak version?') ifTrue: [release := item lastPublishedRelease. release ifNil: [(self confirm: 'The package has no published release at all, take the latest of the unpublished releases?') ifTrue: [release := item lastRelease]]]]. release ifNotNil: [^ self installPackageRelease: release]]! Item was changed: ----- Method: SMLoaderPlus>>installPackageRelease (in category 'actions') ----- installPackageRelease "Install selected package or release. The cache is used." | item release | item := self selectedPackageOrRelease ifNil: [^ nil]. item isPackageRelease ifTrue: [^ self installPackageRelease: item] + ifFalse: [release := item lastReleaseForCurrentSystemVersion. - ifFalse: [release := item lastPublishedReleaseForCurrentSystemVersion. release ifNil: [(self confirm: 'The package has no published release for your Squeak version, try releases for any Squeak version?') ifTrue: [release := item lastPublishedRelease. release ifNil: [(self confirm: 'The package has no published release at all, take the latest of the unpublished releases?') ifTrue: [release := item lastRelease]]]]. release ifNotNil: [^ self installPackageRelease: release]]! Item was changed: ----- Method: SMReleaseBrowser>>save (in category 'initialize-release') ----- save "Save the release to SqueakMap." Cursor wait showWhile: [ self dependents do: [ : eachWidget | #(#username #password #note #version #content ) do: [ : eachName | eachWidget knownName = eachName ifTrue: [ eachWidget hasUnacceptedEdits ifTrue: [ eachWidget accept ] ] ] ]. self validateCanSave. [ self writeInstallFile ; login. "Save without a downloadUrl so that SM will update its cache and we can also verify success before uploading the file." self savePackageRelease: nil. self loadScript isEmptyOrNil ifFalse: [ self uploadInstallFile. release package addRelease: release. "Now save with the correct downloadUrl." self savePackageRelease: self downloadUrl ; + deleteInstallFile ] ] ensure: [ self logout ]. + release refreshInCache ]. - deleteInstallFile ] ] ensure: [ self logout ] ]. self closeWindow!

1 0

The Trunk: Kernel-eem.1195.mcz
by commits＠source.squeak.org 12 Nov '18

12 Nov '18

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1195.mcz ==================== Summary ==================== Name: Kernel-eem.1195 Author: eem Time: 11 November 2018, 7:06:29.274108 pm UUID: 4269620a-8eb7-4581-a65a-33bf2ea1aa10 Ancestors: Kernel-eem.1194 Eliminate a confusing shadowing in Context>>send:super:numArgs: =============== Diff against Kernel-eem.1194 =============== Item was changed: ----- Method: Context>>send:super:numArgs: (in category 'instruction decoding') ----- send: selector super: superFlag numArgs: numArgs "Simulate the action of bytecodes that send a message with selector, + selector. The argument, superFlag, tells whether the receiver of the + message was specified with 'super' in the source method. The arguments + of the message are found in the top numArgs locations on the stack and + the receiver just below them." - selector. The argument, superFlag, tells whether the receiver of the - message was specified with 'super' in the source method. The arguments - of the message are found in the top numArgs locations on the stack and - the receiver just below them." + | thisReceiver arguments lookupClass | - | receiver arguments lookupClass | arguments := Array new: numArgs. numArgs to: 1 by: -1 do: [ :i | arguments at: i put: self pop]. + thisReceiver := self pop. - receiver := self pop. lookupClass := superFlag ifTrue: [method methodClassAssociation value superclass] + ifFalse: [self objectClass: thisReceiver]. - ifFalse: [self objectClass: receiver]. QuickStep == self ifTrue: [QuickStep := nil. + ^self quickSend: selector to: thisReceiver with: arguments lookupIn: lookupClass]. + ^self send: selector to: thisReceiver with: arguments lookupIn: lookupClass! - ^self quickSend: selector to: receiver with: arguments lookupIn: lookupClass]. - ^self send: selector to: receiver with: arguments lookupIn: lookupClass!

2 1

The Trunk: Kernel-eem.1194.mcz
by commits＠source.squeak.org 12 Nov '18

12 Nov '18

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1194.mcz ==================== Summary ==================== Name: Kernel-eem.1194 Author: eem Time: 11 November 2018, 3:08:37.497128 pm UUID: 6821fe5c-df17-4033-90f2-6163e6382b81 Ancestors: Kernel-eem.1193 ensureClassPool is /much/ nicer to use if it answers the class pool =============== Diff against Kernel-eem.1193 =============== Item was changed: ----- Method: Class>>ensureClassPool (in category 'class variables') ----- ensureClassPool + ^classPool ifNil: [classPool := Dictionary new].! - classPool ifNil: [classPool := Dictionary new].!

1 0

The Trunk: System-eem.1046.mcz
by commits＠source.squeak.org 11 Nov '18

11 Nov '18

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.1046.mcz ==================== Summary ==================== Name: System-eem.1046 Author: eem Time: 9 November 2018, 8:46:04.222224 pm UUID: 98d1a376-957e-40fd-ba0f-9e4893defad2 Ancestors: System-eem.1045 Add accessors for the sendMouseWheelEvents flag that instructs the VM to send mouse wheel events as mouse wheel events, not keynboard arrow keys. Needs an up-to-date VM (and on WIndows needs the VM code to be written). Fix a typo =============== Diff against System-eem.1045 =============== Item was changed: ----- Method: SmalltalkImage>>processHasThreadIdInstVar: (in category 'system attributes') ----- processHasThreadIdInstVar: aBoolean "The threaded VM needs to know if the 4th inst var of Process is threadId which it uses to control process-to-thread binding. This flag persists across snapshots, stored in the image header." + aBoolean ifTrue: [self assert: (Process instVarNames at: 4) = 'threadId']. - aBoolean ifTrue: [self assert: (Process instVarNames at: 4) ='threadId']. self vmParameterAt: 48 put: ((self vmParameterAt: 48) bitClear: 1) + (aBoolean ifTrue: [1] ifFalse: [0])! Item was added: + ----- Method: SmalltalkImage>>sendMouseWheelEvents (in category 'system attributes') ----- + sendMouseWheelEvents + "The Cog VM can be instructed to deliver mouse wheel events as mouse wheel events. + By default mouse wheel events are mapped to arrow events. + This flag persists across snapshots, stored in the image header." + + ^(self vmParameterAt: 48) anyMask: 32! Item was added: + ----- Method: SmalltalkImage>>sendMouseWheelEvents: (in category 'system attributes') ----- + sendMouseWheelEvents: aBoolean + "The Cog VM can be instructed to deliver mouse wheel events as mouse wheel events. + By default mouse wheel events are mapped to arrow events. + This flag persists across snapshots, stored in the image header." + + self vmParameterAt: 48 put: ((self vmParameterAt: 48) bitClear: 32) + (aBoolean ifTrue: [32] ifFalse: [0])!

4 5

Swikion Raspi
by Herbert König 11 Nov '18

11 Nov '18

Hi, The Swiki Swiki offers 3.7 based images. Is there a vm and image combination that could run the swiki on a Raspi? I want to run a tiny house wiki on our LAN. Cheers, Herbert

4 5

The Trunk: Tests-dtl.403.mcz
by commits＠source.squeak.org 11 Nov '18

11 Nov '18

David T. Lewis uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-dtl.403.mcz ==================== Summary ==================== Name: Tests-dtl.403 Author: dtl Time: 10 November 2018, 11:36:09.849981 pm UUID: 8dbfba83-a491-4618-9a7f-a9e46ccd1a77 Ancestors: Tests-pre.402 Add unit tests in InstallerTest to provide coverage of #mcThing version selection logic in InstallerMonticello. Methods are mocked to allow test execution without connecting to actual repositories or MC caches. Documents a bug in version selection for Installer-Core version 424 and earlier. =============== Diff against Tests-pre.402 =============== Item was added: + InstallerMonticello subclass: #InstallerMonticelloMock + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-Installer-Core'! + + !InstallerMonticelloMock commentStamp: 'dtl 11/10/2018 21:02' prior: 0! + An InstallerMonticelloMock is a Monticello installer with dummy methods + to mock the behavior of InstallerMonticello without connection to an + actual repository. + + Some related classes are mocked as instances of InstallerTest, which + is sufficent to support the tests in InstallerTest. + ! Item was added: + ----- Method: InstallerMonticelloMock>>initialize (in category 'initialize-release') ----- + initialize + super initialize. + "Let a new instance of InstallerTest serve as a mock for the default MCRepositoryGroup" + mc := InstallerTest new.! Item was added: + ----- Method: InstallerMonticelloMock>>setMockCache: (in category 'initialize-release') ----- + setMockCache: fileNames + "Set the mock cache with file names similar to what might be expected + in a MCRepositoryGroup." + mc allFileNames: fileNames! Item was changed: TestCase subclass: #InstallerTest + instanceVariableNames: 'listOfFileNames mockAllFileNames mockConfigurationVersion' - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Tests-Installer-Core'! Item was added: + ----- Method: InstallerTest>>allFileNames: (in category 'mock MCRepositoryGroup') ----- + allFileNames: listOfNames + "mocking support - the list of names is a stand-in for the cache and file name retrieval" + mockAllFileNames := listOfNames + ! Item was added: + ----- Method: InstallerTest>>allFileNamesOrCache (in category 'mock MCRepositoryGroup') ----- + allFileNamesOrCache + "mock for MCFileBasedRepository>>allFileNamesOrCache" + ^mockAllFileNames! Item was added: + ----- Method: InstallerTest>>isKindOf: (in category 'mock MCConfiguration') ----- + isKindOf: aClass + "InstallerMonticello>>mcThing sends isKindOf: MCConfiguration. Let an Instance + of InstallerTest stand in as a replacement MCConfiguration for purposes of determing + the return value of #mcThing." + ^(super isKindOf: aClass) + or: [MCConfiguration withAllSubclasses + detect: [ :e | e = MCConfiguration] + ifNone: false. + true] + ! Item was added: + ----- Method: InstallerTest>>mockConfigurationVersion (in category 'mock MCConfiguration') ----- + mockConfigurationVersion + ^mockConfigurationVersion! Item was added: + ----- Method: InstallerTest>>mockConfigurationVersion: (in category 'mock MCConfiguration') ----- + mockConfigurationVersion: aVersion + mockConfigurationVersion := aVersion + ! Item was added: + ----- Method: InstallerTest>>setUp (in category 'running') ----- + setUp + "A list of version names as might be answered by MCFileBasedRepository>>versionNamesForPackageNamed:" + + listOfFileNames := #('Chronology-Core-dtl.23.mcz' 'Chronology-Core.UTC-dtl.9.mcz' 'Chronology-Core-XXX.8.mcz' 'Chronology-Core-dtl.24.mcz' 'Chronology-Core-XXX.14.mcz' 'Chronology-Core-bf.7.mcz' 'Chronology-Core-dtl.29.mcz' 'Chronology-Core-cmm.15.mcz' 'Chronology-Core-XXX.9.mcz' 'Chronology-Core-dtl.3.mcz' 'Chronology-Core-dtl.16.mcz' 'Chronology-Core.UTC-dtl.28.mcz' 'Chronology-Core-XXX.21.mcz' 'Chronology-Core.UTC-dtl.20.mcz' 'Chronology-Core-XXX.27.mcz' 'Chronology-Core-mt.11.mcz' 'Chronology-Core-dtl.4.mcz' 'Chronology-Core.UTC-dtl.22.mcz' 'Chronology-Core-XXX.3.mcz' 'Chronology-Core.UTC-dtl.27.mcz' 'Chronology-Core-XXX.10.mcz' 'Chronology-Core-dtl.18.mcz' 'Chronology-Core-bf.4.mcz' 'Chronology-Core-cmm.6.mcz' 'Chronology-Core.UTC-dtl.5.mcz' 'Chronology-Core-dtl.6.mcz' 'Chronology-Core.UTC-dtl.3.mcz' 'Chronology-Core-XXX.26.mcz' 'Chronology-Core-dtl.26.mcz' 'Chronology-Core-XXX.23.mcz' 'Chronology-Core.UTC-dtl.19.mcz' 'Chronology-Core-cmm.3.mcz' 'Chronology-Core-XXX.28.mcz' ' Chronology-Core-dtl.20.mcz' 'Chronology-Core-ul.8.mcz' 'Chronology-Core-dtl.27.mcz' 'Chronology-Core-dtl.9.mcz' 'Chronology-Core-dtl.11.mcz' 'Chronology-Core.UTC-dtl.10.mcz' 'Chronology-Core-dtl.28.mcz' 'Chronology-Core-XXX.11.mcz' 'Chronology-Core.UTC-dtl.25.mcz' 'Chronology-Core-XXX.18.mcz' 'Chronology-Core-XXX.30.mcz' 'Chronology-Core-ul.13.mcz' 'Chronology-Core.UTC-dtl.26.mcz' 'Chronology-Core-bf.5.mcz' 'Chronology-Core-XXX.5.mcz' 'Chronology-Core.UTC-dtl.15.mcz' 'Chronology-Core.UTC-dtl.11.mcz' 'Chronology-Core-dtl.8.mcz' 'Chronology-Core.UTC-dtl.21.mcz' 'Chronology-Core.UTC-dtl.24.mcz' 'Chronology-Core.UTC-ul.13.mcz' 'Chronology-Core-cmm.2.mcz' 'Chronology-Core-XXX.29.mcz' 'Chronology-Core-dtl.22.mcz' 'Chronology-Core.UTC-dtl.14.mcz' 'Chronology-Core.UTC-dtl.17.mcz' 'Chronology-Core-dtl.25.mcz' 'Chronology-Core.UTC-dtl.7.mcz' 'Chronology-Core.UTC-dtl.30.mcz' 'Chronology-Core-dtl.21.mcz' 'Chronology-Core-XXX.12.mcz' 'Chronology-Core-dtl.10.mcz' 'Chronology-Core-dtl.15.mcz' 'Chr onology-Core-XXX.17.mcz' 'Chronology-Core-XXX.25.mcz' 'Chronology-Core.UTC-dtl.23.mcz' 'Chronology-Core-dtl.12.mcz' 'Chronology-Core-dtl.19.mcz' 'Chronology-Core-XXX.19.mcz' 'Chronology-Core.UTC-dtl.29.mcz' 'Chronology-Core-ul.10.mcz' 'Chronology-Core.UTC-dtl.6.mcz' 'Chronology-Core-XXX.4.mcz' 'Chronology-Core.UTC-dtl.18.mcz' 'Chronology-Core.UTC-dtl.16.mcz' 'Chronology-Core-pre.9.mcz' 'Chronology-Core-tcj.12.mcz' 'Chronology-Core.UTC-dtl.8.mcz' 'Chronology-Core-dtl.30.mcz' 'Chronology-Core-XXX.7.mcz' 'Chronology-Core-XXX.6.mcz' 'Chronology-Core-XXX.15.mcz' 'Chronology-Core.UTC-dtl.12.mcz' 'Chronology-Core-dtl.5.mcz' 'Chronology-Core-dtl.7.mcz' 'Chronology-Core-XXX.22.mcz' 'Chronology-Core.UTC-dtl.4.mcz' 'Chronology-Core-dtl.14.mcz' 'Chronology-Core-XXX.24.mcz' 'Chronology-Core-dtl.17.mcz' 'Chronology-Core-ul.13.mcz' 'Chronology-Core-XXX.20.mcz' 'Chronology-Core-XXX.16.mcz'). + + + + ! Item was changed: + ----- Method: InstallerTest>>testPackageAndVersionNameShouldSanitiseInput (in category 'package and version') ----- - ----- Method: InstallerTest>>testPackageAndVersionNameShouldSanitiseInput (in category 'as yet unclassified') ----- testPackageAndVersionNameShouldSanitiseInput | installer | installer := Installer new. self assert: {'Foo'. ''} equals: (installer packageAndVersionFrom: 'Foo'). self assert: {'Foo'. '1'} equals: (installer packageAndVersionFrom: 'Foo(1)'). self assert: {'Foo'. 'head'} equals: (installer packageAndVersionFrom: ' Foo ( head ) ').! Item was added: + ----- Method: InstallerTest>>testSelectFullySpecifiedBranchVersion (in category 'version selection') ----- + testSelectFullySpecifiedBranchVersion + | installer | + installer := InstallerMonticelloMock new. + + installer setMockCache: listOfFileNames. + installer packages: { 'Chronology-Core.UTC-dtl.30' }. + self assert: 'Chronology-Core.UTC-dtl.30' equals: installer mcThing mockConfigurationVersion versionName. + installer setMockCache: listOfFileNames reversed. + self assert: 'Chronology-Core.UTC-dtl.30' equals: installer mcThing mockConfigurationVersion versionName. + + installer setMockCache: listOfFileNames. + installer packages: { 'Chronology-Core.UTC-dtl.30.mcz' }. + self assert: 'Chronology-Core.UTC-dtl.30' equals: installer mcThing mockConfigurationVersion versionName. + installer setMockCache: listOfFileNames reversed. + self assert: 'Chronology-Core.UTC-dtl.30' equals: installer mcThing mockConfigurationVersion versionName. + ! Item was added: + ----- Method: InstallerTest>>testSelectFullySpecifiedVersion (in category 'version selection') ----- + testSelectFullySpecifiedVersion + | installer | + installer := InstallerMonticelloMock new. + + installer packages: { 'Chronology-Core-dtl.30' }. + installer setMockCache: listOfFileNames. + self assert: 'Chronology-Core-dtl.30' equals: installer mcThing mockConfigurationVersion versionName. + installer setMockCache: listOfFileNames reversed. + self assert: 'Chronology-Core-dtl.30' equals: installer mcThing mockConfigurationVersion versionName. + + installer packages: { 'Chronology-Core-dtl.30.mcz' }. + installer setMockCache: listOfFileNames. + self assert: 'Chronology-Core-dtl.30' equals: installer mcThing mockConfigurationVersion versionName. + installer setMockCache: listOfFileNames reversed. + self assert: 'Chronology-Core-dtl.30' equals: installer mcThing mockConfigurationVersion versionName. + + installer packages: { 'Chronology-Core-bf.7' }. + installer setMockCache: listOfFileNames. + self assert: 'Chronology-Core-bf.7' equals: installer mcThing mockConfigurationVersion versionName. + installer setMockCache: listOfFileNames reversed. + self assert: 'Chronology-Core-bf.7' equals: installer mcThing mockConfigurationVersion versionName. + + installer packages: { 'Chronology-Core-bf.7.mcz' }. + installer setMockCache: listOfFileNames. + self assert: 'Chronology-Core-bf.7' equals: installer mcThing mockConfigurationVersion versionName. + installer setMockCache: listOfFileNames reversed. + self assert: 'Chronology-Core-bf.7' equals: installer mcThing mockConfigurationVersion versionName. + + ! Item was added: + ----- Method: InstallerTest>>testSelectFullySpecifiedVersionWhereVersionNumberMayBeAmbiguous (in category 'version selection') ----- + testSelectFullySpecifiedVersionWhereVersionNumberMayBeAmbiguous + "Documents a bug in earlier versions of the Monticello installer, in which a + requiest to load version 3 would load the wrong version if a version 30 existed + in the same repository." + + "(self selector: #testSelectFullySpecifiedVersionWhereVersionNumberMayBeAmbiguous) debug" + + | installer | + installer := InstallerMonticelloMock new. + + installer packages: { 'Chronology-Core-dtl.3' }. + installer setMockCache: listOfFileNames. + self deny: 'Chronology-Core-dtl.30' = installer mcThing mockConfigurationVersion versionName + description: 'version 3 was specified, but version 30 was selected'. + self assert: 'Chronology-Core-dtl.3' equals: installer mcThing mockConfigurationVersion versionName. + installer setMockCache: listOfFileNames reversed. + self deny: 'Chronology-Core-dtl.30' = installer mcThing mockConfigurationVersion versionName + description: 'version 3 was specified, but version 30 was selected'. + self assert: 'Chronology-Core-dtl.3' equals: installer mcThing mockConfigurationVersion versionName. + + installer packages: { 'Chronology-Core-dtl.3.mcz' }. + self deny: 'Chronology-Core-dtl.30' = installer mcThing mockConfigurationVersion versionName + description: 'version 3 was specified, but version 30 was selected'. + self assert: 'Chronology-Core-dtl.3' equals: installer mcThing mockConfigurationVersion versionName. + installer setMockCache: listOfFileNames reversed. + self deny: 'Chronology-Core-dtl.30' = installer mcThing mockConfigurationVersion versionName + description: 'version 3 was specified, but version 30 was selected'. + self assert: 'Chronology-Core-dtl.3' equals: installer mcThing mockConfigurationVersion versionName. + ! Item was added: + ----- Method: InstallerTest>>testSelectLatestVersionForPackage (in category 'version selection') ----- + testSelectLatestVersionForPackage + "The listOfFileNames test data set contains more than one Chronology-Core-???.30 + version differing by author initials. The first detected in sort order is valid, therefore + test only for package, branch, and version number." + | installer | + installer := InstallerMonticelloMock new. + + installer packages: { 'Chronology-Core' }. + installer setMockCache: listOfFileNames. + self assert: 'Chronology-Core' equals: installer mcThing mockConfigurationVersion packageAndBranchName. + self assert: 30 equals: installer mcThing mockConfigurationVersion versionNumber. + + installer setMockCache: listOfFileNames reversed. + self assert: 'Chronology-Core' equals: installer mcThing mockConfigurationVersion packageAndBranchName. + self assert: 30 equals: installer mcThing mockConfigurationVersion versionNumber. + + ! Item was added: + ----- Method: InstallerTest>>testSelectLatestVersionInBranchForPackage (in category 'version selection') ----- + testSelectLatestVersionInBranchForPackage + "The listOfFileNames test data set contains more than one Chronology-Core.UTC-???.30 + version differing by author initials. The first detected in sort order is valid, therefore + test only for package, branch, and version number." + | installer | + installer := InstallerMonticelloMock new. + + installer packages: { 'Chronology-Core.UTC' }. + installer setMockCache: listOfFileNames. + self assert: 'Chronology-Core.UTC' equals: installer mcThing mockConfigurationVersion packageAndBranchName. + self assert: 30 equals: installer mcThing mockConfigurationVersion versionNumber. + + installer setMockCache: listOfFileNames reversed. + self assert: 'Chronology-Core.UTC' equals: installer mcThing mockConfigurationVersion packageAndBranchName. + self assert: 30 equals: installer mcThing mockConfigurationVersion versionNumber. + + ! Item was added: + ----- Method: InstallerTest>>versionNamed: (in category 'mock MCRepositoryGroup') ----- + versionNamed: fileToLoad + "mock for MCFileBasedRepository>>versionNamed:" + ^InstallerTest new mockConfigurationVersion: fileToLoad "mock MCConfiguration"! Item was added: + ----- Method: InstallerTest>>versionNamesForPackageNamed: (in category 'mock MCRepositoryGroup') ----- + versionNamesForPackageNamed: packageName + "mock for MCFileBasedRepository>>versionNamesForPackageNamed:" + ^ Array streamContents: + [ : stream | | wantBranch | + wantBranch := packageName includes: $.. + self allFileNamesOrCache do: + [ : each | | mcVersionName branchName | + mcVersionName := each asMCVersionName. + branchName := wantBranch + ifTrue: [mcVersionName packageAndBranchName] + ifFalse: [mcVersionName packageName]. + packageName = branchName ifTrue: [ stream nextPut: mcVersionName ] ] ]!

1 0

The Trunk: Tests-dtl.403.mcz
by commits＠source.squeak.org 11 Nov '18

11 Nov '18

David T. Lewis uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-dtl.403.mcz ==================== Summary ==================== Name: Tests-dtl.403 Author: dtl Time: 10 November 2018, 9:23:38.977654 pm UUID: e1eb9455-be0d-4680-a66f-cb6c4bb40901 Ancestors: Tests-pre.402 Add unit tests in InstallerTest to provide coverage of #mcThing version selection logic in InstallerMonticello. Methods are mocked to allow test execution without connecting to actual repositories or MC caches. Documents a bug in version selection for Installer-Core version 424 and earlier. =============== Diff against Tests-pre.402 =============== Item was changed: SystemOrganization addCategory: #'Tests-Bugs'! SystemOrganization addCategory: #'Tests-Compiler'! SystemOrganization addCategory: #'Tests-Dependencies'! SystemOrganization addCategory: #'Tests-Digital Signatures'! SystemOrganization addCategory: #'Tests-Environments'! SystemOrganization addCategory: #'Tests-Exceptions'! SystemOrganization addCategory: #'Tests-FilePackage'! SystemOrganization addCategory: #'Tests-Files'! SystemOrganization addCategory: #'Tests-Finalization'! SystemOrganization addCategory: #'Tests-Hex'! SystemOrganization addCategory: #'Tests-Installer-Core'! SystemOrganization addCategory: #'Tests-Localization'! SystemOrganization addCategory: #'Tests-Monticello'! SystemOrganization addCategory: #'Tests-Monticello-Mocks'! SystemOrganization addCategory: #'Tests-Monticello-Utils'! SystemOrganization addCategory: #'Tests-Object Events'! SystemOrganization addCategory: #'Tests-ObjectsAsMethods'! SystemOrganization addCategory: #'Tests-PrimCallController'! SystemOrganization addCategory: #'Tests-Release'! SystemOrganization addCategory: #'Tests-System-Digital Signatures'! SystemOrganization addCategory: #'Tests-System-Object Storage'! SystemOrganization addCategory: #'Tests-System-Preferences'! SystemOrganization addCategory: #'Tests-System-Support'! SystemOrganization addCategory: #'Tests-Utilities'! SystemOrganization addCategory: #'Tests-VM'! SystemOrganization addCategory: #'Tests-System-Applications'! + SystemOrganization addCategory: #'Tests-Monticello-Core'! Item was added: + InstallerMonticello subclass: #InstallerMonticelloMock + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-Installer-Core'! + + !InstallerMonticelloMock commentStamp: 'dtl 11/10/2018 21:02' prior: 0! + An InstallerMonticelloMock is a Monticello installer with dummy methods + to mock the behavior of InstallerMonticello without connection to an + actual repository. + + Some related classes are mocked as instances of InstallerTest, which + is sufficent to support the tests in InstallerTest. + ! Item was added: + ----- Method: InstallerMonticelloMock>>initialize (in category 'initialize-release') ----- + initialize + super initialize. + "Let a new instance of InstallerTest serve as a mock for the default MCRepositoryGroup" + mc := InstallerTest new.! Item was added: + ----- Method: InstallerMonticelloMock>>setMockCache: (in category 'initialize-release') ----- + setMockCache: fileNames + "Set the mock cache with file names similar to what might be expected + in a MCRepositoryGroup." + mc allFileNames: fileNames! Item was changed: TestCase subclass: #InstallerTest + instanceVariableNames: 'listOfFileNames mockAllFileNames mockConfigurationVersion' - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Tests-Installer-Core'! Item was added: + ----- Method: InstallerTest>>allFileNames: (in category 'mock MCRepositoryGroup') ----- + allFileNames: listOfNames + "mocking support - the list of names is a stand-in for the cache and file name retrieval" + mockAllFileNames := listOfNames + ! Item was added: + ----- Method: InstallerTest>>allFileNamesOrCache (in category 'mock MCRepositoryGroup') ----- + allFileNamesOrCache + "mock for MCFileBasedRepository>>allFileNamesOrCache" + ^mockAllFileNames! Item was added: + ----- Method: InstallerTest>>isKindOf: (in category 'mock MCConfiguration') ----- + isKindOf: aClass + "InstallerMonticello>>mcThing sends isKindOf: MCConfiguration. Let an Instance + of InstallerTest stand in as a replacement MCConfiguration for purposes of determing + the return value of #mcThing." + ^(super isKindOf: aClass) + or: [MCConfiguration withAllSubclasses + detect: [ :e | e = MCConfiguration] + ifNone: false. + true] + ! Item was added: + ----- Method: InstallerTest>>mockConfigurationVersion (in category 'mock MCConfiguration') ----- + mockConfigurationVersion + ^mockConfigurationVersion! Item was added: + ----- Method: InstallerTest>>mockConfigurationVersion: (in category 'mock MCConfiguration') ----- + mockConfigurationVersion: aVersion + mockConfigurationVersion := aVersion + ! Item was added: + ----- Method: InstallerTest>>setUp (in category 'running') ----- + setUp + "A list of version names as might be answered by MCFileBasedRepository>>versionNamesForPackageNamed:" + + listOfFileNames := #('Chronology-Core-dtl.23.mcz' 'Chronology-Core.UTC-dtl.9.mcz' 'Chronology-Core-XXX.8.mcz' 'Chronology-Core-dtl.24.mcz' 'Chronology-Core-XXX.14.mcz' 'Chronology-Core-bf.7.mcz' 'Chronology-Core-dtl.29.mcz' 'Chronology-Core-cmm.15.mcz' 'Chronology-Core-XXX.9.mcz' 'Chronology-Core-dtl.3.mcz' 'Chronology-Core-dtl.16.mcz' 'Chronology-Core.UTC-dtl.28.mcz' 'Chronology-Core-XXX.21.mcz' 'Chronology-Core.UTC-dtl.20.mcz' 'Chronology-Core-XXX.27.mcz' 'Chronology-Core-mt.11.mcz' 'Chronology-Core-dtl.4.mcz' 'Chronology-Core.UTC-dtl.22.mcz' 'Chronology-Core-XXX.3.mcz' 'Chronology-Core.UTC-dtl.27.mcz' 'Chronology-Core-XXX.10.mcz' 'Chronology-Core-dtl.18.mcz' 'Chronology-Core-bf.4.mcz' 'Chronology-Core-cmm.6.mcz' 'Chronology-Core.UTC-dtl.5.mcz' 'Chronology-Core-dtl.6.mcz' 'Chronology-Core.UTC-dtl.3.mcz' 'Chronology-Core-XXX.26.mcz' 'Chronology-Core-dtl.26.mcz' 'Chronology-Core-XXX.23.mcz' 'Chronology-Core.UTC-dtl.19.mcz' 'Chronology-Core-cmm.3.mcz' 'Chronology-Core-XXX.28.mcz' ' Chronology-Core-dtl.20.mcz' 'Chronology-Core-ul.8.mcz' 'Chronology-Core-dtl.27.mcz' 'Chronology-Core-dtl.9.mcz' 'Chronology-Core-dtl.11.mcz' 'Chronology-Core.UTC-dtl.10.mcz' 'Chronology-Core-dtl.28.mcz' 'Chronology-Core-XXX.11.mcz' 'Chronology-Core.UTC-dtl.25.mcz' 'Chronology-Core-XXX.18.mcz' 'Chronology-Core-XXX.30.mcz' 'Chronology-Core-ul.13.mcz' 'Chronology-Core.UTC-dtl.26.mcz' 'Chronology-Core-bf.5.mcz' 'Chronology-Core-XXX.5.mcz' 'Chronology-Core.UTC-dtl.15.mcz' 'Chronology-Core.UTC-dtl.11.mcz' 'Chronology-Core-dtl.8.mcz' 'Chronology-Core.UTC-dtl.21.mcz' 'Chronology-Core.UTC-dtl.24.mcz' 'Chronology-Core.UTC-ul.13.mcz' 'Chronology-Core-cmm.2.mcz' 'Chronology-Core-XXX.29.mcz' 'Chronology-Core-dtl.22.mcz' 'Chronology-Core.UTC-dtl.14.mcz' 'Chronology-Core.UTC-dtl.17.mcz' 'Chronology-Core-dtl.25.mcz' 'Chronology-Core.UTC-dtl.7.mcz' 'Chronology-Core.UTC-dtl.30.mcz' 'Chronology-Core-dtl.21.mcz' 'Chronology-Core-XXX.12.mcz' 'Chronology-Core-dtl.10.mcz' 'Chronology-Core-dtl.15.mcz' 'Chr onology-Core-XXX.17.mcz' 'Chronology-Core-XXX.25.mcz' 'Chronology-Core.UTC-dtl.23.mcz' 'Chronology-Core-dtl.12.mcz' 'Chronology-Core-dtl.19.mcz' 'Chronology-Core-XXX.19.mcz' 'Chronology-Core.UTC-dtl.29.mcz' 'Chronology-Core-ul.10.mcz' 'Chronology-Core.UTC-dtl.6.mcz' 'Chronology-Core-XXX.4.mcz' 'Chronology-Core.UTC-dtl.18.mcz' 'Chronology-Core.UTC-dtl.16.mcz' 'Chronology-Core-pre.9.mcz' 'Chronology-Core-tcj.12.mcz' 'Chronology-Core.UTC-dtl.8.mcz' 'Chronology-Core-dtl.30.mcz' 'Chronology-Core-XXX.7.mcz' 'Chronology-Core-XXX.6.mcz' 'Chronology-Core-XXX.15.mcz' 'Chronology-Core.UTC-dtl.12.mcz' 'Chronology-Core-dtl.5.mcz' 'Chronology-Core-dtl.7.mcz' 'Chronology-Core-XXX.22.mcz' 'Chronology-Core.UTC-dtl.4.mcz' 'Chronology-Core-dtl.14.mcz' 'Chronology-Core-XXX.24.mcz' 'Chronology-Core-dtl.17.mcz' 'Chronology-Core-ul.13.mcz' 'Chronology-Core-XXX.20.mcz' 'Chronology-Core-XXX.16.mcz'). + + + + ! Item was changed: + ----- Method: InstallerTest>>testPackageAndVersionNameShouldSanitiseInput (in category 'package and version') ----- - ----- Method: InstallerTest>>testPackageAndVersionNameShouldSanitiseInput (in category 'as yet unclassified') ----- testPackageAndVersionNameShouldSanitiseInput | installer | installer := Installer new. self assert: {'Foo'. ''} equals: (installer packageAndVersionFrom: 'Foo'). self assert: {'Foo'. '1'} equals: (installer packageAndVersionFrom: 'Foo(1)'). self assert: {'Foo'. 'head'} equals: (installer packageAndVersionFrom: ' Foo ( head ) ').! Item was added: + ----- Method: InstallerTest>>testSelectFullySpecifiedBranchVersion (in category 'version selection') ----- + testSelectFullySpecifiedBranchVersion + | installer | + installer := InstallerMonticelloMock new. + + installer setMockCache: listOfFileNames. + installer packages: { 'Chronology-Core.UTC-dtl.30' }. + self assert: 'Chronology-Core.UTC-dtl.30' equals: installer mcThing mockConfigurationVersion versionName. + installer setMockCache: listOfFileNames reversed. + self assert: 'Chronology-Core.UTC-dtl.30' equals: installer mcThing mockConfigurationVersion versionName. + + installer setMockCache: listOfFileNames. + installer packages: { 'Chronology-Core.UTC-dtl.30.mcz' }. + self assert: 'Chronology-Core.UTC-dtl.30' equals: installer mcThing mockConfigurationVersion versionName. + installer setMockCache: listOfFileNames reversed. + self assert: 'Chronology-Core.UTC-dtl.30' equals: installer mcThing mockConfigurationVersion versionName. + ! Item was added: + ----- Method: InstallerTest>>testSelectFullySpecifiedVersion (in category 'version selection') ----- + testSelectFullySpecifiedVersion + | installer | + installer := InstallerMonticelloMock new. + + installer packages: { 'Chronology-Core-dtl.30' }. + installer setMockCache: listOfFileNames. + self assert: 'Chronology-Core-dtl.30' equals: installer mcThing mockConfigurationVersion versionName. + installer setMockCache: listOfFileNames reversed. + self assert: 'Chronology-Core-dtl.30' equals: installer mcThing mockConfigurationVersion versionName. + + installer packages: { 'Chronology-Core-dtl.30.mcz' }. + installer setMockCache: listOfFileNames. + self assert: 'Chronology-Core-dtl.30' equals: installer mcThing mockConfigurationVersion versionName. + installer setMockCache: listOfFileNames reversed. + self assert: 'Chronology-Core-dtl.30' equals: installer mcThing mockConfigurationVersion versionName. + + installer packages: { 'Chronology-Core-bf.7' }. + installer setMockCache: listOfFileNames. + self assert: 'Chronology-Core-bf.7' equals: installer mcThing mockConfigurationVersion versionName. + installer setMockCache: listOfFileNames reversed. + self assert: 'Chronology-Core-bf.7' equals: installer mcThing mockConfigurationVersion versionName. + + installer packages: { 'Chronology-Core-bf.7.mcz' }. + installer setMockCache: listOfFileNames. + self assert: 'Chronology-Core-bf.7' equals: installer mcThing mockConfigurationVersion versionName. + installer setMockCache: listOfFileNames reversed. + self assert: 'Chronology-Core-bf.7' equals: installer mcThing mockConfigurationVersion versionName. + + ! Item was added: + ----- Method: InstallerTest>>testSelectFullySpecifiedVersionWhereVersionNumberMayBeAmbiguous (in category 'version selection') ----- + testSelectFullySpecifiedVersionWhereVersionNumberMayBeAmbiguous + "Documents a bug in earlier versions of the Monticello installer, in which a + requiest to load version 3 would load the wrong version if a version 30 existed + in the same repository." + + "(self selector: #testSelectFullySpecifiedVersionWhereVersionNumberMayBeAmbiguous) debug" + + | installer | + installer := InstallerMonticelloMock new. + + installer packages: { 'Chronology-Core-dtl.3' }. + installer setMockCache: listOfFileNames. + self deny: 'Chronology-Core-dtl.30' = installer mcThing mockConfigurationVersion versionName + description: 'version 3 was specified, but version 30 was selected'. + self assert: 'Chronology-Core-dtl.3' equals: installer mcThing mockConfigurationVersion versionName. + installer setMockCache: listOfFileNames reversed. + self deny: 'Chronology-Core-dtl.30' = installer mcThing mockConfigurationVersion versionName + description: 'version 3 was specified, but version 30 was selected'. + self assert: 'Chronology-Core-dtl.3' equals: installer mcThing mockConfigurationVersion versionName. + + installer packages: { 'Chronology-Core-dtl.3.mcz' }. + self deny: 'Chronology-Core-dtl.30' = installer mcThing mockConfigurationVersion versionName + description: 'version 3 was specified, but version 30 was selected'. + self assert: 'Chronology-Core-dtl.3' equals: installer mcThing mockConfigurationVersion versionName. + installer setMockCache: listOfFileNames reversed. + self deny: 'Chronology-Core-dtl.30' = installer mcThing mockConfigurationVersion versionName + description: 'version 3 was specified, but version 30 was selected'. + self assert: 'Chronology-Core-dtl.3' equals: installer mcThing mockConfigurationVersion versionName. + ! Item was added: + ----- Method: InstallerTest>>testSelectLatestVersionForPackage (in category 'version selection') ----- + testSelectLatestVersionForPackage + "The listOfFileNames test data set contains more than one Chronology-Core-???.30 + version differing by author initials. The first detected in sort order is valid, therefore + test only for package, branch, and version number." + | installer | + installer := InstallerMonticelloMock new. + + installer packages: { 'Chronology-Core' }. + installer setMockCache: listOfFileNames. + self assert: 'Chronology-Core' equals: installer mcThing mockConfigurationVersion packageAndBranchName. + self assert: 30 equals: installer mcThing mockConfigurationVersion versionNumber. + + installer setMockCache: listOfFileNames reversed. + self assert: 'Chronology-Core' equals: installer mcThing mockConfigurationVersion packageAndBranchName. + self assert: 30 equals: installer mcThing mockConfigurationVersion versionNumber. + + ! Item was added: + ----- Method: InstallerTest>>testSelectLatestVersionInBranchForPackage (in category 'version selection') ----- + testSelectLatestVersionInBranchForPackage + "The listOfFileNames test data set contains more than one Chronology-Core.UTC-???.30 + version differing by author initials. The first detected in sort order is valid, therefore + test only for package, branch, and version number." + | installer | + installer := InstallerMonticelloMock new. + + installer packages: { 'Chronology-Core.UTC' }. + installer setMockCache: listOfFileNames. + self assert: 'Chronology-Core.UTC' equals: installer mcThing mockConfigurationVersion packageAndBranchName. + self assert: 30 equals: installer mcThing mockConfigurationVersion versionNumber. + + installer setMockCache: listOfFileNames reversed. + self assert: 'Chronology-Core.UTC' equals: installer mcThing mockConfigurationVersion packageAndBranchName. + self assert: 30 equals: installer mcThing mockConfigurationVersion versionNumber. + + ! Item was added: + ----- Method: InstallerTest>>versionNamed: (in category 'mock MCRepositoryGroup') ----- + versionNamed: fileToLoad + "mock for MCFileBasedRepository>>versionNamed:" + ^InstallerTest new mockConfigurationVersion: fileToLoad "mock MCConfiguration"! Item was added: + ----- Method: InstallerTest>>versionNamesForPackageNamed: (in category 'mock MCRepositoryGroup') ----- + versionNamesForPackageNamed: packageName + "mock for MCFileBasedRepository>>versionNamesForPackageNamed:" + ^ Array streamContents: + [ : stream | | wantBranch | + wantBranch := packageName includes: $.. + self allFileNamesOrCache do: + [ : each | | mcVersionName branchName | + mcVersionName := each asMCVersionName. + branchName := wantBranch + ifTrue: [mcVersionName packageAndBranchName] + ifFalse: [mcVersionName packageName]. + packageName = branchName ifTrue: [ stream nextPut: mcVersionName ] ] ]!

2 1

The Inbox: Monticello-dtl.685.mcz
by commits＠source.squeak.org 10 Nov '18

10 Nov '18

David T. Lewis uploaded a new version of Monticello to project The Inbox: http://source.squeak.org/inbox/Monticello-dtl.685.mcz ==================== Summary ==================== Name: Monticello-dtl.685 Author: dtl Time: 5 November 2018, 10:52:58.748205 pm UUID: b31c1c5b-d61a-4810-8f97-5fdcaf062dc8 Ancestors: Monticello-eem.684 MCVersionInspector has an 'Adopt' button to allow the selected version to be added to the parent or parents of a working version. Provide a 'Reparent' button to allow a selected version to become the sole parent of a working version. Adjust defaultExtent to accomodate the additional button. Motivated by the exercise of preparing to copy Chronology-Core versions from one repository into equivalent Chronology-Core.UTC versions in another repository (possibly trunk). In this scenario, it is helpful to be able to reparent a newly loaded Chronology-Core version from one repository to be the child of the last saved Chronology-Core.UTC version in another. The '.UTC' suffix in this case is intended to branch those versions from the trunk update stream, allowing later merge to trunk with branch history preserved. =============== Diff against Monticello-eem.684 =============== Item was changed: ----- Method: MCRepositoryInspector>>defaultExtent (in category 'morphic ui') ----- defaultExtent + ^600@300! - ^450@300! Item was added: + ----- Method: MCVersion>>reparent (in category 'actions') ----- + reparent + "Let aNode be the sole parent of this version" + self workingCopy reparent: self! Item was changed: ----- Method: MCVersionInspector>>buttonSpecs (in category 'morphic ui') ----- buttonSpecs + ^#( + ('Refresh' refresh 'refresh the version-list') - ^ #(('Refresh' refresh 'refresh the version-list') (Browse browse 'Browse this version' hasVersion) + (History history 'Browse the history of this version' hasVersion) + (Changes changes 'Browse the changes this version would make to the image' hasVersion) + (Load load 'Load this version into the image' hasVersion) + (Merge merge 'Merge this version into the image' hasVersion) + (Adopt adopt 'Adopt this version as an ancestor of your working copy' hasVersion) + (Reparent reparent 'Adopt this version as the sole ancestor of your working copy' hasVersion) + (Copy save 'Copy this version to another repository' hasVersion) + (Diff diff 'Create an equivalent version based on an earlier release' hasVersion) + )! - (History history 'Browse the history of this version' hasVersion) - (Changes changes 'Browse the changes this version would make to the - image' hasVersion) - (Load load 'Load this version into the image' hasVersion) - (Merge merge 'Merge this version into the image' hasVersion) - (Adopt adopt 'Adopt this version as an ancestor of your working copy' - hasVersion) - (Copy save 'Copy this version to another repository' hasVersion) - (Diff diff 'Create an equivalent version based on an earlier release' - hasVersion))! Item was added: + ----- Method: MCVersionInspector>>reparent (in category 'accessing') ----- + reparent + (self confirm:'Adopt ',self version info name, ' as the sole ancestor of your working copy?') + ifTrue: [self version reparent]! Item was added: + ----- Method: MCWorkingAncestry>>reparent: (in category 'as yet unclassified') ----- + reparent: aNode + "Let aNode be the sole parent of this version" + ancestors := Array with: aNode + ! Item was added: + ----- Method: MCWorkingCopy>>reparent: (in category 'operations') ----- + reparent: aVersion + "Let aNode be the sole parent of this version" + ancestry reparent: aVersion info. + self changed.!

7 9

← Newer
1
2
3
4
5
6
7
8
9
10
Older →