author | Claus Gittinger <cg@exept.de> |
Fri, 04 May 2018 12:57:56 +0200 | |
changeset 18078 | 3dd16d5522dc |
parent 18077 | 98f9cde4cdda |
child 18079 | 254c831bbbfa |
--- a/SmalltalkCodeGeneratorTool.st Thu May 03 11:28:53 2018 +0200 +++ b/SmalltalkCodeGeneratorTool.st Fri May 04 12:57:56 2018 +0200 @@ -2081,7 +2081,7 @@ ^ self ]. - (nonMetaclass isSubclassOf:ApplicationModel) ifFalse:[ + (nonMetaclass isSubclassOf:ApplicationModel) ifTrue:[ self createExamplesMethodForApplicationModelClass:aClass. ^ self ].