Fixes #81 Changes browser tweaks

GemTalk · Aug 20, 2018 · 5b8fd9d · 5b8fd9d
1 parent 20a0e81
commit 5b8fd9d
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 5 deletions.
diff --git a/sources/Rowan UI Base.pax b/sources/Rowan UI Base.pax
@@ -2287,12 +2287,14 @@ initialize: aStream
 !MCPatchBrowser methodsFor!
 
 browseChangedThing
-	| selection  shell |
+	| selection shell classService |
 	selection := operationListPresenter selectionOrNil.
 	selection isNil ifTrue: [^MessageBox notify: 'Nothing to browse'].
-	selection isRemoval ifTrue:[^MessageBox notify: 'Cannot browse a removed item'].
-	shell := RowanSystemBrowser showOnSession: self gciSession.
-	shell selectClass: selection className selector: selection selector asSymbol!
+	selection isRemoval ifTrue: [^MessageBox notify: 'Cannot browse a removed item'].
+	shell := JadeiteProjectsSystemBrowser showOnSession: gciSession.
+	classService := RowanClassService named: selection className.
+	shell currentCard updateServices: (Array with: classService).
+	shell currentCard updateAfterFindClass: classService!
 
 operationSelected