TextView.st
changeset 4456 b7212a96d7f4
parent 4455 febe97112d50
child 4457 f2efec2e3f93
equal deleted inserted replaced
4455:febe97112d50 4456:b7212a96d7f4
  1626         self redrawFromLine:(oldStartLine?selectionStartLine min:selectionStartLine)
  1626         self redrawFromLine:(oldStartLine?selectionStartLine min:selectionStartLine)
  1627                          to:(oldStartLine?selectionStartLine max:selectionStartLine)
  1627                          to:(oldStartLine?selectionStartLine max:selectionStartLine)
  1628     ].
  1628     ].
  1629 
  1629 
  1630     (oldEndLine == selectionEndLine) ifTrue:[
  1630     (oldEndLine == selectionEndLine) ifTrue:[
  1631         (oldEndCol ~~ selectionEndCol) ifTrue:[
  1631         (oldEndCol notNil and:[oldEndCol ~~ selectionEndCol]) ifTrue:[
  1632             self redrawLine:oldEndLine 
  1632             self redrawLine:oldEndLine 
  1633                        from:((selectionEndCol min:oldEndCol) max:1)
  1633                        from:((selectionEndCol min:oldEndCol) max:1)
  1634                          to:((selectionEndCol max:oldEndCol) max:1)
  1634                          to:((selectionEndCol max:oldEndCol) max:1)
  1635         ]
  1635         ]
  1636     ] ifFalse:[
  1636     ] ifFalse:[
  4567 ! !
  4567 ! !
  4568 
  4568 
  4569 !TextView class methodsFor:'documentation'!
  4569 !TextView class methodsFor:'documentation'!
  4570 
  4570 
  4571 version
  4571 version
  4572     ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.338 2012-09-29 18:22:45 cg Exp $'
  4572     ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.339 2012-10-01 12:59:20 cg Exp $'
  4573 !
  4573 !
  4574 
  4574 
  4575 version_CVS
  4575 version_CVS
  4576     ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.338 2012-09-29 18:22:45 cg Exp $'
  4576     ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.339 2012-10-01 12:59:20 cg Exp $'
  4577 ! !
  4577 ! !
  4578 
  4578 
  4579 TextView initialize!
  4579 TextView initialize!