TextView.st
changeset 2735 5ba2010aefa4
parent 2730 61a2f1981ac6
child 2740 892dfb6b0da1
equal deleted inserted replaced
2734:ba7f56186e88 2735:5ba2010aefa4
  2136 
  2136 
  2137     end := endVisLineNr.
  2137     end := endVisLineNr.
  2138     (end > nLinesShown) ifTrue:[
  2138     (end > nLinesShown) ifTrue:[
  2139         end := nLinesShown
  2139         end := nLinesShown
  2140     ].
  2140     ].
       
  2141 
       
  2142 "/    selectionEndLine isNil ifTrue:[
       
  2143 "/        selectionStartLine := nil
       
  2144 "/    ].
  2141 
  2145 
  2142     selectionStartLine isNil ifTrue:[
  2146     selectionStartLine isNil ifTrue:[
  2143         specialCare := false
  2147         specialCare := false
  2144     ] ifFalse:[
  2148     ] ifFalse:[
  2145         startLine := self visibleLineToAbsoluteLine:startVisLineNr.
  2149         startLine := self visibleLineToAbsoluteLine:startVisLineNr.
  3595 unselectWithoutRedraw
  3599 unselectWithoutRedraw
  3596     "forget selection but do not redraw the selection area
  3600     "forget selection but do not redraw the selection area
  3597      - can be done when the selected area is redrawn anyway or
  3601      - can be done when the selected area is redrawn anyway or
  3598      known to be invisible (however, redraw knows about that anyway)."
  3602      known to be invisible (however, redraw knows about that anyway)."
  3599 
  3603 
  3600     selectionStartLine := nil.
  3604     selectionStartLine := selectionEndLine := nil.
  3601 
       
  3602     "Modified: 29.4.1996 / 12:33:28 / cg"
       
  3603 !
  3605 !
  3604 
  3606 
  3605 validateNewSelection
  3607 validateNewSelection
  3606      "make certain that the selection is valid.
  3608      "make certain that the selection is valid.
  3607       This is a dummy here, but subclasses (like single-line editFields)
  3609       This is a dummy here, but subclasses (like single-line editFields)
  3613 ! !
  3615 ! !
  3614 
  3616 
  3615 !TextView class methodsFor:'documentation'!
  3617 !TextView class methodsFor:'documentation'!
  3616 
  3618 
  3617 version
  3619 version
  3618     ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.199 2003-04-15 11:56:50 stefan Exp $'
  3620     ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.200 2003-04-22 13:10:30 penk Exp $'
  3619 ! !
  3621 ! !
  3620 
  3622 
  3621 TextView initialize!
  3623 TextView initialize!