--- a/Icon.st Thu Apr 07 12:05:08 2011 +0200
+++ b/Icon.st Fri Apr 08 13:54:42 2011 +0200
@@ -221,96 +221,12 @@
!Icon class methodsFor:'image specs'!
-backwardIcon
- "Obsolete - please goto ToolbarIconLibrary directly"
- ^ ToolbarIconLibrary backward22x22_3DIcon
-!
-
-copyIcon
- "Obsolete - please goto ToolbarIconLibrary directly"
- ^ ToolbarIconLibrary copy22x22Icon
-!
-
-cutIcon
- "Obsolete - please goto ToolbarIconLibrary directly"
- ^ ToolbarIconLibrary cut22x22Icon
-!
-
-deleteIcon
- "Obsolete - please goto ToolbarIconLibrary directly"
- ^ ToolbarIconLibrary delete22x22Icon
-!
-
-downIcon
- "Obsolete - please goto ToolbarIconLibrary directly"
- ^ ToolbarIconLibrary down22x22Icon
-!
-
-downRightIcon
- "Obsolete - please goto ToolbarIconLibrary directly"
- ^ ToolbarIconLibrary downRight22x22Icon
-!
-
-forwardIcon
- "Obsolete - please goto ToolbarIconLibrary directly"
- ^ ToolbarIconLibrary forward22x22_3DIcon
-!
-
-helpIcon
- "Obsolete - please goto ToolbarIconLibrary directly"
- ^ ToolbarIconLibrary help22x22Icon
-!
-
-leftDownIcon
- "Obsolete - please goto ToolbarIconLibrary directly"
- ^ ToolbarIconLibrary leftDown22x22Icon
-!
-
-leftIcon
- "Obsolete - please goto ToolbarIconLibrary directly"
- ^ ToolbarIconLibrary left22x22Icon
-!
-
-loadIcon
- "Obsolete - please goto ToolbarIconLibrary directly"
- ^ ToolbarIconLibrary load22x22Icon
-!
-
-newIcon
- "Obsolete - please goto ToolbarIconLibrary directly"
- ^ ToolbarIconLibrary new22x22Icon
-!
-
-pasteIcon
- "Obsolete - please goto ToolbarIconLibrary directly"
- ^ ToolbarIconLibrary paste22x22Icon
-!
-
-rightIcon
- "Obsolete - please goto ToolbarIconLibrary directly"
- ^ ToolbarIconLibrary right22x22Icon
-!
-
-saveIcon
- "Obsolete - please goto ToolbarIconLibrary directly"
- ^ ToolbarIconLibrary save22x22Icon
-!
-
-startIcon
- "Obsolete - please goto ToolbarIconLibrary directly"
- ^ ToolbarIconLibrary start22x22Icon
-!
-
stxIcon
+ <resource:#programImage>
|icn|
(icn := self constantNamed:'stxIcon') isNil ifTrue:[
- OperatingSystem platformName == #win32 ifTrue:[
- icn := Smalltalk imageFromFileNamed:'stx_32x32.xpm' forClass:self.
- ].
- icn isNil ifTrue:[
- icn := self stxIconOld.
- ].
+ icn := self stxIcon32x32.
icn notNil ifTrue:[
self constantNamed:'stxIcon' put:icn.
]
@@ -346,6 +262,32 @@
PP@@P@@@@@PP@@A@@@@@DP@@@@D@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[25 25 25 0 204 51 0 0 0 255 255 255 0 168 39]; yourself]
!
+stxIcon32x32
+ "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 stxIcon32x32 inspect
+ ImageEditor openOnClass:self andSelector:#stxIcon32x32
+ Icon flushCachedIcons
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:'Icon class stxIcon32x32'
+ ifAbsentPut:[(Depth4Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#[4]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DQ@@@@@@@@@A@@@@@@@@@ADP@@@@
+@@@@DP@@@@@@@@@QD@@@@@@@@Q@@@@@@@@@@DQD@@@@@@AD@@@@@@@@@@ADQ@@@@@@DP@@@@@@@@@@@ADP@@@@@Q@@@@@@@@@@@@@ADP@@@AD@@@@@@@@@@@
+@@@QD@@@DP@@@@@@@@@@@@@@@Q@@@Q@@@@@@@@@@@@@@@@DQ@AD@@@@@@@@@@@@@@@@@DQDP@@@@@@@@@@@@@@@@@@DQ@@@@@@@@@@@@@@@@@@@ADP@@@@@@
+@@@@@@@@@@@@DQD@@@@@@@@@@@@@@@@@@QDQD@@@@@@@@@@@@@@@@ADP@Q@@@@@@@@@@@@@@@@DQ@@@Q@@@@@@@@@@@@@@@QD@@@@P@@@@@@@@@@@@@ADP@@
+@@DP@@@@@@@@@@@@DQ@@@@@@DP@@@@@@@@@@DQD@@@@@@@D@@@@@@@@@@QDQ@@@@@@@AD@@@@@@@@ADQD@@@@@@@@AD@@@@@@@@QDP@@@@@@@@@A@@@@@@@@
+@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 0 128 128]; yourself]
+!
+
stxIconOld
"This resource specification was automatically generated
by the ImageEditor of ST/X."
@@ -482,14 +424,114 @@
@@A<@\@@@@A>@8@@@@@>A8@@@@@_C0@@@@@_G @@@@@O/@@@@@@O>@@@@@@G<@@@@@@G<@@@@@@C8@@@@@@G8@@@@@@O<@@@@@@_<@@@@@@>>@@@@@A<^@@@
@@C8O@@@@@O0O@@@@@_ G @@@@?@C0@@@A>@A0@@@C<@@8@@@O8@@<@@@_0@@\@@@? @@N@@@? @@F@@@?@@@C@@@^@@@A@@@@@@@@ @@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@') ; yourself); yourself]
+! !
+
+!Icon class methodsFor:'obsolete image specs'!
+
+backwardIcon
+ <resource: #obsolete>
+ "Obsolete - please goto ToolbarIconLibrary directly"
+ ^ ToolbarIconLibrary backward22x22_3DIcon
+!
+
+copyIcon
+ <resource: #obsolete>
+ "Obsolete - please goto ToolbarIconLibrary directly"
+ ^ ToolbarIconLibrary copy22x22Icon
+!
+
+cutIcon
+ <resource: #obsolete>
+ "Obsolete - please goto ToolbarIconLibrary directly"
+ ^ ToolbarIconLibrary cut22x22Icon
+!
+
+deleteIcon
+ <resource: #obsolete>
+ "Obsolete - please goto ToolbarIconLibrary directly"
+ ^ ToolbarIconLibrary delete22x22Icon
+!
+
+downIcon
+ <resource: #obsolete>
+ "Obsolete - please goto ToolbarIconLibrary directly"
+ ^ ToolbarIconLibrary down22x22Icon
+!
+
+downRightIcon
+ <resource: #obsolete>
+ "Obsolete - please goto ToolbarIconLibrary directly"
+ ^ ToolbarIconLibrary downRight22x22Icon
+!
+
+forwardIcon
+ <resource: #obsolete>
+ "Obsolete - please goto ToolbarIconLibrary directly"
+ ^ ToolbarIconLibrary forward22x22_3DIcon
+!
+
+helpIcon
+ <resource: #obsolete>
+ "Obsolete - please goto ToolbarIconLibrary directly"
+ ^ ToolbarIconLibrary help22x22Icon
+!
+
+leftDownIcon
+ <resource: #obsolete>
+ "Obsolete - please goto ToolbarIconLibrary directly"
+ ^ ToolbarIconLibrary leftDown22x22Icon
+!
+
+leftIcon
+ <resource: #obsolete>
+ "Obsolete - please goto ToolbarIconLibrary directly"
+ ^ ToolbarIconLibrary left22x22Icon
+!
+
+loadIcon
+ <resource: #obsolete>
+ "Obsolete - please goto ToolbarIconLibrary directly"
+ ^ ToolbarIconLibrary load22x22Icon
+!
+
+newIcon
+ <resource: #obsolete>
+ "Obsolete - please goto ToolbarIconLibrary directly"
+ ^ ToolbarIconLibrary new22x22Icon
+!
+
+pasteIcon
+ <resource: #obsolete>
+ "Obsolete - please goto ToolbarIconLibrary directly"
+ ^ ToolbarIconLibrary paste22x22Icon
+!
+
+rightIcon
+ <resource: #obsolete>
+ "Obsolete - please goto ToolbarIconLibrary directly"
+ ^ ToolbarIconLibrary right22x22Icon
+!
+
+saveIcon
+ <resource: #obsolete>
+ "Obsolete - please goto ToolbarIconLibrary directly"
+ ^ ToolbarIconLibrary save22x22Icon
+!
+
+startIcon
+ <resource: #obsolete>
+ "Obsolete - please goto ToolbarIconLibrary directly"
+ ^ ToolbarIconLibrary start22x22Icon
!
upIcon
+ <resource: #obsolete>
"Obsolete - please goto ToolbarIconLibrary directly"
^ ToolbarIconLibrary up22x22Icon
!
upRightIcon
+ <resource: #obsolete>
"Obsolete - please goto ToolbarIconLibrary directly"
^ ToolbarIconLibrary upRight22x22Icon
! !
@@ -511,11 +553,11 @@
!Icon class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/Icon.st,v 1.37 2009-10-14 14:07:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/Icon.st,v 1.38 2011-04-08 11:54:42 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview2/Icon.st,v 1.37 2009-10-14 14:07:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/Icon.st,v 1.38 2011-04-08 11:54:42 stefan Exp $'
! !
Icon initialize!