[etoys-dev] Etoys: MorphicExtras-bf.74.mcz

[commits at source.squeak.org]

Bert Freudenberg uploaded a new version of MorphicExtras to project Etoys:
http://source.squeak.org/etoys/MorphicExtras-bf.74.mcz

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

Name: MorphicExtras-bf.74
Author: bf
Time: 27 June 2012, 11:18:52 am
UUID: a2ddfb14-89d0-429f-9f90-40de8a1c6b57
Ancestors: MorphicExtras-bf.73

Revert addition of graph-location watcher items to Morph's extras menu. The viewer is a better way to get watchers.

=============== Diff against MorphicExtras-bf.73 ===============

Item was removed:
- ----- Method: Morph>>addGraphLocationPlotter (in category '*MorphicExtras-accessing') -----
- addGraphLocationPlotter
- 	"Create an unlabeled watcher on the locationOnGraph of the object and give it a ticking tick that keeps it clinging beneath the watchee wherever it goes.  "
- 
- 	| aWatcher |
- 	aWatcher := FollowingWatcher new buildForPlayer: self topRendererOrSelf assuredPlayer getter: #getLocationOnGraph.
- 	aWatcher firstSubmorph beTransparent; borderWidth: 0.
- 	aWatcher beTransparent; borderWidth: 0.
- 	aWatcher attachmentEdge: #bottom.
- 	aWatcher openInWorld!

Item was changed:
  ----- Method: Morph>>addMiscExtrasTo: (in category '*MorphicExtras-menus') -----
  addMiscExtrasTo: aMenu
  	"Add a submenu of miscellaneous extra items to the menu."
  
  	| realOwner realMorph subMenu |
  	subMenu _ MenuMorph new defaultTarget: self.
  	(Preferences eToyFriendly not and: [self isWorldMorph not and: [self renderedMorph isSystemWindow not]])
  		ifTrue: [subMenu add: 'put in a window' translated action: #embedInWindow].
  
  	self isWorldMorph ifFalse:
  		[subMenu add: 'adhere to edge...' translated action: #adhereToEdge.
  		subMenu addLine].
  
  	realOwner _ (realMorph _ self topRendererOrSelf) owner.
  	(realOwner isKindOf: TextPlusPasteUpMorph) ifTrue:
  		[subMenu add: 'GeeMail stuff...' translated subMenu: (realOwner textPlusMenuFor: realMorph)].
  
  	Preferences eToyFriendly
   ifFalse: [
  		subMenu
  	
  		add: 'add mouse up action' translated action: #addMouseUpAction;
  	
  		add: 'remove mouse up action' translated action: #removeMouseUpAction;
  	
  		add: 'hand me tiles to fire this button' translated action: #handMeTilesToFire.
  	
  	subMenu addLine.
  	].
  
  	Preferences eToyFriendly
   ifFalse: [
  		subMenu add: 'arrowheads on pen trails...' translated action: #setArrowheads.
  	
  	subMenu addLine.
  	
  ].
  	subMenu defaultTarget: self topRendererOrSelf.
  	(self isWorldMorph not and: [(self renderedMorph isSystemWindow) not]) ifTrue: [
  		subMenu add: 'draw new path' translated action: #definePath.
  	
  	subMenu add: 'follow existing path' translated action: #followPath.
  	
  	subMenu add: 'delete existing path' translated action: #deletePath.
  	
  	subMenu addLine.
  	].
  	self addGestureMenuItems: subMenu hand: ActiveHand.
  
- 
  	self isWorldMorph ifFalse:
+ 		[subMenu add: 'balloon help for this object' translated action: #editBalloonHelpText].
- 		[subMenu add: 'graph-location plotter' translated action: #handUserGraphLocationPlotter.
- 		subMenu add: 'graph-location follower' translated action: #addGraphLocationPlotter.
- 		subMenu add: 'balloon help for this object' translated action: #editBalloonHelpText].
  
  	subMenu submorphs isEmpty ifFalse: [
  		aMenu add: 'extras...' translated subMenu: subMenu
  	].!

Item was removed:
- ----- Method: Morph>>handUserGraphLocationPlotter (in category '*MorphicExtras-accessing') -----
- handUserGraphLocationPlotter
- 	"Create a watcher on the locationOnGraph of the object and hand it to the user."
- 
- 	(WatcherWrapper new fancyForPlayer: self topRendererOrSelf assuredPlayer getter: #getLocationOnGraph) openInHand!