Class.st
branchjv
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"