Etoys: MorphicExtras-bf.74.mcz

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!

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev