Squeak-dev June 2013

squeak-dev@lists.squeakfoundation.org

45 participants
215 discussions

The Trunk: ToolsTests-fbs.66.mcz
by commits＠source.squeak.org 29 Jun '13

29 Jun '13

Frank Shearar uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-fbs.66.mcz ==================== Summary ==================== Name: ToolsTests-fbs.66 Author: fbs Time: 29 June 2013, 10:23:54.003 pm UUID: ec13d0c3-3b9c-4e40-bfcd-d1c92fb47fd1 Ancestors: ToolsTests-fbs.65 MethodReferenceTest belongs with the other System-Support tests. =============== Diff against ToolsTests-fbs.65 =============== Item was removed: - ClassTestCase subclass: #MethodReferenceTest - instanceVariableNames: 'env' - classVariableNames: '' - poolDictionaries: '' - category: 'ToolsTests-Browser'! Item was removed: - ----- Method: MethodReferenceTest>>createClass: (in category 'private') ----- - createClass: aSymbol - | builder | - builder := ClassBuilder new. - ^ builder - name: aSymbol - inEnvironment: env - subclassOf: Object - type: #normal - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Test'.! Item was removed: - ----- Method: MethodReferenceTest>>setUp (in category 'running') ----- - setUp - | g p | - env := Environment named: 'test'. - g := self createClass: #Griffle. - p := self createClass: #Plonk. - g compile: 'foo ^ 1'. - g organization classify: #foo under: #accessing. - g class compile: 'classFoo ^ 1'. - g compile: 'bar ^ 1'. - p compile: 'foo ^ 2'. - self createClass: #Unused.! Item was removed: - ----- Method: MethodReferenceTest>>testActualClassIsScopedToEnvironment (in category 'tests') ----- - testActualClassIsScopedToEnvironment - | mref | - mref := MethodReference class: (env at: #Griffle) selector: #foo environment: env. - self assert: (env at: #Griffle) equals: mref actualClass.! Item was removed: - ----- Method: MethodReferenceTest>>testCanReferToMethodInSpecificEnvironment (in category 'tests') ----- - testCanReferToMethodInSpecificEnvironment - | mref | - mref := MethodReference class: self class selector: #testReferencedEnvironmentDefaultsToSmalltalkGlobals environment: env. - self assert: env equals: mref environment.! Item was removed: - ----- Method: MethodReferenceTest>>testCategory (in category 'tests') ----- - testCategory - | mref | - mref := MethodReference class: (env at: #Griffle) selector: #foo environment: env. - self assert: #accessing equals: mref category.! Item was removed: - ----- Method: MethodReferenceTest>>testEquals (in category 'Running') ----- - testEquals - | aMethodReference anotherMethodReference | - aMethodReference := MethodReference new. - anotherMethodReference := MethodReference new. - "Two fresh instances should be equals between them" - self assert: MethodReference new equals: MethodReference new. - self assert: MethodReference new hash equals: MethodReference new hash. - - "Two instances representing the same method (same class and - same selector) should be equals" - self assert: (MethodReference class: String selector: #foo) equals: (MethodReference class: String selector: #foo). - self assert: (MethodReference class: String selector: #foo) hash equals: (MethodReference class: String selector: #foo) hash.! Item was removed: - ----- Method: MethodReferenceTest>>testNotEquals (in category 'Running') ----- - testNotEquals - self - deny: (MethodReference class: String selector: #foo) = (MethodReference class: String class selector: #foo) - description: 'Different classes, same selector -> no more equals'. - self - deny: (MethodReference class: String selector: #foo) = (MethodReference class: String selector: #bar) - description: 'Same class, different selectors -> no more equals'.! Item was removed: - ----- Method: MethodReferenceTest>>testReferencedEnvironmentDefaultsToSmalltalkGlobals (in category 'tests') ----- - testReferencedEnvironmentDefaultsToSmalltalkGlobals - | mref | - mref := MethodReference class: self class selector: #testReferencedEnvironmentDefaultsToSmalltalkGlobals. - self assert: Smalltalk globals equals: mref environment.!

1 0

The Trunk: Tests-fbs.227.mcz
by commits＠source.squeak.org 29 Jun '13

29 Jun '13

