Improvement in SmalltalkEditSupport: when completing a block, add dit after closing bracket
Most of the time this is what user wants.
--- a/SmallSense__SmalltalkEditSupport.st Mon Sep 16 12:14:45 2013 +0100
+++ b/SmallSense__SmalltalkEditSupport.st Mon Sep 16 16:38:23 2013 +0100
@@ -170,14 +170,14 @@
[ (line at: i) isSeparator and:[i > 0] ] whileTrue:[ i := i - 1 ].
i == 0 ifTrue:[ ^ false ].
(line at: i) == $[ ifTrue:[
- self insertElectricBlockOpenedBy: nil closedBy: ']'.
+ self insertElectricBlockOpenedBy: nil closedBy: '].'.
^ true
].
tokens := self tokensAtCursorLine.
i := tokens size.
t := tokens at: i.
t == $[ ifTrue:[
- self insertElectricBlockOpenedBy: nil closedBy: ']'.
+ self insertElectricBlockOpenedBy: nil closedBy: '].'.
^ true
].
t == $| ifTrue:[
@@ -185,7 +185,7 @@
[ i > 1 and:[ (tokens at: i) == #Identifier and:[ (tokens at: i - 1) == $: ]] ] whileTrue:[ i := i - 2 ].
(i ~~ 0 and: [(tokens at: i) == $[]) ifTrue:[
- self insertElectricBlockOpenedBy: nil closedBy: ']'.
+ self insertElectricBlockOpenedBy: nil closedBy: '].'.
^ true
].
i := tokens size - 1.
@@ -202,7 +202,7 @@
^ false.
"Created: / 25-07-2013 / 00:02:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 26-07-2013 / 12:16:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 16-09-2013 / 15:47:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
keyPressReturnToken