--- a/Tools__CodeViewService.st	Mon Sep 16 17:12:57 2013 +0200
+++ b/Tools__CodeViewService.st	Tue Sep 17 16:44:33 2013 +0200
@@ -355,6 +355,19 @@
 
 !CodeViewService methodsFor:'redrawing'!
 
+drawAnnotationIcon:icon atX:x y:y width:w height:h
+    |dy dx|
+
+    dx := ((w - icon width) / 2) rounded.
+    dy := ((h - icon height) / 2) rounded.
+    icon 
+        displayOn:gutterView
+        x:x + dx
+        y:y - h + dy + 4.
+
+    "Created: / 17-09-2013 / 15:40:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 drawLine:lineNo in: view atX:x y:y width: w height:h from:startCol to:endColOrNil with:fg and:bg
 
     "Called by both gutterView and textView (well, not yet) to
@@ -411,10 +424,10 @@
 !CodeViewService class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeViewService.st,v 1.14 2013-09-05 23:19:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeViewService.st,v 1.15 2013-09-17 14:44:33 vrany Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__CodeViewService.st,v 1.14 2013-09-05 23:19:43 cg Exp $'
+    ^ '$Id: Tools__CodeViewService.st,v 1.15 2013-09-17 14:44:33 vrany Exp $'
 ! !