The Trunk: Morphic-tpr.714.mcz

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]!