# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 878493200 -3600
# Node ID ae526fcf716a77659d7a2a5cd57ecc65185cd464
# Parent  042713cfe1edb6732f7a7d36a8df36ee19080b99
checkin from browser

diff -r 042713cfe1ed -r ae526fcf716a ResourceRetriever.st
--- 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'!