refactored ampersand processing for more reusability.
--- a/MenuView.st Wed Feb 15 18:19:53 2012 +0100
+++ b/MenuView.st Wed Feb 15 18:55:29 2012 +0100
@@ -767,6 +767,11 @@
ifTrue:[l := resources string:aLabel]
ifFalse:[l := aLabel].
+ "/ remove ampersands
+ l := MenuPanel
+ processAmpersandCharactersFor:l
+ withAccessCharacterPosition:nil.
+
"/ wrong: needed for accelerators.
"/ l := self labelWithoutDoubleAmpersands:l.
list add:l beforeIndex:i. i := i + 1.
@@ -892,7 +897,7 @@
"
"Created: / 28-02-1996 / 17:49:44 / cg"
- "Modified: / 06-10-2011 / 16:46:05 / cg"
+ "Modified: / 15-02-2012 / 18:54:54 / cg"
!
addLabels:moreLabels selectors:moreSelectors after:aLabelOrSelectorOrNumber
@@ -2984,9 +2989,9 @@
!MenuView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.171 2012-02-15 17:19:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.172 2012-02-15 17:55:29 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.171 2012-02-15 17:19:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.172 2012-02-15 17:55:29 cg Exp $'
! !