Fixes #69 dictionary browser menus broken

GemTalk · Aug 20, 2018 · 73859ff · 73859ff
1 parent 58fecec
commit 73859ff
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 8 deletions.
diff --git 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
@@ -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! !