equal
deleted
inserted
replaced
18487 title:'some methods' |
18487 title:'some methods' |
18488 sort:false |
18488 sort:false |
18489 " |
18489 " |
18490 ! |
18490 ! |
18491 |
18491 |
|
18492 browseMethodsForWhich:filter title:title |
|
18493 "launch a multi-method browser." |
|
18494 |
|
18495 ^ self basicNew |
|
18496 browseMethodsForWhich:filter in:#newBrowser label:title |
|
18497 |
|
18498 " |
|
18499 self |
|
18500 browseMethodsForWhich:[:m | m hasResource:#image] |
|
18501 title:'image methods' |
|
18502 " |
|
18503 ! |
|
18504 |
18492 browseProfilerStatistics: statistics |
18505 browseProfilerStatistics: statistics |
18493 "launch browser on profiler statistics" |
18506 "launch browser on profiler statistics" |
18494 |
18507 |
18495 ^ self basicNew spawnProfilerStatistics: statistics in:#newBrowser. |
18508 ^ self basicNew spawnProfilerStatistics: statistics in:#newBrowser. |
18496 |
18509 |
18569 self openInMethod:(Array compiledMethodAt:#at:) |
18582 self openInMethod:(Array compiledMethodAt:#at:) |
18570 " |
18583 " |
18571 |
18584 |
18572 "Modified: / 5.2.2000 / 00:34:46 / cg" |
18585 "Modified: / 5.2.2000 / 00:34:46 / cg" |
18573 "Created: / 5.2.2000 / 00:38:41 / cg" |
18586 "Created: / 5.2.2000 / 00:38:41 / cg" |
|
18587 ! |
|
18588 |
|
18589 openOnClassesForWhich:filter label:aTitle |
|
18590 "open a browser, showing all classes for which filter returns true." |
|
18591 |
|
18592 ^ self basicNew |
|
18593 browseMenuClassesWithFilter:filter label:aTitle in:#newBrowser |
|
18594 |
|
18595 " |
|
18596 self openOnClassesForWhich:[:cls | true] label:'all of them...' |
|
18597 " |
18574 ! |
18598 ! |
18575 |
18599 |
18576 openOnClassesInChangeSet |
18600 openOnClassesInChangeSet |
18577 "open a browser, showing all classes in the changeSet." |
18601 "open a browser, showing all classes in the changeSet." |
18578 |
18602 |
25850 browseMenuAutoloadedClasses |
25874 browseMenuAutoloadedClasses |
25851 "add a new buffer on all classes that have been autoloaded" |
25875 "add a new buffer on all classes that have been autoloaded" |
25852 |
25876 |
25853 |searchBlock| |
25877 |searchBlock| |
25854 |
25878 |
25855 searchBlock := [ |
25879 searchBlock := |
25856 (environment allClassesForWhich:[:someClass | someClass wasAutoloaded]) |
25880 [ |
25857 asOrderedCollection |
25881 (environment allClassesForWhich:[:someClass | someClass wasAutoloaded]) |
25858 ]. |
25882 asOrderedCollection |
|
25883 ]. |
25859 |
25884 |
25860 self |
25885 self |
25861 spawnClassBrowserForSearch:searchBlock |
25886 spawnClassBrowserForSearch:searchBlock |
25862 sortBy:nil |
25887 sortBy:nil |
25863 in:#newBuffer |
25888 in:#newBuffer |
26034 "Created: / 01-03-2000 / 11:12:38 / cg" |
26059 "Created: / 01-03-2000 / 11:12:38 / cg" |
26035 "Modified: / 29-08-2013 / 12:23:08 / cg" |
26060 "Modified: / 29-08-2013 / 12:23:08 / cg" |
26036 "Modified: / 04-09-2013 / 17:40:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
26061 "Modified: / 04-09-2013 / 17:40:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
26037 ! |
26062 ! |
26038 |
26063 |
26039 browseMenuClassesForWhich: aFilter label: label |
26064 browseMenuClassesForWhich:aFilter label:label |
26040 "add a new buffer on all shared pools" |
26065 "add a new buffer on all classes for which aFilter returns true" |
26041 |
26066 |
26042 |searchBlock| |
26067 |searchBlock| |
26043 |
26068 |
26044 searchBlock := [ |
26069 searchBlock := |
26045 |classes| |
26070 [ |
26046 |
26071 |classes| |
26047 classes := OrderedCollection new. |
26072 |
26048 |
26073 classes := OrderedCollection new. |
26049 environment allClassesDo:[:eachClass | |
26074 (environment ? Smalltalk) allClassesDo:[:eachClass | |
26050 (aFilter value: eachClass) ifTrue:[ |
26075 (aFilter value: eachClass) ifTrue:[ |
26051 classes add:eachClass |
26076 classes add:eachClass |
26052 ] |
26077 ] |
26053 ]. |
26078 ]. |
26054 classes |
26079 classes |
26055 ]. |
26080 ]. |
26056 |
26081 |
26057 self |
26082 self |
26058 spawnClassBrowserForSearch:searchBlock |
26083 spawnClassBrowserForSearch:searchBlock |
26059 spec:#multipleClassBrowserSpec |
26084 spec:#multipleClassBrowserSpec |
26060 sortBy:nil in:#newBuffer label:label |
26085 sortBy:nil in:#newBuffer label:label |
26129 "add a new buffer/open a new browser on all classes in the changeSet |
26154 "add a new buffer/open a new browser on all classes in the changeSet |
26130 (i.e. that have been changed, but not yet checked into the source repository)" |
26155 (i.e. that have been changed, but not yet checked into the source repository)" |
26131 |
26156 |
26132 ^ self |
26157 ^ self |
26133 browseMenuClassesInChangeSets:(Array with:ChangeSet current) |
26158 browseMenuClassesInChangeSets:(Array with:ChangeSet current) |
26134 label:'Changed classes in current changeSet' openAs:openHow |
26159 label:'Changed classes in current changeSet' |
|
26160 openAs:openHow |
26135 ! |
26161 ! |
26136 |
26162 |
26137 browseMenuClassesOfRecentlyOpenedApplications |
26163 browseMenuClassesOfRecentlyOpenedApplications |
26138 "add a new buffer on all classes for which an application has been opened recently" |
26164 "add a new buffer on all classes for which an application has been opened recently" |
26139 |
26165 |
26253 |
26279 |
26254 "Modified (format): / 29-11-2017 / 14:05:34 / cg" |
26280 "Modified (format): / 29-11-2017 / 14:05:34 / cg" |
26255 ! |
26281 ! |
26256 |
26282 |
26257 browseMenuClassesWithFilter:aFilterBlock label:aLabelString |
26283 browseMenuClassesWithFilter:aFilterBlock label:aLabelString |
|
26284 ^ self browseMenuClassesWithFilter:aFilterBlock label:aLabelString in:#newBuffer |
|
26285 ! |
|
26286 |
|
26287 browseMenuClassesWithFilter:aFilterBlock label:aLabelString in:openHow |
26258 |searchBlock| |
26288 |searchBlock| |
26259 |
26289 |
26260 searchBlock := [ environment allClasses select:aFilterBlock ]. |
26290 searchBlock := |
|
26291 [ |
|
26292 (environment ? Smalltalk) allClasses select:aFilterBlock |
|
26293 ]. |
26261 |
26294 |
26262 ^ self |
26295 ^ self |
26263 spawnClassBrowserForSearch:searchBlock |
26296 spawnClassBrowserForSearch:searchBlock |
26264 sortBy:nil |
26297 sortBy:nil |
26265 in:#newBuffer |
26298 in:openHow |
26266 label:aLabelString |
26299 label:aLabelString |
26267 ! |
26300 ! |
26268 |
26301 |
26269 browseMenuClassesWithInstrumentation |
26302 browseMenuClassesWithInstrumentation |
26270 self |
26303 self |
27253 "add a new buffer on all wrapped methods |
27286 "add a new buffer on all wrapped methods |
27254 (i.e. that have a break, trace or watchPoint)" |
27287 (i.e. that have a break, trace or watchPoint)" |
27255 |
27288 |
27256 self |
27289 self |
27257 spawnMethodBrowserForSearch:[ |
27290 spawnMethodBrowserForSearch:[ |
27258 environment allMethodsForWhich:[:m | m isWrapped or:[m isMethodWithBreakpoints]]. |
27291 (environment ? Smalltalk) |
|
27292 allMethodsForWhich:[:m | |
|
27293 m isWrapped or:[m isMethodWithBreakpoints] |
|
27294 ]. |
27259 ] |
27295 ] |
27260 sortBy:#class in:#newBuffer |
27296 sortBy:#class in:#newBuffer |
27261 label:'BreakPointed Methods' |
27297 label:'BreakPointed Methods' |
27262 ! |
27298 ! |
27263 |
27299 |
27764 ! |
27800 ! |
27765 |
27801 |
27766 browseMethodsForWhich:checkBlock in:openHow label:aString |
27802 browseMethodsForWhich:checkBlock in:openHow label:aString |
27767 |searchBlock| |
27803 |searchBlock| |
27768 |
27804 |
27769 searchBlock := [ environment allMethodsForWhich:checkBlock ]. |
27805 searchBlock := |
|
27806 [ |
|
27807 (environment ? Smalltalk) allMethodsForWhich:checkBlock |
|
27808 ]. |
27770 |
27809 |
27771 ^ self |
27810 ^ self |
27772 spawnMethodBrowserForSearch:searchBlock |
27811 spawnMethodBrowserForSearch:searchBlock |
27773 sortBy:#class |
27812 sortBy:#class |
27774 in:openHow |
27813 in:openHow |