Packages September 2014

packages@lists.squeakfoundation.org

1 participants
129 discussions

The Trunk: Monticello-topa.599.mcz
by commits＠source.squeak.org 03 Sep '14

03 Sep '14

Tobias Pape uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-topa.599.mcz ==================== Summary ==================== Name: Monticello-topa.599 Author: topa Time: 3 September 2014, 2:36:05.016 pm UUID: 4b7e0536-55d7-4a52-91fe-82bb2d8a6531 Ancestors: Monticello-bp.598, Monticello-bf.540 * Merge bf.540: Save dialog now shows a list of changes to be submitted. Clicking a list item shows a diff in the lower pane. Advanced users can also make this save ignore individual changes using the item's context menu. * On 'Accept' another snapshot is created to capture changes done while the dialog was open (to not break CM's workflow :). * Allow for proper comparison of MCPatchOperation =============== Diff against Monticello-bp.598 =============== Item was added: + ----- Method: MCAddition>>= (in category 'as yet unclassified') ----- + = other + ^ other isAddition and: [definition = other definition]! Item was added: + ----- Method: MCAddition>>hash (in category 'as yet unclassified') ----- + hash + ^ definition hash! Item was added: + ----- Method: MCModification>>= (in category 'as yet unclassified') ----- + = other + ^ other isModification + and: [obsoletion = other obsoletion + and: [modification = other modification]]! Item was added: + ----- Method: MCModification>>hash (in category 'as yet unclassified') ----- + hash + ^ obsoletion hash bitXor: modification hash! Item was added: + ----- Method: MCPatch>>ignoring: (in category 'accessing') ----- + ignoring: ignoredOperations + ^ MCPatch operations: (operations difference: ignoredOperations)! Item was added: + ----- Method: MCRemoval>>= (in category 'as yet unclassified') ----- + = other + ^ other isRemoval and: [definition = other definition]! Item was added: + ----- Method: MCRemoval>>hash (in category 'as yet unclassified') ----- + hash + ^ definition hash! Item was added: + Notification subclass: #MCRepositoryRequest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Monticello-UI'! Item was changed: + MCPatchBrowser subclass: #MCSaveVersionDialog + instanceVariableNames: 'name message ignore patchBlock' - MCTool subclass: #MCSaveVersionDialog - instanceVariableNames: 'name message' classVariableNames: '' poolDictionaries: '' category: 'Monticello-UI'! Item was changed: ----- Method: MCSaveVersionDialog>>accept (in category 'as yet unclassified') ----- accept + self updateItems. self answer: (Array with: (self findTextMorph: #versionName) text asString + with: (self findTextMorph: #logMessage) text asString + with: ignore) + ! - with: (self findTextMorph: #logMessage) text asString) - ! Item was changed: ----- Method: MCSaveVersionDialog>>defaultExtent (in category 'as yet unclassified') ----- defaultExtent + ^ 700@600! - ^ 400@300! Item was added: + ----- Method: MCSaveVersionDialog>>ignore (in category 'as yet unclassified') ----- + ignore + ^ ignore ifNil: [ignore := Set new]! Item was added: + ----- Method: MCSaveVersionDialog>>ignoreSelection (in category 'as yet unclassified') ----- + ignoreSelection + selection + ifNil: [ignore size = items size + ifFalse: [ignore addAll: items] + ifTrue: [ignore removeAll]] + ifNotNil: [ + ignore remove: selection ifAbsent: [ + ignore add: selection]. + self selection < items size + ifTrue: [self selection: self selection + 1]]. + self changed: #list + ! Item was added: + ----- Method: MCSaveVersionDialog>>installSelection (in category 'as yet unclassified') ----- + installSelection + super installSelection. + selection ifNotNil: [ + ignore remove: selection ifAbsent: []. + self changed: #list]. + + ! Item was added: + ----- Method: MCSaveVersionDialog>>list (in category 'as yet unclassified') ----- + list + ^ self items collect: [:ea | + (self ignore includes: ea) + ifFalse: [ea summary] + ifTrue: [Text string: '( ', ea summary, ' )' attribute: TextEmphasis struckOut ]]! Item was added: + ----- Method: MCSaveVersionDialog>>message (in category 'accessing') ----- + message + + ^ message! Item was added: + ----- Method: MCSaveVersionDialog>>message: (in category 'accessing') ----- + message: anObject + + message := anObject! Item was added: + ----- Method: MCSaveVersionDialog>>methodListKey:from: (in category 'as yet unclassified') ----- + methodListKey: aKeystroke from: aListMorph + aKeystroke caseOf: { + [$I] -> [self ignoreSelection]. + } otherwise: [super methodListKey: aKeystroke from: aListMorph ]! Item was added: + ----- Method: MCSaveVersionDialog>>methodListMenu: (in category 'as yet unclassified') ----- + methodListMenu: aMenu + aMenu addList:#( + ('ignore (I)' ignoreSelection 'Do not include this change when saving') + -). + super methodListMenu: aMenu. + ^aMenu! Item was added: + ----- Method: MCSaveVersionDialog>>name: (in category 'accessing') ----- + name: anObject + + name := anObject! Item was added: + ----- Method: MCSaveVersionDialog>>patchBlock (in category 'accessing') ----- + patchBlock + + ^ patchBlock! Item was added: + ----- Method: MCSaveVersionDialog>>patchBlock: (in category 'accessing') ----- + patchBlock: anObject + + patchBlock := anObject. + self updateItems! Item was added: + ----- Method: MCSaveVersionDialog>>revertSelection (in category 'as yet unclassified') ----- + revertSelection + super revertSelection. + selection ifNotNil: [ + ignore add: selection. + self changed: #list]. + ! Item was added: + ----- Method: MCSaveVersionDialog>>updateItems (in category 'as yet unclassified') ----- + updateItems + " update our items using the patchBlock " + self patch: patchBlock value! Item was changed: ----- Method: MCSaveVersionDialog>>widgetSpecs (in category 'as yet unclassified') ----- widgetSpecs ^ #( + ((listMorph:selection:menu:keystroke: list selection methodListMenu: methodListKey:from:) (0 0 0.5 0.6) ) + ((textMorph: versionName) (0.5 0 1 0) (0 0 0 30)) + ((textMorph: logMessage) (0.5 0 1 0.6) (0 30 0 -30)) + ((buttonRow) (0.5 0.6 1 0.6) (0 -30 0 0)) + ((textMorph: text) (0 0.6 1 1) (0 0 0 0)) - ((textMorph: versionName) (0 0 1 0) (0 0 0 30)) - ((textMorph: logMessage) (0 0 1 1) (0 30 0 -30)) - ((buttonRow) (0 1 1 1) (0 -40 0 0)) )! Item was changed: ----- Method: MCTool>>showModally (in category 'morphic ui') ----- showModally modalProcess := Processor activeProcess. + self window openInWorldExtent: self defaultExtent. - self window openInWorldExtent: (400@400). [self window world notNil] whileTrue: [ self window outermostWorldMorph doOneCycle. ]. morph := nil. ^ modalValue! Item was changed: Notification subclass: #MCVersionNameAndMessageRequest + instanceVariableNames: 'suggestion initialMessage patchBlock' - instanceVariableNames: 'suggestion initialMessage' classVariableNames: '' poolDictionaries: '' category: 'Monticello-Versioning'! Item was changed: ----- Method: MCVersionNameAndMessageRequest>>defaultAction (in category 'handling') ----- defaultAction ^ MCSaveVersionDialog new versionName: suggestion; logMessage: initialMessage; + patchBlock: patchBlock; showModally! Item was added: + ----- Method: MCVersionNameAndMessageRequest>>patchBlock (in category 'accessing') ----- + patchBlock + ^ patchBlock! Item was added: + ----- Method: MCVersionNameAndMessageRequest>>patchBlock: (in category 'accessing') ----- + patchBlock: aBlock + patchBlock := aBlock + ! Item was changed: ----- Method: MCWorkingCopy>>newVersion (in category 'operations') ----- newVersion + | packageSnapshot parentSnapshot patch | + parentSnapshot := self parentSnapshot. ^ (self requestVersionNameAndMessageWithSuggestion: self uniqueVersionName + initialMessage: self patchMessageSuggestion + patchBlock: [patch := (packageSnapshot := package snapshot) patchRelativeToBase: parentSnapshot] + ) ifNotNil: [:tuple | + self newVersionWithName: tuple first withBlanksTrimmed + message: (self patchMessageStripped: tuple second) + snapshot: (tuple third + ifEmpty: [packageSnapshot] + ifNotEmpty: [ + MCPatcher apply: (patch ignoring: tuple third) + to: parentSnapshot])] - initialMessage: self patchMessageSuggestion) ifNotNil: - [:pair | - self newVersionWithName: pair first withBlanksTrimmed - message: (self patchMessageStripped: pair last)]. ! Item was changed: ----- Method: MCWorkingCopy>>newVersionWithName:message: (in category 'operations') ----- newVersionWithName: nameString message: messageString + ^self newVersionWithName: nameString message: messageString snapshot: package snapshot! - | info deps | - info := ancestry infoWithName: nameString message: messageString. - ancestry := MCWorkingAncestry new addAncestor: info. - self modified: true; modified: false. - - deps := self requiredPackages collect: - [:ea | - MCVersionDependency - package: ea - info: ea workingCopy currentVersionInfo]. - - ^ MCVersion - package: package - info: info - snapshot: package snapshot - dependencies: deps! Item was added: + ----- Method: MCWorkingCopy>>newVersionWithName:message:snapshot: (in category 'operations') ----- + newVersionWithName: nameString message: messageString snapshot: aSnapshot + | info deps clean | + info := ancestry infoWithName: nameString message: messageString. + ancestry := MCWorkingAncestry new addAncestor: info. + clean := (package snapshot patchRelativeToBase: aSnapshot) isEmpty. + self modified: clean; modified: clean not. "hack to ensure label is updated" + + deps := self requiredPackages collect: + [:ea | + MCVersionDependency + package: ea + info: ea workingCopy currentVersionInfo]. + + ^ MCVersion + package: package + info: info + snapshot: aSnapshot + dependencies: deps! Item was added: + ----- Method: MCWorkingCopy>>parentSnapshot (in category 'private') ----- + parentSnapshot + "prefer parent in selected repository" + MCRepositoryRequest signal ifNotNil: [:repo | + self ancestors do: [:ancestor | + (repo versionWithInfo: ancestor) + ifNotNil: [:ver | ^ver snapshot]]]. + "otherwise, look in all repositories" + self ancestors do: [:ancestor | + (self repositoryGroup versionWithInfo: ancestor) + ifNotNil: [:ver | ^ver snapshot]]. + "otherwise" + ^MCSnapshot empty! Item was added: + ----- Method: MCWorkingCopy>>patchMessageAncestry (in category 'operations') ----- + patchMessageAncestry + ^ String streamContents: [:strm | + strm nextPutAll: ancestry summary; cr. + self ancestors do: [:ancestor | + strm cr. + strm nextPutAll: ancestor name; nextPut: $:; crtab. + strm nextPutAll: ancestor message; cr.]] + ! Item was changed: ----- Method: MCWorkingCopy>>patchMessageChanges (in category 'operations') ----- patchMessageChanges + | changes | + changes := package snapshot patchRelativeToBase: self parentSnapshot. - | changes parentInfo parentSnapshot | - parentInfo := self ancestors - ifEmpty: [nil] - ifNotEmpty: [self ancestors first]. - parentSnapshot := self findSnapshotWithVersionInfo: parentInfo. - changes := package snapshot patchRelativeToBase: parentSnapshot. ^ (MCPatchMessage new patch: changes) message! Item was changed: ----- Method: MCWorkingCopy>>patchMessageSuggestion (in category 'operations') ----- patchMessageSuggestion + ^ String streamContents: [:strm | strm + nextPutAll: self patchMessageDefault; cr;cr; + nextPutAll: self patchMessageChangesDelimiter; cr; + nextPutAll: self patchMessageAncestry]! - ^ self patchMessageDefault, String cr, String cr, - self patchMessageChangesDelimiter, String cr, - self patchMessageChangesHeader, String cr, - self patchMessageChanges! Item was removed: - ----- Method: MCWorkingCopy>>requestVersionNameAndMessageWithSuggestion:initialMessage: (in category 'private') ----- - requestVersionNameAndMessageWithSuggestion: nameString initialMessage: msgString - ^ (MCVersionNameAndMessageRequest new - suggestedName: nameString; - initialMessage: msgString - ) signal! Item was added: + ----- Method: MCWorkingCopy>>requestVersionNameAndMessageWithSuggestion:initialMessage:patchBlock: (in category 'private') ----- + requestVersionNameAndMessageWithSuggestion: nameString initialMessage: msgString patchBlock: aPatchBlock + ^ (MCVersionNameAndMessageRequest new + suggestedName: nameString; + initialMessage: msgString; + patchBlock: aPatchBlock + ) signal! Item was changed: ----- Method: MCWorkingCopyBrowser>>saveVersion (in category 'actions') ----- saveVersion | repo | self canSave ifFalse: [^self]. self checkForNewerVersions ifFalse: [^self]. repo := self repository. + (self withRepository: repo do: [workingCopy newVersion]) ifNotNil: - workingCopy newVersion ifNotNil: [:v | (MCVersionInspector new version: v) show. Cursor wait showWhile: [repo storeVersion: v]. MCCacheRepository default cacheAllFileNamesDuring: [repo cacheAllFileNamesDuring: [v allAvailableDependenciesDo: [:dep | (repo includesVersionNamed: dep info name) ifFalse: [repo storeVersion: dep]]]]]! Item was added: + ----- Method: MCWorkingCopyBrowser>>withRepository:do: (in category 'actions') ----- + withRepository: aRepository do: aBlock + ^aBlock + on: MCRepositoryRequest + do: [:req | req resume: aRepository]!

