--- a/ResourceRetriever.st Wed Mar 08 16:48:28 2006 +0100
+++ b/ResourceRetriever.st Mon Mar 13 12:38:21 2006 +0100
@@ -216,8 +216,8 @@
!
value
- "returns the value assigned to resource or nil
- "
+ "returns the value assigned to resource or nil"
+
|resource|
(resource := self resource value) isNil ifTrue:[
@@ -235,8 +235,8 @@
!ResourceRetriever methodsFor:'accessing-resource'!
findGuiResourcesIn:aResourceContainer
- "setup a resource owner
- "
+ "setup a resource owner"
+
|ns cls|
className isNil ifTrue:[
@@ -257,8 +257,8 @@
!
resource
- "returns a form assigned to resource or nil
- "
+ "returns a form assigned to resource or nil"
+
|img cls|
resource notNil ifTrue:[^ resource].
@@ -353,5 +353,5 @@
!ResourceRetriever class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ResourceRetriever.st,v 1.11 2004-10-25 11:13:48 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ResourceRetriever.st,v 1.12 2006-03-13 11:38:21 cg Exp $'
! !