*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 19 Oct 2004 20:43:48 +0200
changeset 3085 765bcc477311
parent 3084 93355b070664
child 3086 b62add568c38
*** empty log message ***
GenericToolbarIconLibrary.st
--- a/GenericToolbarIconLibrary.st	Tue Oct 19 19:11:48 2004 +0200
+++ b/GenericToolbarIconLibrary.st	Tue Oct 19 20:43:48 2004 +0200
@@ -13,10 +13,10 @@
 "{ Package: 'stx:libtool' }"
 
 Object subclass:#GenericToolbarIconLibrary
-	instanceVariableNames:''
-	classVariableNames:''
-	poolDictionaries:''
-	category:'Interface-Smalltalk'
+        instanceVariableNames:''
+        classVariableNames:''
+        poolDictionaries:''
+        category:'Interface-Smalltalk'
 !
 
 !GenericToolbarIconLibrary class methodsFor:'documentation'!
@@ -210,6 +210,12 @@
     ^ self load22x22Icon
 !
 
+loadImageFromFileIcon
+    <resource: #programImage>
+
+    ^ self loadFromFileIcon
+!
+
 redoIcon
     <resource: #programImage>
 
@@ -243,6 +249,12 @@
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 129 129 129 255 0 0 255 255 255 105 133 190 194 194 194]; mask:((Depth1Image new) width: 32; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@G?0@@A?<G? _?A?8G?1_>A?<_? _???8G???>A???? _?G?8G?1_>A?<G? _?@?8G?0@@@@@@@@@@@@@C''RX\9BT)IPL%K"S@)L $I13FG\@@@@@@@@a') ; yourself); yourself]
 !
 
+saveToFileAsIcon
+    <resource: #programImage>
+
+    ^ self save22x22Icon
+!
+
 saveToFileIcon
     <resource: #programImage>
 
@@ -4921,7 +4933,7 @@
 !GenericToolbarIconLibrary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/GenericToolbarIconLibrary.st,v 1.16 2004-10-19 17:08:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/GenericToolbarIconLibrary.st,v 1.17 2004-10-19 18:43:48 cg Exp $'
 ! !
 
 GenericToolbarIconLibrary initialize!