Squeak-dev April 2019

squeak-dev@lists.squeakfoundation.org

36 participants
122 discussions

The Trunk: ReleaseBuilder-mt.195.mcz
by commits＠source.squeak.org 24 Apr '19

24 Apr '19

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-mt.195.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.195 Author: mt Time: 24 April 2019, 11:21:01.001118 am UUID: 142779d1-084c-6643-b5ec-e665c0d7cfb0 Ancestors: ReleaseBuilder-mt.194 Fixes a minor issue in the release builder where deferred tasks and next tasks were mutually exclusive but should not. WHY? The newest (CI) Trunk images did not show the welcome window and preference wizard. =============== Diff against ReleaseBuilder-mt.194 =============== Item was changed: ----- Method: ReleaseBuilder class>>startUp: (in category 'class initialization') ----- startUp: resuming resuming + ifTrue: [DeferredTask ifNotNil: [:task | DeferredTask := nil. task value]] + ifFalse: [NextTask ifNotNil: [:task | NextTask := nil. task value]].! - ifTrue: [NextTask := nil. DeferredTask ifNotNil: [:task | DeferredTask := nil. task value]] - ifFalse: [DeferredTask := nil. NextTask ifNotNil: [:task | NextTask := nil. task value]].!

1 0

The Trunk: Morphic-mt.1485.mcz
by commits＠source.squeak.org 24 Apr '19

24 Apr '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1485.mcz ==================== Summary ==================== Name: Morphic-mt.1485 Author: mt Time: 24 April 2019, 11:10:53.74187 am UUID: ddfc0442-d803-f04f-9267-a248ef94916e Ancestors: Morphic-cmm.1484 Fixes a minor update/performance issue in SketchMorph, which affects the buttons of system windows. I *think* it is never a good idea to overwrite #layoutChanged with such side effects. There are other examples in the code base. We should refactor that in the (near) future. WHY? The message #layoutChanged should mean "Hey! My bounds have changed. Consider this in the next layout computation." It should not *do* the actual change but only tell others about it *after* it has happened. =============== Diff against Morphic-cmm.1484 =============== Item was changed: ----- Method: SketchMorph>>layoutChanged (in category 'layout') ----- layoutChanged "Update rotatedForm and compute new bounds." + + | priorBounds | + fullBounds ifNotNil: [self changed]. + + priorBounds := bounds. + + self flag: #refactor. "mt: Such side-effects in #layoutChanged can have a severe impact on performance. Better not overwrite it but manage the rotatedForm elsewhere and from there call #layoutChanged if bounds change. Also, just overwrite #extent to use the extent of the rotated form." - self changed. self generateRotatedForm. bounds := bounds origin extent: rotatedForm extent. + + priorBounds ~= bounds + ifTrue: [super layoutChanged]. + - super layoutChanged. self changed. !

1 0

The Inbox: Kernel-nice.1216.mcz
by commits＠source.squeak.org 24 Apr '19

24 Apr '19

Nicolas Cellier uploaded a new version of Kernel to project The Inbox: http://source.squeak.org/inbox/Kernel-nice.1216.mcz ==================== Summary ==================== Name: Kernel-nice.1216 Author: nice Time: 24 April 2019, 12:00:26.112717 am UUID: e5e62c80-604a-4a15-a0ce-ec6486a0e3c0 Ancestors: Kernel-eem.1215 Connect #durationToRun to new high-resolution clock driven durationToRun: provided by Chronology-Core-nice.41 This is a must for micro-benchmarks. =============== Diff against Kernel-eem.1215 =============== Item was changed: ----- Method: BlockClosure>>durationToRun (in category 'evaluating') ----- durationToRun + "Answer the duration taken before this block returns." + ^ Time durationToRun: self - "Answer the duration taken to execute this block." - - - - ^ Duration milliSeconds: self timeToRun - - - !

1 0

The Inbox: Chronology-Core-nice.41.mcz
by commits＠source.squeak.org 23 Apr '19

23 Apr '19

