diff -r 43a78c5f806c -r da5c2e271d1a ImageEditor.st
--- a/ImageEditor.st	Wed Jan 28 14:58:00 1998 +0100
+++ b/ImageEditor.st	Wed Jan 28 15:01:47 1998 +0100
@@ -201,9 +201,6 @@
 #editRotate
 'Opens a dialog to rotate the image in degrees.'
 
-#editUndo
-'Undoes last action.'
-
 #fileBrowseClass
 'Opens the System Browser on the class and the selector.'
 
@@ -315,12 +312,6 @@
                           #'activeHelpKey:' #fileLoadFromClass
                       )
                        #(#MenuItem
-                          #'label:' 'Load From Class With Superclass...'
-                          #'translateLabel:' true
-                          #'value:' #loadFromClassWithSuperclass
-                          #'activeHelpKey:' #fileLoadFromClassWithSuperclass
-                      )
-                       #(#MenuItem
                           #'label:' '-'
                       )
                        #(#MenuItem
@@ -369,7 +360,7 @@
                           #'label:' '-'
                       )
                        #(#MenuItem
-                          #'label:' 'Browse Class'
+                          #'label:' 'Browse Image Class'
                           #'value:' #browseClass
                           #'activeHelpKey:' #fileBrowseClass
                           #'enabled:' #imageIsLoaded
@@ -1173,7 +1164,7 @@
 defaultInfoLabel
 
     |usedColors|
-    self image isNil ifTrue: [^'No image defined'].
+    self image isNil ifTrue: [^'No image loaded.'].
     self image colorMap isNil ifTrue: [usedColors := '?'] ifFalse: [usedColors := self image usedColors size].
     ^self image width printString, 'x',
         self image height printString, 'x',
@@ -1617,34 +1608,6 @@
    
 !
 
-loadFromClassWithSuperclass
-
-    |box|
-    box := EnterBox new.
-    box title:'Name of superclass:'.
-    box okText:'OK'.
-    box abortText:'Cancel'.
-    box initialText: 'ApplicationModel'.
-    box entryCompletionBlock:[:contents |
-        |s what m|
-
-        s := contents withoutSpaces.
-        what := Smalltalk classnameCompletion:s.
-        box contents:what first.
-        (what at:2) size ~~ 1 ifTrue:[
-            self beep
-        ]
-    ].
-    box showAtPointer.
-    box accepted
-    ifTrue:
-    [            
-        self loadFromInClassesOf: box contents asSymbol
-    ]
-
-    "Modified: / 28.1.1998 / 13:14:00 / stefan"
-!
-
 loadFromFile
 
     self loadFromFile: