Some more support for complete-as-you-type.
authorJan Vrany <jan.vrany@fit.cvut.cz>
Tue, 24 Sep 2013 23:02:47 +0100
changeset 104 3b05b2d777dd
parent 103 2d478ebc2456
child 105 d925e1672ac7
Some more support for complete-as-you-type.
Make.proto
Make.spec
SmallSense__CompletionWindow.st
SmallSense__ParseNodePosition.st
SmallSense__Position.st
SmallSense__SelectorNode.st
SmallSense__SmalltalkEditSupport.st
SmallSense__SmalltalkParseNodeFinder.st
SmallSense__SmalltalkParseNodeVisitor.st
abbrev.stc
bc.mak
java/extensions/org/eclipse/jdt/internal/compiler/ast/ASTNode.st
java/extensions/org/eclipse/jdt/internal/compiler/ast/TypeReference.st
jv_smallsense.st
libInit.cc
smallsense.rc
--- a/Make.proto	Tue Sep 24 23:01:37 2013 +0100
+++ b/Make.proto	Tue Sep 24 23:02:47 2013 +0100
@@ -173,9 +173,9 @@
 $(OUTDIR)SmallSense__Manager.$(O) SmallSense__Manager.$(H): SmallSense__Manager.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
 $(OUTDIR)SmallSense__PO.$(O) SmallSense__PO.$(H): SmallSense__PO.st $(INCLUDE_TOP)/stx/libwidg2/HierarchicalItem.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
 $(OUTDIR)SmallSense__ParseNodeInspector.$(O) SmallSense__ParseNodeInspector.$(H): SmallSense__ParseNodeInspector.st $(INCLUDE_TOP)/stx/libview2/ApplicationModel.$(H) $(INCLUDE_TOP)/stx/libview2/Model.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(INCLUDE_TOP)/stx/libwidg2/HierarchicalItem.$(H) $(STCHDR)
+$(OUTDIR)SmallSense__ParseNodePosition.$(O) SmallSense__ParseNodePosition.$(H): SmallSense__ParseNodePosition.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
 $(OUTDIR)SmallSense__ParseTreeIndex.$(O) SmallSense__ParseTreeIndex.$(H): SmallSense__ParseTreeIndex.st $(INCLUDE_TOP)/stx/libbasic/SortedCollection.$(H) $(INCLUDE_TOP)/stx/libbasic/OrderedCollection.$(H) $(INCLUDE_TOP)/stx/libbasic/SequenceableCollection.$(H) $(INCLUDE_TOP)/stx/libbasic/Collection.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
 $(OUTDIR)SmallSense__ParseTreeIndexEntry.$(O) SmallSense__ParseTreeIndexEntry.$(H): SmallSense__ParseTreeIndexEntry.st $(INCLUDE_TOP)/stx/libbasic/Magnitude.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
-$(OUTDIR)SmallSense__Position.$(O) SmallSense__Position.$(H): SmallSense__Position.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
 $(OUTDIR)SmallSense__SelectorNode.$(O) SmallSense__SelectorNode.$(H): SmallSense__SelectorNode.st $(INCLUDE_TOP)/stx/libcomp/ParseNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
 $(OUTDIR)SmallSense__SettingsAppl.$(O) SmallSense__SettingsAppl.$(H): SmallSense__SettingsAppl.st $(INCLUDE_TOP)/stx/libtool/AbstractSettingsApplication.$(H) $(INCLUDE_TOP)/stx/libview2/ApplicationModel.$(H) $(INCLUDE_TOP)/stx/libview2/Model.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
 $(OUTDIR)SmallSense__SmalltalkChecker.$(O) SmallSense__SmalltalkChecker.$(H): SmallSense__SmalltalkChecker.st $(INCLUDE_TOP)/stx/goodies/refactoryBrowser/lint/SmalllintChecker.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
--- a/Make.spec	Tue Sep 24 23:01:37 2013 +0100
+++ b/Make.spec	Tue Sep 24 23:02:47 2013 +0100
@@ -61,9 +61,9 @@
 	SmallSense::Manager \
 	SmallSense::PO \
 	SmallSense::ParseNodeInspector \
+	SmallSense::ParseNodePosition \
 	SmallSense::ParseTreeIndex \
 	SmallSense::ParseTreeIndexEntry \
