branch | jv |
changeset 20580 | bb4e5c4f84ef |
parent 20579 | 9add81aadb7a |
parent 20574 | 0826ff286ea3 |
child 20727 | fb8c5591428b |
--- a/Class.st Sun Oct 09 21:28:18 2016 +0100 +++ b/Class.st Mon Oct 10 06:51:29 2016 +0200 @@ -4201,9 +4201,10 @@ isStartableWithMain "return true, if this is an application class, - which can be started via #main" - - ^ self theMetaclass includesSelector:#main + which can be started via #main / #main:" + + ^ (self theMetaclass includesSelector:#main) + or:[ self theMetaclass includesSelector:#main: ] "Created: / 2.11.2001 / 09:37:01 / cg" "Modified: / 2.11.2001 / 09:48:05 / cg"