Frank Shearar uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-fbs.227.mcz ==================== Summary ==================== Name: Tests-fbs.227 Author: fbs Time: 29 June 2013, 10:23:04.332 pm UUID: 72ba076d-3256-9247-84d5-083b821bf818 Ancestors: Tests-fbs.226 MethodReferenceTest belongs with the other System-Support tests. =============== Diff against Tests-fbs.226 =============== Item was added: + ClassTestCase subclass: #MethodReferenceTest + instanceVariableNames: 'env' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-System-Support'! Item was added: + ----- Method: MethodReferenceTest>>createClass: (in category 'private') ----- + createClass: aSymbol + | builder | + builder := ClassBuilder new. + ^ builder + name: aSymbol + inEnvironment: env + subclassOf: Object + type: #normal + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Test'.! Item was added: + ----- Method: MethodReferenceTest>>setUp (in category 'running') ----- + setUp + | g p | + env := Environment named: 'test'. + g := self createClass: #Griffle. + p := self createClass: #Plonk. + g compile: 'foo ^ 1'. + g organization classify: #foo under: #accessing. + g class compile: 'classFoo ^ 1'. + g compile: 'bar ^ 1'. + p compile: 'foo ^ 2'. + self createClass: #Unused.! Item was added: + ----- Method: MethodReferenceTest>>testActualClassIsScopedToEnvironment (in category 'tests') ----- + testActualClassIsScopedToEnvironment + | mref | + mref := MethodReference class: (env at: #Griffle) selector: #foo environment: env. + self assert: (env at: #Griffle) equals: mref actualClass.! Item was added: + ----- Method: MethodReferenceTest>>testCanReferToMethodInSpecificEnvironment (in category 'tests') ----- + testCanReferToMethodInSpecificEnvironment + | mref | + mref := MethodReference class: self class selector: #testReferencedEnvironmentDefaultsToSmalltalkGlobals environment: env. + self assert: env equals: mref environment.! Item was added: + ----- Method: MethodReferenceTest>>testCategory (in category 'tests') ----- + testCategory + | mref | + mref := MethodReference class: (env at: #Griffle) selector: #foo environment: env. + self assert: #accessing equals: mref category.! Item was added: + ----- Method: MethodReferenceTest>>testEquals (in category 'Running') ----- + testEquals + | aMethodReference anotherMethodReference | + aMethodReference := MethodReference new. + anotherMethodReference := MethodReference new. + "Two fresh instances should be equals between them" + self assert: MethodReference new equals: MethodReference new. + self assert: MethodReference new hash equals: MethodReference new hash. + + "Two instances representing the same method (same class and + same selector) should be equals" + self assert: (MethodReference class: String selector: #foo) equals: (MethodReference class: String selector: #foo). + self assert: (MethodReference class: String selector: #foo) hash equals: (MethodReference class: String selector: #foo) hash.! Item was added: + ----- Method: MethodReferenceTest>>testNotEquals (in category 'Running') ----- + testNotEquals + self + deny: (MethodReference class: String selector: #foo) = (MethodReference class: String class selector: #foo) + description: 'Different classes, same selector -> no more equals'. + self + deny: (MethodReference class: String selector: #foo) = (MethodReference class: String selector: #bar) + description: 'Same class, different selectors -> no more equals'.! Item was added: + ----- Method: MethodReferenceTest>>testReferencedEnvironmentDefaultsToSmalltalkGlobals (in category 'tests') ----- + testReferencedEnvironmentDefaultsToSmalltalkGlobals + | mref | + mref := MethodReference class: self class selector: #testReferencedEnvironmentDefaultsToSmalltalkGlobals. + self assert: Smalltalk globals equals: mref environment.!

1 0

The Trunk: System-fbs.550.mcz
by commits＠source.squeak.org 29 Jun '13

