DirectoryContentsBrowser.st
changeset 14414 5a6057e72b16
parent 14191 80b1adf0313d
child 14424 64e4e2a24b46
--- a/DirectoryContentsBrowser.st	Fri May 23 11:29:30 2014 +0200
+++ b/DirectoryContentsBrowser.st	Fri May 23 11:29:35 2014 +0200
@@ -140,23 +140,33 @@
 !
 
 detailsMenuIconR
+    <resource: #image>
     "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 detailsMenuIconR inspect
      ImageEditor openOnClass:self andSelector:#detailsMenuIconR
-     Icon flushCachedIcons
-    "
-
-    <resource: #image>
-
-    ^Icon
-        constantNamed:#'DirectoryContentsBrowser class detailsMenuIconR'
-        ifAbsentPut:[(Depth1Image new) width: 5; height: 7; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 5; height: 7; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' DB TJA@ @@a') ; yourself); yourself]
+     Icon flushCachedIcons"
+    
+    ^ Icon constantNamed:#'DirectoryContentsBrowser class detailsMenuIconR'
+        ifAbsentPut:[
+            (Depth1Image new)
+                width:5;
+                height:7;
+                photometric:(#palette);
+                bitsPerSample:(#( 1 ));
+                samplesPerPixel:(1);
+                bits:(ByteArray fromPackedString:'@@@@@@@@@@@a');
+                colorMapFromArray:#[ 0 0 0 255 255 255 ];
+                mask:((ImageMask new)
+                            width:5;
+                            height:7;
+                            bits:(ByteArray fromPackedString:' DB TJA@ @@a');
+                            yourself);
+                yourself
+        ]
 !
 
 detailsMenuIconUp
@@ -3449,10 +3459,10 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.261 2014-04-09 07:36:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.262 2014-05-23 09:29:35 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.261 2014-04-09 07:36:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.262 2014-05-23 09:29:35 stefan Exp $'
 ! !