equal
deleted
inserted
replaced
186 setupBlock:[:browser | browser environment:environment. |
186 setupBlock:[:browser | browser environment:environment. |
187 browser setupForAll] |
187 browser setupForAll] |
188 onDevice:(Screen current). |
188 onDevice:(Screen current). |
189 |
189 |
190 " |
190 " |
191 SystemBrowser openOnSnapShotImage:('stmeas.img') |
191 SystemBrowser openOnSnapShotImage:('/tmp/stmeas.img') |
192 " |
192 "! ! |
193 ! ! |
|
194 |
193 |
195 !SystemBrowser class methodsFor:'Compatibility - ST80'! |
194 !SystemBrowser class methodsFor:'Compatibility - ST80'! |
196 |
195 |
197 newOnClass:aClass |
196 newOnClass:aClass |
198 ^ self browseClass:aClass |
197 ^ self browseClass:aClass |
2792 "launch a browser for all methods where category = aCategory" |
2791 "launch a browser for all methods where category = aCategory" |
2793 |
2792 |
2794 |searchBlock| |
2793 |searchBlock| |
2795 |
2794 |
2796 aCategory includesMatchCharacters ifTrue:[ |
2795 aCategory includesMatchCharacters ifTrue:[ |
2797 searchBlock := [:c :m :s | aCategory match:m category]. |
2796 searchBlock := [:c :m :s | aCategory match:m category]. |
2798 ] ifFalse:[ |
2797 ] ifFalse:[ |
2799 searchBlock := [:c :m :s | m category = aCategory] |
2798 searchBlock := [:c :m :s | m category = aCategory] |
2800 ]. |
2799 ]. |
2801 |
2800 |
2802 self browseMethodsWhere:searchBlock title:('all methods with category of ' , aCategory) |
2801 ^ self browseMethodsWhere:searchBlock title:('all methods with category of ' , aCategory) |
2803 |
2802 |
2804 " |
2803 " |
2805 SystemBrowser browseMethodCategory:'printing & storing' |
2804 SystemBrowser browseMethodCategory:'printing & storing' |
2806 SystemBrowser browseMethodCategory:'print*' |
2805 SystemBrowser browseMethodCategory:'print*' |
2807 " |
2806 " |
2856 |who cls clsName| |
2855 |who cls clsName| |
2857 |
2856 |
2858 entry isString ifTrue:[ |
2857 entry isString ifTrue:[ |
2859 entry |
2858 entry |
2860 ] ifFalse:[ |
2859 ] ifFalse:[ |
2861 who := entry who. |
2860 cls := entry mclass. |
2862 who isNil ifTrue:[ |
2861 cls isNil ifTrue:[ |
2863 '??? unbound' |
2862 '??? unbound' |
2864 ] ifFalse:[ |
2863 ] ifFalse:[ |
2865 cls := who methodClass. |
2864 cls isJavaClass ifTrue:[ |
2866 cls isNil ifTrue:[ |
2865 clsName := 'JAVA::' , cls fullName |
2867 '??? unbound' |
|
2868 ] ifFalse:[ |
2866 ] ifFalse:[ |
2869 cls isJavaClass ifTrue:[ |
2867 clsName := cls name |
2870 clsName := 'JAVA::' , cls fullName |
2868 ]. |
2871 ] ifFalse:[ |
2869 clsName |
2872 clsName := cls name |
2870 , ' ' |
2873 ]. |
2871 , (entry printStringForBrowserWithSelector:(cls selectorAtMethod:entry)) |
2874 clsName |
|
2875 , ' ' |
|
2876 , (entry printStringForBrowserWithSelector:(who methodSelector)) |
|
2877 ] |
|
2878 ] |
2872 ] |
2879 ] |
2873 ] |
2880 ]. |
2874 ]. |
2881 |
2875 |
2882 doSort ifTrue:[l sort]. |
2876 doSort ifTrue:[l sort]. |
3179 ! ! |
3173 ! ! |
3180 |
3174 |
3181 !SystemBrowser class methodsFor:'documentation'! |
3175 !SystemBrowser class methodsFor:'documentation'! |
3182 |
3176 |
3183 version |
3177 version |
3184 ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.118 2000-10-24 11:15:35 cg Exp $' |
3178 ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.119 2000-10-24 18:24:22 cg Exp $' |
3185 ! ! |
3179 ! ! |
3186 SystemBrowser initialize! |
3180 SystemBrowser initialize! |