EditTextView.st
branchjv
changeset 5737 98bc0782ffa1
parent 5692 2fb164455e7c
parent 5719 c1b417fd14a0
child 5738 9498dfe97f83
equal deleted inserted replaced
5709:219a28ca67d1 5737:98bc0782ffa1
  7879 
  7879 
  7880     self
  7880     self
  7881         searchBackwardFor:pattern
  7881         searchBackwardFor:pattern
  7882         ignoreCase:ign
  7882         ignoreCase:ign
  7883         startingAtLine:startLine col:startCol
  7883         startingAtLine:startLine col:startCol
  7884         ifFound:[:line :col |
  7884         ifFound:[:line :col :endColOrNil |
  7885             self cursorMovementAllowed ifTrue:[
  7885             self cursorMovementAllowed ifTrue:[
  7886                 self cursorLine:line col:col.
  7886                 self cursorLine:line col:col.
  7887             ].
  7887             ].
  7888             self showMatch:pattern isMatch:false atLine:line col:col.
  7888             self showMatch:pattern isMatch:false atLine:line col:col endCol:endColOrNil.
  7889 "/            self makeLineVisible:cursorLine
  7889 "/            self makeLineVisible:cursorLine
  7890             typeOfSelection := #search]
  7890             typeOfSelection := #search]
  7891         ifAbsent:aBlock
  7891         ifAbsent:aBlock
  7892 
  7892 
  7893     "Modified: 9.10.1997 / 13:02:13 / cg"
  7893     "Modified: 9.10.1997 / 13:02:13 / cg"
  7923     self 
  7923     self 
  7924         searchForwardFor:pattern 
  7924         searchForwardFor:pattern 
  7925         ignoreCase:ign
  7925         ignoreCase:ign
  7926         match: match
  7926         match: match
  7927         startingAtLine:startLine col:startCol
  7927         startingAtLine:startLine col:startCol
  7928         ifFound:[:line :col |
  7928         ifFound:[:line :col :endColOrNil|
  7929             self cursorMovementAllowed ifTrue:[
  7929             self cursorMovementAllowed ifTrue:[
  7930                 self cursorLine:line col:col.
  7930                 self cursorLine:line col:col.
  7931             ].
  7931             ].
  7932             self showMatch:pattern isMatch:match atLine:line col:col.
  7932             self showMatch:pattern isMatch:match atLine:line col:col endCol:endColOrNil.
  7933 "/            self makeLineVisible:cursorLine
  7933 "/            self makeLineVisible:cursorLine
  7934             typeOfSelection := #search
  7934             typeOfSelection := #search
  7935         ]
  7935         ]
  7936         ifAbsent:aBlock
  7936         ifAbsent:aBlock
  7937 
  7937 
  8004     ]
  8004     ]
  8005 
  8005 
  8006     "Modified: / 07-05-2011 / 17:25:59 / cg"
  8006     "Modified: / 07-05-2011 / 17:25:59 / cg"
  8007 !
  8007 !
  8008 
  8008 
  8009 showMatch:pattern isMatch:isMatch atLine:line col:col
  8009 showMatch:pattern isMatch:isMatch atLine:line col:col endCol:encColOrNil
  8010     super showMatch:pattern isMatch:isMatch atLine:line col:col.
  8010     super showMatch:pattern isMatch:isMatch atLine:line col:col endCol:encColOrNil.
  8011     typeOfSelection := #search.
  8011     typeOfSelection := #search.
  8012 !
  8012 !
  8013 
  8013 
  8014 startPositionForSearchBackward
  8014 startPositionForSearchBackward
  8015     ^ self startPositionForSearchBackwardBasedOnCursorOrSelection
  8015     ^ self startPositionForSearchBackwardBasedOnCursorOrSelection
  8624 
  8624 
  8625 !EditTextView::EditAction methodsFor:'queries'!
  8625 !EditTextView::EditAction methodsFor:'queries'!
  8626 
  8626 
  8627 canCombineWithNext:nextAction
  8627 canCombineWithNext:nextAction
  8628     ^ false
  8628     ^ false
       
  8629 !
       
  8630 
       
  8631 isRestoreSelectionAndCursor
       
  8632     ^ false
  8629 ! !
  8633 ! !
  8630 
  8634 
  8631 !EditTextView::DeleteRange methodsFor:'accessing'!
  8635 !EditTextView::DeleteRange methodsFor:'accessing'!
  8632 
  8636 
  8633 line1:line1Arg col1:col1Arg line2:line2Arg col2:col2Arg
  8637 line1:line1Arg col1:col1Arg line2:line2Arg col2:col2Arg
  9154     ].
  9158     ].
  9155 
  9159 
  9156     "Created: / 30-04-2016 / 20:14:55 / cg"
  9160     "Created: / 30-04-2016 / 20:14:55 / cg"
  9157 ! !
  9161 ! !
  9158 
  9162 
       
  9163 !EditTextView::RestoreSelectionAndCursor methodsFor:'queries'!
       
  9164 
       
  9165 isRestoreSelectionAndCursor
       
  9166     ^ true
       
  9167 ! !
       
  9168 
  9159 !EditTextView class methodsFor:'documentation'!
  9169 !EditTextView class methodsFor:'documentation'!
  9160 
  9170 
  9161 version
  9171 version
  9162     ^ '$Header$'
  9172     ^ '$Header$'
  9163 !
  9173 !