--- a/SmallSense__SettingsAppl.st	Tue Nov 19 13:02:56 2013 +0000
+++ b/SmallSense__SettingsAppl.st	Wed Feb 26 19:06:00 2014 +0100
@@ -4,7 +4,8 @@
 
 AbstractSettingsApplication subclass:#SettingsAppl
 	instanceVariableNames:'smallSenseBackgroundTypingEnabled smallSenseBackgroundLintEnabled
-		smallSenseEnabled smallSenseElectricEditSupportEnabled'
+		smallSenseEnabled smallSenseElectricEditSupportEnabled
+		smallSenseCompleteIfUnambiguous'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'SmallSense-Core-Interface'
@@ -15,14 +16,13 @@
 
 initialize
 
-    Smalltalk addStartBlock:[
     NewLauncher
         addSettingsApplicationByClass: self name
         withName: 'Tools/SmallSense'
         icon: nil.
-    ]
 
     "Created: / 04-02-2012 / 21:50:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 12-02-2014 / 14:23:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !SettingsAppl class methodsFor:'help specs'!
@@ -46,7 +46,7 @@
 'When enabled, a hints on code are shown based on static code analysis (SmallLint)'
 
 #smallSenseBackgroundTypingEnabled
-'When enabled, SmallSense run a type-inferencer on the code to give a more taccurate type hints and completion data'
+'When enabled, SmallSense run a type-inferencer on the code to give a more accurate type hints and completion data'
 
 #smallSenseElectricEditSupportEnabled
 'When enabled, closing brackets, blank lines and spaces are automatically inserted as soon as opening bracket or other tokens are typed. Honours formatting settings.'
@@ -67,9 +67,9 @@
      the UIPainter may not be able to read the specification."
 
     "
-     UIPainter new openOnClass:SmallSenseSettingsAppl andSelector:#windowSpec
-     SmallSenseSettingsAppl new openInterface:#windowSpec
-     SmallSenseSettingsAppl open
+     UIPainter new openOnClass:SmallSense::SettingsAppl andSelector:#windowSpec
+     SmallSense::SettingsAppl new openInterface:#windowSpec
+     SmallSense::SettingsAppl open
     "
 
     <resource: #canvas>
@@ -135,6 +135,12 @@
                    translateLabel: true
                    extent: (Point 536 22)
                  )
+                (CheckBoxSpec
+                   label: 'Auto-complete when Completion is Unambiguous'
+                   name: 'CheckBox4'
+                   model: smallSenseCompleteIfUnambiguous
+                   extent: (Point 536 22)
+                 )
                 )
               
              )
@@ -189,6 +195,27 @@
     "Modified: / 04-02-2012 / 21:48:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+smallSenseCompleteIfUnambiguous
+    <resource: #uiAspect>
+
+    "automatically generated by UIPainter ..."
+
+    "*** the code below creates a default model when invoked."
+    "*** (which may not be the one you wanted)"
+    "*** Please change as required and accept it in the browser."
+    "*** (and replace this comment by something more useful ;-)"
+
+    smallSenseCompleteIfUnambiguous isNil ifTrue:[
+        smallSenseCompleteIfUnambiguous := true asValue.
+"/ if your app needs to be notified of changes, uncomment one of the lines below:
+"/       smallSenseBackgroundLintEnabled addDependent:self.
+       smallSenseCompleteIfUnambiguous onChangeSend:#updateModifiedChannel to:self.
+    ].
+    ^ smallSenseCompleteIfUnambiguous.
+
+    "Created: / 18-01-2014 / 23:36:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 smallSenseElectricEditSupportEnabled
     <resource: #uiAspect>
 
@@ -241,10 +268,11 @@
        smallSenseBackgroundLintEnabled
        smallSenseBackgroundTypingEnabled
        smallSenseElectricEditSupportEnabled
+       smallSenseCompleteIfUnambiguous
 
     )
 
-    "Modified: / 26-07-2013 / 12:41:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 20-01-2014 / 09:23:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 basicReadSettings
@@ -287,7 +315,7 @@
 !
 
 version_SVN
-    ^ '$Id: SmallSenseSettingsAppl.st 7872 2012-02-06 22:35:36Z vranyj1 $'
+    ^ '$Id: SmallSense__SettingsAppl.st,v 1.3 2014/02/26 15:08:29 cg Exp $'
 ! !