Nicolas Cellier uploaded a new version of Chronology-Core to project The Inbox: http://source.squeak.org/inbox/Chronology-Core-nice.41.mcz ==================== Summary ==================== Name: Chronology-Core-nice.41 Author: nice Time: 23 April 2019, 11:52:55.257088 pm UUID: e4abf0f8-228d-4456-b296-92764394926c Ancestors: Chronology-Core-dtl.40 Provide access to high resolution clock (if any). This is especially useful for micro-benchmarks, so provide a #durationToRun: based on high-res clock if available. As the name tells, it will answer a Duration rather than a number of milliseconds, microseconds or whatever... A duration is way more universal and self-explaining than currently obscure Integer encoding returned by: [100 factorial] timeToRun. The aim is either to provide a new #durationToRun selector, or replace #timeToRun semantics... Provide a microsecondsToRun: fallback in case the host does not provide a high resolution clock. Notes: the number of ticks per millisecond for the high-res clock is roughly estimated by a busy loop like found in the AndreasSystemProfiler. It is reset at startup, and initialized once at first use with the assumption that it will be constant. =============== Diff against Chronology-Core-dtl.40 =============== Item was changed: Magnitude subclass: #Time instanceVariableNames: 'seconds nanos' + classVariableNames: 'ClockPolicy HighResClockTicksPerMillisecond LastClockTick' - classVariableNames: 'ClockPolicy LastClockTick' poolDictionaries: 'ChronologyConstants' category: 'Chronology-Core'! !Time commentStamp: 'dew 10/23/2004 17:58' prior: 0! This represents a particular point in time during any given day. For example, '5:19:45 pm'. If you need a point in time on a particular day, use DateAndTime. If you need a duration of time, use Duration. ! Item was added: + ----- Method: Time class>>durationToRun: (in category 'general inquiries') ----- + durationToRun: timedBlock + "Answer a duration timedBlock takes to return its value. + Use high resolution clock if available." + + | ticks | + self highResClock = 0 ifTrue: [^Duration nanoSeconds: 1000 * (self microsecondsToRun: timedBlock)]. + ticks := self highResClock. + timedBlock value. + ticks := self highResClock - ticks. + ^Duration nanoSeconds: 1000000* ticks // self highResClockTicksPerMillisecond! Item was added: + ----- Method: Time class>>estimateHighResClockTicksPerMillisecond (in category 'clock') ----- + estimateHighResClockTicksPerMillisecond + + | t0 t1 t2 t3 | + + "Count the ticks ellapsed during a 10ms busy loop" + t0 := Time utcMicrosecondClock + 200. + [Time utcMicrosecondClock >= t0] whileFalse. + t1 := Smalltalk highResClock. + [Time utcMicrosecondClock >= (t0 + 10000)] whileFalse. + t1 := Smalltalk highResClock - t1 * 1000 // (Time utcMicrosecondClock - t0). + + "Count the ticks ellapsed during a 20ms busy loop" + t0 := Time utcMicrosecondClock + 200. + [Time utcMicrosecondClock >= t0] whileFalse. + t2 := Smalltalk highResClock. + [Time utcMicrosecondClock >= (t0 + 20000)] whileFalse. + t2 := Smalltalk highResClock - t2 * 1000 // (Time utcMicrosecondClock - t0). + + "Count the ticks ellapsed during a 30ms busy loop" + t0 := Time utcMicrosecondClock + 200. + [Time utcMicrosecondClock >= t0] whileFalse. + t3 := Smalltalk highResClock. + [Time utcMicrosecondClock >= (t0 + 30000)] whileFalse. + t3 := Smalltalk highResClock - t3 * 1000 // (Time utcMicrosecondClock - t0). + + "Take the median of the 3 estimates as the best" + ^ t1 <= t2 + ifTrue: [t2 <= t3 + ifTrue: [t2] + ifFalse: [t1 <= t3 + ifTrue: [t3] + ifFalse: [t1]]] + ifFalse: [t1 <= t3 + ifTrue: [t1] + ifFalse: [t2 <= t3 + ifTrue: [t3] + ifFalse: [t2]]]! Item was added: + ----- Method: Time class>>highResClock (in category 'clock') ----- + highResClock + "Time highResClock" + "Primitive. Answer the value of the high resolution clock if this computer has one. + Usually, this should be the highest resolution value available, for example on Intel + it will be the value of the time stamp counter register." + <primitive: 'primitiveHighResClock'> + ^0! Item was added: + ----- Method: Time class>>highResClockTicksPerMillisecond (in category 'clock') ----- + highResClockTicksPerMillisecond + HighResClockTicksPerMillisecond = 0 + ifTrue: + [HighResClockTicksPerMillisecond := self estimateHighResClockTicksPerMillisecond]. + ^HighResClockTicksPerMillisecond! Item was changed: ----- Method: Time class>>initialize (in category 'class initialization') ----- initialize "Time initialize" "Initialize at startup time to protect for the case of an image saved with bad LastClockTick" LastClockTick := 0. + + HighResClockTicksPerMillisecond := 0. "self clockPolicy: #acceptPlatformTime." self clockPolicy: #monotonicAllowDuplicates. "self clockPolicy: #monotonicForceMicrosecondIncrement." "self clockPolicy: #monotonicForceNanosecondIncrement." ! Item was added: + ----- Method: Time class>>microsecondsToRun: (in category 'general inquiries') ----- + microsecondsToRun: timedBlock + "Answer the number of microseconds timedBlock takes to return its value." + + | startUsecs | + startUsecs := self utcMicrosecondClock. + timedBlock value. + ^self utcMicrosecondClock - startUsecs! Item was changed: ----- Method: Time class>>millisecondsToRun: (in category 'general inquiries') ----- millisecondsToRun: timedBlock "Answer the number of milliseconds timedBlock takes to return its value." + ^(self microsecondsToRun: timedBlock) + 500 // 1000! - | startUsecs | - startUsecs := self utcMicrosecondClock. - timedBlock value. - ^self utcMicrosecondClock - startUsecs + 500 // 1000!

