*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 01 Oct 2009 15:44:03 +0200
changeset 12087 285d0beccee2
parent 12086 9db1452d0645
child 12088 1300308ff1c4
*** empty log message ***
LibraryDefinition.st
--- a/LibraryDefinition.st	Thu Oct 01 15:44:01 2009 +0200
+++ b/LibraryDefinition.st	Thu Oct 01 15:44:03 2009 +0200
@@ -498,6 +498,21 @@
     "Modified: / 14-09-2006 / 14:19:59 / cg"
 ! !
 
+!LibraryDefinition class methodsFor:'misc ui support'!
+
+iconInBrowserSymbol
+    <resource: #programImage>
+
+    self theNonMetaclass isLibraryDefinition ifTrue:[^ #libraryDefinitionClassIcon ].
+    ^ super iconInBrowserSymbol
+
+"/        (c == LibraryDefinition) ifTrue:[
+"/            aClass ~~ LibraryDefinition ifTrue:[
+"/                ^ self packageIconSmall
+"/            ].
+"/        ].
+! !
+
 !LibraryDefinition class methodsFor:'obsolete'!
 
 lib_dot_rc
@@ -625,5 +640,9 @@
 !LibraryDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.89 2009-09-24 09:27:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.90 2009-10-01 13:44:03 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.90 2009-10-01 13:44:03 cg Exp $'
 ! !