--- a/Class.st	Fri Oct 06 11:49:43 2006 +0200
+++ b/Class.st	Fri Oct 06 11:49:56 2006 +0200
@@ -3238,6 +3238,15 @@
     "
 !
 
+isBrowserStartable
+    "return true, if this is an application class,
+     which can be started from the browser"
+
+    ^ self isVisualStartable or:[self isStartableWithStart or:[ self isStartableWithMain ]]
+
+    "Created: / 06-10-2006 / 11:34:28 / cg"
+!
+
 isClass
     "return true, if the receiver is some kind of class
      (a real class, not just behavior);
@@ -4645,5 +4654,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.511 2006-10-04 15:27:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.512 2006-10-06 09:49:56 cg Exp $'
 ! !