[etoys-dev] Etoys Inbox: Morphic-wiz.32.mcz

[commits at source.squeak.org]

A new version of Morphic was added to project Etoys Inbox:
http://source.squeak.org/etoysinbox/Morphic-wiz.32.mcz

==================== Summary ====================

Name: Morphic-wiz.32
Author: wiz
Time: 12 August 2010, 10:48:26 pm
UUID: 48460cb5-d82f-4f98-aa83-d15fd6b56a9b
Ancestors: Morphic-wiz.31

This removes the Collection>>#asKnownNameMenu and puts the code into the former senders.

That seem to be the worst complaint and in looking at it I can see why. So now its gone.

See Morphic-wiz.32 comments for more info on the targeting apps.

=============== Diff against Morphic-wiz.31 ===============

Item was changed:
  ----- Method: Morph>>sightWorldTargets: (in category 'meta-actions') -----
  sightWorldTargets: event 
  	"Return the potential targets for the receiver.  
  	This is derived from Morph>>potentialEmbeddingTargets."
+ 	| bullseye myWorld menu |
- 	| bullseye myWorld |
  	myWorld := self world
  		ifNil: [^ #()].
+ 
  	bullseye := Point fromUserWithCursor: Cursor target.
+ 	menu := CustomMenu new.
+ 	(myWorld potentialTargetsAt: bullseye)
+ 		do: [:m | menu
+ 				add: (m knownName
+ 						ifNil: [m class name asString])
+ 				action: m] .
+ 	self targetFromMenu: menu popupAt: bullseye!
- 	self targetFromMenu: ( myWorld morphsAt: bullseye) asKnownNameMenu popupAt: bullseye!

Item was changed:
  ----- Method: Morph>>sightTargets: (in category 'meta-actions') -----
  sightTargets: event 
  	"Return the potential targets for the receiver.  
  	This is derived from Morph>>potentialEmbeddingTargets."
+ 	| bullseye menu |
- 	| bullseye |
  	owner
  		ifNil: [^ #()].
  	bullseye := Point fromUserWithCursor: Cursor target.
+     	menu := CustomMenu new.
+ 	(self potentialTargetsAt: bullseye)
+ 		do: [:m | menu
+ 				add: (m knownName
+ 						ifNil: [m class name asString])
+ 				action: m] .
+ 	self targetFromMenu: menu popupAt: bullseye!
- 	self targetFromMenu: (self potentialTargetsAt: bullseye) asKnownNameMenu popupAt: bullseye!

Item was removed:
- ----- Method: Collection>>asKnownNameMenu (in category '*Morphic-objectMenu') -----
- asKnownNameMenu
- 	"Return a menu to select an element of the collection.  
- 	Menu uses the knownName or class name as only description of  
- 	element."
- 	| menu |
- 	menu := CustomMenu new.
- 	self
- 		do: [:m | menu
- 				add: (m knownName
- 						ifNil: [m class name asString])
- 				action: m].
- 	^ menu!