# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1329328529 -3600
# Node ID ad05f08df31f16f36c305842f99199b82e27eea5
# Parent  e0cdb94c45306ab47b6b83d3fbc7e4e5bc82cc61
refactored ampersand processing for more reusability.

diff -r e0cdb94c4530 -r ad05f08df31f 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 $'
 ! !