--- a/EditTextView.st	Wed Nov 26 16:44:32 2008 +0100
+++ b/EditTextView.st	Wed Nov 26 16:45:20 2008 +0100
@@ -4266,8 +4266,7 @@
     cmdMacro := UserPreferences current functionKeySequences at:key ifAbsent:nil.
     cmdMacro notNil ifTrue:[
         self
-            undoableDo:
-                [ self executeKeyboardMacro:cmdMacro ]
+            undoableDo:[ self executeKeyboardMacro:cmdMacro ]
             info: key.
         ^ self
     ].
@@ -4494,8 +4493,7 @@
                     ].
                     cmdMacro notNil ifTrue:[
                         self
-                            undoableDo:
-                                [ self executeKeyboardMacro:cmdMacro ]
+                            undoableDo:[ self executeKeyboardMacro:cmdMacro ]
                             info:'IndentBy4'.
                         ^ self
                     ].
@@ -4815,14 +4813,12 @@
     start := selectionStartLine.
     end := selectionEndLine.
     (selectionEndCol == 0) ifTrue:[
-	end := end - 1
+        end := end - 1
     ].
     self unselect.
     self
-	undoableDo:[
-	    self indentFromLine:start toLine:end
-	]
-	info:'indent'
+        undoableDo:[self indentFromLine:start toLine:end]
+        info:'Indent'
 !
 
 indentFromLine:start toLine:end
@@ -5105,48 +5101,48 @@
     |line col history sel s|
 
     (self checkModificationsAllowed) ifFalse:[
-	self flash.
-	^ self
+        self flash.
+        ^ self
     ].
 
     sel := self selection.
     sel notNil ifTrue:[
-	lastString := s := sel asStringWithCRs.
-	line := selectionStartLine.
-	col := selectionStartCol.
-
-	toClipboard ifTrue:[
-	    "
-	     remember in CopyBuffer
-	    "
-	    self setClipboardText:sel. "/ lastString.
-	].
-
-	"
-	 append to DeleteHistory (if there is one)
-	"
-	history := Smalltalk at:#DeleteHistory.
-	history notNil ifTrue:[
-	    history addAll:(sel asStringCollection).
-	    history size > 1000 ifTrue:[
-		history := history copyFrom:(history size - 1000)
-	    ].
-	].
-
-	"
-	 now, delete it
-	"
-	self undoableDo:[
-	    self deleteSelection.
-	] info:'Delete'.
-	lastReplacement := nil
+        lastString := s := sel asStringWithCRs.
+        line := selectionStartLine.
+        col := selectionStartCol.
+
+        toClipboard ifTrue:[
+            "
+             remember in CopyBuffer
+            "
+            self setClipboardText:sel. "/ lastString.
+        ].
+
+        "
+         append to DeleteHistory (if there is one)
+        "
+        history := Smalltalk at:#DeleteHistory.
+        history notNil ifTrue:[
+            history addAll:(sel asStringCollection).
+            history size > 1000 ifTrue:[
+                history := history copyFrom:(history size - 1000)
+            ].
+        ].
+
+        "
+         now, delete it
+        "
+        self 
+            undoableDo:[self deleteSelection] 
+            info:'Delete'.
+        lastReplacement := nil
     ] ifFalse:[
-	"
-	 a cut without selection will search&cut again
-	"
-	self undoableDo:[
-	    self again
-	]
+        "
+         a cut without selection will search&cut again
+        "
+        self undoableDo:[
+            self again
+        ]
     ]
 
     "Modified: / 5.4.1998 / 16:51:53 / cg"
@@ -5423,10 +5419,8 @@
 
     typeOfSelection := nil.
     self
-	undoableDo:[
-	    self pasteOrReplace:(Timestamp now printStringRFC1123Format).
-	]
-	info:'paste date and time'
+        undoableDo:[ self pasteOrReplace:(Timestamp now printStringRFC1123Format)]
+        info:'Paste date and time'
 !
 
 insertFile
@@ -5487,10 +5481,8 @@
 
     text := file contentsOfEntireFile.
     self
-        undoableDo:[
-            self paste:(asStringLiteral ifTrue:[text storeString] ifFalse:[text])
-        ]
-        info:'paste file'
+        undoableDo:[ self paste:(asStringLiteral ifTrue:[text storeString] ifFalse:[text]) ]
+        info:'Paste file'
 
     "Modified: / 28-07-2007 / 13:23:32 / cg"
 !
@@ -5500,10 +5492,8 @@
 
     typeOfSelection := nil.
     self
-	undoableDo:[
-	    self pasteOrReplace:(UUID genUUID printString).
-	]
-	info:'paste new uuid'
+        undoableDo:[ self pasteOrReplace:(UUID genUUID printString)]
+        info:'Paste new uuid'
 
     "Created: / 28-07-2007 / 13:01:16 / cg"
 !
@@ -5624,10 +5614,8 @@
 
     typeOfSelection := nil.
     self
-        undoableDo:[
-            self pasteOrReplace:(self getClipboardText storeString).
-        ]
-        info:'paste as String Literal'
+        undoableDo:[ self pasteOrReplace:(self getClipboardText storeString) ]
+        info:'Paste as String Literal'
 !
 
 pasteOrReplace
@@ -5681,10 +5669,8 @@
     self checkModificationsAllowed ifFalse:[^ self].
 
     self withSelfAndTextForPasteDo:[:me :text |
-	me undoableDo:[
-	    me replace:text
-	]
-	info:'Replace'
+        me undoableDo:[ me replace:text ]
+        info:'Replace'
     ]
 !
 
@@ -5956,14 +5942,12 @@
     start := selectionStartLine.
     end := selectionEndLine.
     (selectionEndCol == 0) ifTrue:[
-	end := end - 1
+        end := end - 1
     ].
 
     self
-	undoableDo:[
-	    self sort:how ignoreCase:ignoreCase fromLine:start toLine:end.
-	]
-	info:'sort'
+        undoableDo:[ self sort:how ignoreCase:ignoreCase fromLine:start toLine:end ]
+        info:'Sort'
 !
 
 specialCharacters
@@ -7346,5 +7330,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.443 2008-11-26 14:33:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.444 2008-11-26 15:45:20 cg Exp $'
 ! !