1 0

The Trunk: Monticello-topa.599.mcz
by commits＠source.squeak.org 03 Sep '14

03 Sep '14

1 0

The Trunk: Monticello-topa.599.mcz
by commits＠source.squeak.org 03 Sep '14

03 Sep '14

1 0

The Trunk: Kernel-eem.869.mcz
by commits＠source.squeak.org 02 Sep '14

02 Sep '14

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.869.mcz ==================== Summary ==================== Name: Kernel-eem.869 Author: eem Time: 2 September 2014, 2:28:08.442 pm UUID: 69beb9e8-c62a-41d3-9d0f-e2c265530789 Ancestors: Kernel-mt.868 Fix a bug and an issue with ContextPart>>quickSend:to:with:super:. First, the lookup class for a normal send should be derived from the rcvr argument, not from the context's receiver. Second, the existing code assumed the SqueakV3/Smalltalk-80 bytecode set. Requires at least Compiler-eem.288. =============== Diff against Kernel-mt.868 =============== Item was changed: ----- Method: ContextPart>>quickSend:to:with:super: (in category 'controlling') ----- + quickSend: selector to: rcvr with: arguments super: superFlag - quickSend: selector to: receiver with: arguments super: superFlag "Send the given selector with arguments in an environment which closely resembles the non-simulating environment, with an interjected unwind-protected block to catch nonlocal returns. Attention: don't get lost!! This beautiful method is due to Hans-Martin Mosner. Eliot Miranda merely added the mirror primitive code." | oldSender contextToReturnTo result lookupClass | contextToReturnTo := self. lookupClass := superFlag ifTrue: [self method methodClassAssociation value superclass] + ifFalse: [self objectClass: rcvr]. - ifFalse: [self objectClass: self receiver]. [oldSender := thisContext sender swapSender: self. + result := self object: rcvr perform: selector withArguments: arguments inClass: lookupClass. + thisContext sender swapSender: oldSender] ifCurtailed: - result := self object: receiver perform: selector withArguments: arguments inClass: lookupClass. - thisContext sender swapSender: oldSender] ifCurtailed: [contextToReturnTo := thisContext sender receiver. "The block context returning nonlocally" + contextToReturnTo pc: contextToReturnTo previousPc. "skip to front of return bytecode causing this unwind" + contextToReturnTo willReturnTopFromMethod ifTrue: - contextToReturnTo jump: -1. "skip to front of return bytecode causing this unwind" - contextToReturnTo nextByte = 16r7C ifTrue: "If it was a returnTop, push the value to be returned. Otherwise the value is implicit in the bytecode" [contextToReturnTo push: (thisContext sender tempAt: 1)]. thisContext swapSender: thisContext home sender. "Make this block return to the method's sender" contextToReturnTo]. contextToReturnTo push: result. ^contextToReturnTo! Item was added: + ----- Method: InstructionStream>>willReturnTopFromMethod (in category 'testing') ----- + willReturnTopFromMethod + "Answer whether the next bytecode is a return stack top from method." + | method | + method := self method. + ^method encoderClass isReturnTopFromMethodAt: pc in: method!

