*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 26 Oct 2004 22:25:50 +0200
changeset 4327 307fc2ce50cc
parent 4326 2c828f8b5173
child 4328 ce019bde5f9f
*** empty log message ***
StandardSystemView.st
--- a/StandardSystemView.st	Tue Oct 26 21:41:36 2004 +0200
+++ b/StandardSystemView.st	Tue Oct 26 22:25:50 2004 +0200
@@ -359,19 +359,24 @@
     |n nm i|
 
     (i := DefaultIcon) isNil ifTrue:[
-	i := self classResources at:'ICON' default:nil.
-	i isNil ifTrue:[
-	    OperatingSystem platformName == #win32 ifTrue:[
-		n := 'stx_16x16.xpm'.
-	    ] ifFalse:[
-		n := 'SmalltalkX.xbm'.
-	    ].
-	    nm := ClassResources at:'ICON_FILE' default:n.
-	    i := Smalltalk imageFromFileNamed:nm inPackage:'stx:libtool'.
-	].
-	i notNil ifTrue:[
-	    DefaultIcon := i := i onDevice:Display
-	]
+        i := self classResources at:'ICON' default:nil.
+        i isNil ifTrue:[
+"/            OperatingSystem platformName == #win32 ifTrue:[
+"/                n := 'stx_16x16.xpm'.
+"/            ] ifFalse:[
+"/                n := 'SmalltalkX.xbm'.
+"/            ].
+            nm := ClassResources at:'ICON_FILE' default:n.
+            nm notNil ifTrue:[    
+                i := Smalltalk imageFromFileNamed:nm inPackage:'stx:libtool'.
+            ].
+            i isNil ifTrue:[
+                i := self defaultSTXIcon
+            ].
+        ].
+        i notNil ifTrue:[
+            DefaultIcon := i := i onDevice:Display
+        ]
     ].
     ^ i
 
@@ -457,6 +462,77 @@
     WindowLabelFormat := aFormatString
 ! !
 
+!StandardSystemView class methodsFor:'image specs'!
+
+defaultSTXIcon
+    <resource: #programImage>
+
+    ^ self defaultSTXIcon3.
+!
+
+defaultSTXIcon1
+    "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 defaultSTXIcon1 inspect
+     ImageEditor openOnClass:self andSelector:#defaultSTXIcon1
+     Icon flushCachedIcons
+    "
+
+    <resource: #image>
+
+    ^Icon
+        constantNamed:#'StandardSystemView class defaultSTXIcon1'
+        ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[2]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@E@@@@AP@D@@V@D@@APF@@@F&@@@AV@@@@&@@@@%P@@@&F@@@VBP@@V@I@@V@@P@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 127 127 184 231 231]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@X@A PGB@LX@_@A8@G@@<@GX@9 GC@8D@@@@@@b') ; yourself); yourself]
+!
+
+defaultSTXIcon2
+    "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 defaultSTXIcon2 inspect
+     ImageEditor openOnClass:self andSelector:#defaultSTXIcon2
+     Icon flushCachedIcons
+    "
+
+    <resource: #image>
+
+    ^Icon
+        constantNamed:#'StandardSystemView class defaultSTXIcon2'
+        ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HB@@@@@@@@@@@@@@@@@@@B@ @@@@@@@@H@@@@@@@@@@ H@@@@@@@H@@@@@@@@@@@@B@ @@
+@@H@@@@@@@@@@@@@@@H@@@H@@@@@@@@@@@@@@@@B@ H@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@HB@ @@@@@@@@@@@@@@@@H@@@H@@@@@@@@@@@@@
+@ H@@@@@@ @@@@@@@@@@@ H@@@@@@@@B@@@@@@@@@ H@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[184 231 231 63 63 63 0 127 127]; yourself]
+!
+
+defaultSTXIcon3
+    "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 defaultSTXIcon3 inspect
+     ImageEditor openOnClass:self andSelector:#defaultSTXIcon3
+     Icon flushCachedIcons
+    "
+
+    <resource: #image>
+
+    ^Icon
+        constantNamed:#'StandardSystemView class defaultSTXIcon3'
+        ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[2]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@E@@@@AP@D@@V@D@@APF@@@FF@@@AV@@@@&@@@@%P@@@$F@@@T@X@@T@I@@T@@P@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 204 51 0 112 0]; yourself]
+! !
+
 !StandardSystemView class methodsFor:'startup'!
 
 start
@@ -1543,7 +1619,7 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.163 2004-10-25 13:22:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.164 2004-10-26 20:25:50 cg Exp $'
 ! !
 
 StandardSystemView initialize!