[GB.FORM.TERMINAL]

* NEW: Add filter for vertical cursor pos Y
* BUG: Add filter for normal character ESC [ m


git-svn-id: svn://localhost/gambas/trunk@7700 867c0c6c-44f3-4631-809d-bfa615b0a4ec

comp/src/gb.form.terminal/.src/TerminalView/TerminalFilter_VT100.class

@@ -184,6 +184,15 @@ Private Sub Escape(hView As TerminalView, hProcess As Process, sData As String,
           Endif
           hScreen.CursorGoto(X, Y)
           
+        Case "d" 'Set Cursor Y
+          
+          GoSub GET_ARGS
+          
+          If aArg Then 
+            Try Y = CInt(aArg[0]) - 1
+            hScreen.CursorGoto(hScreen.X, Y)
+          Endif
+          
         Case "J" ' Erase screen
           
           GoSub GET_ARGS
@@ -350,6 +359,8 @@ Private Sub Escape(hView As TerminalView, hProcess As Process, sData As String,
                   Goto NOT_IMPLEMENTED
               End Select
             Next
+          Else
+            hScreen.Attr.Reset
           Endif
           
         Case "r" ' Scroll screen