# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 894308345 -7200
# Node ID b2b9356a648ce2c868946d58bcb8d855cb2fcc8d
# Parent  116d4586b739529c59fd92d3a319f191f710b7d4
*** empty log message ***

diff -r 116d4586b739 -r b2b9356a648c ImageEditor.st
--- a/ImageEditor.st	Mon May 04 20:31:28 1998 +0200
+++ b/ImageEditor.st	Mon May 04 20:59:05 1998 +0200
@@ -70,7 +70,8 @@
     resourceClassName := imageEditView resourceClass.
     resourceSelector  := imageEditView resourceSelector.
 
-    (className asString ~= resourceClassName) | (aSelector asString ~= resourceSelector)
+    ((className asString ~= resourceClassName) 
+    or:[aSelector asString ~= resourceSelector])
         ifTrue: [^resourceClassName, ' ', resourceSelector]
         ifFalse:[^nil]
 !
diff -r 116d4586b739 -r b2b9356a648c ResourceRetriever.st
--- a/ResourceRetriever.st	Mon May 04 20:31:28 1998 +0200
+++ b/ResourceRetriever.st	Mon May 04 20:59:05 1998 +0200
@@ -188,7 +188,7 @@
 resource
     "returns a form assigned to resource or nil
     "
-    |img cls appl|
+    |img cls|
 
     selector isNil ifTrue:[
         ^nil