-	SmallSense::Position \
 	SmallSense::SelectorNode \
 	SmallSense::SettingsAppl \
 	SmallSense::SmalltalkChecker \
@@ -110,9 +110,9 @@
     $(OUTDIR_SLASH)SmallSense__Manager.$(O) \
     $(OUTDIR_SLASH)SmallSense__PO.$(O) \
     $(OUTDIR_SLASH)SmallSense__ParseNodeInspector.$(O) \
+    $(OUTDIR_SLASH)SmallSense__ParseNodePosition.$(O) \
     $(OUTDIR_SLASH)SmallSense__ParseTreeIndex.$(O) \
     $(OUTDIR_SLASH)SmallSense__ParseTreeIndexEntry.$(O) \
-    $(OUTDIR_SLASH)SmallSense__Position.$(O) \
     $(OUTDIR_SLASH)SmallSense__SelectorNode.$(O) \
     $(OUTDIR_SLASH)SmallSense__SettingsAppl.$(O) \
     $(OUTDIR_SLASH)SmallSense__SmalltalkChecker.$(O) \
--- a/SmallSense__CompletionWindow.st	Tue Sep 24 23:01:37 2013 +0100
+++ b/SmallSense__CompletionWindow.st	Tue Sep 24 23:02:47 2013 +0100
@@ -228,7 +228,7 @@
 keyPressCharacter: char x:x y:y
 
     | text |
-    char isSeparator ifTrue:[
+    char isAlphaNumeric not ifTrue:[
         self close
     ] ifFalse:[
         text := self textHolder value.
@@ -237,7 +237,7 @@
     codeView textView keyPress:char x:x y:y.
 
     "Created: / 04-04-2011 / 16:56:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 08-08-2013 / 13:32:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 24-09-2013 / 22:55:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 keyPressReturnX:x y:y
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/SmallSense__ParseNodePosition.st	Tue Sep 24 23:02:47 2013 +0100
@@ -0,0 +1,76 @@
+"{ Package: 'jv:smallsense' }"
+
+"{ NameSpace: SmallSense }"
+
+Object subclass:#ParseNodePosition
+	instanceVariableNames:'node position position1'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'SmallSense-Core'
+!
+
+
+!ParseNodePosition class methodsFor:'instance creation'!
+
+node: node position: position
+
+    ^self new node: node position: position
+
+    "Created: / 26-11-2011 / 16:22:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!ParseNodePosition methodsFor:'accessing'!
+
+node
+    ^ node
+!
+
+position
+    ^ position
+! !
+
+!ParseNodePosition methodsFor:'initialization'!
+
+node:nd position: pos
+
+    node := nd.
+    position := pos.
+    position1 := pos - 1
+
+    "Created: / 26-11-2011 / 16:22:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!ParseNodePosition methodsFor:'queries'!
+
+isAfterNode
+    ^ node notNil and:[node endPosition < position1]
+
+    "Created: / 26-11-2011 / 16:24:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 24-09-2013 / 13:11:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isBeforeNode
+    ^node notNil and:[position < node startPosition]
+
+    "Created: / 26-11-2011 / 16:24:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 24-09-2013 / 13:11:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isInNode
+    ^ node notNil and:[position1 between:node startPosition and:node endPosition]
+
+    "Created: / 26-11-2011 / 16:24:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 24-09-2013 / 13:12:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!ParseNodePosition class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+!
+
+version_SVN
+    ^ '$Id: SmallSensePosition.st 7823 2011-11-26 16:55:59Z vranyj1 $'
+! !
+
--- a/SmallSense__Position.st	Tue Sep 24 23:01:37 2013 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,73 +0,0 @@
-"{ Package: 'jv:smallsense' }"
-
-"{ NameSpace: SmallSense }"
-
-Object subclass:#Position
-	instanceVariableNames:'node position position1'
-	classVariableNames:''
-	poolDictionaries:''
-	category:'SmallSense-Core'
-!
-
-
-!Position class methodsFor:'instance creation'!
-
-node: node position: position
-
-    ^self new node: node position: position
-
-    "Created: / 26-11-2011 / 16:22:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!Position methodsFor:'accessing'!
-
-node
-    ^ node
-!
-
-position
-    ^ position
-! !
-
-!Position methodsFor:'initialization'!
-
-node:nd position: pos
-
-    node := nd.
-    position := pos.
-    position1 := pos - 1
-
-    "Created: / 26-11-2011 / 16:22:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!Position methodsFor:'queries'!
-
-isAfterNode
-    ^ node endPosition < position1
-
-    "Created: / 26-11-2011 / 16:24:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-isBeforeNode
-    ^ position < node startPosition
-
-    "Created: / 26-11-2011 / 16:24:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-isInNode
-    ^ position1 between:node startPosition and:node endPosition
-
-    "Created: / 26-11-2011 / 16:24:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!Position class methodsFor:'documentation'!
-
-version_HG
-
-    ^ '$Changeset: <not expanded> $'
-!
-
-version_SVN
-    ^ '$Id: SmallSensePosition.st 7823 2011-11-26 16:55:59Z vranyj1 $'
-! !
-
--- a/SmallSense__SelectorNode.st	Tue Sep 24 23:01:37 2013 +0100
+++ b/SmallSense__SelectorNode.st	Tue Sep 24 23:02:47 2013 +0100
@@ -6,7 +6,7 @@
 	instanceVariableNames:'value'
 	classVariableNames:''
 	poolDictionaries:''
-	category:'SmallSense-Core'
+	category:'SmallSense-Smalltalk'
 !
 
 !SelectorNode class methodsFor:'documentation'!
@@ -54,6 +54,13 @@
     value := aString.
 ! !
 
+!SelectorNode methodsFor:'navigation-SmallSense'!
+
+navigateToUsing: navigator
+    self parent navigateToUsing: navigator
+
+    "Created: / 24-09-2013 / 10:04:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
 
 !SelectorNode methodsFor:'testing'!
 
--- a/SmallSense__SmalltalkEditSupport.st	Tue Sep 24 23:01:37 2013 +0100
+++ b/SmallSense__SmalltalkEditSupport.st	Tue Sep 24 23:02:47 2013 +0100
@@ -138,7 +138,7 @@
     "/    self showInfo:'Node is neither variable nor message.'.
 
     "Created: / 24-09-2013 / 00:53:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 24-09-2013 / 11:36:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 24-09-2013 / 22:39:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 keyPress: key x:x y:y in: view
@@ -169,12 +169,12 @@
     ].
     key == #Return ifTrue:[
         ^ self keyPressReturn
-    ]. 
+    ].
 
     ^ super keyPress: key x:x y:y in: view
 
     "Created: / 07-03-2010 / 09:36:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 24-09-2013 / 00:58:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 24-09-2013 / 22:55:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 keyPressReturn