1 0

Adding access to outer scopes to DynamicVariable
by Marcel Taeumel 23 Apr '19

23 Apr '19

Hi, there. Please find attached the addition of outer-scope access to DynamicVariable. Any thoughts on performance and programming interface? I would like to add it to trunk in the next week. :-) Best, Marcel

4 5

[ANN] ScriptBook 0.2
by Chris Cunnington 22 Apr '19

22 Apr '19

I fixed it. ScriptBook works now. The script is now a link, so you just click it (i.e. TextDoIt). It now has 8 applications to install: Refactoring Tools; NuScratch; OSProcess; Tonel; Seaside3; Command Shell; Scorch; Squot. (Installer ss3) project: 'ScriptBook'; install: 'ScriptBook'. ScriptBook new Chris Joe Jackson - I’m The Man https://www.youtube.com/watch?v=el66jnuItYc

1 0

The Inbox: Monticello-cmm.699.mcz
by commits＠source.squeak.org 22 Apr '19

22 Apr '19

Chris Muller uploaded a new version of Monticello to project The Inbox: http://source.squeak.org/inbox/Monticello-cmm.699.mcz ==================== Summary ==================== Name: Monticello-cmm.699 Author: cmm Time: 22 April 2019, 2:33:18.479505 pm UUID: de205c9e-af00-4954-9f2a-243d83ac9f1e Ancestors: Monticello-nice.695 - Fix revisions of class definitions when there's another PackageInfo defined whose full name is only a prefix of the working copy the selected class belongs to. - Check the local package-cache before hitting the server for operations where the ancestral UUID is known, such as diffing from the History list. Keep its allFileNamesCache up to date. =============== Diff against Monticello-nice.695 =============== Item was removed: - (PackageInfo named: 'Monticello') preamble: '"Woops, somehow missed the #browseMcMethodRevisions Service." - | methodMenuServiceCategory classMenuServiceCategory | - methodMenuServiceCategory := ServiceRegistry current serviceWithId: #browserMethodMenu. - methodMenuServiceCategory services copy do: - [ : each | (#(#browseMcMethodHistory #browseMcMethodOrigin ) includes: each id) ifTrue: [ methodMenuServiceCategory services remove: each ] ]. - classMenuServiceCategory := ServiceRegistry current serviceWithId: #browserClassMenu. - classMenuServiceCategory services copy do: - [ : each | (#(#browseMcClassHistory #browseMcClassOrigin ) includes: each id) ifTrue: [ classMenuServiceCategory services remove: each ] ]'! Item was changed: ----- Method: Class>>packageInfo (in category '*monticello') ----- packageInfo + ^ (PackageInfo allPackages select: [ : each | each includesClass: self ]) + ifEmpty: [ nil ] + ifNotEmpty: + [ : myPackages | "Select the most-qualified match." + myPackages detectMax: [ : each | each packageName size ] ]! - ^ PackageInfo allPackages - detect: [ : each | each includesClass: self ] - ifNone: [ nil ]! Item was removed: - ----- Method: MCRepository>>isTrunkBackup (in category 'testing') ----- - isTrunkBackup - ^ false! Item was changed: ----- Method: MCRepository>>prepareVersionForStorage: (in category 'accessing') ----- prepareVersionForStorage: aVersion ^ self alwaysStoreDiffs ifTrue: [aVersion asDiffAgainst: + (self withCache closestAncestorVersionFor: aVersion info ifNone: [^ aVersion])] - (self closestAncestorVersionFor: aVersion info ifNone: [^ aVersion])] ifFalse: [aVersion]! Item was added: + ----- Method: MCRepository>>withCache (in category 'accessing') ----- + withCache + "Answer the receiver with package-cache in front of it." + ^ MCRepositoryGroup with: self! Item was added: + ----- Method: MCRepositoryGroup class>>with: (in category 'instance creation') ----- + with: aMCRepository + ^ self new + addRepository: aMCRepository ; + yourself! Item was added: + ----- Method: MCRepositoryGroup>>closestAncestorVersionFor:ifNone: (in category 'accessing') ----- + closestAncestorVersionFor: anAncestry ifNone: errorBlock + anAncestry breadthFirstAncestorsDo: + [:ancestorInfo | + (self versionWithInfo: ancestorInfo) ifNotNil: [:v | ^ v]]. + ^ errorBlock value! Item was changed: ----- Method: MCRepositoryGroup>>flushAllFilenames (in category 'private') ----- flushAllFilenames + self repositories do: [ : each | each flushAllFilenames ]! - repositories do: [ : each | each flushAllFilenames ]! Item was changed: ----- Method: MCRepositoryGroup>>versionWithInfo:ifAbsent: (in category 'repository-api') ----- versionWithInfo: aVersionInfo ifAbsent: aBlock + self repositories do: - repositories do: [ : each | ([each versionWithInfo: aVersionInfo ifAbsent: [ nil ]] on: NetworkError do: [ : err | nil ]) ifNotNil: [ : ver | ^ ver ] ]. ^ aBlock value! Item was added: + ----- Method: MCRepositoryGroup>>withCache (in category 'accessing') ----- + withCache + ^ self! Item was changed: ----- Method: MCVersionNotification>>initializeWithVersion:repository: (in category 'private') ----- initializeWithVersion: aVersion repository: aRepository version := aVersion. repository := aRepository. + ancestor := repository withCache closestAncestorVersionFor: version info ifNone: []. - ancestor := repository closestAncestorVersionFor: version info ifNone: []. changes := ancestor ifNil: [#()] ifNotNil: [(version snapshot patchRelativeToBase: ancestor snapshot) operations sorted]! Item was changed: ----- Method: MCWorkingCopy>>changesRelativeToRepository: (in category 'operations') ----- + changesRelativeToRepository: aRepository - changesRelativeToRepository: aRepository | ancestorVersion ancestorSnapshot | + ancestorVersion := aRepository withCache + closestAncestorVersionFor: ancestry + ifNone: [ nil ]. + ancestorSnapshot := ancestorVersion + ifNil: [ MCSnapshot empty ] + ifNotNil: [ ancestorVersion snapshot ]. - ancestorVersion := aRepository closestAncestorVersionFor: ancestry ifNone: []. - ancestorSnapshot := ancestorVersion ifNil: [MCSnapshot empty] ifNotNil: [ancestorVersion snapshot]. ^ package snapshot patchRelativeToBase: ancestorSnapshot! Item was changed: ----- Method: MCWorkingCopyBrowser>>viewChanges (in category 'actions') ----- viewChanges | patch | self canSave ifTrue: + [patch := workingCopy changesRelativeToRepository: self repository withCache. + patch isNil ifTrue: [ ^self ]. - [patch := workingCopy changesRelativeToRepository: self repository. - patch isNil ifTrue: [^ self]. patch isEmpty ifTrue: [ workingCopy modified: false. self inform: 'No changes' ] ifFalse: [ workingCopy modified: true. (MCPatchBrowser forPatch: patch) label: 'Patch Browser: ', workingCopy description; environmentInDisplayingImage: workingCopy environment; + show ] ]! - show]]! Item was removed: - (PackageInfo named: 'Monticello') postscript: 'MCDefinitionIndex migrateAllInstances'!

