fix for autoindent: deleting line when at the very beggining of the line
authorvrany
Fri, 06 Jan 2012 16:26:14 +0100
changeset 11054 4a047a923805
parent 11053 496110873111
child 11055 5f80e5c4c728
fix for autoindent: deleting line when at the very beggining of the line
Tools__CodeView2.st
--- a/Tools__CodeView2.st	Fri Jan 06 16:04:06 2012 +0100
+++ b/Tools__CodeView2.st	Fri Jan 06 16:26:14 2012 +0100
@@ -2641,7 +2641,8 @@
     |soCol wasOn lineNrAboveCursor ln prevTab|
 
     wasOn := self hideCursor.
-    autoIndent ifTrue:[
+    "JV@2012-01-06: Do not play with autoindent iff cursor is at the very beggining of the line"
+    (autoIndent and:[cursorCol ~~ 1]) ifTrue:[
         prevTab := (self prevTabBefore:cursorCol) max:1.
         "JV@2011-12-10: The list can be shorter that cursorLine,
          trailing because empty lines are not physically in the list."
@@ -2712,7 +2713,7 @@
     wasOn ifTrue:[ self showCursor ]
 
     "Modified: / 16-01-1998 / 22:33:04 / cg"
-    "Modified (comment): / 10-12-2011 / 13:43:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 06-01-2012 / 12:42:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 getNewOriginText
@@ -3239,11 +3240,11 @@
 !CodeView2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.45 2011-12-20 15:22:01 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.46 2012-01-06 15:26:14 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.45 2011-12-20 15:22:01 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.46 2012-01-06 15:26:14 vrany Exp $'
 !
 
 version_SVN