changeset 8634 | e49cd74df70c |
parent 8624 | a88b4a284416 |
child 8653 | 4d98ee627e6a |
--- a/SimpleView.st Fri Feb 22 08:44:50 2019 +0100 +++ b/SimpleView.st Fri Feb 22 09:30:26 2019 +0100 @@ -9556,6 +9556,15 @@ "Modified: 5.6.1996 / 14:25:35 / cg" ! +isTextLabel + "return true, if the receiver is a text label. + Return false here, this is redefined in Label." + + ^ false + + "Created: / 22-02-2019 / 09:29:52 / Claus Gittinger" +! + isTextView "Returns true, if the view displays text"