diff --git a/sources/Rowan UI Base.pax b/sources/Rowan UI Base.pax index 6349b0ff..d59effa2 100644 --- a/sources/Rowan UI Base.pax +++ b/sources/Rowan UI Base.pax @@ -97,6 +97,7 @@ package methodNames add: #JadeLoginShell -> #aboutJadeite; add: #JadeNavigationInspector -> #setNewInspectedObject; add: #JadePresenter -> #issueCommand:; + add: #JadePresenter -> #update:afterStonReplication:; add: #JadePresenterA -> #basicCloneProject:root:; add: #JadePresenterA -> #basicUpdateServices:; add: #JadePresenterA -> #browseImplementorsOf:; @@ -1055,8 +1056,12 @@ issueCommand: services stonString := STON toString: services. [stonResultString := self gciSession serverPerform: #updateFromSton: with: stonString] ensure: [services do: [:service | service clearCommand]]. - ^self update: services afterStonReplication: stonResultString.! ! + ^self update: services afterStonReplication: stonResultString.! + +update: services afterStonReplication: stonResults + ^BrowserUpdate current update: services afterStonReplication: stonResults! ! !JadePresenter categoriesFor: #issueCommand:!Jadeite!public! ! +!JadePresenter categoriesFor: #update:afterStonReplication:!Jadeite!public! ! !JadePresenterA methodsFor! diff --git a/sources/Rowan UI Tests.pax b/sources/Rowan UI Tests.pax index 81af9262..ee3e849d 100644 --- a/sources/Rowan UI Tests.pax +++ b/sources/Rowan UI Tests.pax @@ -15,7 +15,6 @@ package classNames package methodNames add: #JadeiteProjectsBrowserPresenter -> #basicRemoveMethodCategories; - add: #JadePresenter -> #update:afterStonReplication:; add: #JadeTextDocument -> #openDictionaryBrowser; add: #RowanMethodService -> #name; add: 'TestResource class' -> #signalInitializationError; @@ -87,12 +86,6 @@ basicRemoveMethodCategories self issueCommand: (Array with: service)! ! !JadeiteProjectsBrowserPresenter categoriesFor: #basicRemoveMethodCategories!menu handlers support!private! ! -!JadePresenter methodsFor! - -update: services afterStonReplication: stonResults - ^BrowserUpdate current update: services afterStonReplication: stonResults! ! -!JadePresenter categoriesFor: #update:afterStonReplication:!Jadeite!public! ! - !JadeTextDocument methodsFor! openDictionaryBrowser diff --git a/sources/RowanTranscript.cls b/sources/RowanTranscript.cls index 890de89f..d55c72a3 100644 --- a/sources/RowanTranscript.cls +++ b/sources/RowanTranscript.cls @@ -28,6 +28,9 @@ isTranscriptInstalled self issueCommand: (Array with: answeringService). ^answeringService answer! +openDictionaryBrowser + gciSession hasServer ifTrue: [^RowanSystemBrowser showOnSession: gciSession]! + openJadeiteProjectsBrowser gciSession hasServer ifTrue: [^JadeiteProjectsSystemBrowser showOnSession: gciSession]. MessageBox warning: 'Cannot open Jadeite Projects browser' @@ -46,6 +49,7 @@ queryCommand: query !RowanTranscript categoriesFor: #flipDebugger!menu handlers!public! ! !RowanTranscript categoriesFor: #flipTranscript!menu handlers!public! ! !RowanTranscript categoriesFor: #isTranscriptInstalled!public! ! +!RowanTranscript categoriesFor: #openDictionaryBrowser!menu handlers!public! ! !RowanTranscript categoriesFor: #openJadeiteProjectsBrowser!menu handlers!public! ! !RowanTranscript categoriesFor: #queryCommand:!private! !