transcript test method issed command wrong

Pushed up #issueCommand: and friends from debugger to super class.

sources/Rowan UI Base.pax

@@ -169,7 +169,10 @@ package methodNames
 	add: #JadeSystemBrowserPresenter -> #updateMethod;
 	add: #JadeSystemBrowserPresenter -> #updateSelector;
 	add: #JadeTextDocument -> #aboutJadeite;
+	add: #JadeTextDocument -> #issueCommand:;
 	add: #JadeTextDocument -> #onPromptToSaveChanges:;
+	add: #JadeTextDocument -> #update:afterStonReplication:;
+	add: #JadeTextDocument -> #updateServices:;
 	add: #JadeToolsToolBarPresenter -> #browseClasses;
 	add: #JadeTranscript -> #methodsChanged24;
 	add: #JadeTranscript -> #methodsChangedDays;
@@ -2381,14 +2384,37 @@ updateSelector
 aboutJadeite
 	JadeLoginShell aboutJadeite!
 
+issueCommand: services
+	| stonString stonResultString |
+	services do:[:service | service prepareForReplication].
+	stonString := STON toString: services.
+	[stonResultString := self gciSession serverPerform: #updateFromSton: with: stonString]
+		ensure: [services do: [:service | service clearCommand]].
+	^self update: services afterStonReplication: stonResultString.!
+
 onPromptToSaveChanges: aBooleanValue
 	"we were calling #getDocumentData essentially to test for nil. 
 	That uses #asString which some objects don't understand - like booleans."
 
 	documentPresenter value ifNil: [self isModified: false].
-	^super onPromptToSaveChanges: aBooleanValue! !
+	^super onPromptToSaveChanges: aBooleanValue!
+
+update: services afterStonReplication: stonResults
+	BrowserUpdate current update: services afterStonReplication: stonResults!
+
+updateServices: services
+	"copied from RowanProjectsBrowserPresenter>>updateServices:"
+
+	| stonString stonResults |
+	services do: [:service | service prepareForReplication].
+	stonString := STON toString: services.
+	stonResults := self gciSession serverPerform: #updateFromSton: with: stonString.
+	self update: services afterStonReplication: stonResults! !
 !JadeTextDocument categoriesFor: #aboutJadeite!private! !
+!JadeTextDocument categoriesFor: #issueCommand:!public!services! !
 !JadeTextDocument categoriesFor: #onPromptToSaveChanges:!private! !
+!JadeTextDocument categoriesFor: #update:afterStonReplication:!public!services! !
+!JadeTextDocument categoriesFor: #updateServices:!public!services! !
 
 !JadeToolsToolBarPresenter methodsFor!
 

sources/RowanDebugger.cls

@@ -124,14 +124,6 @@ getProcessList
 
 	self updateServices: (Array with: (RowanDebuggerService onProcess: gsProcess)).!
 
-issueCommand: services
-	| stonString stonResultString |
-	services do:[:service | service prepareForReplication].
-	stonString := STON toString: services.
-	[stonResultString := self gciSession serverPerform: #updateFromSton: with: stonString]
-		ensure: [services do: [:service | service clearCommand]].
-	^self update: services afterStonReplication: stonResultString.!
-
 methodListSelection
 	"really a selection from the frame list"
 
@@ -316,22 +308,10 @@ stepOver
 		self stepInto.
 	].!
 
-update: services afterStonReplication: stonResults
-	BrowserUpdate current update: services afterStonReplication: stonResults!
-
 updateMethodSource
 
 	self selectedFrame!
 
-updateServices: services
-	"copied from RowanProjectsBrowserPresenter>>updateServices:"
-
-	| stonString stonResults |
-	services do: [:service | service prepareForReplication].
-	stonString := STON toString: services.
-	stonResults := self gciSession serverPerform: #updateFromSton: with: stonString.
-	self update: services afterStonReplication: stonResults!
-
 variableDataPresenter
 	^variableDataPresenter!
 
@@ -351,7 +331,6 @@ variableListPresenter
 !RowanDebugger categoriesFor: #errorMessagePresenter!Accessing!public! !
 !RowanDebugger categoriesFor: #frameListPresenter!Accessing!public! !
 !RowanDebugger categoriesFor: #getProcessList!public! !
-!RowanDebugger categoriesFor: #issueCommand:!public! !
 !RowanDebugger categoriesFor: #methodListSelection!Accessing!public! !
 !RowanDebugger categoriesFor: #methodSourcePresenter!public! !
 !RowanDebugger categoriesFor: #onIdleEntered!public! !
@@ -366,9 +345,7 @@ variableListPresenter
 !RowanDebugger categoriesFor: #stepInto!public! !
 !RowanDebugger categoriesFor: #stepOut!public! !
 !RowanDebugger categoriesFor: #stepOver!public! !
-!RowanDebugger categoriesFor: #update:afterStonReplication:!public! !
 !RowanDebugger categoriesFor: #updateMethodSource!public! !
-!RowanDebugger categoriesFor: #updateServices:!public! !
 !RowanDebugger categoriesFor: #variableDataPresenter!Accessing!public! !
 !RowanDebugger categoriesFor: #variableListPresenter!Accessing!public! !
 

sources/RowanTranscript.cls

@@ -19,20 +19,15 @@ flipTranscript
 	| answeringService |
 	answeringService := RowanAnsweringService new.
 	answeringService command: #flipTranscript.
-	self jadePresenter issueCommand: (Array with: answeringService)!
+	self issueCommand: (Array with: answeringService)!
 
 isTranscriptInstalled
 	| answeringService |
 	answeringService := RowanAnsweringService new.
 	answeringService command: #transcriptInstalled.
-	self jadePresenter issueCommand: (Array with: answeringService).
+	self issueCommand: (Array with: answeringService).
 	^answeringService answer!
 
-jadePresenter
-	"toolbarPresenter subclasses from JadePresenter where #issueCommand: lives for now"
-
-	^toolbarPresenter!
-
 openJadeiteProjectsBrowser
 	gciSession hasServer ifTrue: [^JadeiteProjectsSystemBrowser showOnSession: gciSession].
 	MessageBox warning: 'Cannot open Jadeite Projects browser'
@@ -51,7 +46,6 @@ queryCommand: query
 !RowanTranscript categoriesFor: #flipDebugger!menu handlers!public! !
 !RowanTranscript categoriesFor: #flipTranscript!menu handlers!public! !
 !RowanTranscript categoriesFor: #isTranscriptInstalled!public! !
-!RowanTranscript categoriesFor: #jadePresenter!public! !
 !RowanTranscript categoriesFor: #openJadeiteProjectsBrowser!menu handlers!public! !
 !RowanTranscript categoriesFor: #queryCommand:!private! !