--- a/SmallSense__SmalltalkParseNodeFinder.st	Tue Sep 24 23:01:37 2013 +0100
+++ b/SmallSense__SmalltalkParseNodeFinder.st	Tue Sep 24 23:02:47 2013 +0100
@@ -31,9 +31,10 @@
 
     position := pos - 1.
     self visit: tree.
-    ^Position node: match ? previous position: pos.
+    ^ParseNodePosition node: match ? previous position: pos.
 
     "Created: / 26-11-2011 / 15:37:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 24-09-2013 / 22:29:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !SmalltalkParseNodeFinder methodsFor:'visiting'!
--- a/SmallSense__SmalltalkParseNodeVisitor.st	Tue Sep 24 23:01:37 2013 +0100
+++ b/SmallSense__SmalltalkParseNodeVisitor.st	Tue Sep 24 23:02:47 2013 +0100
@@ -74,15 +74,18 @@
 
     ^anObject isStatementNode ifTrue:[
         stmt := anObject.
-        [ stmt isNil ] whileFalse:[
+        [ stmt notNil and:[stmt isStatementNode ] ] whileTrue:[
             stmt acceptVisitor:self.
             stmt := stmt nextStatement.
-        ]
+        ].
+        stmt notNil ifTrue:[
+            stmt acceptVisitor: self.
+        ].
     ] ifFalse:[
         anObject acceptVisitor: self.
     ]
 
