VT52TerminalView.st
changeset 980 8921b6e07c9e
parent 976 40af522dda86
child 998 4915be34a1d7
--- a/VT52TerminalView.st	Sat Jun 20 20:31:05 1998 +0200
+++ b/VT52TerminalView.st	Sat Jun 20 20:34:25 1998 +0200
@@ -40,9 +40,10 @@
 
 defineWindowSize
     super defineWindowSize.
-    rangeEndLine := numberOfLines - 1
+    rangeEndLine := numberOfLines
 
     "Created: / 13.6.1998 / 18:15:43 / cg"
+    "Modified: / 20.6.1998 / 20:33:29 / cg"
 ! !
 
 !VT52TerminalView methodsFor:'initialization'!
@@ -51,10 +52,7 @@
     super initialize.
     self endOfSequence.
 
-    rangeStartLine := 1.
-    rangeEndLine := numberOfLines-1.
-
-    "Modified: / 13.6.1998 / 18:14:41 / cg"
+    "Modified: / 20.6.1998 / 20:34:18 / cg"
 !
 
 initializeKeyboardSequences
@@ -109,7 +107,7 @@
             ^ self endEntry.
         ].
         (char == Character return) ifTrue:[ 
-            rangeEndLine ~~ numberOfLines ifTrue:[
+            (rangeEndLine notNil and:[rangeEndLine ~~ numberOfLines]) ifTrue:[
                 self endEntry.
                 self cursorToBeginOfLine.
             ] ifFalse:[
@@ -127,7 +125,10 @@
         ].
         char asciiValue < 32 ifTrue:[
             char ~~ Character tab ifTrue:[
-                Transcript show:'unhandled control key: '; showCR:char storeString.
+                char asciiValue ~~ 0 ifTrue:[
+                    Transcript show:'unhandled control key: '; showCR:char storeString.
+                ].
+                ^ self.
             ]
         ].
         ^ super nextPut:char
@@ -196,7 +197,7 @@
 
     self doNothing
 
-    "Modified: / 13.6.1998 / 18:18:29 / cg"
+    "Modified: / 20.6.1998 / 19:51:48 / cg"
 ! !
 
 !VT52TerminalView methodsFor:'queries'!
@@ -210,5 +211,5 @@
 !VT52TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/VT52TerminalView.st,v 1.8 1998-06-20 15:37:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/VT52TerminalView.st,v 1.9 1998-06-20 18:34:25 cg Exp $'
 ! !