SmallSense__SmalltalkEditSupport.st
branchcvs_MAIN
changeset 1101 97cebca30710
parent 917 c1a6a847be65
--- a/SmallSense__SmalltalkEditSupport.st	Mon Aug 26 09:36:13 2019 +0200
+++ b/SmallSense__SmalltalkEditSupport.st	Thu Aug 29 23:25:46 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
 stx:goodies/smallsense - A productivity plugin for Smalltalk/X IDE
 Copyright (C) 2013-2014 Jan Vrany
@@ -54,17 +56,17 @@
 
 indent: text by: level
     ^ String streamContents:[ :out |
-	| in |
+        | in |
 
-	in := text readStream.
-	[ in atEnd ] whileFalse:[
-	    in peek == Character cr ifTrue:[
-		out nextPut: in next.
-		out next: level put: Character space.
-	    ] ifFalse:[
-		out nextPut: in next.
-	    ].
-	].
+        in := text readStream.
+        [ in atEnd ] whileFalse:[
+            in peek == Character cr ifTrue:[
+                out nextPut: in next.
+                out spaces: level.
+            ] ifFalse:[
+                out nextPut: in next.
+            ].
+        ].
     ]
 
     "Created: / 04-05-2014 / 23:29:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"