127 |
127 |
128 openInClass:aClass selector:aSelector |
128 openInClass:aClass selector:aSelector |
129 "launch a standard browser which immediately switches |
129 "launch a standard browser which immediately switches |
130 to aClass>>aSelector." |
130 to aClass>>aSelector." |
131 |
131 |
132 |brwsr cls| |
132 |brwsr classesName cls| |
133 |
133 |
134 brwsr := self openOnDevice:(Screen current). |
134 brwsr := self openOnDevice:(Screen current). |
135 brwsr waitUntilVisible. |
135 brwsr waitUntilVisible. |
136 |
136 |
137 cls := aClass. |
137 aClass notNil ifTrue:[ |
138 cls notNil ifTrue:[ |
138 "/ cls := aClass. |
139 cls isMeta ifTrue:[ |
139 "/ cls isMeta ifTrue:[ |
140 cls := aClass soleInstance |
140 "/ cls := aClass soleInstance |
141 ]. |
141 "/ ]. |
142 aClass isMeta ifTrue:[ |
142 aClass isMeta ifTrue:[ |
143 brwsr instanceProtocol:false |
143 brwsr instanceProtocol:false |
144 ]. |
144 ]. |
145 aClass isJavaClass ifTrue:[ |
145 aClass isJavaClass ifTrue:[ |
146 brwsr switchToClassNamed:aClass fullName. |
146 classesName := aClass fullName. |
147 ] ifFalse:[ |
147 ] ifFalse:[ |
148 brwsr switchToClassNamed:aClass name. |
148 classesName := aClass name. |
149 ]. |
149 ]. |
|
150 brwsr switchToClassNamed:classesName. |
150 brwsr classSelectionChanged. |
151 brwsr classSelectionChanged. |
151 aSelector notNil ifTrue:[ |
152 aSelector notNil ifTrue:[ |
152 brwsr switchToMethodNamed:aSelector. |
153 brwsr switchToMethodNamed:aSelector. |
153 ] |
154 ] |
154 ]. |
155 ]. |
159 SystemBrowser openInClass:Object selector:nil |
160 SystemBrowser openInClass:Object selector:nil |
160 SystemBrowser openInClass:nil selector:nil |
161 SystemBrowser openInClass:nil selector:nil |
161 " |
162 " |
162 |
163 |
163 "Created: / 22.11.1995 / 21:04:50 / cg" |
164 "Created: / 22.11.1995 / 21:04:50 / cg" |
164 "Modified: / 14.10.1998 / 15:31:52 / cg" |
165 "Modified: / 5.11.2001 / 16:51:02 / cg" |
165 ! |
166 ! |
166 |
167 |
167 openOnDevice:aDisplay |
168 openOnDevice:aDisplay |
168 "launch a standard browser on another display." |
169 "launch a standard browser on another display." |
169 |
170 |
2015 browseImplementorsOf:aSelectorString |
2016 browseImplementorsOf:aSelectorString |
2016 in:(Smalltalk allClasses) |
2017 in:(Smalltalk allClasses) |
2017 |
2018 |
2018 " |
2019 " |
2019 SystemBrowser browseImplementorsOf:#+ |
2020 SystemBrowser browseImplementorsOf:#+ |
2020 " |
2021 NewSystemBrowser browseImplementorsOf:#+ |
2021 |
2022 " |
2022 "Created: 9.12.1995 / 18:01:18 / cg" |
2023 |
2023 "Modified: 10.7.1996 / 10:21:26 / cg" |
2024 "Created: / 9.12.1995 / 18:01:18 / cg" |
|
2025 "Modified: / 5.11.2001 / 17:31:11 / cg" |
2024 ! |
2026 ! |
2025 |
2027 |
2026 browseImplementorsOf:aSelectorString in:aSetOfClasses |
2028 browseImplementorsOf:aSelectorString in:aSetOfClasses |
2027 "launch a browser for all implementors of aSelector" |
2029 "launch a browser for all implementors of aSelector" |
2028 |
2030 |
2031 in:aSetOfClasses |
2033 in:aSetOfClasses |
2032 title:(self classResources string:'implementors of: %1' with:aSelectorString) |
2034 title:(self classResources string:'implementors of: %1' with:aSelectorString) |
2033 |
2035 |
2034 " |
2036 " |
2035 SystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses) |
2037 SystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses) |
2036 " |
2038 NewSystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses) |
2037 |
2039 " |
2038 "Created: 10.7.1996 / 10:20:59 / cg" |
2040 |
2039 "Modified: 10.7.1996 / 10:21:49 / cg" |
2041 "Created: / 10.7.1996 / 10:20:59 / cg" |
|
2042 "Modified: / 5.11.2001 / 17:30:57 / cg" |
2040 ! |
2043 ! |
2041 |
2044 |
2042 browseImplementorsOf:aSelectorString in:aSetOfClasses ignoreCase:ignoreCase |
2045 browseImplementorsOf:aSelectorString in:aSetOfClasses ignoreCase:ignoreCase |
2043 "launch a browser for all implementors of aSelector" |
2046 "launch a browser for all implementors of aSelector" |
2044 |
2047 |
2048 ignoreCase:ignoreCase |
2051 ignoreCase:ignoreCase |
2049 title:(self classResources string:'implementors of: %1' with:aSelectorString) |
2052 title:(self classResources string:'implementors of: %1' with:aSelectorString) |
2050 |
2053 |
2051 " |
2054 " |
2052 SystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses) |
2055 SystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses) |
2053 " |
2056 NewSystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses) |
2054 |
2057 " |
2055 "Created: 10.7.1996 / 10:20:59 / cg" |
2058 |
2056 "Modified: 10.7.1996 / 10:21:49 / cg" |
2059 "Created: / 10.7.1996 / 10:20:59 / cg" |
2057 |
2060 "Modified: / 5.11.2001 / 17:30:43 / cg" |
2058 |
|
2059 ! |
2061 ! |
2060 |
2062 |
2061 browseImplementorsOf:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase title:title |
2063 browseImplementorsOf:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase title:title |
2062 "launch a browser for all implementors of aSelector in |
2064 "launch a browser for all implementors of aSelector in |
2063 the classes contained in aCollectionOfClasses and its metaclasses" |
2065 the classes contained in aCollectionOfClasses and its metaclasses" |
2080 SystemBrowser browseImplementorsOf:#+ |
2082 SystemBrowser browseImplementorsOf:#+ |
2081 in:(Array with:Number |
2083 in:(Array with:Number |
2082 with:Float |
2084 with:Float |
2083 with:SmallInteger) |
2085 with:SmallInteger) |
2084 title:'some implementors of +' |
2086 title:'some implementors of +' |
|
2087 |
|
2088 NewSystemBrowser browseImplementorsOf:#+ |
|
2089 in:(Array with:Number |
|
2090 with:Float |
|
2091 with:SmallInteger) |
|
2092 title:'some implementors of +' |
2085 " |
2093 " |
2086 |
2094 |
2087 "Modified: / 4.9.1995 / 17:33:39 / claus" |
2095 "Modified: / 4.9.1995 / 17:33:39 / claus" |
2088 "Modified: / 19.6.1996 / 14:19:02 / stefan" |
2096 "Modified: / 19.6.1996 / 14:19:02 / stefan" |
2089 "Modified: / 16.10.1998 / 13:16:29 / cg" |
2097 "Modified: / 5.11.2001 / 17:30:38 / cg" |
2090 ! |
2098 ! |
2091 |
2099 |
2092 browseImplementorsOf:aSelectorString in:aCollectionOfClasses title:title |
2100 browseImplementorsOf:aSelectorString in:aCollectionOfClasses title:title |
2093 "launch a browser for all implementors of aSelector in |
2101 "launch a browser for all implementors of aSelector in |
2094 the classes contained in aCollectionOfClasses and its metaclasses" |
2102 the classes contained in aCollectionOfClasses and its metaclasses" |
2113 with:aSelectorString |
2121 with:aSelectorString |
2114 with:aClass name) |
2122 with:aClass name) |
2115 |
2123 |
2116 " |
2124 " |
2117 SystemBrowser browseImplementorsOf:#+ under:Integer |
2125 SystemBrowser browseImplementorsOf:#+ under:Integer |
2118 " |
2126 NewSystemBrowser browseImplementorsOf:#+ under:Integer |
2119 |
2127 " |
2120 "Created: 9.12.1995 / 18:06:09 / cg" |
2128 |
2121 "Modified: 9.12.1995 / 18:11:38 / cg" |
2129 "Created: / 9.12.1995 / 18:06:09 / cg" |
|
2130 "Modified: / 5.11.2001 / 17:30:15 / cg" |
2122 ! |
2131 ! |
2123 |
2132 |
2124 browseInstRefsTo:aString in:aCollectionOfClasses modificationsOnly:modsOnly |
2133 browseInstRefsTo:aString in:aCollectionOfClasses modificationsOnly:modsOnly |
2125 "launch a browser for all methods in aClass where the instVar named |
2134 "launch a browser for all methods in aClass where the instVar named |
2126 aString is referenced; if modsOnly is true, browse only methods where the |
2135 aString is referenced; if modsOnly is true, browse only methods where the |