Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-kfr.269.mcz==================== Summary ====================
Name: MorphicExtras-kfr.269
Author: kfr
Time: 30 January 2020, 5:44:33.710753 pm
UUID: 4e53f407-fddf-7d4f-8d14-5129ccf23fd4
Ancestors: MorphicExtras-mt.268
Make FatBitsPaint menu a separate stay up menu
=============== Diff against MorphicExtras-mt.268 ===============
Item was changed:
----- Method: FatBitsPaint>>addCustomMenuItems:hand: (in category 'menu') -----
+ addCustomMenuItems: aCustomMenu hand: aHandMorph
+ super addCustomMenuItems: aCustomMenu hand: aHandMorph.
+ ^ aCustomMenu add: 'fat bits paint ..' translated action: #openFatBitsPaintMenu!
- addCustomMenuItems: aCustomMenu hand: aHandMorph
-
- super addCustomMenuItems: aCustomMenu hand: aHandMorph.
- aCustomMenu
- add: 'background color' translated action: #setBackgroundColor:;
- add: 'pen color' translated action: #setPenColor:;
- add: 'pen size' translated action: #setPenSize:;
- add: 'fill' translated action: #fill;
- add: 'magnification' translated action: #setMagnification:;
- add: 'accept' translated action: #accept;
- add: 'revert' translated action: #revert;
- add: 'inspect' translated action: #inspectForm;
- add: 'file out' translated action: #fileOut;
- add: 'selection...' translated action: #selectionMenu:;
- add: 'tools...' translated action: #toolMenu:!
Item was added:
+ ----- Method: FatBitsPaint>>openFatBitsPaintMenu (in category 'menu') -----
+ openFatBitsPaintMenu
+ | menu |
+ (menu := MenuMorph entitled: 'FatBitsPaint' translated) defaultTarget: self;
+ addStayUpItem;
+ commandKeyHandler: self.
+ menu add: 'background color' translated action: #setBackgroundColor:;
+ add: 'pen color' translated action: #setPenColor:;
+ add: 'pen size' translated action: #setPenSize:;
+ add: 'fill' translated action: #fill;
+ add: 'magnification' translated action: #setMagnification:;
+ add: 'accept' translated action: #accept;
+ add: 'revert' translated action: #revert;
+ add: 'inspect' translated action: #inspectForm;
+ add: 'file out' translated action: #fileOut;
+ add: 'selection...' translated action: #selectionMenu:;
+ add: 'tools...' translated action: #toolMenu:.
+ ^ menu popUpInWorld!