extensions.st
changeset 395 25ed27eaeaae
parent 315 0a4845a0c211
child 396 015297b155fe
--- a/extensions.st	Wed Feb 11 22:38:49 2015 +0000
+++ b/extensions.st	Thu Feb 12 00:30:40 2015 +0000
@@ -81,6 +81,26 @@
     "Created: / 16-02-2012 / 14:18:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!InspectorView methodsFor:'initialization & release'!
+
+preRealize
+    "/ This method is an ugly hack to hook-in a a SmallSense completer.
+    "/ Things fall apart if somebody later defined preRealize on
+    "/ InspectorView...
+    UserPreferences current smallSenseCompletionEnabled ifTrue:[ 
+        | completion support |
+
+        support := SmallSense::EditSupport forLanguage: object class programmingLanguage.
+        support initializeForTextView: workspace.  
+        completion := SmallSense::CompletionController for: workspace. 
+        completion support: support.
+        workspace completionSupport: completion.  
+    ].
+    super preRealize
+
+    "Modified: / 12-02-2015 / 00:20:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !MessageNode methodsFor:'enumeration'!
 
 childNamesAndValuesDo:aBlock