[Pkg] The Trunk: Morphic-tpr.714.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Jan 1 00:47:24 UTC 2014

tim Rowledge uploaded a new version of Morphic to project The Trunk:

==================== 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') -----
+ 	"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]!

More information about the Packages mailing list