--- a/SystemBrowser.st	Sat Jul 28 12:02:21 2018 +0200
+++ b/SystemBrowser.st	Sat Jul 28 12:03:05 2018 +0200
@@ -532,6 +532,9 @@
 
     (resources := aMethod resources) isNil ifTrue:[^ nil].
 
+    (resources includesKey:#todo) ifTrue:[
+        ^ ToolbarIconLibrary underConstructionIcon11x11
+    ].
     (resources includesKey:#obsolete) ifTrue:[
         ^ self deprecatedMethodIcon
     ].
@@ -571,6 +574,7 @@
     ^ nil
 
     "Created: / 17-08-2006 / 09:08:11 / cg"
+    "Modified: / 28-07-2018 / 11:10:25 / Claus Gittinger"
 ! !
 
 !SystemBrowser class methodsFor:'dialogs'!