--- a/SmallSense__Navigator.st Sat Jan 24 01:58:51 2015 +0000
+++ b/SmallSense__Navigator.st Sun Jan 25 12:52:29 2015 +0000
@@ -50,6 +50,34 @@
"
! !
+!Navigator class methodsFor:'opening'!
+
+open
+ | result |
+
+ result := self new open.
+ result isBehavior ifTrue:[
+ UserPreferences current systemBrowserClass browseClass:result.
+ ^ self
+ ].
+ result isMethod ifTrue:[
+ UserPreferences current systemBrowserClass openInMethod: result.
+ ^ self
+ ].
+ result isCollection ifTrue:[
+ (result allSatisfy:[:e|e isMethod]) ifTrue:[
+ UserPreferences current systemBrowserClass
+ browseMethods:result
+ title:(self classResources string: 'Implementors of %1' with: result anElement selector storeString)
+ sort:true.
+ ].
+ ^ self
+ ].
+ ^ self
+
+ "Created: / 25-01-2015 / 12:46:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!Navigator methodsFor:'change & update'!
update:something with:aParameter from:changedObject