--- a/Tools__CodeView2.st Thu Feb 13 19:39:21 2014 +0100
+++ b/Tools__CodeView2.st Fri Feb 14 00:01:54 2014 +0100
@@ -3101,13 +3101,6 @@
"Modified: / 17-03-2012 / 10:04:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
-redraw
- "/ thisContext fullPrintAll.
- super redraw.
-
- "Created: / 30-06-2011 / 11:04:32 / cg"
-!
-
redrawLines
"redraw diff lines"
@@ -3801,55 +3794,6 @@
!CodeView2::TextView methodsFor:'scrolling'!
-basicScrollDown:nLines
- |i|
-
- (lastFirstLine isNil) ifTrue:[
- lastFirstLine := firstLineShown.
- ].
- super scrollDown:nLines.
- (lastFirstLine = firstLineShown) ifFalse:[
- i := 1.
- [
- i <= changedLines size
- ] whileTrue:[
- super
- drawVisibleLine:(changedLines at:i)
- with:fgColor
- and:Color white.
- changedLines at:i put:(changedLines at:i) - nLines.
- i := i + 1.
- ].
- i := 1.
- [
- i <= insertedLines size
- ] whileTrue:[
- super
- drawVisibleLine:(insertedLines at:i)
- with:fgColor
- and:Color white.
- insertedLines at:i put:(insertedLines at:i) - nLines.
- i := i + 1.
- ].
- i := 1.
- [
- i <= deletedLines size
- ] whileTrue:[
- super
- drawVisibleLine:(deletedLines at:i)
- with:fgColor
- and:Color white.
- deletedLines at:i put:(deletedLines at:i) - nLines.
- i := i + 1.
- ].
- lastFirstLine := firstLineShown.
- self redrawLines.
- ].
-
- "Created: / 06-04-2010 / 14:03:28 / Jakub <zelenja7@fel.cvut.cz>"
- "Modified: / 02-05-2010 / 19:29:23 / Jakub <zelenja7@fel.cvut.cz>"
-!
-
basicScrollTo:anOrigin redraw:doRedraw
super scrollTo:anOrigin redraw:doRedraw
@@ -3858,58 +3802,6 @@
"Created: / 19-03-2012 / 17:01:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
-basicScrollUp:nLines
- |i|
-
- (scrolled isNil) ifTrue:[
- scrolled := false.
- ].
- (lastFirstLine isNil) ifTrue:[
- lastFirstLine := firstLineShown.
- ].
- super scrollUp:nLines.
- (lastFirstLine = firstLineShown) ifFalse:[
- i := 1.
- [
- i <= insertedLines size
- ] whileTrue:[
- super
- drawVisibleLine:(insertedLines at:i)
- with:fgColor
- and:Color white.
- insertedLines at:i put:(insertedLines at:i) + nLines.
- i := i + 1.
- ].
- i := 1.
- [
- i <= deletedLines size
- ] whileTrue:[
- super
- drawVisibleLine:(deletedLines at:i)
- with:fgColor
- and:Color white.
- deletedLines at:i put:(deletedLines at:i) + nLines.
- i := i + 1.
- ].
- i := 1.
- [
- i <= changedLines size
- ] whileTrue:[
- super
- drawVisibleLine:(changedLines at:i)
- with:fgColor
- and:Color white.
- changedLines at:i put:(changedLines at:i) + nLines.
- i := i + 1.
- ].
- lastFirstLine := firstLineShown.
- self redrawLines.
- ].
-
- "Created: / 06-04-2010 / 14:03:46 / Jakub <zelenja7@fel.cvut.cz>"
- "Modified: / 02-05-2010 / 19:19:27 / Jakub <zelenja7@fel.cvut.cz>"
-!
-
originChanged:delta
super originChanged:delta.
@@ -3919,14 +3811,6 @@
"Created: / 07-12-2009 / 21:50:49 / Jindra <a>"
!
-scrollDown:nLines
-
- codeView scrollDown: nLines in: self.
- self basicScrollDown: nLines.
-
- "Modified: / 06-04-2010 / 14:04:28 / Jakub <zelenja7@fel.cvut.cz>"
-!
-
scrollTo:anOrigin redraw:doRedraw
codeView scrollTo:anOrigin redraw:doRedraw in: self.
@@ -3935,14 +3819,6 @@
"Modified: / 06-04-2010 / 14:04:28 / Jakub <zelenja7@fel.cvut.cz>"
"Modified: / 17-03-2012 / 10:06:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Created: / 19-03-2012 / 17:05:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-scrollUp:nLines
-
- codeView scrollUp: nLines in: self.
- self basicScrollUp: nLines.
-
- "Modified: / 06-04-2010 / 14:05:40 / Jakub <zelenja7@fel.cvut.cz>"
! !
!CodeView2::TextView methodsFor:'undo & again'!
@@ -3966,15 +3842,15 @@
!CodeView2 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.130 2014-02-05 18:56:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.131 2014-02-13 23:01:54 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.130 2014-02-05 18:56:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.131 2014-02-13 23:01:54 vrany Exp $'
!
version_SVN
- ^ '$Id: Tools__CodeView2.st,v 1.130 2014-02-05 18:56:57 cg Exp $'
+ ^ '$Id: Tools__CodeView2.st,v 1.131 2014-02-13 23:01:54 vrany Exp $'
! !