Making sure that we use self browser in ClyEditor

jecisc · Oct 27, 2019 · eed0509 · eed0509
1 parent fb4c75f
commit eed0509
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Calypso-SystemTools-FullBrowser/ClyTextEditor.extension.st b/src/Calypso-SystemTools-FullBrowser/ClyTextEditor.extension.st
@@ -3,5 +3,7 @@ Extension { #name : #ClyTextEditor }
 { #category : #'*Calypso-SystemTools-FullBrowser' }
 ClyTextEditor >> browseFullClass [
 	"self lineSelectAndEmptyCheck: [^ self]."
-	self browser browseClassNamed: (self findClassFromAST ifNil: [ ^self ])
+
+	self evaluateSelectionAndDo: [:result | 
+		self browser browseClassNamed: result class instanceSide name ]
 ]