80 displayLabel:aLabel h:lH on:aGC x:x y:y h:h

    81     | namespace y0 lw cnw fg |

    82 

    83     super displayLabel:aLabel h:lH on:aGC x:x y:y h:h.

    84 

    85     showPrefix ifFalse:[

    86         namespace := subject isJavaClass 

    87                         ifFalse:[subject  nameSpace name]

    88                         ifTrue:[subject javaPackage].

    89         (namespace notNil and:[namespace ~~ #Smalltalk]) ifTrue:[

    90             namespace := 'in ', namespace.

    91             lw :=  x + IconWidth + (aLabel widthOn: aGC).

    92             y0 := y - (lH + 1 - h // 2).

    93             y0 := y0 + (namespace ascentOn:aGC). 

    94             cnw := aGC widthOfString: namespace.

    95 

    96             (aGC width > (lw + cnw + 5)) ifTrue:[

    97                 fg := aGC paint.

    98                 aGC paint: (Color gray: 40).

    99                 namespace displayOn:aGC x: aGC width - cnw - 5 y:y0.

   100                 aGC paint: fg.

   101             ]

   102         ]

   103     ]

   104 

   105     "Created: / 18-09-2013 / 00:17:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   106 !

   107