--- a/TerminalView.st Tue Jun 09 20:40:47 1998 +0200
+++ b/TerminalView.st Tue Jun 09 20:51:37 1998 +0200
@@ -21,6 +21,7 @@
[start with:]
VT52TerminalView openShell
+ VT100TerminalView openShell
"
! !
@@ -504,23 +505,25 @@
l := aCollection size.
idx := 1.
[idx <= l] whileTrue:[
- currentTree isNil ifTrue:[
- idx2 := aCollection indexOfAny:escapeLeadingChars startingAt:idx.
- idx2 == 0 ifTrue:[
- self replaceAllAtCursor:(aCollection copyFrom:idx).
- self makeCursorVisibleAndShowCursor:wasOn.
- ^ self
- ].
- self replaceAllAtCursor:(aCollection copyFrom:idx to:idx2-1).
- idx := idx2.
- ].
+"/ currentTree isNil ifTrue:[
+"/ idx2 := aCollection indexOfAny:escapeLeadingChars startingAt:idx.
+"/ idx2 == 0 ifTrue:[
+"/ self replaceAllAtCursor:(aCollection copyFrom:idx).
+"/ self makeCursorVisibleAndShowCursor:wasOn.
+"/ ^ self
+"/ ].
+"/ self replaceAllAtCursor:(aCollection copyFrom:idx to:idx2-1).
+"/ idx := idx2.
+"/ ].
self nextPut:(aCollection at:idx).
idx := idx + 1.
].
self makeCursorVisibleAndShowCursor:wasOn.
- "Modified: / 9.6.1998 / 20:39:54 / cg"
+ "VT52TerminalView openShell"
+
+ "Modified: / 9.6.1998 / 20:46:29 / cg"
! !
!TerminalView methodsFor:'queries'!
@@ -543,5 +546,5 @@
!TerminalView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.5 1998-06-09 18:40:47 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.6 1998-06-09 18:51:31 cg Exp $'
! !
--- a/VT52TerminalView.st Tue Jun 09 20:40:47 1998 +0200
+++ b/VT52TerminalView.st Tue Jun 09 20:51:37 1998 +0200
@@ -22,14 +22,17 @@
vt52Codes
^ #(
( '\eA' #doCursorUp )
- ( '\eB' #doCursorDown )
- ( '\eC' #doCursorLeft )
- ( '\eD' #doCursorRight )
+ ( '\eB' #doCursorLeft )
+ ( '\eC' #doCursorRight )
+ ( '\eD' #doCursorDown )
( '\eH' #doCursorHome )
+ ( '\eJ' #doClearToEnd )
( '\r' #doCursorReturn )
( '\n' #doCursorNewLine )
( '\b' #doBackspace )
)
+
+ "Modified: / 9.6.1998 / 20:47:50 / cg"
!
vt52KeyCodes
@@ -71,5 +74,5 @@
!VT52TerminalView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/VT52TerminalView.st,v 1.2 1998-06-09 13:52:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/VT52TerminalView.st,v 1.3 1998-06-09 18:51:37 cg Exp $'
! !