--- a/SmallSense__JavaCompletionEngineSimple.st	Mon Oct 07 11:11:31 2013 +0100
+++ b/SmallSense__JavaCompletionEngineSimple.st	Mon Oct 07 11:33:25 2013 +0100
@@ -9,6 +9,7 @@
 	category:'SmallSense-Java'
 !
 
+
 !JavaCompletionEngineSimple methodsFor:'completion'!
 
 complete
@@ -73,6 +74,27 @@
     "Modified: / 03-10-2013 / 17:48:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!JavaCompletionEngineSimple methodsFor:'completion-helpers'!
+
+javaClassesDo: aBlock
+    | loader loaders |
+
+    loaders := Set new.
+    loader := (class notNil and:[class isJavaClass]) ifTrue:[class classLoader] ifFalse:[JavaVM systemClassLoader].
+    [ loader notNil ] whileTrue:[
+        loaders add: loader.
+        loader := loader instVarNamed: #parent.
+    ].
+    loaders add: nil.
+
+    JavaVM registry  classesDo:[:cls|
+        (loaders includes: cls classLoader) ifTrue:[
+            aBlock value: cls.
+        ].
+    ].
+
+    "Created: / 04-10-2013 / 13:10:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
 
 !JavaCompletionEngineSimple methodsFor:'completion-individual'!
 
@@ -126,3 +148,10 @@
     "Created: / 03-10-2013 / 18:01:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!JavaCompletionEngineSimple class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+