# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1378214092 -7200
# Node ID 2f7251242b2c9a248505b815906cf0e89f190bf3
# Parent  45155c97d8c408c274deb2fffb8fb336c0f15402
class: AbstractSettingsApplication

diff -r 45155c97d8c4 -r 2f7251242b2c AbstractSettingsApplication.st
--- a/AbstractSettingsApplication.st	Tue Sep 03 14:35:19 2013 +0200
+++ b/AbstractSettingsApplication.st	Tue Sep 03 15:14:52 2013 +0200
@@ -100,7 +100,8 @@
 		extendedWordSelectMode whitespaceWordSelectMode
 		enforceContentsDropForFiles selectAllWhenClickingBeyondEnd
 		showAcceptCancelBarInBrowser useCodeView2InTools
-		autoIndentInCodeView immediateCodeCompletion'
+		autoIndentInCodeView immediateCodeCompletion
+		codeCompletionOnControlKey'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:AbstractSettingsApplication
@@ -3952,6 +3953,14 @@
     ^ autoIndentInCodeView.
 !
 
+codeCompletionOnControlKey
+    codeCompletionOnControlKey isNil ifTrue:[
+        codeCompletionOnControlKey := false asValue.
+        codeCompletionOnControlKey onChangeSend:#updateModifiedChannel to:self.
+    ].
+    ^ codeCompletionOnControlKey.
+!
+
 enforceContentsDropForFiles
     enforceContentsDropForFiles isNil ifTrue:[
         enforceContentsDropForFiles := true asValue.
@@ -18178,10 +18187,10 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.494 2013-09-03 12:16:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.495 2013-09-03 13:14:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.494 2013-09-03 12:16:15 cg Exp $'
-! !
-
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.495 2013-09-03 13:14:52 cg Exp $'
+! !
+