The Trunk: Services-Base-ar.41.mcz

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

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

Name: Services-Base-ar.41
Author: ar
Time: 2 January 2010, 3:29:27 am
UUID: 81d816a6-80f2-ec45-aeb7-562da76a61ed
Ancestors: Services-Base-nice.40

Utilize menu hook in Browser.

=============== Diff against Services-Base-nice.40 ===============

Item was added:
+ ----- Method: Browser>>menuHook:named:shifted: (in category '*services-base') -----
+ menuHook: aMenu named: aSymbol shifted: aBool
+ 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:[^false].
+ ^ServiceGui onlyServices.
+ !