Fix in Tools::NewSystemBrowser>>#selectedSelectorsAsEnvironment - care for unbound methods
authorJan Vrany <jan.vrany@fit.cvut.cz>
Wed, 02 Apr 2014 15:11:12 +0200
changeset 14174 93da7c36e545
parent 14173 8c3c102297cc
child 14175 61dceb4984c4
Fix in Tools::NewSystemBrowser>>#selectedSelectorsAsEnvironment - care for unbound methods
Tools__NewSystemBrowser.st
--- 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 $'
 ! !