several base methods got put in test package

GemTalk · Aug 25, 2018 · a047e4e · a047e4e
1 parent 96fa689
commit a047e4e
Show file tree

Hide file tree

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