29 Jun '13

Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.550.mcz ==================== Summary ==================== Name: System-fbs.550 Author: fbs Time: 29 June 2013, 10:14:21.587 pm UUID: 760ec309-3235-4d44-ab21-6e2cb0290bdb Ancestors: System-fbs.549 Move things to do with object events to the System-Object Events subpackage. =============== Diff against System-fbs.549 =============== Item was added: + ----- Method: CompiledMethod>>hasBreakpoint (in category '*System-Tools-debugger support') ----- + hasBreakpoint + ^BreakpointManager methodHasBreakpoint: self! Item was added: + ----- Method: Object>>actionForEvent: (in category '*System-Object Events-accessing') ----- + actionForEvent: anEventSelector + "Answer the action to be evaluated when <anEventSelector> has been triggered." + + ^self actionMap + at: anEventSelector asSymbol + ifAbsent: [nil]! Item was added: + ----- Method: Object>>actionForEvent:ifAbsent: (in category '*System-Object Events-accessing') ----- + actionForEvent: anEventSelector + ifAbsent: anExceptionBlock + "Answer the action to be evaluated when <anEventSelector> has been triggered." + + | actions | + actions := self actionMap + at: anEventSelector asSymbol + ifAbsent: [nil]. + ^actions ifNil: [anExceptionBlock value]! Item was added: + ----- Method: Object>>actionMap (in category '*System-Object Events-accessing') ----- + actionMap + + ^EventManager actionMapFor: self! Item was added: + ----- Method: Object>>actionSequenceForEvent: (in category '*System-Object Events-accessing') ----- + actionSequenceForEvent: anEventSelector + + ^(self actionMap + at: anEventSelector asSymbol + ifAbsent: [^WeakActionSequence new]) + asActionSequence! Item was added: + ----- Method: Object>>actionsDo: (in category '*System-Object Events-accessing') ----- + actionsDo: aBlock + + self actionMap do: aBlock! Item was added: + ----- Method: Object>>actionsWithReceiver:forEvent: (in category '*System-Change Notification-events') ----- + actionsWithReceiver: anObject forEvent: anEventSelector + + ^(self actionSequenceForEvent: anEventSelector) + select: [:anAction | anAction receiver == anObject ]! Item was added: + ----- Method: Object>>asActionSequence (in category '*System-Change Notification-converting') ----- + asActionSequence + + ^WeakActionSequence with: self! Item was added: + ----- Method: Object>>asActionSequenceTrappingErrors (in category '*System-Change Notification-converting') ----- + asActionSequenceTrappingErrors + + ^WeakActionSequenceTrappingErrors with: self! Item was added: + ----- Method: Object>>break (in category '*System-Tools-breakpoint') ----- + break + "This is a simple message to use for inserting breakpoints during debugging. + The debugger is opened by sending a signal. This gives a chance to restore + invariants related to multiple processes." + + BreakPoint signal. + + "nil break."! Item was added: + ----- Method: Object>>createActionMap (in category '*System-Object Events-accessing') ----- + createActionMap + + ^IdentityDictionary new! Item was added: + ----- Method: Object>>hasActionForEvent: (in category '*System-Object Events-accessing') ----- + hasActionForEvent: anEventSelector + "Answer true if there is an action associated with anEventSelector" + + ^(self actionForEvent: anEventSelector) notNil! Item was added: + ----- Method: Object>>releaseActionMap (in category '*System-Object Events-accessing-removing') ----- + releaseActionMap + + EventManager releaseActionMapFor: self! Item was added: + ----- Method: Object>>removeAction:forEvent: (in category '*System-Object Events-accessing-removing') ----- + removeAction: anAction + forEvent: anEventSelector + + self + removeActionsSatisfying: [:action | action = anAction] + forEvent: anEventSelector! Item was added: + ----- Method: Object>>removeActionsForEvent: (in category '*System-Object Events-accessing-removing') ----- + removeActionsForEvent: anEventSelector + + | map | + map := self actionMap. + map removeKey: anEventSelector asSymbol ifAbsent: []. + map isEmpty + ifTrue: [self releaseActionMap]! Item was added: + ----- Method: Object>>removeActionsSatisfying: (in category '*System-Object Events-accessing-removing') ----- + removeActionsSatisfying: aBlock + + self actionMap keys do: + [:eachEventSelector | + self + removeActionsSatisfying: aBlock + forEvent: eachEventSelector + ]! Item was added: + ----- Method: Object>>removeActionsSatisfying:forEvent: (in category '*System-Object Events-accessing-removing') ----- + removeActionsSatisfying: aOneArgBlock + forEvent: anEventSelector + + self + setActionSequence: + ((self actionSequenceForEvent: anEventSelector) + reject: aOneArgBlock) + forEvent: anEventSelector! Item was added: + ----- Method: Object>>removeActionsWithReceiver: (in category '*System-Object Events-accessing-removing') ----- + removeActionsWithReceiver: anObject + + self actionMap copy keysDo: + [:eachEventSelector | + self + removeActionsSatisfying: [:anAction | anAction receiver == anObject] + forEvent: eachEventSelector + ]! Item was added: + ----- Method: Object>>removeActionsWithReceiver:forEvent: (in category '*System-Object Events-accessing-removing') ----- + removeActionsWithReceiver: anObject + forEvent: anEventSelector + + self + removeActionsSatisfying: + [:anAction | + anAction receiver == anObject] + forEvent: anEventSelector! Item was added: + ----- Method: Object>>renameActionsWithReceiver:forEvent:toEvent: (in category '*System-Change Notification-events') ----- + renameActionsWithReceiver: anObject forEvent: anEventSelector toEvent: newEvent + + | oldActions newActions | + oldActions := Set new. + newActions := Set new. + (self actionSequenceForEvent: anEventSelector) do: [ :action | + action receiver == anObject + ifTrue: [ oldActions add: anObject ] + ifFalse: [ newActions add: anObject ]]. + self setActionSequence: (ActionSequence withAll: newActions) forEvent: anEventSelector. + oldActions do: [ :act | self when: newEvent evaluate: act ].! Item was added: + ----- Method: Object>>setActionSequence:forEvent: (in category '*System-Object Events-accessing') ----- + setActionSequence: actionSequence + forEvent: anEventSelector + + | action | + "This is a good time to compact the action sequence of old, garbage collected stuff." + action := actionSequence asMinimalRepresentation. + action + ifNil: [ self removeActionsForEvent: anEventSelector] + ifNotNil: [ + self updateableActionMap + at: anEventSelector asSymbol + put: action]! Item was added: + ----- Method: Object>>triggerEvent: (in category '*System-Object Events-accessing-triggering') ----- + triggerEvent: anEventSelector + "Evaluate all actions registered for <anEventSelector>. Return the value of the last registered action." + + ^(self actionForEvent: anEventSelector) value! Item was added: + ----- Method: Object>>triggerEvent:ifNotHandled: (in category '*System-Object Events-accessing-triggering') ----- + triggerEvent: anEventSelector + ifNotHandled: anExceptionBlock + "Evaluate all actions registered for <anEventSelector>. Return the value of the last registered action." + + ^(self + actionForEvent: anEventSelector + ifAbsent: [^anExceptionBlock value]) value + ! Item was added: + ----- Method: Object>>triggerEvent:with: (in category '*System-Object Events-accessing-triggering') ----- + triggerEvent: anEventSelector + with: anObject + + ^self + triggerEvent: anEventSelector + withArguments: (Array with: anObject)! Item was added: + ----- Method: Object>>triggerEvent:with:ifNotHandled: (in category '*System-Object Events-accessing-triggering') ----- + triggerEvent: anEventSelector + with: anObject + ifNotHandled: anExceptionBlock + + ^self + triggerEvent: anEventSelector + withArguments: (Array with: anObject) + ifNotHandled: anExceptionBlock! Item was added: + ----- Method: Object>>triggerEvent:withArguments: (in category '*System-Object Events-accessing-triggering') ----- + triggerEvent: anEventSelector + withArguments: anArgumentList + + ^(self actionForEvent: anEventSelector) + valueWithArguments: anArgumentList! Item was added: + ----- Method: Object>>triggerEvent:withArguments:ifNotHandled: (in category '*System-Object Events-accessing-triggering') ----- + triggerEvent: anEventSelector + withArguments: anArgumentList + ifNotHandled: anExceptionBlock + + ^(self + actionForEvent: anEventSelector + ifAbsent: [^anExceptionBlock value]) + valueWithArguments: anArgumentList! Item was added: + ----- Method: Object>>updateableActionMap (in category '*System-Object Events-accessing') ----- + updateableActionMap + + ^EventManager updateableActionMapFor: self! Item was added: + ----- Method: Object>>when:evaluate: (in category '*System-Object Events-accessing-registering') ----- + when: anEventSelector evaluate: anAction + + | actions | + actions := self actionSequenceForEvent: anEventSelector. + (actions includes: anAction) + ifTrue: [^ self]. + self + setActionSequence: (actions copyWith: anAction) + forEvent: anEventSelector! Item was added: + ----- Method: Object>>when:send:to: (in category '*System-Object Events-accessing-registering') ----- + when: anEventSelector + send: aMessageSelector + to: anObject + + self + when: anEventSelector + evaluate: (WeakMessageSend + receiver: anObject + selector: aMessageSelector)! Item was added: + ----- Method: Object>>when:send:to:with: (in category '*System-Object Events-accessing-registering') ----- + when: anEventSelector + send: aMessageSelector + to: anObject + with: anArg + + self + when: anEventSelector + evaluate: (WeakMessageSend + receiver: anObject + selector: aMessageSelector + arguments: (Array with: anArg))! Item was added: + ----- Method: Object>>when:send:to:withArguments: (in category '*System-Object Events-accessing-registering') ----- + when: anEventSelector + send: aMessageSelector + to: anObject + withArguments: anArgArray + + self + when: anEventSelector + evaluate: (WeakMessageSend + receiver: anObject + selector: aMessageSelector + arguments: anArgArray)! Item was added: + Array variableSubclass: #WeakActionSequence + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'System-Change Notification'! Item was added: + ----- Method: WeakActionSequence>>asActionSequence (in category 'converting') ----- + asActionSequence + + ^self! Item was added: + ----- Method: WeakActionSequence>>asActionSequenceTrappingErrors (in category 'converting') ----- + asActionSequenceTrappingErrors + + ^WeakActionSequenceTrappingErrors withAll: self! Item was added: + ----- Method: WeakActionSequence>>asMinimalRepresentation (in category 'converting') ----- + asMinimalRepresentation + + | valid | + valid := self reject: [:e | e isReceiverOrAnyArgumentGarbage ]. + valid size = 0 + ifTrue: [ ^nil ]. + valid size = 1 + ifTrue: [ ^valid first ]. + ^valid! Item was added: + ----- Method: WeakActionSequence>>printOn: (in category 'printing') ----- + printOn: aStream + + self size < 2 ifTrue: [^super printOn: aStream]. + aStream nextPutAll: '#('. + self + do: [:each | each printOn: aStream] + separatedBy: [aStream cr]. + aStream nextPut: $)! Item was added: + ----- Method: WeakActionSequence>>value (in category 'evaluating') ----- + value + "Answer the result of evaluating the elements of the receiver. + Actually, return just the last result." + + ^self inject: nil into: [ :previousAnswer :each | + each valueOtherwise: [ previousAnswer ]].! Item was added: + ----- Method: WeakActionSequence>>valueWithArguments: (in category 'evaluating') ----- + valueWithArguments: anArray + "Return the last result" + + ^self inject: nil into: [ :previousAnswer :each | + each valueWithArguments: anArray otherwise: [ previousAnswer ]]!