-    "Modified: / 25-07-2011 / 22:33:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 24-09-2013 / 13:21:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 visitAssignmentNode:anObject
--- a/abbrev.stc	Tue Sep 24 23:01:37 2013 +0100
+++ b/abbrev.stc	Tue Sep 24 23:02:47 2013 +0100
@@ -16,9 +16,9 @@
 SmallSense::ParseNodeInspector SmallSense__ParseNodeInspector jv:smallsense 'SmallSense-Core-Interface' 1
 SmallSense::ParseTreeIndex SmallSense__ParseTreeIndex jv:smallsense 'SmallSense-Core-Index' 0
 SmallSense::ParseTreeIndexEntry SmallSense__ParseTreeIndexEntry jv:smallsense 'SmallSense-Core-Index' 0
-SmallSense::Position SmallSense__Position jv:smallsense 'SmallSense-Core' 0
+SmallSense::ParseNodePosition SmallSense__ParseNodePosition jv:smallsense 'SmallSense-Core' 0
 SmallSense::RecognizerTests SmallSense__RecognizerTests jv:smallsense 'SmallSense-Tests' 1
-SmallSense::SelectorNode SmallSense__SelectorNode jv:smallsense 'SmallSense-Core' 0
+SmallSense::SelectorNode SmallSense__SelectorNode jv:smallsense 'SmallSense-Smalltalk' 0
 SmallSense::SettingsAppl SmallSense__SettingsAppl jv:smallsense 'SmallSense-Core-Interface' 1
 SmallSense::SmalltalkChecker SmallSense__SmalltalkChecker jv:smallsense 'SmallSense-Smalltalk-Lint' 0
 SmallSense::SmalltalkCompletion SmallSense__SmalltalkCompletion jv:smallsense 'SmallSense-Smalltalk-Completion' 0
--- a/bc.mak	Tue Sep 24 23:01:37 2013 +0100
+++ b/bc.mak	Tue Sep 24 23:02:47 2013 +0100
@@ -97,9 +97,9 @@
 $(OUTDIR)SmallSense__Manager.$(O) SmallSense__Manager.$(H): SmallSense__Manager.st $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
 $(OUTDIR)SmallSense__PO.$(O) SmallSense__PO.$(H): SmallSense__PO.st $(INCLUDE_TOP)\stx\libwidg2\HierarchicalItem.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
 $(OUTDIR)SmallSense__ParseNodeInspector.$(O) SmallSense__ParseNodeInspector.$(H): SmallSense__ParseNodeInspector.st $(INCLUDE_TOP)\stx\libview2\ApplicationModel.$(H) $(INCLUDE_TOP)\stx\libview2\Model.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(INCLUDE_TOP)\stx\libwidg2\HierarchicalItem.$(H) $(STCHDR)
+$(OUTDIR)SmallSense__ParseNodePosition.$(O) SmallSense__ParseNodePosition.$(H): SmallSense__ParseNodePosition.st $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
 $(OUTDIR)SmallSense__ParseTreeIndex.$(O) SmallSense__ParseTreeIndex.$(H): SmallSense__ParseTreeIndex.st $(INCLUDE_TOP)\stx\libbasic\SortedCollection.$(H) $(INCLUDE_TOP)\stx\libbasic\OrderedCollection.$(H) $(INCLUDE_TOP)\stx\libbasic\SequenceableCollection.$(H) $(INCLUDE_TOP)\stx\libbasic\Collection.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
 $(OUTDIR)SmallSense__ParseTreeIndexEntry.$(O) SmallSense__ParseTreeIndexEntry.$(H): SmallSense__ParseTreeIndexEntry.st $(INCLUDE_TOP)\stx\libbasic\Magnitude.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
-$(OUTDIR)SmallSense__Position.$(O) SmallSense__Position.$(H): SmallSense__Position.st $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
 $(OUTDIR)SmallSense__SelectorNode.$(O) SmallSense__SelectorNode.$(H): SmallSense__SelectorNode.st $(INCLUDE_TOP)\stx\libcomp\ParseNode.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
 $(OUTDIR)SmallSense__SettingsAppl.$(O) SmallSense__SettingsAppl.$(H): SmallSense__SettingsAppl.st $(INCLUDE_TOP)\stx\libtool\AbstractSettingsApplication.$(H) $(INCLUDE_TOP)\stx\libview2\ApplicationModel.$(H) $(INCLUDE_TOP)\stx\libview2\Model.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
 $(OUTDIR)SmallSense__SmalltalkChecker.$(O) SmallSense__SmalltalkChecker.$(H): SmallSense__SmalltalkChecker.st $(INCLUDE_TOP)\stx\goodies\refactoryBrowser\lint\SmalllintChecker.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
