--- a/SmallSense__VariablePO.st	Fri Apr 11 18:13:54 2014 +0200
+++ b/SmallSense__VariablePO.st	Mon Apr 28 08:36:50 2014 +0100
@@ -77,7 +77,7 @@
 
     class isNil ifTrue:[ ^ self ]. "/ Could be pseudo-variable
 
-    lw :=  x + IconWidth + (self label widthOn: aGC).
+    lw :=  x + (parent isNil ifTrue:[IconWidth] ifFalse:[0]) + (self label widthOn: aGC).
     cn := class nameWithoutPrefix.
     cnw := aGC widthOfString: cn.
     y0 := y - (lH + 1 - h // 2).
@@ -91,6 +91,7 @@
     ]
 
     "Created: / 18-09-2013 / 00:19:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 28-04-2014 / 00:24:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 displayOn:aGC x:x y:y opaque:opaque