1 0

The Trunk: Kernel-fbs.772.mcz
by commits＠source.squeak.org 29 Jun '13

29 Jun '13

Frank Shearar uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-fbs.772.mcz ==================== Summary ==================== Name: Kernel-fbs.772 Author: fbs Time: 29 June 2013, 10:13:17.979 pm UUID: 7366bd8f-bc8c-754d-a817-291d33689207 Ancestors: Kernel-nice.771 Move things to do with object events to the System-Object Events subpackage. =============== Diff against Kernel-nice.771 =============== Item was changed: SystemOrganization addCategory: #'Kernel-Chronology'! SystemOrganization addCategory: #'Kernel-Classes'! SystemOrganization addCategory: #'Kernel-Exceptions'! SystemOrganization addCategory: #'Kernel-Exceptions-Kernel'! SystemOrganization addCategory: #'Kernel-Methods'! SystemOrganization addCategory: #'Kernel-Models'! SystemOrganization addCategory: #'Kernel-Numbers'! SystemOrganization addCategory: #'Kernel-Numbers-Exceptions'! SystemOrganization addCategory: #'Kernel-Objects'! SystemOrganization addCategory: #'Kernel-Processes'! SystemOrganization addCategory: #'Kernel-Processes-Variables'! + SystemOrganization addCategory: #'Kernel-Methods-Proxies'! Item was removed: - ----- Method: CompiledMethod>>hasBreakpoint (in category 'debugger support') ----- - hasBreakpoint - ^BreakpointManager methodHasBreakpoint: self! Item was removed: - ----- Method: Object>>actionForEvent: (in category 'events-accessing') ----- - actionForEvent: anEventSelector - "Answer the action to be evaluated when <anEventSelector> has been triggered." - - ^self actionMap - at: anEventSelector asSymbol - ifAbsent: [nil]! Item was removed: - ----- Method: Object>>actionForEvent:ifAbsent: (in category 'events-accessing') ----- - actionForEvent: anEventSelector - ifAbsent: anExceptionBlock - "Answer the action to be evaluated when <anEventSelector> has been triggered." - - | actions | - actions := self actionMap - at: anEventSelector asSymbol - ifAbsent: [nil]. - ^actions ifNil: [anExceptionBlock value]! Item was removed: - ----- Method: Object>>actionMap (in category 'events-accessing') ----- - actionMap - - ^EventManager actionMapFor: self! Item was removed: - ----- Method: Object>>actionSequenceForEvent: (in category 'events-accessing') ----- - actionSequenceForEvent: anEventSelector - - ^(self actionMap - at: anEventSelector asSymbol - ifAbsent: [^WeakActionSequence new]) - asActionSequence! Item was removed: - ----- Method: Object>>actionsDo: (in category 'events-accessing') ----- - actionsDo: aBlock - - self actionMap do: aBlock! Item was removed: - ----- Method: Object>>actionsWithReceiver:forEvent: (in category 'events') ----- - actionsWithReceiver: anObject forEvent: anEventSelector - - ^(self actionSequenceForEvent: anEventSelector) - select: [:anAction | anAction receiver == anObject ]! Item was removed: - ----- Method: Object>>asActionSequence (in category 'converting') ----- - asActionSequence - - ^WeakActionSequence with: self! Item was removed: - ----- Method: Object>>asActionSequenceTrappingErrors (in category 'converting') ----- - asActionSequenceTrappingErrors - - ^WeakActionSequenceTrappingErrors with: self! Item was removed: - ----- Method: Object>>break (in category 'breakpoint') ----- - break - "This is a simple message to use for inserting breakpoints during debugging. - The debugger is opened by sending a signal. This gives a chance to restore - invariants related to multiple processes." - - BreakPoint signal. - - "nil break."! Item was removed: - ----- Method: Object>>createActionMap (in category 'events-accessing') ----- - createActionMap - - ^IdentityDictionary new! Item was removed: - ----- Method: Object>>hasActionForEvent: (in category 'events-accessing') ----- - hasActionForEvent: anEventSelector - "Answer true if there is an action associated with anEventSelector" - - ^(self actionForEvent: anEventSelector) notNil! Item was removed: - ----- Method: Object>>releaseActionMap (in category 'events-removing') ----- - releaseActionMap - - EventManager releaseActionMapFor: self! Item was removed: - ----- Method: Object>>removeAction:forEvent: (in category 'events-removing') ----- - removeAction: anAction - forEvent: anEventSelector - - self - removeActionsSatisfying: [:action | action = anAction] - forEvent: anEventSelector! Item was removed: - ----- Method: Object>>removeActionsForEvent: (in category 'events-removing') ----- - removeActionsForEvent: anEventSelector - - | map | - map := self actionMap. - map removeKey: anEventSelector asSymbol ifAbsent: []. - map isEmpty - ifTrue: [self releaseActionMap]! Item was removed: - ----- Method: Object>>removeActionsSatisfying: (in category 'events-removing') ----- - removeActionsSatisfying: aBlock - - self actionMap keys do: - [:eachEventSelector | - self - removeActionsSatisfying: aBlock - forEvent: eachEventSelector - ]! Item was removed: - ----- Method: Object>>removeActionsSatisfying:forEvent: (in category 'events-removing') ----- - removeActionsSatisfying: aOneArgBlock - forEvent: anEventSelector - - self - setActionSequence: - ((self actionSequenceForEvent: anEventSelector) - reject: aOneArgBlock) - forEvent: anEventSelector! Item was removed: - ----- Method: Object>>removeActionsWithReceiver: (in category 'events-removing') ----- - removeActionsWithReceiver: anObject - - self actionMap copy keysDo: - [:eachEventSelector | - self - removeActionsSatisfying: [:anAction | anAction receiver == anObject] - forEvent: eachEventSelector - ]! Item was removed: - ----- Method: Object>>removeActionsWithReceiver:forEvent: (in category 'events-removing') ----- - removeActionsWithReceiver: anObject - forEvent: anEventSelector - - self - removeActionsSatisfying: - [:anAction | - anAction receiver == anObject] - forEvent: anEventSelector! Item was removed: - ----- Method: Object>>renameActionsWithReceiver:forEvent:toEvent: (in category 'events') ----- - renameActionsWithReceiver: anObject forEvent: anEventSelector toEvent: newEvent - - | oldActions newActions | - oldActions := Set new. - newActions := Set new. - (self actionSequenceForEvent: anEventSelector) do: [ :action | - action receiver == anObject - ifTrue: [ oldActions add: anObject ] - ifFalse: [ newActions add: anObject ]]. - self setActionSequence: (ActionSequence withAll: newActions) forEvent: anEventSelector. - oldActions do: [ :act | self when: newEvent evaluate: act ].! Item was removed: - ----- Method: Object>>setActionSequence:forEvent: (in category 'events-accessing') ----- - setActionSequence: actionSequence - forEvent: anEventSelector - - | action | - "This is a good time to compact the action sequence of old, garbage collected stuff." - action := actionSequence asMinimalRepresentation. - action - ifNil: [ self removeActionsForEvent: anEventSelector] - ifNotNil: [ - self updateableActionMap - at: anEventSelector asSymbol - put: action]! Item was removed: - ----- Method: Object>>triggerEvent: (in category 'events-triggering') ----- - triggerEvent: anEventSelector - "Evaluate all actions registered for <anEventSelector>. Return the value of the last registered action." - - ^(self actionForEvent: anEventSelector) value! Item was removed: - ----- Method: Object>>triggerEvent:ifNotHandled: (in category 'events-triggering') ----- - triggerEvent: anEventSelector - ifNotHandled: anExceptionBlock - "Evaluate all actions registered for <anEventSelector>. Return the value of the last registered action." - - ^(self - actionForEvent: anEventSelector - ifAbsent: [^anExceptionBlock value]) value - ! Item was removed: - ----- Method: Object>>triggerEvent:with: (in category 'events-triggering') ----- - triggerEvent: anEventSelector - with: anObject - - ^self - triggerEvent: anEventSelector - withArguments: (Array with: anObject)! Item was removed: - ----- Method: Object>>triggerEvent:with:ifNotHandled: (in category 'events-triggering') ----- - triggerEvent: anEventSelector - with: anObject - ifNotHandled: anExceptionBlock - - ^self - triggerEvent: anEventSelector - withArguments: (Array with: anObject) - ifNotHandled: anExceptionBlock! Item was removed: - ----- Method: Object>>triggerEvent:withArguments: (in category 'events-triggering') ----- - triggerEvent: anEventSelector - withArguments: anArgumentList - - ^(self actionForEvent: anEventSelector) - valueWithArguments: anArgumentList! Item was removed: - ----- Method: Object>>triggerEvent:withArguments:ifNotHandled: (in category 'events-triggering') ----- - triggerEvent: anEventSelector - withArguments: anArgumentList - ifNotHandled: anExceptionBlock - - ^(self - actionForEvent: anEventSelector - ifAbsent: [^anExceptionBlock value]) - valueWithArguments: anArgumentList! Item was removed: - ----- Method: Object>>updateableActionMap (in category 'events-accessing') ----- - updateableActionMap - - ^EventManager updateableActionMapFor: self! Item was removed: - ----- Method: Object>>when:evaluate: (in category 'events-registering') ----- - when: anEventSelector evaluate: anAction - - | actions | - actions := self actionSequenceForEvent: anEventSelector. - (actions includes: anAction) - ifTrue: [^ self]. - self - setActionSequence: (actions copyWith: anAction) - forEvent: anEventSelector! Item was removed: - ----- Method: Object>>when:send:to: (in category 'events-registering') ----- - when: anEventSelector - send: aMessageSelector - to: anObject - - self - when: anEventSelector - evaluate: (WeakMessageSend - receiver: anObject - selector: aMessageSelector)! Item was removed: - ----- Method: Object>>when:send:to:with: (in category 'events-registering') ----- - when: anEventSelector - send: aMessageSelector - to: anObject - with: anArg - - self - when: anEventSelector - evaluate: (WeakMessageSend - receiver: anObject - selector: aMessageSelector - arguments: (Array with: anArg))! Item was removed: - ----- Method: Object>>when:send:to:withArguments: (in category 'events-registering') ----- - when: anEventSelector - send: aMessageSelector - to: anObject - withArguments: anArgArray - - self - when: anEventSelector - evaluate: (WeakMessageSend - receiver: anObject - selector: aMessageSelector - arguments: anArgArray)! Item was removed: - Array variableSubclass: #WeakActionSequence - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Kernel-Objects'! Item was removed: - ----- Method: WeakActionSequence>>asActionSequence (in category 'converting') ----- - asActionSequence - - ^self! Item was removed: - ----- Method: WeakActionSequence>>asActionSequenceTrappingErrors (in category 'converting') ----- - asActionSequenceTrappingErrors - - ^WeakActionSequenceTrappingErrors withAll: self! Item was removed: - ----- Method: WeakActionSequence>>asMinimalRepresentation (in category 'converting') ----- - asMinimalRepresentation - - | valid | - valid := self reject: [:e | e isReceiverOrAnyArgumentGarbage ]. - valid size = 0 - ifTrue: [ ^nil ]. - valid size = 1 - ifTrue: [ ^valid first ]. - ^valid! Item was removed: - ----- Method: WeakActionSequence>>printOn: (in category 'printing') ----- - printOn: aStream - - self size < 2 ifTrue: [^super printOn: aStream]. - aStream nextPutAll: '#('. - self - do: [:each | each printOn: aStream] - separatedBy: [aStream cr]. - aStream nextPut: $)! Item was removed: - ----- Method: WeakActionSequence>>value (in category 'evaluating') ----- - value - "Answer the result of evaluating the elements of the receiver. - Actually, return just the last result." - - ^self inject: nil into: [ :previousAnswer :each | - each valueOtherwise: [ previousAnswer ]].! Item was removed: - ----- Method: WeakActionSequence>>valueWithArguments: (in category 'evaluating') ----- - valueWithArguments: anArray - "Return the last result" - - ^self inject: nil into: [ :previousAnswer :each | - each valueWithArguments: anArray otherwise: [ previousAnswer ]]!

