equal
deleted
inserted
replaced
5208 "change the action block of all characters and colorize as a link. |
5208 "change the action block of all characters and colorize as a link. |
5209 Some widgets use this like a href if clicked onto the text |
5209 Some widgets use this like a href if clicked onto the text |
5210 (for example, the system-browser's info at the bottom is such a widget). |
5210 (for example, the system-browser's info at the bottom is such a widget). |
5211 Caveat: currently the tooltipMessage is ignored (there is no mechanism for that, yet)" |
5211 Caveat: currently the tooltipMessage is ignored (there is no mechanism for that, yet)" |
5212 |
5212 |
5213 "/ the blue may become a user-setting some time later.. |
5213 |a| |
5214 ^ (self actionForAll:aBlock) withColor:(Color blue) |
5214 a := Explainer::ActionWithInfo block:aBlock info:tooltipMessage. |
|
5215 ^ (self actionForAll:a) withColor:(Color blue) |
5215 ! |
5216 ! |
5216 |
5217 |
5217 colorizeAllWith:aColor |
5218 colorizeAllWith:aColor |
5218 "return a text object representing the receiver, but all colorized" |
5219 "return a text object representing the receiver, but all colorized" |
5219 |
5220 |