--- a/EditTextView.st Wed Oct 12 11:17:20 2016 +0200
+++ b/EditTextView.st Wed Oct 12 11:17:37 2016 +0200
@@ -6868,14 +6868,14 @@
|unicodePoint unicodeChar unicodeString|
- unicodeString := Dialog request:'Enter unicode (U+01FF or decimal number):'.
+ unicodeString := Dialog request:(resources string:'Enter Unicode (U+01FF or Decimal Number):').
unicodeString size < 2 ifTrue:[
- ^ self.
+ ^ self.
].
(unicodeString second = $+ and:['Uu' includes:unicodeString first]) ifTrue:[
- unicodePoint := Integer readFrom:(unicodeString copyFrom:3) radix:16 onError:[^ self].
+ unicodePoint := Integer readFrom:(unicodeString copyFrom:3) radix:16 onError:[^ self].
] ifFalse:[
- unicodePoint := Integer readFrom:unicodeString onError:[^ self].
+ unicodePoint := Integer readFrom:unicodeString onError:[^ self].
].
unicodeChar := Character value:unicodePoint.