The Inbox: Morphic-tcj.1482.mcz

> On Mar 2, 2019, at 3:35 PM, [hidden email] wrote:
>
> A new version of Morphic was added to project The Inbox:
> http://source.squeak.org/inbox/Morphic-tcj.1482.mcz
>
> ==================== Summary ====================
>
> Name: Morphic-tcj.1482
> Author: tcj
> Time: 2 March 2019, 3:35:41.130915 pm
> UUID: 78f4a7bc-b74c-408c-bbd9-4729d1d8404e
> Ancestors: Morphic-ul.1481
>
> Add a menu item to copy a SketchMorph's form as code, thus allowing it to be easily reproduced elsewhere.
>
> =============== Diff against Morphic-ul.1481 ===============
>
> 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: 'copy as code' translated action: #copyAsCode;
>   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:.
>   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>>copyAsCode (in category 'menu') -----
> + copyAsCode
> + | s |
> + "Copy a textual representation of my form to the clipboard, which can be used to easily recreate it.  
> + Choosing to reduce colors can create a much smaller string."
> + s := String new writeStream.
> + ( ( self confirm: 'reduce colors?' )
> + ifTrue: [ self form colorReduced ]
> + ifFalse: [ self form ] ) storeOn: s.
> + Clipboard clipboardText: s close contents.
> + !
>
>
>

> A new version of Morphic was added to project The Inbox:
> http://source.squeak.org/inbox/Morphic-tcj.1482.mcz
>
> ==================== Summary ====================
>
> Name: Morphic-tcj.1482
> Author: tcj
> Time: 2 March 2019, 3:35:41.130915 pm
> UUID: 78f4a7bc-b74c-408c-bbd9-4729d1d8404e
> Ancestors: Morphic-ul.1481
>
> Add a menu item to copy a SketchMorph's form as code, thus allowing it to be easily reproduced elsewhere.
>
> =============== Diff against Morphic-ul.1481 ===============
>
> 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: 'copy as code' translated action: #copyAsCode;
>   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:.
>   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>>copyAsCode (in category 'menu') -----
> + copyAsCode
> + | s |
> + "Copy a textual representation of my form to the clipboard, which can be used to easily recreate it.
> + Choosing to reduce colors can create a much smaller string."
> + s := String new writeStream.
> + ( ( self confirm: 'reduce colors?' )
> + ifTrue: [ self form colorReduced ]
> + ifFalse: [ self form ] ) storeOn: s.
> + Clipboard clipboardText: s close contents.