#REFACTORING by exept
just sent super
class: Tools::CodeView2::GutterView
removed: #invalidateDeviceRectangle:repairNow:
class: Tools::CodeView2::TextView
removed:
#contentsChanged
#leftIndentForLine:
#modifiedChannel:
#originChanged:
--- 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.