#DOCUMENTATION by cg
authorClaus Gittinger <cg@exept.de>
Wed, 12 Oct 2016 11:17:37 +0200
changeset 5904 76febd97d52d
parent 5903 9f80a35511a4
child 5905 ef30f9cd07ab
#DOCUMENTATION by cg class: EditTextView changed: #insertUnicode
EditTextView.st
--- 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.