1 0

Daily Commit Log
by commits＠source.squeak.org 29 Jun '13

29 Jun '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-June/006078.html Name: Compression-fbs.35 Ancestors: Compression-fbs.34 Push service-y stuff out of low level code into packages closer to the UI. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-June/006079.html Name: System-fbs.549 Ancestors: System-fbs.548 Push service-y stuff out of low level code into packages closer to the UI. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-June/006080.html Name: Tools-fbs.475 Ancestors: Tools-fbs.474 Push service-y stuff out of low level code into packages closer to the UI. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-June/006081.html Name: Tools-fbs.476 Ancestors: Tools-fbs.475 When you rename a message category, select the _new_ name so that you stay where you were. =============================================

1 0

The Trunk: Tools-fbs.476.mcz
by commits＠source.squeak.org 28 Jun '13

28 Jun '13

Frank Shearar uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-fbs.476.mcz ==================== Summary ==================== Name: Tools-fbs.476 Author: fbs Time: 28 June 2013, 8:56:08.948 pm UUID: e33fa621-870c-af40-9e54-5b343a5e8367 Ancestors: Tools-fbs.475 When you rename a message category, select the _new_ name so that you stay where you were. =============== Diff against Tools-fbs.475 =============== Item was changed: ----- Method: Browser>>renameCategory (in category 'message category functions') ----- renameCategory "Prompt for a new category name and add it before the current selection, or at the end if no current selection" | oldName newName | self hasClassSelected ifFalse: [^ self]. self okToChange ifFalse: [^ self]. self hasMessageCategorySelected ifFalse: [^ self]. oldName := self selectedMessageCategoryName. newName := self request: 'Please type new category name' initialAnswer: oldName. newName isEmpty ifTrue: [^ self] ifFalse: [newName := newName asSymbol]. newName = oldName ifTrue: [^ self]. self classOrMetaClassOrganizer renameCategory: oldName toBe: newName. self selectClassNamed: selectedClassName. + self selectMessageCategoryNamed: newName. - self selectMessageCategoryNamed: oldName. self changed: #messageCategoryList. !

