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!
packages@lists.squeakfoundation.org