care for Unicode-Strings.
authorClaus Gittinger <cg@exept.de>
Tue, 26 Apr 2005 11:55:00 +0200
changeset 2040 98d3508fd6e1
parent 2039 30187ff89c64
child 2041 fd1527246662
care for Unicode-Strings.
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 $'
 ! !