2 1

The Inbox: Monticello-cmm.697.mcz
by commits＠source.squeak.org 22 Apr '19

22 Apr '19

Chris Muller uploaded a new version of Monticello to project The Inbox: http://source.squeak.org/inbox/Monticello-cmm.697.mcz ==================== Summary ==================== Name: Monticello-cmm.697 Author: cmm Time: 22 April 2019, 1:21:10.123489 pm UUID: 060eb72d-b40a-45d9-a92e-36ad3103ea8e Ancestors: Monticello-nice.695 - Fix revisions of class definitions when there's another PackageInfo defined whose full name is only a prefix of the working copy the selected class belongs to. - Check the local package-cache before hitting the server for operations where the ancestral UUID is known, such as diffing from the History list. Keep its allFileNamesCache up to date. =============== Diff against Monticello-nice.695 =============== Item was changed: ----- Method: Class>>packageInfo (in category '*monticello') ----- packageInfo + ^ (PackageInfo allPackages select: [ : each | each includesClass: self ]) + ifEmpty: [ nil ] + ifNotEmpty: + [ : myPackages | "Select the most-qualified match." + myPackages detectMax: [ : each | each packageName size ] ]! - ^ PackageInfo allPackages - detect: [ : each | each includesClass: self ] - ifNone: [ nil ]! Item was removed: - ----- Method: MCRepository>>isTrunkBackup (in category 'testing') ----- - isTrunkBackup - ^ false! Item was changed: ----- Method: MCRepository>>prepareVersionForStorage: (in category 'accessing') ----- prepareVersionForStorage: aVersion ^ self alwaysStoreDiffs ifTrue: [aVersion asDiffAgainst: + (self withCache closestAncestorVersionFor: aVersion info ifNone: [^ aVersion])] - (self closestAncestorVersionFor: aVersion info ifNone: [^ aVersion])] ifFalse: [aVersion]! Item was added: + ----- Method: MCRepository>>withCache (in category 'accessing') ----- + withCache + "Answer the receiver with package-cache in front of it." + ^ MCRepositoryGroup with: self! Item was added: + ----- Method: MCRepositoryGroup class>>with: (in category 'instance creation') ----- + with: aMCRepository + ^ self new + addRepository: aMCRepository ; + yourself! Item was added: + ----- Method: MCRepositoryGroup>>closestAncestorVersionFor:ifNone: (in category 'accessing') ----- + closestAncestorVersionFor: anAncestry ifNone: errorBlock + anAncestry breadthFirstAncestorsDo: + [:ancestorInfo | + (self versionWithInfo: ancestorInfo) ifNotNil: [:v | ^ v]]. + ^ errorBlock value! Item was changed: ----- Method: MCRepositoryGroup>>flushAllFilenames (in category 'private') ----- flushAllFilenames + self repositories do: [ : each | each flushAllFilenames ]! - repositories do: [ : each | each flushAllFilenames ]! Item was added: + ----- Method: MCRepositoryGroup>>highestNumberedVersionForPackageNamed: (in category 'accessing') ----- + highestNumberedVersionForPackageNamed: aString + | highest | + highest := nil. + "no 'self', to purposefully skip the package-cache for this UUID-less access." + repositories do: + [ : each | | current | + current := each highestNumberedVersionNameForPackageNamed: aString. + current ifNotNil: + [ highest + ifNil: [ highest := each -> current ] + ifNotNil: [ current versionNumber > highest versionNumber + ifTrue: [ highest := each -> current ] ] ] ]. + ^ highest key versionNamed: highest value! Item was changed: ----- Method: MCRepositoryGroup>>includesVersionNamed: (in category 'repository-api') ----- includesVersionNamed: aString + ^ self repositories anySatisfy: [ : each | [each includesVersionNamed: aString] on: Error do: [false]]! - ^ repositories anySatisfy: [ : each | [each includesVersionNamed: aString] on: Error do: [false]]! Item was changed: ----- Method: MCRepositoryGroup>>versionNamed: (in category 'repository-api') ----- versionNamed: aMCVersionName + self repositories do: - repositories do: [ : each | (each versionNamed: aMCVersionName) ifNotNil: [ : ver | ^ ver ] ]. ^ nil! Item was changed: ----- Method: MCRepositoryGroup>>versionWithInfo:ifAbsent: (in category 'repository-api') ----- versionWithInfo: aVersionInfo ifAbsent: aBlock + self repositories do: - repositories do: [ : each | ([each versionWithInfo: aVersionInfo ifAbsent: [ nil ]] on: NetworkError do: [ : err | nil ]) ifNotNil: [ : ver | ^ ver ] ]. ^ aBlock value! Item was added: + ----- Method: MCRepositoryGroup>>withCache (in category 'accessing') ----- + withCache + ^ self! Item was changed: ----- Method: MCVersionNotification>>initializeWithVersion:repository: (in category 'private') ----- initializeWithVersion: aVersion repository: aRepository version := aVersion. repository := aRepository. + ancestor := repository withCache closestAncestorVersionFor: version info ifNone: []. - ancestor := repository closestAncestorVersionFor: version info ifNone: []. changes := ancestor ifNil: [#()] ifNotNil: [(version snapshot patchRelativeToBase: ancestor snapshot) operations sorted]! Item was changed: ----- Method: MCWorkingCopy>>changesRelativeToRepository: (in category 'operations') ----- + changesRelativeToRepository: aRepository - changesRelativeToRepository: aRepository | ancestorVersion ancestorSnapshot | + ancestorVersion := aRepository withCache + closestAncestorVersionFor: ancestry + ifNone: [ nil ]. + ancestorSnapshot := ancestorVersion + ifNil: [ MCSnapshot empty ] + ifNotNil: [ ancestorVersion snapshot ]. - ancestorVersion := aRepository closestAncestorVersionFor: ancestry ifNone: []. - ancestorSnapshot := ancestorVersion ifNil: [MCSnapshot empty] ifNotNil: [ancestorVersion snapshot]. ^ package snapshot patchRelativeToBase: ancestorSnapshot! Item was changed: ----- Method: MCWorkingCopyBrowser>>viewChanges (in category 'actions') ----- viewChanges | patch | self canSave ifTrue: + [patch := workingCopy changesRelativeToRepository: self repository withCache. + patch isNil ifTrue: [ ^self ]. - [patch := workingCopy changesRelativeToRepository: self repository. - patch isNil ifTrue: [^ self]. patch isEmpty ifTrue: [ workingCopy modified: false. self inform: 'No changes' ] ifFalse: [ workingCopy modified: true. (MCPatchBrowser forPatch: patch) label: 'Patch Browser: ', workingCopy description; environmentInDisplayingImage: workingCopy environment; + show ] ]! - show]]!

