[Pkg] The Trunk: Services-Base-topa.54.mcz

[commits at source.squeak.org]

Tobias Pape uploaded a new version of Services-Base to project The Trunk:
http://source.squeak.org/trunk/Services-Base-topa.54.mcz

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

Name: Services-Base-topa.54
Author: topa
Time: 18 March 2015, 4:10:41.166 pm
UUID: 81229201-d099-4bfc-81a2-269743063d2c
Ancestors: Services-Base-cmm.53

Adapt to Pluggable menus (Tools-topa.556)

=============== Diff against Services-Base-cmm.53 ===============

Item was added:
+ ----- Method: Browser>>classCategoryMenuServices: (in category '*services-base') -----
+ classCategoryMenuServices: aMenu
+ 	<systemCategoryMenu>
+ 	<menuPriority: 150>
+ 	ServiceGui browser: self classCategoryMenu: aMenu.
+ 	^ Preferences useOnlyServicesInMenu ifTrue: [nil] ifFalse: [aMenu]!

Item was added:
+ ----- Method: Browser>>classListMenuServices: (in category '*services-base') -----
+ classListMenuServices: aMenu
+ 	<classListMenu>
+ 	<menuPriority: 150>
+ 	ServiceGui browser: self classMenu: aMenu.
+ 	^ Preferences useOnlyServicesInMenu ifTrue: [nil] ifFalse: [aMenu]!

Item was removed:
- ----- Method: Browser>>menuHook:named:shifted: (in category '*services-base') -----
- menuHook: aMenu named: aSymbol shifted: aBool
- 	"Enhance aMenu with registered services."
- 	aSymbol 
- 		caseOf: 
- 			{ [ #classListMenu ] 		-> [ ServiceGui browser: self classMenu: aMenu ].
- 			[ #codePaneMenu ]			-> [ ServiceGui browser: self codePaneMenu: aMenu ].
- 			[ #messageCategoryMenu]	-> [ ServiceGui browser: self messageCategoryMenu: aMenu ].
- 			[ #messageListMenu ] 		-> [ ServiceGui browser: self messageListMenu: aMenu ].
- 			[ #systemCategoryMenu ] 	-> [ ServiceGui browser: self classCategoryMenu: aMenu ] } 
- 		otherwise: [ "do nothing" ]!

Item was added:
+ ----- Method: Browser>>messageCategoryMenuServices: (in category '*services-base') -----
+ messageCategoryMenuServices: aMenu
+ 	<messageCategoryMenu>
+ 	<menuPriority: 150>
+ 	ServiceGui browser: self messageCategoryMenu: aMenu.
+ 	^ Preferences useOnlyServicesInMenu ifTrue: [nil] ifFalse: [aMenu]!

Item was removed:
- ----- Method: CodeHolder>>menuHook:named:shifted: (in category '*services-base') -----
- menuHook: aMenu named: aSymbol shifted: aBool
- 	"Enhance aMenu with registered services."
- 	aSymbol == #messageListMenu ifTrue:
- 		[ServiceGui browser: self messageListMenu: aMenu].
- 	^aMenu!

Item was added:
+ ----- Method: CodeHolder>>messageListMenuServices: (in category '*services-base') -----
+ messageListMenuServices: aMenu
+ 	<messageListMenu>
+ 	<menuPriority: 150>
+ 
+ 	 ServiceGui browser: self messageListMenu: aMenu.
+ 	^ Preferences useOnlyServicesInMenu ifTrue: [nil] ifFalse: [aMenu]!

Item was added:
+ ----- Method: StringHolder>>codePaneMenuServices: (in category '*services-base') -----
+ codePaneMenuServices: aMenu
+ 	<codePaneMenu>
+ 	<menuPriority: 150>
+ 	ServiceGui browser: self codePaneMenu: aMenu.
+ 	^ Preferences useOnlyServicesInMenu ifTrue: [nil] ifFalse: [aMenu]!