"
COPYRIGHT (c) 1998 by eXept Software AG
All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice. This software may not
be provided or otherwise made available to, or used by, any
other person. No title to or ownership of the software is
hereby transferred.
"
"{ Package: 'stx:libtool' }"
"{ NameSpace: Smalltalk }"
EditTextView subclass:#RCSConflictEditTextView
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'Views-Text'
!
!RCSConflictEditTextView class methodsFor:'documentation'!
copyright
"
COPYRIGHT (c) 1998 by eXept Software AG
All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice. This software may not
be provided or otherwise made available to, or used by, any
other person. No title to or ownership of the software is
hereby transferred.
"
!
documentation
"
like an editTextView, but adds two buttons to search forward/backward
for next change.
"
! !
!RCSConflictEditTextView methodsFor:'actions'!
moveToNextChanged
"somewhat of a kludge - simply search for the next text-item"
|start end lnNr max list|
start := self lastLineShown + 1.
list := self list.
max := list size.
lnNr := start.
[(lnNr > max or:[(list at:lnNr) isText])
] whileFalse:[
lnNr := lnNr + 1
].
(lnNr <= max) ifTrue:[
(end isNil or:[lnNr < end]) ifTrue:[
end := lnNr.
]
].
end notNil ifTrue:[
self scrollToLine:end
] ifFalse:[
self beep
].
"Modified: / 27.7.1998 / 12:29:24 / cg"
!
moveToPreviousChanged
"somewhat of a kludge - simply search for the previous text-item"
|start end found lnNr list|
start := firstLineShown - 1.
end := 1.
found := false.
start > 1 ifTrue:[
list := self list.
lnNr := list size.
lnNr >= start ifTrue:[
lnNr := start
].
[(lnNr == end or:[(list at:lnNr) isText])
] whileFalse:[
lnNr := lnNr - 1
].
(list at:lnNr) isText ifTrue:[
end := lnNr.
found := true.
"/ skip multiple text-lines
[end > 1 and:[(list at:(end-1)) isText]] whileTrue:[
end := end - 1
].
]
].
found ifTrue:[
self scrollToLine:end
] ifFalse:[
self beep
]
"Created: / 27.7.1998 / 12:25:34 / cg"
"Modified: / 27.7.1998 / 12:31:26 / cg"
! !
!RCSConflictEditTextView methodsFor:'initialization'!
initialize
|panel buttonPrev buttonNext|
super initialize.
"set up-down buttons"
panel := VerticalPanelView in:self.
buttonPrev := Button label:'-' in:panel.
buttonNext := Button label:'+' in:panel.
buttonPrev extent:15@22.
buttonNext extent:15@22.
panel origin:0.0 @ 1.0 corner:(15 + SimpleView viewSpacing) @ 1.0.
panel topInset:(2 * (buttonPrev preferredExtent y)) negated.
"set actions"
buttonPrev pressAction:[
buttonPrev turnOff.
self moveToPreviousChanged
].
buttonNext pressAction:[
buttonNext turnOff.
self moveToNextChanged
].
self moveToNextChanged.
"Modified: / 27.7.1998 / 12:22:31 / cg"
! !
!RCSConflictEditTextView class methodsFor:'documentation'!
version
^ '$Id: RCSConflictEditTextView.st 8016 2012-07-18 09:57:46Z vranyj1 $'
!
version_HG
^ '$Changeset: <not expanded> $'
!
version_SVN
^ '$Id:: RCSConflictEditTextView.st 8016 2012-07-18 09:57:46Z vranyj1 $'
! !