2 1

The Inbox: Monticello-cmm.698.mcz
by commits＠source.squeak.org 22 Apr '19

22 Apr '19

Chris Muller uploaded a new version of Monticello to project The Inbox: http://source.squeak.org/inbox/Monticello-cmm.698.mcz ==================== Summary ==================== Name: Monticello-cmm.698 Author: cmm Time: 22 April 2019, 1:43:33.246295 pm UUID: efcc395c-49a6-4609-aa5f-b07e2febeff8 Ancestors: Monticello-nice.695 - Fix revisions of class definitions when there's another PackageInfo defined whose full name is only a prefix of the working copy the selected class belongs to. - Check the local package-cache before hitting the server for operations where the ancestral UUID is known, such as diffing from the History list. Keep its allFileNamesCache up to date. =============== Diff against Monticello-nice.695 =============== Item was changed: ----- Method: Class>>packageInfo (in category '*monticello') ----- packageInfo + ^ (PackageInfo allPackages select: [ : each | each includesClass: self ]) + ifEmpty: [ nil ] + ifNotEmpty: + [ : myPackages | "Select the most-qualified match." + myPackages detectMax: [ : each | each packageName size ] ]! - ^ PackageInfo allPackages - detect: [ : each | each includesClass: self ] - ifNone: [ nil ]! Item was removed: - ----- Method: MCRepository>>isTrunkBackup (in category 'testing') ----- - isTrunkBackup - ^ false! Item was changed: ----- Method: MCRepository>>prepareVersionForStorage: (in category 'accessing') ----- prepareVersionForStorage: aVersion ^ self alwaysStoreDiffs ifTrue: [aVersion asDiffAgainst: + (self withCache closestAncestorVersionFor: aVersion info ifNone: [^ aVersion])] - (self closestAncestorVersionFor: aVersion info ifNone: [^ aVersion])] ifFalse: [aVersion]! Item was added: + ----- Method: MCRepository>>withCache (in category 'accessing') ----- + withCache + "Answer the receiver with package-cache in front of it." + ^ MCRepositoryGroup with: self! Item was added: + ----- Method: MCRepositoryGroup class>>with: (in category 'instance creation') ----- + with: aMCRepository + ^ self new + addRepository: aMCRepository ; + yourself! Item was added: + ----- Method: MCRepositoryGroup>>closestAncestorVersionFor:ifNone: (in category 'accessing') ----- + closestAncestorVersionFor: anAncestry ifNone: errorBlock + anAncestry breadthFirstAncestorsDo: + [:ancestorInfo | + (self versionWithInfo: ancestorInfo) ifNotNil: [:v | ^ v]]. + ^ errorBlock value! Item was changed: ----- Method: MCRepositoryGroup>>flushAllFilenames (in category 'private') ----- flushAllFilenames + self repositories do: [ : each | each flushAllFilenames ]! - repositories do: [ : each | each flushAllFilenames ]! Item was changed: ----- Method: MCRepositoryGroup>>versionWithInfo:ifAbsent: (in category 'repository-api') ----- versionWithInfo: aVersionInfo ifAbsent: aBlock + self repositories do: - repositories do: [ : each | ([each versionWithInfo: aVersionInfo ifAbsent: [ nil ]] on: NetworkError do: [ : err | nil ]) ifNotNil: [ : ver | ^ ver ] ]. ^ aBlock value! Item was added: + ----- Method: MCRepositoryGroup>>withCache (in category 'accessing') ----- + withCache + ^ self! Item was changed: ----- Method: MCVersionNotification>>initializeWithVersion:repository: (in category 'private') ----- initializeWithVersion: aVersion repository: aRepository version := aVersion. repository := aRepository. + ancestor := repository withCache closestAncestorVersionFor: version info ifNone: []. - ancestor := repository closestAncestorVersionFor: version info ifNone: []. changes := ancestor ifNil: [#()] ifNotNil: [(version snapshot patchRelativeToBase: ancestor snapshot) operations sorted]! Item was changed: ----- Method: MCWorkingCopy>>changesRelativeToRepository: (in category 'operations') ----- + changesRelativeToRepository: aRepository - changesRelativeToRepository: aRepository | ancestorVersion ancestorSnapshot | + ancestorVersion := aRepository withCache + closestAncestorVersionFor: ancestry + ifNone: [ nil ]. + ancestorSnapshot := ancestorVersion + ifNil: [ MCSnapshot empty ] + ifNotNil: [ ancestorVersion snapshot ]. - ancestorVersion := aRepository closestAncestorVersionFor: ancestry ifNone: []. - ancestorSnapshot := ancestorVersion ifNil: [MCSnapshot empty] ifNotNil: [ancestorVersion snapshot]. ^ package snapshot patchRelativeToBase: ancestorSnapshot! Item was changed: ----- Method: MCWorkingCopyBrowser>>viewChanges (in category 'actions') ----- viewChanges | patch | self canSave ifTrue: + [patch := workingCopy changesRelativeToRepository: self repository withCache. + patch isNil ifTrue: [ ^self ]. - [patch := workingCopy changesRelativeToRepository: self repository. - patch isNil ifTrue: [^ self]. patch isEmpty ifTrue: [ workingCopy modified: false. self inform: 'No changes' ] ifFalse: [ workingCopy modified: true. (MCPatchBrowser forPatch: patch) label: 'Patch Browser: ', workingCopy description; environmentInDisplayingImage: workingCopy environment; + show ] ]! - show]]!

