#REFACTORING by exept
authorClaus Gittinger <cg@exept.de>
Wed, 31 Jul 2019 17:48:29 +0200
changeset 18962 afcb8240f293
parent 18961 034b2bb60274
child 18963 20e87faf3215
#REFACTORING by exept just sent super class: Tools::CodeView2::GutterView removed: #invalidateDeviceRectangle:repairNow: class: Tools::CodeView2::TextView removed: #contentsChanged #leftIndentForLine: #modifiedChannel: #originChanged:
Tools__CodeView2.st
--- a/Tools__CodeView2.st	Wed Jul 31 17:48:05 2019 +0200
+++ b/Tools__CodeView2.st	Wed Jul 31 17:48:29 2019 +0200
@@ -3188,10 +3188,6 @@
     "Modified (format): / 28-04-2017 / 08:02:04 / cg"
 !
 
-invalidateDeviceRectangle:aRectangle repairNow:doRepairNow
-    ^ super invalidateDeviceRectangle:aRectangle repairNow:doRepairNow
-!
-
 invalidateLines
     | x0 |
 
@@ -3529,15 +3525,6 @@
     "Created: / 07-10-2011 / 19:28:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-!CodeView2::TextView methodsFor:'accessing-channels'!
-
-modifiedChannel: aValueHolder
-
-    super modifiedChannel: aValueHolder
-
-    "Created: / 07-07-2011 / 12:27:11 / Jan Vrany <jan.vrant@fit.cvut,cz>"
-! !
-
 !CodeView2::TextView methodsFor:'accessing-color & font'!
 
 colorChanged
@@ -3868,24 +3855,6 @@
 
 !CodeView2::TextView methodsFor:'editing'!
 
-contentsChanged
-    "this one is sent, whenever contents changes its size"
-
-    super contentsChanged.
-
-"/    codeView diffMode ifTrue:[
-"/        changedDiffText ifTrue:[
-"/            codeView recomputeDiff:self.
-"/        ] ifFalse:[
-"/            changedDiffText := true.
-"/        ].  
-"/    ]
-
-
-    "Created: / 22-06-2010 / 23:13:24 / Jakub <zelenja7@fel.cvut.cz>"
-    "Modified: / 01-08-2010 / 20:33:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
 deleteCharBeforeCursor
     "delete single character to the left of cursor and move cursor to left"
 
@@ -4189,63 +4158,6 @@
     "Modified: / 06-03-2010 / 21:04:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-!CodeView2::TextView methodsFor:'formatting'!
-
-leftIndentForLine:lineNr
-
-"/ cg: the code in EditTextView does it. No need to replicate that code here.
-"/
-"/    | lang |
-"/
-"/    lang := codeView language.
-"/    "Bit hacky here, should ask language some language toolbox
-"/    for formatting helper, that should do it..."
-"/    (lang notNil and:[lang isSmalltalk]) ifTrue:[
-"/        | line lineNo indent |
-"/        lineNo := lineNr.
-"/        [lineNo ~~ 1] whileTrue:[
-"/            lineNo  := lineNo - 1.
-"/            line := self listAt:lineNo.
-"/
-"/            line notEmptyOrNil ifTrue:[
-"/                | lastCharIndex lastChar |
-"/
-"/                indent := line indexOfNonSeparatorStartingAt:1.
-"/                "begining of block"
-"/
-"/                lastCharIndex := line size.
-"/                lastChar := nil.
-"/                [ lastCharIndex > 0 ] whileTrue:[
-"/                    (lastChar := line at: lastCharIndex) isSeparator ifTrue:[ 
-"/                        lastCharIndex := lastCharIndex - 1.
-"/                    ] ifFalse:[ 
-"/                        lastCharIndex := -2. "/ To terminate the loop.
-"/                    ].
-"/                ].
-"/                lastCharIndex == -2 ifTrue:[
-"/                    lastChar == $[ ifTrue:[
-"/                        indent := indent + 4.
-"/                    ] ifFalse:[
-"/                        "end of block args"
-"/                        (lastChar == $| and: [line includes: $[]) ifTrue:[
-"/                            indent := indent + 4.
-"/                        ]
-"/                    ].
-"/                ].
-"/                indent ~~ 0 ifTrue:[
-"/                    ^ indent - 1
-"/                ]
-"/            ]
-"/        ].
-"/        ^0.
-"/    ].
-    ^super leftIndentForLine:lineNr
-
-    "Created: / 10-12-2011 / 11:02:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 24-07-2014 / 09:38:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified (comment): / 25-04-2017 / 12:58:48 / cg"
-! !
-
 !CodeView2::TextView methodsFor:'initialization'!
 
 initialize
@@ -4652,15 +4564,6 @@
     "Modified: / 14-02-2014 / 10:12:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-originChanged:delta
-
-    super originChanged:delta.
-
-    "/ gutterView invalidate.
-
-    "Created: / 07-12-2009 / 21:50:49 / Jindra <a>"
-!
-
 scrollTo:anOrigin redraw:doRedraw
 
     codeView scrollTo:anOrigin redraw:doRedraw in: self.