DirectoryContentsBrowser.st
branchjv
changeset 16572 ab23beb4bba6
parent 16112 0b45bfee3595
parent 16559 74cccc7918fe
child 16869 2ecababdd4c0
--- a/DirectoryContentsBrowser.st	Thu May 12 08:33:55 2016 +0200
+++ b/DirectoryContentsBrowser.st	Thu May 12 09:16:06 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -145,33 +143,25 @@
 !
 
 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"
-    
-    ^ 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
-        ]
+     Icon flushCachedIcons
+    "
+
+    <resource: #image>
+
+    ^Icon
+        constantNamed:'DirectoryContentsBrowser detailsMenuIconR'
+        ifAbsentPut:[(Depth1Image width:5 height:7) bits:(ByteArray fromPackedString:'@@@@@@@@@@@a')
+            colorMapFromArray:#[0 0 0]
+            mask:((ImageMask width:5 height:7) bits:(ByteArray fromPackedString:' DB TJA@ @@a'); yourself); yourself]
 !
 
 detailsMenuIconUp