[squeak-dev] The Trunk: Morphic-ar.216.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Oct 22 05:32:54 UTC 2009


Andreas Raab uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ar.216.mcz

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

Name: Morphic-ar.216
Author: ar
Time: 21 October 2009, 10:31:34 am
UUID: 665a226d-e51e-2a4c-ad9d-485c7da29907
Ancestors: Morphic-nice.215, Morphic-bp.213

Merging Morphic-bp.212, Morphic-bp.213:

Add "implementors of" to the debug menu of MenuItemMorphs and PluggableButtonMorphs. This is useful if you want to find out how something is implemented.

Improve "implementors of" for MenuItemMorphs and PluggableButtonMorphs by using allImplementorsOf:localTo:.

=============== Diff against Morphic-nice.215 ===============

Item was added:
+ ----- Method: MenuItemMorph>>browseAllImplementorsOfRealSelector (in category 'browse') -----
+ browseAllImplementorsOfRealSelector
+ 	SystemNavigation default browseAllImplementorsOf: self realSelector localTo: target class!

Item was added:
+ ----- Method: PluggableButtonMorph>>buildDebugMenu: (in category 'browse') -----
+ buildDebugMenu: aHandMorph
+ 	| aMenu |
+ 	aMenu := super buildDebugMenu: aHandMorph.
+ 	aMenu addLine.
+ 	aMenu add: 'implementors of' translated target: self action: #browseAllImplementorsOfActionSelector.
+ 	^ aMenu!

Item was added:
+ ----- Method: PluggableButtonMorph>>browseAllImplementorsOfActionSelector (in category 'browse') -----
+ browseAllImplementorsOfActionSelector
+ 	SystemNavigation default browseAllImplementorsOf: actionSelector localTo: model class!

Item was added:
+ ----- Method: MenuItemMorph>>buildDebugMenu: (in category 'browse') -----
+ buildDebugMenu: aHandMorph
+ 	| aMenu |
+ 	aMenu := super buildDebugMenu: aHandMorph.
+ 	aMenu addLine.
+ 	aMenu add: 'implementors of' translated target: self action: #browseAllImplementorsOfRealSelector.
+ 	^ aMenu!

Item was added:
+ ----- Method: MenuItemMorph>>realSelector (in category 'browse') -----
+ realSelector
+ 	selector == #perform:orSendTo: ifTrue: [^arguments first].
+ 	^selector!




More information about the Squeak-dev mailing list