--- a/SmallSense__MethodPO.st	Tue May 20 11:58:01 2014 +0100
+++ b/SmallSense__MethodPO.st	Tue May 20 12:33:10 2014 +0100
@@ -42,6 +42,12 @@
     "Modified: / 07-10-2013 / 12:30:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+hint
+    ^ (classes collect:[:each | each nameWithoutPrefix ]) asArray asStringWith:' , '.
+
+    "Created: / 20-05-2014 / 12:27:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 label
 
     label isNil ifTrue:[
@@ -82,31 +88,6 @@
     "Modified: / 20-05-2014 / 10:29:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-!MethodPO methodsFor:'displaying'!
-
-displayLabel:aLabel h:lH on:aGC x:x y:y h:h
-    | lw cn cnw fg y0 |
-
-    super displayLabel:aLabel h:lH on:aGC x:x y:y h:h.
-
-    lw :=  x + IconWidth + (self label widthOn: aGC).
-    cn := (classes collect:[:each | each nameWithoutPrefix ]) asArray asStringWith:' , '.
-
-    cnw := aGC widthOfString: cn.
-    y0 := y - ((lH + 1 - h) // 2).
-    y0 := y0 + (cn ascentOn:aGC).  
-
-    (aGC width > (lw + cnw + 5)) ifTrue:
-        [fg := aGC paint.
-        aGC paint: Color gray .
-        aGC displayString: cn x: aGC width - cnw - 5 y: y0.
-        aGC paint: fg.
-    ]
-
-    "Created: / 18-09-2013 / 00:19:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified (format): / 20-05-2014 / 10:54:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
 !MethodPO methodsFor:'initialization'!
 
 initializeWithClass: aClass selector: aSymbol