Possibly redraw-bug fix
authorvrany
Tue, 27 Sep 2011 20:46:15 +0200
changeset 10728 463a51112b1d
parent 10727 b2fc73a2b1fe
child 10729 f4109bfaad31
Possibly redraw-bug fix
Tools__CodeView2.st
--- a/Tools__CodeView2.st	Tue Sep 27 20:29:00 2011 +0200
+++ b/Tools__CodeView2.st	Tue Sep 27 20:46:15 2011 +0200
@@ -2423,17 +2423,17 @@
 !
 
 basicDeleteFromLine:startLineNr toLine:endLineNr 
+
+    super basicDeleteFromLine:startLineNr toLine:endLineNr.
     self notifyLinesDeletedFrom:startLineNr to:endLineNr.
-    super basicDeleteFromLine:startLineNr toLine:endLineNr
 
     "Created: / 28-06-2011 / 09:09:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 basicDeleteLineWithoutRedraw:lineNr
 
-    self notifyLinesDeletedFrom: lineNr to: lineNr. 
-
-    ^super basicDeleteLineWithoutRedraw:lineNr
+    super basicDeleteLineWithoutRedraw:lineNr.
+    self notifyLinesDeletedFrom: lineNr to: lineNr.
 
     "Created: / 28-06-2011 / 09:10:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -2442,26 +2442,24 @@
     "insert a single character at lineNr/colNr;
      set emphasis to character at current position"
 
+    super basicInsert:aCharacter atLine:lineNr col:colNr.
     self notifyLinesModifiedFrom: lineNr to: lineNr.
-    super basicInsert:aCharacter atLine:lineNr col:colNr
 
     "Created: / 16-09-2011 / 15:14:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 basicMergeLine:lineNr removeBlanks:removeBlanks
 
+    super basicMergeLine:lineNr removeBlanks:removeBlanks.
     self notifyLinesDeletedFrom: lineNr + 1 to: lineNr + 1.
 
-    super basicMergeLine:lineNr removeBlanks:removeBlanks
-
     "Created: / 28-06-2011 / 09:13:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 basicSplitLine:lineNr before:colNr
 
-    self notifyLinesInsertedFrom: lineNr +1 to: lineNr + 1. 
-
-    ^super basicSplitLine:lineNr before:colNr
+    super basicSplitLine:lineNr before:colNr.
+    self notifyLinesInsertedFrom: lineNr +1 to: lineNr + 1.
 
     "Created: / 28-06-2011 / 09:14:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
@@ -2770,11 +2768,11 @@
 !CodeView2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.24 2011-09-26 15:08:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.25 2011-09-27 18:46:15 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.24 2011-09-26 15:08:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.25 2011-09-27 18:46:15 vrany Exp $'
 !
 
 version_SVN