--- a/Tools_ClassList.st	Fri Feb 25 14:28:33 2005 +0100
+++ b/Tools_ClassList.st	Fri Feb 25 17:41:48 2005 +0100
@@ -1280,41 +1280,44 @@
     |c|
 
     cls isVisualStartable ifTrue:[
-	^ SystemBrowser startableVisualAppIcon
+        ^ SystemBrowser startableVisualAppIcon
     ].
     cls isStartableWithMain ifTrue:[
-	^ SystemBrowser startableClassIcon
+        ^ SystemBrowser startableClassIcon
+    ].
+    cls isStartableWithStart ifTrue:[
+        ^ SystemBrowser startableClassIcon
     ].
     cls isLoaded ifFalse:[
-	^ SystemBrowser autoloadedClassIcon
+        ^ SystemBrowser autoloadedClassIcon
     ].
     c := cls.
     [c notNil] whileTrue:[
-	c == Warning ifTrue:[
-	    ^ SystemBrowser warningClassIcon
-	].
-	c == Query ifTrue:[
-	    ^ SystemBrowser queryClassIcon
-	].
-	c == Notification ifTrue:[
-	    ^ SystemBrowser notificationClassIcon
-	].
-	c == Error ifTrue:[
-	    ^ SystemBrowser errorClassIcon
-	].
-	c == GenericException ifTrue:[
-	    ^ SystemBrowser exceptionClassIcon
-	].
-	c == SimpleView ifTrue:[
-	    ^ SystemBrowser windowClassIcon
-	].
-	c == Collection ifTrue:[
-	    ^ SystemBrowser containerClassIcon
-	].
-	(c == TestCase and:[cls isAbstract not "cls  ~~ TestCase"]) ifTrue:[
-	    ^ SystemBrowser testCaseClassIconFor:cls
-	].
-	c := c superclass
+        c == Warning ifTrue:[
+            ^ SystemBrowser warningClassIcon
+        ].
+        c == Query ifTrue:[
+            ^ SystemBrowser queryClassIcon
+        ].
+        c == Notification ifTrue:[
+            ^ SystemBrowser notificationClassIcon
+        ].
+        c == Error ifTrue:[
+            ^ SystemBrowser errorClassIcon
+        ].
+        c == GenericException ifTrue:[
+            ^ SystemBrowser exceptionClassIcon
+        ].
+        c == SimpleView ifTrue:[
+            ^ SystemBrowser windowClassIcon
+        ].
+        c == Collection ifTrue:[
+            ^ SystemBrowser containerClassIcon
+        ].
+        (c == TestCase and:[cls isAbstract not "cls  ~~ TestCase"]) ifTrue:[
+            ^ SystemBrowser testCaseClassIconFor:cls
+        ].
+        c := c superclass
     ].
     ^ nil
 !
@@ -1595,5 +1598,5 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.5 2005-02-02 11:01:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.6 2005-02-25 16:41:48 cg Exp $'
 ! !