--- a/extensions.st Sun Feb 08 08:12:04 2015 +0000
+++ b/extensions.st Sun Feb 08 08:24:33 2015 +0000
@@ -657,11 +657,13 @@
| result |
result := SmallSense::Navigator new open.
- result isBehavior ifTrue:[
+ result isBehavior ifTrue:[
+ self createBuffer.
self switchToClass: result.
^ self
].
result isMethod ifTrue:[
+ self createBuffer.
self switchToClass: result mclass selector: result selector.
^ self
].
@@ -677,7 +679,7 @@
^ self
"Created: / 23-01-2015 / 20:31:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 25-01-2015 / 12:46:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 08-02-2015 / 08:21:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!Tools::NewSystemBrowser methodsFor:'private-searching-smallsense'!