SmallSense__Navigator.st
changeset 378 359fd8380abd
parent 377 c686ea588575
child 393 405c5a5c1cec
--- 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