Fix in Tools::NewSystemBrowser>>#selectedSelectorsAsEnvironment - care for unbound methods
--- a/Tools__NewSystemBrowser.st Wed Apr 02 12:56:23 2014 +0200
+++ b/Tools__NewSystemBrowser.st Wed Apr 02 15:11:12 2014 +0200
@@ -18680,11 +18680,12 @@
methods := self selectedMethodsValue.
env := SelectorEnvironment onEnvironment: BrowserEnvironment new.
- methods do:[:mthd|env addClass: mthd mclass selector: mthd selector].
+ methods do:[:mthd|mthd mclass notNil ifTrue:[env addClass: mthd mclass selector: mthd selector]].
^env
"Created: / 16-07-2010 / 09:25:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 28-02-2012 / 16:28:38 / cg"
+ "Modified: / 02-04-2014 / 15:10:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!NewSystemBrowser methodsFor:'aspects-kludges'!
@@ -61455,11 +61456,11 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2046 2014-04-02 10:56:23 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2047 2014-04-02 13:11:12 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2046 2014-04-02 10:56:23 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2047 2014-04-02 13:11:12 vrany Exp $'
!
version_HG
@@ -61468,7 +61469,7 @@
!
version_SVN
- ^ '$Id: Tools__NewSystemBrowser.st,v 1.2046 2014-04-02 10:56:23 vrany Exp $'
+ ^ '$Id: Tools__NewSystemBrowser.st,v 1.2047 2014-04-02 13:11:12 vrany Exp $'
! !