The Trunk: Services-Base-topa.54.mcz

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]!