--- a/MenuEditor.st	Wed Jan 28 14:58:00 1998 +0100
+++ b/MenuEditor.st	Wed Jan 28 15:01:47 1998 +0100
@@ -293,17 +293,12 @@
                           #'label:' '-'
                       )
                        #(#MenuItem
-                          #'label:' 'Load From Class...'
+                          #'label:' 'Load...'
                           #'translateLabel:' true
                           #'value:' #doFromClass
                           #'enabled:' #isStandAlone
                       )
                        #(#MenuItem
-                          #'label:' 'Load From Class With Superclass...'
-                          #'translateLabel:' true
-                          #'value:' #loadFromClassWithSuperclass
-                      )
-                       #(#MenuItem
                           #'label:' '-'
                       )
                        #(#MenuItem
@@ -319,12 +314,12 @@
                           #'enabled:' #isStandAlone
                       )
                        #(#MenuItem
-                          #'label:' 'Define Class...'
+                          #'label:' 'Define Menu Class...'
                           #'value:' #doDefineClass
                           #'enabled:' #isStandAlone
                       )
                        #(#MenuItem
-                          #'label:' 'Browse Class'
+                          #'label:' 'Browse Menu Class'
                           #'value:' #doBrowseAppClass
                       )
                        #(#MenuItem
@@ -2080,34 +2075,6 @@
     isModified := true.
 !
 
-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: / 26.1.1998 / 22:20:41 / stefan"
-!
-
 loadFromInClassesOf: aSuperclassOrSymbol
 
     self loadFromMessage: