From 73859ff4c70249bb1f0e60b37a200dd60c2f1ab1 Mon Sep 17 00:00:00 2001 From: Eric Winger Date: Sun, 19 Aug 2018 18:03:40 -0700 Subject: [PATCH] Fixes #69 dictionary browser menus broken --- sources/JadeiteProjectsBrowserPresenter.cls | 8 -------- sources/RowanSystemBrowserPresenter.cls | 8 ++++++++ 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/sources/JadeiteProjectsBrowserPresenter.cls b/sources/JadeiteProjectsBrowserPresenter.cls index 575512a4..d45e0a9c 100644 --- a/sources/JadeiteProjectsBrowserPresenter.cls +++ b/sources/JadeiteProjectsBrowserPresenter.cls @@ -541,13 +541,6 @@ methodListSelection ^methodListPresenter selectionOrNil! -methodMenuBreak: aMenu - | selection | - methodSourcePresenter view isModified ifTrue: [^self]. - selection := methodListPresenter selectionOrNil. - selection ifNil: [^self]. - selection appendToSourceMenu: aMenu presenter: methodSourcePresenter! - methodsMenuStrings false ifTrue: [ "This helps us find senders" @@ -1426,7 +1419,6 @@ writeProject !JadeiteProjectsBrowserPresenter categoriesFor: #makeDefault!project menu handlers!public! ! !JadeiteProjectsBrowserPresenter categoriesFor: #methodListPresenter!accessing!public! ! !JadeiteProjectsBrowserPresenter categoriesFor: #methodListSelection!accessing!public! ! -!JadeiteProjectsBrowserPresenter categoriesFor: #methodMenuBreak:!menus!public! ! !JadeiteProjectsBrowserPresenter categoriesFor: #methodsMenuStrings!menus!public! ! !JadeiteProjectsBrowserPresenter categoriesFor: #newService!project menu handlers!public! ! !JadeiteProjectsBrowserPresenter categoriesFor: #onDragMethod:!drag & drop!public! ! diff --git a/sources/RowanSystemBrowserPresenter.cls b/sources/RowanSystemBrowserPresenter.cls index 4da9e1b0..7f3e5935 100644 --- a/sources/RowanSystemBrowserPresenter.cls +++ b/sources/RowanSystemBrowserPresenter.cls @@ -118,6 +118,13 @@ labelOfClass: oldName changedTo: newName ! +methodMenuBreak: aMenu + | selection | + methodSourcePresenter view isModified ifTrue: [^self]. + selection := methodListPresenter selectionOrNil. + selection ifNil: [^self]. + selection appendToSourceMenu: aMenu presenter: methodSourcePresenter! + onViewClosed "copied to RowanDebugger" @@ -499,6 +506,7 @@ updateTabLabel !RowanSystemBrowserPresenter categoriesFor: #createSchematicWiringForPackageDictionaryTabs!create schemantic wiring!public! ! !RowanSystemBrowserPresenter categoriesFor: #getViews!public! ! !RowanSystemBrowserPresenter categoriesFor: #labelOfClass:changedTo:!event handlers!public! ! +!RowanSystemBrowserPresenter categoriesFor: #methodMenuBreak:!menus!public! ! !RowanSystemBrowserPresenter categoriesFor: #onViewClosed!event handlers!public! ! !RowanSystemBrowserPresenter categoriesFor: #projectDictionaryChanged!event handlers!public! ! !RowanSystemBrowserPresenter categoriesFor: #registerPresentersForUpdates!event handlers!initialization!public!rowan! !