--- a/java/extensions/org/eclipse/jdt/internal/compiler/ast/ASTNode.st	Tue Sep 24 23:01:37 2013 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,9 +0,0 @@
-"{ Package: 'jv:smallsense' }"
-
-!
-
-!(Java classForName:'org.eclipse.jdt.internal.compiler.ast.ASTNode') methodsFor:'* instance *'!
-
-navigateToUsing: navigator
-    "/ Nothing to do by default
-! !
--- a/java/extensions/org/eclipse/jdt/internal/compiler/ast/TypeReference.st	Tue Sep 24 23:01:37 2013 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,9 +0,0 @@
-"{ Package: 'jv:smallsense' }"
-
-!
-
-!(Java classForName:'org.eclipse.jdt.internal.compiler.ast.TypeReference') methodsFor:'* instance *'!
-
-navigateToUsing: navigator
-    ^ navigator navigateToTypeReference: self.
-! !
--- a/jv_smallsense.st	Tue Sep 24 23:01:37 2013 +0100
+++ b/jv_smallsense.st	Tue Sep 24 23:02:47 2013 +0100
@@ -153,59 +153,56 @@
      Each entry in the list may be: a single class-name (symbol),
      or an array-literal consisting of class name and attributes.
      Attributes are: #autoload or #<os> where os is one of win32, unix,..."
