tim Rowledge uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-tpr.714.mcz
==================== Summary ====================
Name: Morphic-tpr.714 Author: tpr Time: 31 December 2013, 4:45:38.484 pm UUID: 76e61735-1670-45a9-baef-d5bfd9a2d6b8 Ancestors: Morphic-fbs.713
remove some unsent methods as tagged by isThisEverCalled
=============== Diff against Morphic-fbs.713 ===============
Item was changed: ----- Method: AlternatePluggableListMorphOfMany>>list: (in category 'initialization') ----- list: listOfStrings + self isThisEverCalled . scroller removeAllMorphs. list := listOfStrings ifNil: [Array new]. list isEmpty ifTrue: [^ self selectedMorph: nil]. super list: listOfStrings.
"At this point first morph is sensitized, and all morphs share same handler." scroller firstSubmorph on: #mouseEnterDragging send: #mouseEnterDragging:onItem: to: self. scroller firstSubmorph on: #mouseUp send: #mouseUp:onItem: to: self. "This should add this behavior to the shared event handler thus affecting all items"!
Item was changed: ----- Method: HaloMorph>>dismiss (in category 'private') ----- dismiss + "Remove my target from the world Seems to be EToy specific." - "Remove my target from the world."
| w | - self isThisEverCalled. "Seemingly no longer enfranchised" w := self world. w ifNotNil: [w stopStepping: target]. self delete. target dismissViaHalo!
Item was changed: ----- Method: PluggableListMorph>>selectedMorph: (in category 'selection') ----- selectedMorph: aMorph + "this shouldn't be used any longer. Only sent by implemetations of #list: such as PluggableListMorph, SimpleHierarchicalListMorph etc" - "this shouldn't be used any longer"
self isThisEverCalled . true ifTrue: [^self]!
Item was removed: - ----- Method: TransferMorph>>dropNotifyRecipient (in category 'accessing') ----- - dropNotifyRecipient - self isThisEverCalled. - ^dropNotifyRecipient!
Item was removed: - ----- Method: TransferMorph>>dropNotifyRecipient: (in category 'accessing') ----- - dropNotifyRecipient: anObject - self isThisEverCalled. - dropNotifyRecipient := anObject!
Item was removed: - ----- Method: TransferMorph>>result: (in category 'dropping/grabbing') ----- - result: result - self isThisEverCalled. - ^ self result: result from: nil!
Item was removed: - ----- Method: TransferMorph>>result:from: (in category 'dropping/grabbing') ----- - result: aResult from: aResultGenerator - "Send aResult of the drop operation computed by aResultGenerator to a resultRecipient, if it exists." - self isThisEverCalled. - resultRecipient ifNotNil: [resultRecipient dropResult: aResult from: aResultGenerator]!
squeak-dev@lists.squeakfoundation.org