--- 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'