--- a/SmallSense__ClassPO.st	Tue May 20 11:58:01 2014 +0100
+++ b/SmallSense__ClassPO.st	Tue May 20 12:33:10 2014 +0100
@@ -12,6 +12,23 @@
 
 !ClassPO methodsFor:'accessing'!
 
+hint
+    | namespace |
+
+    namespace := nil.
+    showPrefix ifFalse:[
+        namespace := klass isJavaClass 
+                        ifTrue:[klass javaPackage]
+                        ifFalse:[klass nameSpace name].
+        (namespace notNil and:[namespace ~~ #Smalltalk]) ifTrue:[
+            ^ 'in ', namespace.                       
+        ].
+    ].
+    ^ nil
+
+    "Created: / 20-05-2014 / 12:21:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 icon
 
     icon ifNil:[icon := SystemBrowser iconForClass: klass].
@@ -107,36 +124,6 @@
     "Modified: / 26-08-2013 / 10:27:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-!ClassPO methodsFor:'displaying'!
-
-displayLabel:aLabel h:lH on:aGC x:x y:y h:h
-    | namespace y0 lw cnw fg |
-
-    super displayLabel:aLabel h:lH on:aGC x:x y:y h:h.
-
-    showPrefix ifFalse:[
-        namespace := klass isJavaClass 
-                        ifFalse:[klass  nameSpace name]
-                        ifTrue:[klass javaPackage].
-        (namespace notNil and:[namespace ~~ #Smalltalk]) ifTrue:[
-            namespace := 'in ', namespace.
-            lw :=  x + IconWidth + (aLabel widthOn: aGC).
-            y0 := y - (lH + 1 - h // 2).
-            y0 := y0 + (namespace ascentOn:aGC). 
-            cnw := aGC widthOfString: namespace.
-
-            (aGC width > (lw + cnw + 5)) ifTrue:[
-                fg := aGC paint.
-                aGC paint: (Color gray: 40).
-                namespace displayOn:aGC x: aGC width - cnw - 5 y:y0.
-                aGC paint: fg.
-            ]
-        ]
-    ]
-
-    "Created: / 18-09-2013 / 00:17:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
 !ClassPO methodsFor:'initialization'!
 
 initialize