--- 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