--- a/SystemBrowser.st	Mon Aug 21 12:21:55 2006 +0200
+++ b/SystemBrowser.st	Mon Aug 21 12:22:20 2006 +0200
@@ -509,8 +509,15 @@
         (c == TestCase and:[aClass isAbstract not "aClass  ~~ TestCase"]) ifTrue:[
             ^ self testCaseClassIconFor:aClass
         ].
-        (c == ProjectDefinition) ifTrue:[
-            ^ self packageIconSmall
+        (c == LibraryDefinition) ifTrue:[
+            aClass ~~ LibraryDefinition ifTrue:[
+                ^ self packageIconSmall
+            ].
+        ].
+        (c == ApplicationDefinition) ifTrue:[
+            aClass ~~ ApplicationDefinition ifTrue:[
+                ^ self packageIconGreenSmall
+            ].
         ].
         c := c superclass
     ].
@@ -1183,6 +1190,46 @@
         ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@ATET@AUEE@APQAP@TDQT@AY%Z@@UUUX@J%*F@@E@I B)Z"X@*V(&@J%*I B)Z"X@*V($@J%*I@B)Z @@@T@@@@a') ; colorMapFromArray:#[0 0 0 132 0 132 255 255 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A30O[A%LF?<O?0??G?<??3??O?<??3??O?8??C?8O?@b') ; yourself); yourself]
 !
 
+packageIconGreenSmall
+    "This resource specification was automatically generated
+     by the ImageEditor of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the ImageEditor may not be able to read the specification."
+
+    "
+     self packageIconGreenSmall inspect
+     ImageEditor openOnClass:self andSelector:#packageIconGreenSmall
+     Icon flushCachedIcons
+    "
+
+    <resource: #image>
+
+    ^Icon
+        constantNamed:#'SystemBrowser class packageIconGreenSmall'
+        ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#[4]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@M7P@@7]@@7P7PC]CP@M4@7]4@4@@M7]7]7]@@@@[VY 4@@@@@4@A @@@@Y-Y X@@@@F[VXF@@@@A&5&A @@@@Y-Y @@@@@@CP@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 0 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 132 0 132]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'NGA,4F^PO?@_8C? O>@?8C? O<@? @@a') ; yourself); yourself]
+!
+
+packageIconOrangeSmall
+    "This resource specification was automatically generated
+     by the ImageEditor of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the ImageEditor may not be able to read the specification."
+
+    "
+     self packageIconOrangeSmall inspect
+     ImageEditor openOnClass:self andSelector:#packageIconOrangeSmall
+     Icon flushCachedIcons
+    "
+
+    <resource: #image>
+
+    ^Icon
+        constantNamed:#'SystemBrowser class packageIconOrangeSmall'
+        ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#[4]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@M7P@@7]@@7P7PC]CP@M4@7]4@4@@M7]7]7]@@@@[VY 4@@@@@4@A @@@@Y-Y X@@@@F[VXF@@@@A&5&A @@@@Y-Y @@@@@@CP@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 139 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 132 0 132]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'NGA,4F^PO?@_8C? O>@?8C? O<@? @@a') ; yourself); yourself]
+!
+
 packageIconSmall
     "This resource specification was automatically generated
      by the ImageEditor of ST/X."
@@ -1191,8 +1238,8 @@
      the ImageEditor may not be able to read the specification."
 
     "
-     self packageIcon inspect
-     ImageEditor openOnClass:self andSelector:#packageIcon
+     self packageIconSmall inspect
+     ImageEditor openOnClass:self andSelector:#packageIconSmall
      Icon flushCachedIcons
     "
 
@@ -1200,9 +1247,7 @@
 
     ^Icon
         constantNamed:#'SystemBrowser class packageIconSmall'
-        ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#[4]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@M7P@@@@@@7P7PC]4@@M4@7]4M4@@M7]7V[]@@@@[V7]4@@@@@4@A @@@@Y-Y X@@@@F[VXF@@@@A&5&A @@@@Y-Y @@@@@@CP@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 132 0 132]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'N@A,8F^0O?@_8C? O>@?8C? O<@? @@a') ; yourself); yourself]
-
-    "Created: / 17-08-2006 / 09:15:04 / cg"
+        ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#[4]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@M7P@@7]@@7P7PC]CP@M4@7]4@4@@M7]7]7]@@@@[VY 4@@@@@4@A @@@@Y-Y X@@@@F[VXF@@@@A&5&A @@@@Y-Y @@@@@@CP@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 132 0 132]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'NGA,4F^PO?@_8C? O>@?8C? O<@? @@a') ; yourself); yourself]
 !
 
 padLockBlackMiniIcon
@@ -5512,7 +5557,7 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.235 2006-08-17 15:25:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.236 2006-08-21 10:22:20 cg Exp $'
 ! !
 
 SystemBrowser initialize!