1 0

The Trunk: Tools-fbs.475.mcz
by commits＠source.squeak.org 28 Jun '13

28 Jun '13

Frank Shearar uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-fbs.475.mcz ==================== Summary ==================== Name: Tools-fbs.475 Author: fbs Time: 28 June 2013, 8:47:32.376 pm UUID: 1e99ed63-15f5-1a4f-8414-8a7bc33ca4ab Ancestors: Tools-fbs.474 Push service-y stuff out of low level code into packages closer to the UI. =============== Diff against Tools-fbs.474 =============== Item was changed: ----- Method: ArchiveViewer>>extractAll (in category 'archive operations') ----- extractAll | directory | self canExtractAll ifFalse: [^ self]. directory := FileList2 modalFolderSelector ifNil: [^ self]. + UIManager default informUserDuring: [:bar| archive extractAllTo: directory informing: bar].! - archive extractAllTo: directory.!

1 0

The Trunk: System-fbs.549.mcz
by commits＠source.squeak.org 28 Jun '13

28 Jun '13

Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.549.mcz ==================== Summary ==================== Name: System-fbs.549 Author: fbs Time: 28 June 2013, 8:45:25.76 pm UUID: 217705f1-4e04-b04c-a09c-31e343182089 Ancestors: System-fbs.548 Push service-y stuff out of low level code into packages closer to the UI. =============== Diff against System-fbs.548 =============== Item was changed: ----- Method: ExternalDropHandler class>>defaultGZipHandler (in category 'private') ----- defaultGZipHandler ^ExternalDropHandler type: nil extension: 'gz' + action: [:stream :pasteUp :event | | contents | + contents := Cursor wait showWhile: [stream viewGZipContents]. + UIManager default + edit: contents + label: 'Decompressed contents of: ', stream localName].! - action: [:stream :pasteUp :event | - stream viewGZipContents]! Item was added: + ----- Method: GZipReadStream class>>serviceViewDecompress (in category '*System-FileRegistry') ----- + serviceViewDecompress + + ^ SimpleServiceEntry + provider: self + label: 'view decompressed' + selector: #viewContents: + description: 'view decompressed' + ! Item was added: + ----- Method: GZipReadStream class>>viewContents: (in category '*System-FileRegistry') ----- + viewContents: fullFileName + "Open the decompressed contents of the .gz file with the given name. This method is only required for the registering-file-list of Squeak 3.3a and beyond, but does no harm in an earlier system" + + (FileStream readOnlyFileNamed: fullFileName) ifNotNil: + [:aStream | | contents | + contents := Cursor wait showWhile: [aStream viewGZipContents]. + UIManager default + edit: contents + label: 'Decompressed contents of: ', aStream localName].!

