Mercurial Mercurial > hg > stx-libtool / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tools__CodeView2.st
changeset 13936 93271eb5f45b
parent 13813 576b071baeea
child 13942 30541c144f9f 
--- 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 $'
 ! !
hg/stx-libtool