added: #iconInBrowserSymbol
authorClaus Gittinger <cg@exept.de>
Wed, 11 Nov 2009 17:02:38 +0100
changeset 12523 df8cb7ffe5eb
parent 12522 0abaa650d83e
child 12524 ed8630645e13
added: #iconInBrowserSymbol
StandaloneStartup.st
--- a/StandaloneStartup.st	Wed Nov 11 14:36:44 2009 +0100
+++ b/StandaloneStartup.st	Wed Nov 11 17:02:38 2009 +0100
@@ -385,6 +385,15 @@
     "Created: / 19-09-2006 / 16:26:44 / cg"
 !
 
+iconInBrowserSymbol
+    <resource: #programImage>
+
+    self == StandaloneStartup ifFalse:[
+        ^ #standaloneStartupIcon 
+    ].
+    ^ super iconInBrowserSymbol
+!
+
 isBrowserStartable
     "do not allow clicking on me in the browser"
 
@@ -670,11 +679,11 @@
 !StandaloneStartup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.39 2009-10-22 19:07:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.40 2009-11-11 16:02:38 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.39 2009-10-22 19:07:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.40 2009-11-11 16:02:38 cg Exp $'
 ! !
 
 StandaloneStartup initialize!