1 0

The Trunk: Kernel-eem.869.mcz
by commits＠source.squeak.org 02 Sep '14

02 Sep '14

1 0

The Trunk: Kernel-eem.869.mcz
by commits＠source.squeak.org 02 Sep '14

02 Sep '14

1 0

The Trunk: Compiler-eem.288.mcz
by commits＠source.squeak.org 02 Sep '14

02 Sep '14

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.288.mcz ==================== Summary ==================== Name: Compiler-eem.288 Author: eem Time: 2 September 2014, 2:22:13.42 pm UUID: 79749887-066e-4675-9b9a-c39cae7f4ad4 Ancestors: Compiler-eem.287 Provide support for fixing ContextPart>>#quickSend:to:with:super: =============== Diff against Compiler-eem.287 =============== Item was added: + ----- Method: BytecodeEncoder class>>isReturnTopFromMethodAt:in: (in category 'instruction stream support') ----- + isReturnTopFromMethodAt: pc in: method + "Answer whether the bytecode at pc is a return stack top from method." + + self subclassResponsibility! Item was added: + ----- Method: EncoderForV3 class>>isReturnTopFromMethodAt:in: (in category 'instruction stream support') ----- + isReturnTopFromMethodAt: pc in: method + "Answer whether the bytecode at pc is a return stack top from method." + + ^(method at: pc) = 124!

1 0

The Trunk: Compiler-eem.288.mcz
by commits＠source.squeak.org 02 Sep '14

02 Sep '14

1 0

The Trunk: Compiler-eem.288.mcz
by commits＠source.squeak.org 02 Sep '14

02 Sep '14

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages September 2014