# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1139509119 -3600
# Node ID 1d2b7893ae897249e895624eb3ddb3587e4d4aab
# Parent  65e9cc9d0fcfde3399f3c503825398cc53ef54a2
some code cleanup (resourceClass was actually its name)

diff -r 65e9cc9d0fcf -r 1d2b7893ae89 ImageEditor.st
--- a/ImageEditor.st	Mon Jan 30 09:32:23 2006 +0100
+++ b/ImageEditor.st	Thu Feb 09 19:18:39 2006 +0100
@@ -74,7 +74,7 @@
     imageEditor postOpenAction: [imageEditView := imageEditor imageEditView. imageEditor loadFromOrPrepareForMessage: className, ' ', aSelector].
     imageEditor openModal.
 
-    resourceClassName := imageEditView resourceClass.
+    resourceClassName := imageEditView resourceClass name.
     resourceSelector  := imageEditView resourceSelector.
 
     ((className asString ~= resourceClassName) 
@@ -2823,11 +2823,10 @@
 
 hasClassAndSelectorDefined
     ^ [
-        |clsName|
-
-        (clsName := imageEditView resourceClass) size > 0
-        and:[(Smalltalk at:clsName ifAbsent:nil) notNil
-        and:[imageEditView resourceSelector notNil]]
+        |cls|
+
+        (cls := imageEditView resourceClass) notNil
+        and:[imageEditView resourceSelector notNil]
       ]
 
     "Created: / 31.7.1998 / 02:02:54 / cg"
@@ -2835,10 +2834,7 @@
 
 hasClassDefined
     ^ [
-        |clsName|
-
-        (clsName := imageEditView resourceClass) size > 0
-        and:[(Smalltalk at:clsName ifAbsent:nil) notNil]
+        imageEditView resourceClass notNil
       ]
 
     "Created: / 31.7.1998 / 02:02:22 / cg"
@@ -3320,9 +3316,8 @@
     |resourceClass|
 
     resourceClass := imageEditView resourceClass.
-    (resourceClass isSymbol and: [(Smalltalk at:resourceClass) isClass])
-    ifTrue:[
-        ^ resourceClass, ' >> ', imageEditView resourceSelector
+    resourceClass notNil ifTrue:[
+        ^ resourceClass name, ' >> ', imageEditView resourceSelector
     ].
     ^ 'No class and selector defined.'
 !
@@ -4555,8 +4550,9 @@
 
     |cls|
 
-    cls := Smalltalk at:(imageEditView resourceClass) ifAbsent:nil.
+    cls := imageEditView resourceClass.
     cls isNil ifTrue:[^ self warn:'No Class specified'].
+
     UserPreferences systemBrowserClass
         openInClass:cls class 
         selector:(imageEditView resourceSelector)