The Trunk: MorphicExtras-kfr.269.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: MorphicExtras-kfr.269.mcz

commits-2
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!