--- a/VT100TerminalView.st	Wed Jun 10 17:14:15 1998 +0200
+++ b/VT100TerminalView.st	Wed Jun 10 17:37:18 1998 +0200
@@ -97,15 +97,6 @@
     "Created: / 10.6.1998 / 14:44:22 / cg"
 !
 
-cursorDown:n
-    cursorLine + n > list size ifTrue:[
-        list := list , (Array new:n)
-    ].
-    super cursorDown:n
-
-    "Created: / 10.6.1998 / 17:05:36 / cg"
-!
-
 displayMode: anInteger
     "Set the current display mode."
 
@@ -202,6 +193,19 @@
 nextPut:char
 "/ Transcript show:state; show:' '; showCR:char asciiValue.
 
+    state == #gotReturn ifTrue:[
+        state := 0.
+        char == Character nl ifTrue:[
+            "/ cr-nl
+            "/ stay in buffering mode.
+            super nextPut:Character cr.
+            ^ self.
+        ].
+        self endEntry.
+        self cursorToBeginOfLine.
+        "/ continue in initial state
+    ].
+
     state == 0 ifTrue:[
         "/ Currently, we are in initial state.  
         "/ Decide what to do on the basis of the parameter char.
@@ -215,8 +219,10 @@
             ^ self cursorDown:1
         ].
         (char == Character return) ifTrue:[ 
-            self endEntry.
-            ^ self cursorToBeginOfLine
+            state := #gotReturn.
+            ^ self.
+"/            self endEntry.
+"/            ^ self cursorToBeginOfLine
         ].
         (char == Character backspace) ifTrue:[ 
             self endEntry.
@@ -344,9 +350,10 @@
         ].
         ^self doNothing
     ].
+
     self doNothing
 
-    "Modified: / 10.6.1998 / 17:12:19 / cg"
+    "Modified: / 10.6.1998 / 17:23:46 / cg"
 ! !
 
 !VT100TerminalView methodsFor:'queries'!
@@ -360,5 +367,5 @@
 !VT100TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.4 1998-06-10 15:14:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.5 1998-06-10 15:37:18 cg Exp $'
 ! !