--- 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!