1 0

The Inbox: Installer-Core-cmm.431.mcz
by commits＠source.squeak.org 22 Apr '19

22 Apr '19

Chris Muller uploaded a new version of Installer-Core to project The Inbox: http://source.squeak.org/inbox/Installer-Core-cmm.431.mcz ==================== Summary ==================== Name: Installer-Core-cmm.431 Author: cmm Time: 21 April 2019, 7:54:57.789733 pm UUID: c241b3df-f0a8-4ed3-b11b-f8975ab292cf Ancestors: Installer-Core-tcj.426 Auto-install Metacello if necessary when a Metacello load script is executed. =============== Diff against Installer-Core-tcj.426 =============== Item was changed: ----- Method: Installer class>>ensureRecentMetacello (in category 'scripts') ----- ensureRecentMetacello "Copied and adapted from https://github.com/Metacello/metacello/blob/master/README.md" | metacello | ((Smalltalk classNamed: #WebClient) ifNil: [ false ] ifNotNil: [ :webClient | [ (webClient httpHead: 'https://github.com') isSuccess ] on: Error do: [ false ] ]) ifFalse: [ ^self inform: 'Could not connect to "https://github.com".\\You need an internet connection and SSL support\to install (or update) Metacello.\\Please fix those issues and try again.' translated withCRs ]. + self isMetacelloInstalled ifFalse: [ + "Prepare a clean environment for it." + Smalltalk globals removeKey: #Metacello. - metacello := (Smalltalk classNamed: #Metacello) ifNil: [ "Get the Metacello configuration (for Squeak users)" Installer gemsource project: 'metacello'; addPackage: 'ConfigurationOfMetacello'; install. "Bootstrap Metacello Preview, using mcz files (#'previewBootstrap' symbolic version" ((Smalltalk classNamed: #ConfigurationOfMetacello) project version: #'previewBootstrap') load. + metacello := Smalltalk classNamed: #Metacello ]. - Smalltalk classNamed: #Metacello ]. "Now load latest version of Metacello" metacello new baseline: 'Metacello'; repository: 'github://Metacello/metacello:master/repository'; get. metacello new baseline: 'Metacello'; repository: 'github://Metacello/metacello:master/repository'; load: #('default' 'Metacello-Help'). ! Item was added: + ----- Method: Installer class>>installAndOpenGitBrowser (in category 'scripts') ----- + installAndOpenGitBrowser + self installGitInfrastructure. + (Smalltalk at: #SquitBrowser) open.! Item was changed: ----- Method: Installer class>>installGitInfrastructure (in category 'scripts') ----- installGitInfrastructure + | priorSetting | + "for INIFileTest>>#testComplexRead" + priorSetting := Scanner allowUnderscoreAsAssignment. + Scanner allowUnderscoreAsAssignment: true. - self ensureRecentMetacello. - (Smalltalk at: #Metacello) new baseline: 'Squot'; repository: 'github://hpi-swa/Squot:master/src'; + load. + + Scanner allowUnderscoreAsAssignment: priorSetting + ! - load.! Item was added: + ----- Method: Installer class>>isMetacelloInstalled (in category 'scripts') ----- + isMetacelloInstalled + "Squeak is shipped with the global #Metacello referring to lightweight MetacelloStub. After the first message is sent, the latest Metacello is installed, replacing the stub." + ^ (Smalltalk at: #Metacello) ~= MetacelloStub! Item was added: + Object subclass: #MetacelloStub + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Installer-Core'! + + !MetacelloStub commentStamp: 'cmm 4/8/2019 14:00' prior: 0! + MetacelloStub is a loose reference to the class Metacello in its host repository. It's kept at both its real name, #MetacelloStub, as well as the name #Metacello. This is done to allow Squeak to respond to messages sent to Metacello (e.g., as referenced in external installation scripts), without the need to ship with Metacello pre-installed.! Item was added: + ----- Method: MetacelloStub class>>confirmMetacello (in category 'overriding') ----- + confirmMetacello + Installer isMetacelloInstalled ifFalse: + [ (UIManager confirm: 'This action requires Metacello, but it''s not installed. Download and install it now?') ifTrue: [ Installer ensureRecentMetacello ] ]! Item was added: + ----- Method: MetacelloStub class>>doesNotUnderstand: (in category 'overriding') ----- + doesNotUnderstand: aMessage + "Handle any messages sent to Metacello class, too." + self confirmMetacello. + ^ aMessage sendTo: (Smalltalk classNamed: #Metacello)! Item was added: + ----- Method: MetacelloStub class>>initialize (in category 'initialize-release') ----- + initialize + Smalltalk + at: #Metacello + ifAbsentPut: [ self ]! Item was added: + ----- Method: MetacelloStub class>>isMetacelloConfig (in category 'overriding') ----- + isMetacelloConfig + "Sent during Metacello's bootstrap initialization to all classes in the system. Respond false." + ^ false! Item was added: + ----- Method: MetacelloStub class>>new (in category 'overriding') ----- + new + self confirmMetacello. + ^ (Smalltalk at: #Metacello) new!

3 2

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