--- a/BreakpointDescription.st	Tue Apr 19 15:25:30 2016 +0200
+++ b/BreakpointDescription.st	Tue Apr 19 16:25:30 2016 +0200
@@ -1,5 +1,7 @@
 "{ Package: 'stx:libcomp' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#BreakpointDescription
 	instanceVariableNames:'state condition icon'
 	classVariableNames:''
@@ -47,6 +49,30 @@
 
 condition:something
     condition := something.
+!
+
+icon
+    "do not use abbreviations like bpnt or brp or similar;
+     when I do not know the exact name, I tend to search for implementors/senders
+     of '*break*' or '*disabled*'.
+     I will not find anything useful and have to single step if methods are named
+     cryptically."
+
+    icon notNil ifTrue:[^ icon].
+
+    condition isNil ifTrue:[
+        state == #enabled ifTrue:[^ ToolbarIconLibrary breakpointRedEnabled].
+        state == #disabled ifTrue:[^ ToolbarIconLibrary breakpointDisabled].
+        state == #tracing ifTrue:[^ ToolbarIconLibrary tracepointBlue].
+    ] ifFalse:[
+        state == #enabled ifTrue:[^ ToolbarIconLibrary breakpointBlueEnabled].
+        state == #disabled ifTrue:[^ ToolbarIconLibrary breakpointBlueDisabled].
+    ].
+
+    ^nil
+
+    "Created: / 28-06-2011 / 08:29:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 27-01-2012 / 13:46:23 / cg"
 ! !
 
 !BreakpointDescription methodsFor:'initialization'!
@@ -141,10 +167,10 @@
 !BreakpointDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/BreakpointDescription.st,v 1.12 2014-06-10 20:10:41 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/BreakpointDescription.st,v 1.12 2014-06-10 20:10:41 cg Exp $'
+    ^ '$Header$'
 ! !