--- a/VT100TerminalView.st	Mon Jan 28 10:49:17 2002 +0100
+++ b/VT100TerminalView.st	Mon Jan 28 21:08:59 2002 +0100
@@ -12,6 +12,8 @@
 
 
 
+"{ Package: 'stx:libwidg2' }"
+
 TerminalView subclass:#VT100TerminalView
 	instanceVariableNames:'currentParam parameters lastCursorLine'
 	classVariableNames:''
@@ -377,7 +379,11 @@
                 state := #gotESC. 
                 ^ self 
             ].
-            (char == Character nl) ifTrue:[ 
+            (char == Character nl) ifTrue:[
+                translateNLToCRNL == true ifTrue:[
+                    self endEntry.
+                    self cursorToBeginOfLine.
+                ].
                 self endEntry.
                 ^ self doCursorDown:1.
             ].
@@ -631,6 +637,7 @@
     self doNothing
 
     "Modified: / 28.7.1998 / 00:18:01 / cg"
+    "Modified: / 28.1.2002 / 20:47:07 / micha"
 ! !
 
 !VT100TerminalView methodsFor:'queries'!
@@ -649,5 +656,5 @@
 !VT100TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.32 2000-02-01 17:40:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.33 2002-01-28 20:08:54 mb Exp $'
 ! !