TerminalView.st
changeset 5702 5829d2def42c
parent 5659 7a69d3fdca24
child 5703 f6122d30bce9
equal deleted inserted replaced
5701:27382b38a961 5702:5829d2def42c
  1234             ^ true
  1234             ^ true
  1235         ].
  1235         ].
  1236     
  1236     
  1237         "/ remember the current lineBuffer (but only if it is the last)
  1237         "/ remember the current lineBuffer (but only if it is the last)
  1238         lineBufferHistoryPosition > lineBufferHistory size ifTrue:[
  1238         lineBufferHistoryPosition > lineBufferHistory size ifTrue:[
  1239             (lineBuffer notEmptyOrNil and:[lineBuffer isBlank not]) ifTrue:[  
  1239             "/ (lineBuffer notEmptyOrNil and:[lineBuffer isBlank not]) ifTrue:[  
  1240                 "/ do not remember repetitions
  1240                 "/ do not remember repetitions
  1241                 (lineBufferHistory size > 0 and:[lineBufferHistory last = lineBuffer]) ifFalse:[
  1241                 (lineBufferHistory size > 0 and:[lineBufferHistory last = lineBuffer]) ifFalse:[
  1242                     lineBufferHistory add:lineBuffer.
  1242                     lineBufferHistory add:lineBuffer.
  1243                     lineBufferHistoryChanged := true.
  1243                     lineBufferHistoryChanged := true.
  1244                 ].
  1244                 ].
  1245             ].
  1245             "/ ].
  1246         ].
  1246         ].
  1247         clearLine value.
  1247         clearLine value.
  1248 
  1248 
  1249         (self sensor shiftDown and:[lastSelectedLineBufferHistoryPosition notNil]) ifTrue:[
  1249         (self sensor shiftDown and:[lastSelectedLineBufferHistoryPosition notNil]) ifTrue:[
  1250             lineBufferHistoryPosition := lastSelectedLineBufferHistoryPosition.
  1250             lineBufferHistoryPosition := lastSelectedLineBufferHistoryPosition.