CodeView.st
changeset 4594 ef0af7d8e4c6
parent 4586 0678021a7151
child 4813 938c3cbafe4c
--- a/CodeView.st	Wed May 29 13:14:02 2013 +0200
+++ b/CodeView.st	Wed May 29 19:15:20 2013 +0200
@@ -78,7 +78,7 @@
 !CodeView class methodsFor:'others'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.63 2013-04-30 18:21:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.64 2013-05-29 17:15:20 cg Exp $'
 ! !
 
 !CodeView methodsFor:'accessing'!
@@ -114,17 +114,21 @@
     |wasOn line newCol |
 
     "/ make Jan's enhancement dependent on
-    "/ the st80EditMode-flag setting - to avoid confusing
+    "/ the autoIndent-flag setting - to avoid confusing
     "/ those who are used to the old behavior.
     "/ for Jan: 
-    "/     st80EditMode is configured in the settings-Editor dialog
+    "/     autoIndent is configured in the settings-Editor dialog (for all new editors)
+    "/     or in the per-editor popup menu (misc)
+    "/ 
     "/ and saved/restored with the userPreferences.
 
-    (self st80EditMode not
-    or:[cursorLine == 1]) ifTrue:[
+    (autoIndent "self st80EditMode" not
+    or:[ cursorLine == 1
+    or:[ self sensor shiftDown]]) ifTrue:[
         super cursorReturn.
         ^ self.
     ].
+
     wasOn := self hideCursor .
     line := self listAt:cursorLine.
     newCol := line size == 0
@@ -133,7 +137,6 @@
     super cursorReturn.
     line := self listAt:cursorLine.
 
-
     newCol := line size == 0
                     ifTrue:[newCol]
                     ifFalse:[line indexOfNonSeparator].
@@ -326,6 +329,6 @@
 !CodeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.63 2013-04-30 18:21:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.64 2013-05-29 17:15:20 cg Exp $'
 ! !