--- 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>"