--- a/CharacterArray.st	Thu Jan 30 09:41:01 2020 +0100
+++ b/CharacterArray.st	Thu Jan 30 09:57:00 2020 +0100
@@ -5210,8 +5210,9 @@
      (for example, the system-browser's info at the bottom is such a widget).
      Caveat: currently the tooltipMessage is ignored (there is no mechanism for that, yet)"
 
-    "/ the blue may become a user-setting some time later..
-    ^ (self actionForAll:aBlock) withColor:(Color blue)
+    |a|
+    a := Explainer::ActionWithInfo block:aBlock info:tooltipMessage.
+    ^ (self actionForAll:a) withColor:(Color blue)
 !
 
 colorizeAllWith:aColor