equal
deleted
inserted
replaced
2129 "create a new SystemBrowser browsing all extensions" |
2129 "create a new SystemBrowser browsing all extensions" |
2130 |
2130 |
2131 self withWaitCursorDo:[ |
2131 self withWaitCursorDo:[ |
2132 |brwsr methods| |
2132 |brwsr methods| |
2133 |
2133 |
2134 methods := IdentitySet new. |
2134 methods := Smalltalk allExtensions. |
2135 environment allClassesDo:[:eachClass | |
2135 brwsr := SystemBrowser browseMethods:methods title:'All Class Extensions'. |
2136 |classPackage| |
|
2137 |
|
2138 classPackage := eachClass package. |
|
2139 eachClass instAndClassMethodsDo:[:mthd | |
|
2140 mthd package ~= classPackage ifTrue:[ methods add:mthd ]. |
|
2141 ]. |
|
2142 ]. |
|
2143 |
|
2144 brwsr := SystemBrowser browseMethods:methods title:'All Class extensions'. |
|
2145 brwsr notNil ifTrue:[brwsr environment:environment]. |
2136 brwsr notNil ifTrue:[brwsr environment:environment]. |
2146 ] |
2137 ] |
2147 |
2138 |
2148 "Modified: 18.8.1997 / 15:42:58 / cg" |
2139 "Modified: 18.8.1997 / 15:42:58 / cg" |
2149 ! |
2140 ! |
14554 ! ! |
14545 ! ! |
14555 |
14546 |
14556 !BrowserView class methodsFor:'documentation'! |
14547 !BrowserView class methodsFor:'documentation'! |
14557 |
14548 |
14558 version_CVS |
14549 version_CVS |
14559 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.841 2013-04-02 09:32:19 stefan Exp $' |
14550 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.842 2013-04-04 09:41:22 cg Exp $' |
14560 ! ! |
14551 ! ! |
14561 |
14552 |
14562 |
14553 |
14563 BrowserView initialize! |
14554 BrowserView initialize! |