added: #stxIcon32x32 expecco_2_0_0 expecco_2_0_0_0
authorStefan Vogel <sv@exept.de>
Fri, 08 Apr 2011 13:54:42 +0200
changeset 2906 ef7d38d397bc
parent 2905 303bf86fa4bb
child 2907 d5ebe876eeaa
added: #stxIcon32x32 category of:18 methods
Icon.st
--- 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!