--- 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 $'
! !