Refactoring of NavigatorModel's environment.
The environment is taken from an environmentHolder (if provided) or defaults
to Smalltalk (if holder is not provided)
--- a/Tools__Toolbox.st Tue Feb 25 11:41:10 2014 +0100
+++ b/Tools__Toolbox.st Tue Feb 25 11:41:16 2014 +0100
@@ -84,6 +84,16 @@
environment := env.
! !
+!Toolbox methodsFor:'accessing-methods'!
+
+globalsReferencedByMethods: methods
+ "Returns a list of globals (classes) referenced by given methods"
+
+ ^ self subclassResponsibility
+
+ "Created: / 24-02-2014 / 16:19:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!Toolbox methodsFor:'initialization'!
initialize
@@ -98,7 +108,7 @@
"Modified: / 05-09-2013 / 12:46:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-!Toolbox methodsFor:'menus'!
+!Toolbox methodsFor:'menu-methods'!
messagesMenuFor:actionSelector
withMethods: methods
@@ -106,11 +116,9 @@
withSentSelectors: withSentSelectors
withSelfSelectorsOnly: withSelfSelectorsOnly
- ^ Menu new
- addItem: ((MenuItem label: 'Not supported') enabled: false);
- yourself.
+ ^ self subclassResponsibility.
- "Modified: / 24-02-2014 / 15:51:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 24-02-2014 / 16:17:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!Toolbox methodsFor:'private'!
@@ -128,10 +136,10 @@
!Toolbox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__Toolbox.st,v 1.2 2014-02-24 16:08:57 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__Toolbox.st,v 1.3 2014-02-25 10:41:16 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__Toolbox.st,v 1.2 2014-02-24 16:08:57 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__Toolbox.st,v 1.3 2014-02-25 10:41:16 vrany Exp $'
! !