VT100TerminalView.st
changeset 953 59167fd29632
parent 952 b83678ff6770
child 956 606dee2ae341
equal deleted inserted replaced
952:b83678ff6770 953:59167fd29632
    36 
    36 
    37     "Modified: / 10.6.1998 / 14:19:27 / cg"
    37     "Modified: / 10.6.1998 / 14:19:27 / cg"
    38     "Created: / 10.6.1998 / 15:13:01 / cg"
    38     "Created: / 10.6.1998 / 15:13:01 / cg"
    39 ! !
    39 ! !
    40 
    40 
    41 !VT100TerminalView methodsFor:'event handling'!
       
    42 
       
    43 defineWindowSize
       
    44     rangeEndLine == numberOfLines ifTrue:[
       
    45         rangeEndLine := nFullLinesShown
       
    46     ].
       
    47     super defineWindowSize
       
    48 
       
    49     "Created: / 12.6.1998 / 21:27:38 / cg"
       
    50 ! !
       
    51 
       
    52 !VT100TerminalView methodsFor:'functions'!
    41 !VT100TerminalView methodsFor:'functions'!
    53 
    42 
    54 addLines
    43 addLines
    55     "Add the appropriate number of blank lines at the position
    44     "Add the appropriate number of blank lines at the position
    56      indicated by the cursor."
    45      indicated by the cursor."
   196 !VT100TerminalView methodsFor:'initialization'!
   185 !VT100TerminalView methodsFor:'initialization'!
   197 
   186 
   198 initialize
   187 initialize
   199     super initialize.
   188     super initialize.
   200 
   189 
   201     rangeStartLine := 1.
       
   202     rangeEndLine := numberOfLines.
       
   203 
       
   204     self endOfSequence
   190     self endOfSequence
   205 
   191 
   206     "Created: / 10.6.1998 / 14:46:07 / cg"
   192     "Created: / 10.6.1998 / 14:46:07 / cg"
   207     "Modified: / 12.6.1998 / 21:28:08 / cg"
   193     "Modified: / 13.6.1998 / 13:58:01 / cg"
   208 !
   194 !
   209 
   195 
   210 initializeKeyboardSequences
   196 initializeKeyboardSequences
   211     kbdSequences := (self vt100KeyCodes)
   197     kbdSequences := (self vt100KeyCodes)
   212 
   198 
   483 ! !
   469 ! !
   484 
   470 
   485 !VT100TerminalView class methodsFor:'documentation'!
   471 !VT100TerminalView class methodsFor:'documentation'!
   486 
   472 
   487 version
   473 version
   488     ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.13 1998-06-12 21:05:34 cg Exp $'
   474     ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.14 1998-06-13 11:58:59 cg Exp $'
   489 ! !
   475 ! !