SmallSense__EditSupport.st
changeset 445 783f2a4af9c2
parent 395 25ed27eaeaae
child 446 59afe5adfbf7
--- a/SmallSense__EditSupport.st	Wed Mar 04 09:51:20 2015 +0000
+++ b/SmallSense__EditSupport.st	Wed Mar 04 06:01:34 2015 +0000
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
 stx:goodies/smallsense - A productivity plugin for Smalltalk/X IDE
 Copyright (C) 2013-2015 Jan Vrany
@@ -23,7 +25,7 @@
 Object subclass:#EditSupport
 	instanceVariableNames:'textView backspaceIsUndo completionController
 		completionEnvironment snippets ignoreKeystrokes
-		ignoreKeystrokesPosition'
+		ignoreKeystrokesPosition electricInsertSuppressed'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'SmallSense-Core-Services'
@@ -75,6 +77,10 @@
 
 !EditSupport methodsFor:'accessing'!
 
+electricInsertSuppressed
+    ^ electricInsertSuppressed
+!
+
 environment
     ^ completionEnvironment ? Smalltalk
 
@@ -369,9 +375,11 @@
 initializeForTextView: anEditTextView
     textView := anEditTextView.
     backspaceIsUndo := false.
+    electricInsertSuppressed := false.
     self initializeCompletion.
 
     "Created: / 12-02-2015 / 00:16:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 03-03-2015 / 17:14:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !EditSupport methodsFor:'private'!