1 0

The Trunk: Compression-fbs.35.mcz
by commits＠source.squeak.org 28 Jun '13

28 Jun '13

Frank Shearar uploaded a new version of Compression to project The Trunk: http://source.squeak.org/trunk/Compression-fbs.35.mcz ==================== Summary ==================== Name: Compression-fbs.35 Author: fbs Time: 28 June 2013, 8:44:46.942 pm UUID: 1dc85a45-cd8a-1644-aded-fbcf28435e5d Ancestors: Compression-fbs.34 Push service-y stuff out of low level code into packages closer to the UI. =============== Diff against Compression-fbs.34 =============== Item was changed: ----- Method: FileStream>>viewGZipContents (in category '*Compression') ----- viewGZipContents "View the contents of a gzipped file" | stringContents | self binary. stringContents := self contentsOfEntireFile. + stringContents := (GZipReadStream on: stringContents) upToEnd. + ^ stringContents asString withSqueakLineEndings.! - stringContents := Cursor wait showWhile: [(GZipReadStream on: stringContents) upToEnd]. - stringContents := stringContents asString withSqueakLineEndings. - - UIManager default - edit: stringContents - label: 'Decompressed contents of: ', self localName! Item was removed: - ----- Method: GZipReadStream class>>serviceViewDecompress (in category 'fileIn/Out') ----- - serviceViewDecompress - - ^ SimpleServiceEntry - provider: self - label: 'view decompressed' - selector: #viewContents: - description: 'view decompressed' - ! Item was removed: - ----- Method: GZipReadStream class>>viewContents: (in category 'fileIn/Out') ----- - viewContents: fullFileName - "Open the decompressed contents of the .gz file with the given name. This method is only required for the registering-file-list of Squeak 3.3a and beyond, but does no harm in an earlier system" - - (FileStream readOnlyFileNamed: fullFileName) ifNotNil: - [:aStream | aStream viewGZipContents]! Item was changed: ----- Method: ZipArchive>>extractAllTo: (in category 'archive operations') ----- extractAllTo: aDirectory "Extract all elements to the given directory" + self extractAllTo: aDirectory informing: nil.! - UIManager default informUserDuring:[:bar|self extractAllTo: aDirectory informing: bar].! Item was changed: ----- Method: ZipArchive>>extractAllTo:informing: (in category 'archive operations') ----- extractAllTo: aDirectory informing: bar + "Extract all elements to the given directory, notifying the user of progress" - "Extract all elements to the given directory" ^self extractAllTo: aDirectory informing: bar overwrite: false!

