#OTHER by cg
authorClaus Gittinger <cg@exept.de>
Fri, 28 Jun 2019 09:21:50 +0200
changeset 6078 08c9e2a47dc5
parent 6077 bec4ab33c999
child 6079 c61b633da982
#OTHER by cg self class name -> self className
TerminalView.st
--- a/TerminalView.st	Fri Jun 28 09:06:10 2019 +0200
+++ b/TerminalView.st	Fri Jun 28 09:21:50 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1998 by eXept Software AG
               All Rights Reserved
@@ -2376,7 +2378,7 @@
 
     Debug ifTrue:[
         Transcript                                                       
-            show:(self class name); show:': nextPutAll - state: '; show:state;
+            show:(self className); show:': nextPutAll - state: '; show:state;
             show:' got: <'.
         aString do:[:ch |
             Transcript show:'<'; show:(ch codePoint hexPrintString:2); show:'>'
@@ -2385,8 +2387,9 @@
     ].
     self pushEvent:#processInput:n: with:aString with:aString size.
 
-    "Created: / 27.7.1998 / 15:10:59 / cg"
-    "Modified: / 27.7.1998 / 23:16:19 / cg"
+    "Created: / 27-07-1998 / 15:10:59 / cg"
+    "Modified: / 27-07-1998 / 23:16:19 / cg"
+    "Modified: / 28-06-2019 / 09:20:08 / Claus Gittinger"
 !
 
 processInput:buffer n:count
@@ -2412,7 +2415,7 @@
     "/ Debug := true
     "/ Debug := false
     Debug ifTrue:[
-        Transcript show:self class name; show:': processInput - state: '; show: state;
+        Transcript show:self className; show:': processInput - state: '; show: state;
                    show:' got: '; showCR: count.
     ].
 
@@ -2618,7 +2621,7 @@
     "Created: / 10-06-1998 / 17:26:09 / cg"
     "Modified: / 28-01-2002 / 20:41:36 / micha"
     "Modified: / 30-07-2013 / 10:47:19 / cg"
-    "Modified: / 01-03-2019 / 16:13:17 / Claus Gittinger"
+    "Modified: / 28-06-2019 / 09:20:12 / Claus Gittinger"
 !
 
 sync
@@ -3012,7 +3015,7 @@
         ].
         aCharacter bitsPerCharacter > 8 ifTrue:[
             "/ ignore
-            Transcript showCR:(self class name,': invalid (non-8bit) character ignored').
+            Transcript showCR:(self className,': invalid (non-8bit) character ignored').
             ^ self
         ].
         "/ send normal
@@ -3028,6 +3031,7 @@
     inStream nextPut:aCharacter.
 
     "Created: / 29-07-2013 / 18:18:24 / cg"
+    "Modified: / 28-06-2019 / 09:20:15 / Claus Gittinger"
 !
 
 sendLine:aString