--- a/SmallSense__ClassPO.st	Sat Jul 19 22:40:45 2014 +0100
+++ b/SmallSense__ClassPO.st	Thu Jul 24 19:58:54 2014 +0100
@@ -57,16 +57,17 @@
 
     namespace := nil.
     showPrefix ifFalse:[
-	namespace := klass isJavaClass
-			ifTrue:[klass javaPackage]
-			ifFalse:[klass nameSpace name].
-	(namespace notNil and:[namespace ~~ #Smalltalk]) ifTrue:[
-	    ^ 'in ', namespace.
-	].
+        namespace := klass isJavaClass
+                        ifTrue:[klass javaPackage]
+                        ifFalse:[ | ns | ns := klass nameSpace. [ ns isNameSpace ] whileFalse:[ ns := ns nameSpace ]. ns name].
+        (namespace notNil and:[namespace ~~ #Smalltalk]) ifTrue:[
+            ^ 'in ', namespace.
+        ].
     ].
     ^ nil
 
     "Created: / 20-05-2014 / 12:21:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 24-07-2014 / 17:31:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 icon
@@ -92,25 +93,26 @@
 
 label
     label isNil ifTrue:[
-	showPrefix ifTrue:[
-	    label := klass name.
-	    (context notNil and:[klass isJavaClass]) ifTrue:[
-		context language isJava ifTrue:[
-		    label := klass javaName
-		] ifFalse:[
-		    context language isSmalltalk ifTrue:[
-		       label := 'JAVA ' , (klass  binaryName copyReplaceAll: $/ with: Character space)
-		     ]
-		]
-	    ].
-	] ifFalse:[
-	    label := klass nameWithoutPrefix.
-	].
+        showPrefix ifTrue:[
+            label := klass name.
+            (context notNil and:[klass isJavaClass]) ifTrue:[
+                context language isJava ifTrue:[
+                    label := klass javaName
+                ] ifFalse:[
+                    context language isSmalltalk ifTrue:[
+                       label := 'JAVA ' , (klass  binaryName copyReplaceAll: $/ with: Character space)
+                     ]
+                ]
+            ].
+        ] ifFalse:[
+            label := klass nameWithoutNameSpacePrefix.
+        ].
     ].
 
     ^label
 
     "Created: / 20-05-2014 / 11:29:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 24-07-2014 / 17:30:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 showPrefix