Mercurial Mercurial > hg > stx-libtool2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 04 May 1998 20:59:05 +0200
changeset 815 b2b9356a648c
parent 814 116d4586b739
child 816 b3d2c7c1c5db
*** empty log message ***
ImageEditor.st file | annotate | diff | comparison | revisions
ResourceRetriever.st file | annotate | diff | comparison | revisions 
--- 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]
 !
--- 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
hg/stx-libtool2