# HG changeset patch # User tz # Date 887572842 -3600 # Node ID 56a4339cbdbeb337ad64616065f8f1f349ac2359 # Parent e4aa6372b13b86731b48c740c4afa9b7a488ab7b inst var #specClass is the name of the spec class and nothing else diff -r e4aa6372b13b -r 56a4339cbdbe MenuEditor.st --- a/MenuEditor.st Sun Feb 15 20:55:41 1998 +0100 +++ b/MenuEditor.st Sun Feb 15 21:00:42 1998 +0100 @@ -1772,41 +1772,6 @@ ! -openModalOnClass:aClass andSelector:aSelector - - specClass := Association key:aClass value:aSelector. - super openInterfaceModal. - -! - -openOnClass:aClass andSelector:aSelector - - specClass := Association key:aClass value:aSelector. - super openInterface. - self buildFrom:aClass andSelector:aSelector. - -! - -postBuildWith:builder - |cls sel| - - super postBuildWith:builder. - - specClass isAssociation ifTrue:[ - cls := specClass key. - sel := specClass value. - - specClass := nil. - - (sel isKindOf:Menu) ifTrue:[ - self buildFrom:cls andSelector:nil. - ^self treeView buildFromMenu:sel. - ] - - ]. - self buildFromClass:cls andSelector:sel -! - postOpenWith:aBuilder super postOpenWith:aBuilder.