author | Stefan Vogel <sv@exept.de> |
Thu, 08 Dec 2016 10:54:40 +0100 | |
changeset 4068 | e3a80233dc02 |
parent 4066 | 858b1aa8899a |
child 4069 | 98edd5aa360f |
Structure.st | file | annotate | diff | comparison | revisions |
--- a/Structure.st Thu Dec 08 04:52:03 2016 +0000 +++ b/Structure.st Thu Dec 08 10:54:40 2016 +0100 @@ -1408,6 +1408,9 @@ sel == #classNameWithArticle ifTrue:[ ^ self displayString ]. + sel == #nameWithArticle ifTrue:[ + ^ 'a Structure' + ]. (sel == #allSubclasses or:[sel == #subclasses]) ifTrue:[ ^ #() ].