The Trunk: Morphic-tfel.892.mcz

Tim Felgentreff uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-tfel.892.mcz

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

Name: Morphic-tfel.892
Author: tfel
Time: 17 April 2015, 2:42:26.742 pm
UUID: 5a1515a1-8f1e-6248-a04e-bf910720af4a
Ancestors: Morphic-mt.891

add form processing to painting submenu

=============== Diff against Morphic-mt.891 ===============

Item was changed:
  ----- Method: Morph>>addPaintingItemsTo:hand: (in category 'menus') -----
  addPaintingItemsTo: aMenu hand: aHandMorph
  | subMenu movies |
  subMenu := MenuMorph new defaultTarget: self.
+ subMenu
+ add: 'repaint' translated action: #editDrawing;
+ add: 'set rotation center' translated action: #setRotationCenter;
+ add: 'reset forward-direction' translated action: #resetForwardDirection;
+ add: 'set rotation style' translated action: #setRotationStyle;
+ add: 'erase pixels of color' translated action: #erasePixelsUsing:;
+ add: 'recolor pixels of color' translated action: #recolorPixelsUsing:;
+ add: 'reduce color palette' translated action: #reduceColorPalette:;
+ add: 'detect edges' translated action: #edgeDetect;
+ add: 'sharpen' translated action: #sharpen;
+ add: 'blur' translated action: #blur;
+ add: 'emboss' translated action: #emboss;
+ add: 'add a border around this shape...' translated action: #addBorderToShape:.
- subMenu add: 'repaint' translated action: #editDrawing.
- subMenu add: 'set rotation center' translated action: #setRotationCenter.
- subMenu add: 'reset forward-direction' translated
- action: #resetForwardDirection.
- subMenu add: 'set rotation style' translated action: #setRotationStyle.
- subMenu add: 'erase pixels of color' translated
- action: #erasePixelsUsing:.
- subMenu add: 'recolor pixels of color' translated
- action: #recolorPixelsUsing:.
- subMenu add: 'reduce color palette' translated action: #reduceColorPalette:.
- subMenu add: 'add a border around this shape...' translated
- action: #addBorderToShape:.
  movies := (self world rootMorphsAt: aHandMorph targetPoint)
  select: [:m | (m isKindOf: MovieMorph) or: [m isSketchMorph]].
  movies size > 1
  ifTrue:
  [subMenu add: 'insert into movie' translated action: #insertIntoMovie:].
  aMenu add: 'painting...' translated subMenu: subMenu!

Item was added:
+ ----- Method: SketchMorph>>blur (in category 'menu') -----
+ blur
+
+ self form approxGaussianBlur asMorph openInHand!

Item was added:
+ ----- Method: SketchMorph>>edgeDetect (in category 'menu') -----
+ edgeDetect
+
+ self form edgeDetect asMorph openInHand!

Item was added:
+ ----- Method: SketchMorph>>emboss (in category 'menu') -----
+ emboss
+
+ self form emboss asMorph openInHand!

Item was added:
+ ----- Method: SketchMorph>>sharpen (in category 'menu') -----
+ sharpen
+
+ self form sharpen asMorph openInHand!