diff -r 32f75cd56edc -r 8921b6e07c9e VT52TerminalView.st --- 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 $' ! !