--- 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: