The Trunk: Services-Base-cmm.53.mcz

Chris Muller uploaded a new version of Services-Base to project The Trunk:
http://source.squeak.org/trunk/Services-Base-cmm.53.mcz

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

Name: Services-Base-cmm.53
Author: cmm
Time: 26 July 2014, 7:23:02.617 pm
UUID: 1bd35a3c-6ac0-4aed-b3c7-96ceddbea595
Ancestors: Services-Base-eem.52

None of our menu entries are capitalized, stop capitalizing service menu entries.

=============== Diff against Services-Base-eem.52 ===============

Item was changed:
  ----- Method: ServiceAction>>menuLabelNumbered: (in category 'accessing') -----
+ menuLabelNumbered: index
+ | shorterLabel shortCut serviceNumberString |
+ shorterLabel := self text.
+ shorterLabel size > 50 ifTrue: [ shorterLabel := (shorterLabel first: 47) , '...' ].
+ shortCut := self shortcut.
+ shortCut := (shortCut isNil or: [ shortCut isEmpty ])
+ ifTrue: [ String empty ]
+ ifFalse: [ ' (' , shortCut , ')' ].
+ serviceNumberString := index isZero
+ ifTrue: [ String empty ]
+ ifFalse: [ index asString , '.' ].
+ ^ serviceNumberString , shorterLabel , shortCut!
- menuLabelNumbered: i
- | l sh str |
- l := self text.
- l size > 50
- ifTrue: [l := (l first: 47)
- , '...'].
- sh := self shortcut.
- sh := (sh isNil
- or: [sh isEmpty])
- ifTrue: ['']
- ifFalse: [' (' , sh , ')'].
- str := i isZero ifTrue: [''] ifFalse: [i asString, '. '].
- ^ str, l capitalized , sh!