refactored ampersand processing for more reusability.
authorClaus Gittinger <cg@exept.de>
Wed, 15 Feb 2012 18:55:29 +0100
changeset 4375 ad05f08df31f
parent 4374 e0cdb94c4530
child 4376 128a5aec32c8
refactored ampersand processing for more reusability.
MenuView.st
--- 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 $'
 ! !