1 0

Re: [squeak-dev] The Trunk: Files-fbs.124.mcz
by Chris Muller 28 Jun '13

28 Jun '13

Did you change your mind about going through UIManager indicateWaitWhile: [ ... ]? On Thu, Jun 27, 2013 at 2:41 PM, <commits(a)source.squeak.org> wrote: > Frank Shearar uploaded a new version of Files to project The Trunk: > http://source.squeak.org/trunk/Files-fbs.124.mcz > > ==================== Summary ==================== > > Name: Files-fbs.124 > Author: fbs > Time: 27 June 2013, 5:18:49.925 pm > UUID: db8086ca-e21b-9748-a401-0430a5641821 > Ancestors: Files-tpr.123 > > Remove the Cursor >> #showWhile because this method has no senders (it's an example of how to recursively enumerate a FileDirectory) and so needlessly introduces a dependency on Graphics. > > The diff is very noisy because we unindent the block. > > =============== Diff against Files-tpr.123 =============== > > Item was changed: > ----- Method: FileDirectory>>statsForDirectoryTree: (in category 'enumeration') ----- > statsForDirectoryTree: rootedPathName > "Return the size statistics for the entire directory tree starting at the given root. The result is a three element array of the form: (<number of folders><number of files><total bytes in all files>). This method also serves as an example of how recursively enumerate a directory tree." > "FileDirectory default statsForDirectoryTree: '\smalltalk'" > > + | dirs files bytes todo entries p | > + dirs := files := bytes := 0. > + todo := OrderedCollection with: rootedPathName. > + [todo isEmpty] whileFalse: [ > + p := todo removeFirst. > + entries := self directoryContentsFor: p. > + entries do: [:entry | > + entry isDirectory > + ifTrue: [ > + todo addLast: p , self pathNameDelimiter asString , entry name. > + dirs := dirs + 1] > + ifFalse: [ > + files := files + 1. > + bytes := bytes + entry fileSize]]]. > + ^ Array with: dirs with: files with: bytes > - ^Cursor wait showWhile: [ > - | dirs files bytes todo entries p | > - dirs := files := bytes := 0. > - todo := OrderedCollection with: rootedPathName. > - [todo isEmpty] whileFalse: [ > - p := todo removeFirst. > - entries := self directoryContentsFor: p. > - entries do: [:entry | > - entry isDirectory > - ifTrue: [ > - todo addLast: p , self pathNameDelimiter asString , entry name. > - dirs := dirs + 1] > - ifFalse: [ > - files := files + 1. > - bytes := bytes + entry fileSize]]]. > - Array with: dirs with: files with: bytes] > ! > >

2 1

← Newer
1
2
3
4
5
6
7
8
...
22
Older →

Jump to page: