--- a/ImageEditor.st	Tue Jul 21 13:28:35 1998 +0200
+++ b/ImageEditor.st	Tue Jul 21 14:17:51 1998 +0200
@@ -52,7 +52,7 @@
 !ImageEditor class methodsFor:'instance creation'!
 
 openModalOnClass: aClass andSelector: aSelector
-    "opens modal the Image Editor on aClass and aSelector"
+    "opens modal a Image Editor on aClass and aSelector"
     "
      self openModalOnClass: self andSelector: #leftMouseKeyIcon
     "
@@ -61,8 +61,9 @@
 
     imageEditor := self new.
 
-    aClass isClass ifTrue: [className := aClass name].
-    aClass isString ifTrue:[className := aClass].      
+    aClass isClass  ifTrue: [className := aClass name].
+    aClass isString ifTrue: [className := aClass].      
+    aClass isNil    ifTrue: [className := aClass printString].      
 
     imageEditor postOpenAction: [imageEditView := imageEditor imageEditView. imageEditor loadFromOrPrepareForMessage: className, ' ', aSelector].
     imageEditor openModal.
@@ -77,7 +78,7 @@
 !
 
 openOnClass: aClass andSelector: aSelector
-    "opens the Image Editor on aClass and aSelector"
+    "opens a Image Editor on aClass and aSelector"
     "
      self openOnClass: self andSelector: #leftMouseKeyIcon
     "
@@ -86,7 +87,7 @@
 !
 
 openOnFile: aFileName
-    "opens the Image Editor on aFileName"
+    "opens a Image Editor on aFileName"
     "
      self openOnFile: 'bitmaps/SmalltalkX.xbm'
     "
@@ -95,7 +96,7 @@
 !
 
 openOnImage: anImage
-    "opens the Image Editor on anImage"
+    "opens a Image Editor on anImage"
     "
      self openOnImage: Icon startIcon
     "