ResourceSelectionBrowser.st
changeset 746 8b3532f50ea9
parent 733 6454aaabda51
child 769 bb413a70f479
--- a/ResourceSelectionBrowser.st	Mon Mar 30 14:09:01 1998 +0200
+++ b/ResourceSelectionBrowser.st	Mon Mar 30 14:09:39 1998 +0200
@@ -45,11 +45,15 @@
 
 documentation
 "
+    The ResourceSelectionBrowser allows you to browse in class hierarchies
+    and to select resource methods in order to load method contents or to save
+    something to methods.
+
     [start with:]
         ResourceSelectionBrowser open
 
     [author:]
-        Thomas Zwick
+        Thomas Zwick, eXept Software AG
 "
 ! !
 
@@ -126,9 +130,14 @@
 !ResourceSelectionBrowser class methodsFor:'image specs'!
 
 iconClass
-    "Generated by the Image Editor"
+    "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."
+
     "
-    ImageEditor openOnClass:self andSelector:#iconClass
+     ImageEditor openOnClass:self andSelector:#iconClass
     "
 
     <resource: #image>
@@ -138,9 +147,14 @@
         ifAbsentPut:[(Depth2Image new) width: 18; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@UUUUUAQ****(@F**** @Z****@A****(@F**** @Z****@A****(LF**** TZ****@A****(@F**** @Z****@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 255 0 0]; mask:((Depth1Image new) width: 18; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@???@???@???@???@???@???@???@???@???@???@???@???@???@???@_?>@') ; yourself); yourself]!
 
 iconPrivateClass
-    "Generated by the Image Editor"
+    "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."
+
     "
-    ImageEditor openOnClass:self andSelector:#iconPrivateClass
+     ImageEditor openOnClass:self andSelector:#iconPrivateClass
     "
 
     <resource: #image>
@@ -152,16 +166,17 @@
 !ResourceSelectionBrowser class methodsFor:'interface specs'!
 
 windowSpec
-    "this window spec was automatically generated by the ST/X UIPainter"
+    "This resource specification was automatically generated
+     by the UIPainter of ST/X."
 
-    "do not manually edit this - the painter/builder may not be able to
-     handle the specification if its corrupted."
+    "Do not manually edit this!! If it is corrupted,
+     the UIPainter may not be able to read the specification."
 
     "
      UIPainter new openOnClass:ResourceSelectionBrowser andSelector:#windowSpec
      ResourceSelectionBrowser new openInterface:#windowSpec
+     ResourceSelectionBrowser open
     "
-    "ResourceSelectionBrowser open"
 
     <resource: #canvas>
 
@@ -171,11 +186,11 @@
           #window: 
            #(#WindowSpec
               #name: 'Resource Selection Browser'
-              #layout: #(#LayoutFrame 197 0 172 0 796 0 521 0)
+              #layout: #(#LayoutFrame 433 0 242 0 1032 0 591 0)
               #label: 'Resource Selection Browser'
               #min: #(#Point 400 300)
               #max: #(#Point 1152 864)
-              #bounds: #(#Rectangle 197 172 797 522)
+              #bounds: #(#Rectangle 433 242 1033 592)
               #usePreferredExtent: false
           )
           #component: 
@@ -277,7 +292,7 @@
                               #name: 'Label2'
                               #label: 'Create: '
                               #adjust: #right
-                              #extent: #(#Point 67 24)
+                              #extent: #(#Point 72 24)
                           )
                            #(#ActionButtonSpec
                               #name: 'CreateClassButton'