--- a/SmallSense__MethodPO.st	Wed Oct 02 02:42:05 2013 +0100
+++ b/SmallSense__MethodPO.st	Wed Oct 02 02:43:57 2013 +0100
@@ -40,15 +40,19 @@
 
 label
 
-    ^super label
+    label isNil ifTrue:[
+        | someClass |
 
-"/    label ifNil:
-"/        [label := name asText ,  ((' [' , class name , ']') asText colorizeAllWith: Color gray).
-"/        ].
-"/    ^label
+        someClass := class isBehavior ifTrue:[class] ifFalse:[class anElement].
+        label := name.
+        someClass programmingLanguage isSmalltalk ifFalse:[
+            label := (someClass compiledMethodAt: name) printStringForBrowserWithSelector: name.
+        ]
+    ].
+    ^ label
 
     "Created: / 07-04-2011 / 09:56:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 21-05-2011 / 10:59:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 02-10-2013 / 02:28:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 stringToComplete
@@ -58,6 +62,12 @@
         separatedBy: ':  '.
 
     "Created: / 05-04-2011 / 16:51:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+stringToCompleteForLanguage: aProgrammingLanguage
+    ^ self stringToComplete.
+
+    "Created: / 02-10-2013 / 02:33:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !MethodPO methodsFor:'displaying'!
@@ -68,7 +78,11 @@
     super displayLabel:aLabel h:lH on:aGC x:x y:y h:h.
 
     lw :=  x + IconWidth + (self label widthOn: aGC).
-    cn := class nameWithoutPrefix.
+    class isCollection ifTrue:[
+        cn := (class collect:[:each | each nameWithoutPrefix ]) asArray asStringWith:' , '.
+    ] ifFalse:[
+        cn := class nameWithoutPrefix.
+    ].
     cnw := aGC widthOfString: cn.
     y0 := y - (lH + 1 - h // 2).
     y0 := y0 + (cn ascentOn:aGC).  
@@ -81,6 +95,7 @@
     ]
 
     "Created: / 18-09-2013 / 00:19:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 02-10-2013 / 02:17:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 displayOn:aGC x:x y:y opaque:opaque