TerminalView subclass:#VT52TerminalView

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Views-TerminalViews'

!

!VT52TerminalView class methodsFor:'documentation'!

documentation

"

    VT52 terminal

    [start with:]

"

! !

!VT52TerminalView methodsFor:'defaults'!

vt52Codes

    ^ #(

         ( '\eA'  #doCursorUp    )

         ( '\eB'  #doCursorDown  )

         ( '\eC'  #doCursorLeft  )

         ( '\eD'  #doCursorRight )

         ( '\eH'  #doCursorHome  )

         ( '\r'   #doCursorReturn  )

         ( '\n'   #doCursorNewLine  )

         ( '\b'   #doBackspace  )

       )

!

vt52KeyCodes

    ^ IdentityDictionary withKeysAndValues:

        #(

             #CursorUp    '\eA'

             #CursorDown  '\eB'

             #CursorLeft  '\eC'

             #CursorRight '\eD'

             #Home        '\eH'

             #Escape      '\e'

             #Backspace   '\b'

             #Return      '\r'

             #Delete      '\0377'

         )

! !

!VT52TerminalView methodsFor:'initialization'!

initialize

    super initialize.

    self escapeSequences:(self vt52Codes)

!

initializeEscapeSequences

    self escapeSequences:(self vt52Codes)

!

initializeKeyboardSequences

    kbdSequences := (self vt52KeyCodes)

! !

!VT52TerminalView class methodsFor:'documentation'!

version

! !