-
-    ^ #(
-        "<className> or (<className> attributes...) in load order"
-        (#'SmallSense::BaseTestClass' autoload)
-        #'SmallSense::CodeHighlightingService'
-        #'SmallSense::CodeNavigationService'
-        #'SmallSense::CompletionResultSet'
-        #'SmallSense::CompletionWindow'
-        #'SmallSense::CriticsWindow'
-        #'SmallSense::EditService'
-        #'SmallSense::EditSupport'
-        (#'SmallSense::FinderTests' autoload)
-        #'SmallSense::Info'
-        #'SmallSense::Manager'
-        #'SmallSense::PO'
-        #'SmallSense::ParseNodeInspector'
-        #'SmallSense::ParseTreeIndex'
-        #'SmallSense::ParseTreeIndexEntry'
-        #'SmallSense::Position'
-        (#'SmallSense::RecognizerTests' autoload)
-        #'SmallSense::SelectorNode'
-        #'SmallSense::SettingsAppl'
-        #'SmallSense::SmalltalkChecker'
-        #'SmallSense::SmalltalkCompletion'
-        #'SmallSense::SmalltalkLintAnnotation'
-        #'SmallSense::SmalltalkLintHighlighter'
-        #'SmallSense::SmalltalkLintService'
-        #'SmallSense::SmalltalkParseNodeVisitor'
-        #'SmallSense::SmalltalkParser'
-        (#'SmallSense::SmalltalkParserTests' autoload)
-        #'SmallSense::SmalltalkQuickFixer'
-        #'SmallSense::SmalltalkSyntaxHighlighter'
-        #'SmallSense::SmalltalkUnacceptedMethodEnvironment'
-        (#'SmallSense::TestCase' autoload)
-        #'SmallSense::Type'
-        #'SmallSense::TypeHolder'
-        #'jv_smallsense'
-        #'SmallSense::ClassInfo'
-        #'SmallSense::ClassPO'
-        #'SmallSense::ClassType'
-        #'SmallSense::ConstantPO'
-        #'SmallSense::GenericEditSupport'
-        #'SmallSense::JavaEditSupport'
-        #'SmallSense::MethodInfo'
-        #'SmallSense::MethodPO'
-        #'SmallSense::SmalltalkEditSupport'
-        #'SmallSense::SmalltalkInferencer'
-        #'SmallSense::SmalltalkParseNodeFinder'
-        #'SmallSense::SnippetPO'
-        #'SmallSense::UnionType'
-        #'SmallSense::UnknownType'
-        #'SmallSense::VariablePO'
-    )
+    
+    ^ "<className> or (<className> attributes...) in load order" #( #(#'SmallSense::BaseTestClass' autoload)
+     #'SmallSense::CodeHighlightingService'
+     #'SmallSense::CodeNavigationService'
+     #'SmallSense::CompletionResultSet'
+     #'SmallSense::CompletionWindow'
+     #'SmallSense::CriticsWindow'
+     #'SmallSense::EditService'
+     #'SmallSense::EditSupport'
+     #(#'SmallSense::FinderTests' autoload)
+     #'SmallSense::Info'
+     #'SmallSense::Manager'
+     #'SmallSense::PO'
+     #'SmallSense::ParseNodeInspector'
+     #'SmallSense::ParseTreeIndex'
+     #'SmallSense::ParseTreeIndexEntry'
+     #'SmallSense::ParseNodePosition'
+     #(#'SmallSense::RecognizerTests' autoload)
+     #'SmallSense::SelectorNode'
+     #'SmallSense::SettingsAppl'
+     #'SmallSense::SmalltalkChecker'
+     #'SmallSense::SmalltalkCompletion'
+     #'SmallSense::SmalltalkLintAnnotation'
+     #'SmallSense::SmalltalkLintHighlighter'
+     #'SmallSense::SmalltalkLintService'
+     #'SmallSense::SmalltalkParseNodeVisitor'
+     #'SmallSense::SmalltalkParser'
+     #(#'SmallSense::SmalltalkParserTests' autoload)
+     #'SmallSense::SmalltalkQuickFixer'
+     #'SmallSense::SmalltalkSyntaxHighlighter'
+     #'SmallSense::SmalltalkUnacceptedMethodEnvironment'
+     #(#'SmallSense::TestCase' autoload)
+     #'SmallSense::Type'
+     #'SmallSense::TypeHolder'
+     #'jv_smallsense'
+     #'SmallSense::ClassInfo'
+     #'SmallSense::ClassPO'
+     #'SmallSense::ClassType'
+     #'SmallSense::ConstantPO'
+     #'SmallSense::GenericEditSupport'
+     #'SmallSense::JavaEditSupport'
+     #'SmallSense::MethodInfo'
+     #'SmallSense::MethodPO'
+     #'SmallSense::SmalltalkEditSupport'
+     #'SmallSense::SmalltalkInferencer'
+     #'SmallSense::SmalltalkParseNodeFinder'
+     #'SmallSense::SnippetPO'
+     #'SmallSense::UnionType'
+     #'SmallSense::UnknownType'
+     #'SmallSense::VariablePO' )
 !
 
 extensionMethodNames
--- a/libInit.cc	Tue Sep 24 23:01:37 2013 +0100
+++ b/libInit.cc	Tue Sep 24 23:02:47 2013 +0100
@@ -38,9 +38,9 @@
 _SmallSense__Manager_Init(pass,__pRT__,snd);
 _SmallSense__PO_Init(pass,__pRT__,snd);
 _SmallSense__ParseNodeInspector_Init(pass,__pRT__,snd);
+_SmallSense__ParseNodePosition_Init(pass,__pRT__,snd);
 _SmallSense__ParseTreeIndex_Init(pass,__pRT__,snd);
 _SmallSense__ParseTreeIndexEntry_Init(pass,__pRT__,snd);
-_SmallSense__Position_Init(pass,__pRT__,snd);
 _SmallSense__SelectorNode_Init(pass,__pRT__,snd);
 _SmallSense__SettingsAppl_Init(pass,__pRT__,snd);
 _SmallSense__SmalltalkChecker_Init(pass,__pRT__,snd);
--- a/smallsense.rc	Tue Sep 24 23:01:37 2013 +0100
+++ b/smallsense.rc	Tue Sep 24 23:02:47 2013 +0100
@@ -25,7 +25,7 @@
       VALUE "LegalCopyright", "Copyright Claus Gittinger 1988-2011\nCopyright eXept Software AG 1998-2011\0"
       VALUE "ProductName", "Smalltalk/X\0"
       VALUE "ProductVersion", "6.2.3.0\0"
-      VALUE "ProductDate", "Tue, 24 Sep 2013 11:40:25 GMT\0"
+      VALUE "ProductDate", "Tue, 24 Sep 2013 22:02:06 GMT\0"
     END
 
   END