--- a/ResourceRetriever.st Fri Oct 31 11:23:28 1997 +0100
+++ b/ResourceRetriever.st Sun Nov 02 18:53:20 1997 +0100
@@ -41,13 +41,18 @@
documentation
"
- This class is used to retrieve resources for a painted interface of
- some sort. If the className is specified, then the owner of the resource
- is fixed at painting time. If not, then the ApplicationModel which invokes
- the painted interface is assumed to be the owner of the resource.
+ ST80 compatibility class.
+
+ The class is not completed yet and certainly not bug free.
+ Also, it is not guaranteed that all winSpecs are understood.
- When the retriever is sent the message #value, it sends the message #valueFor:
- to the resource owner, to retrive the resource
+ Notice:
+ this class was implemented using protocol information
+ from alpha testers, literature and by reading public domain code
+ - it may not be complete or compatible to
+ the corresponding ST-80 class.
+ If you encounter any incompatibilities, please forward a note
+ describing the incompatibility verbal (i.e. no code) to the ST/X team.
[author:]
Claus Atzkern
@@ -96,7 +101,7 @@
!
value
- "returns value assigned to resource or nil
+ "returns the value assigned to resource or nil
"
|resource|
@@ -108,6 +113,8 @@
^ LabelAndIcon icon:resource string:(Text string:labelText emphasis:#bold)
].
^ resource
+
+ "Modified: / 31.10.1997 / 12:10:05 / cg"
! !
!ResourceRetriever methodsFor:'accessing resource'!
@@ -121,7 +128,7 @@
!
resource
- "returns form assigned to resource or nil
+ "returns a form assigned to resource or nil
"
|img cls appl|
@@ -154,6 +161,7 @@
].
^ nil
+ "Modified: / 31.10.1997 / 12:09:52 / cg"
! !
!ResourceRetriever methodsFor:'converting'!