# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1114509300 -7200
# Node ID 98d3508fd6e14022aa7522067b40fb53913e58b9
# Parent  30187ff89c64f0f6a3131b07e6b88edcb28903a1
care for Unicode-Strings.

diff -r 30187ff89c64 -r 98d3508fd6e1 MenuItem.st
--- a/MenuItem.st	Mon Apr 18 18:30:07 2005 +0200
+++ b/MenuItem.st	Tue Apr 26 11:55:00 2005 +0200
@@ -782,6 +782,9 @@
             e := rawLabel emphasisAt:(in position).
         ].
         c := in next.
+        c bitsPerCharacter > out collection bitsPerCharacter ifTrue:[
+            out setCollection:(c stringSpecies fromString:out collection).
+        ].
         c == $& ifTrue:[
             in peek == $& ifTrue:[
                 out nextPut:c.
@@ -874,5 +877,5 @@
 !MenuItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.69 2005-03-07 14:19:41 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.70 2005-04-26 09:55:00 cg Exp $'
 ! !