equal
deleted
inserted
replaced
12 |
12 |
13 "{ Package: 'stx:libtool' }" |
13 "{ Package: 'stx:libtool' }" |
14 |
14 |
15 ApplicationModel subclass:#SystemBrowser |
15 ApplicationModel subclass:#SystemBrowser |
16 instanceVariableNames:'' |
16 instanceVariableNames:'' |
17 classVariableNames:'CheckForInstancesWhenRemovingClasses Icons ClassHistory |
17 classVariableNames:'CheckForInstancesWhenRemovingClasses ClassHistory |
18 EmphasisForDifferentPackage EmphasisForModifiedBuffer |
18 EmphasisForDifferentPackage EmphasisForModifiedBuffer |
19 EmphasisForObsoleteCode EmphasisForReadVariable |
19 EmphasisForObsoleteCode EmphasisForReadVariable |
20 EmphasisForWrittenVariable EmphasisForChangedCode' |
20 EmphasisForWrittenVariable EmphasisForChangedCode' |
21 poolDictionaries:'' |
21 poolDictionaries:'' |
22 category:'Interface-Browsers' |
22 category:'Interface-Browsers' |
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 classesName cls| |
132 |brwsr classesName| |
133 |
133 |
134 brwsr := self openOnDevice:(Screen current). |
134 brwsr := self openOnDevice:(Screen current). |
135 brwsr waitUntilVisible. |
135 brwsr waitUntilVisible. |
136 |
136 |
137 aClass notNil ifTrue:[ |
137 aClass notNil ifTrue:[ |
1178 ! ! |
1178 ! ! |
1179 |
1179 |
1180 !SystemBrowser class methodsFor:'private helpers'! |
1180 !SystemBrowser class methodsFor:'private helpers'! |
1181 |
1181 |
1182 askForPackageChangeFrom:oldPkg to:newPkg |
1182 askForPackageChangeFrom:oldPkg to:newPkg |
1183 |answer oldVsNew box notAgain chk| |
1183 |answer box notAgain chk| |
1184 |
1184 |
1185 box := OptionBox |
1185 box := OptionBox |
1186 title: |
1186 title: |
1187 ('You are about to change a method from another (system-) package. |
1187 ('You are about to change a method from another (system-) package. |
1188 The methods original packageID was ''%1''. |
1188 The methods original packageID was ''%1''. |
3101 findSpecMethodsFor:specSymbol withString:aString in:aCollectionOfClasses ignoreCase:ignoreCase |
3101 findSpecMethodsFor:specSymbol withString:aString in:aCollectionOfClasses ignoreCase:ignoreCase |
3102 "return a collection of all specSymbol-spec methods in aCollectionOfClasses |
3102 "return a collection of all specSymbol-spec methods in aCollectionOfClasses |
3103 containing a string in their source. |
3103 containing a string in their source. |
3104 This may be slow, since source-code has to be scanned." |
3104 This may be slow, since source-code has to be scanned." |
3105 |
3105 |
3106 |browser searchBlock title s| |
3106 |searchBlock s| |
3107 |
3107 |
3108 (aString includesMatchCharacters |
3108 (aString includesMatchCharacters |
3109 or:[ignoreCase]) ifTrue:[ |
3109 or:[ignoreCase]) ifTrue:[ |
3110 s := '*' , aString , '*'. |
3110 s := '*' , aString , '*'. |
3111 "a matchString" |
3111 "a matchString" |
3145 findString:aString in:aCollectionOfClasses ignoreCase:ignoreCase |
3145 findString:aString in:aCollectionOfClasses ignoreCase:ignoreCase |
3146 "return a colelction of all methods in aCollectionOfClasses |
3146 "return a colelction of all methods in aCollectionOfClasses |
3147 containing a string in their source. |
3147 containing a string in their source. |
3148 This may be slow, since source-code has to be scanned." |
3148 This may be slow, since source-code has to be scanned." |
3149 |
3149 |
3150 |browser searchBlock title s| |
3150 |searchBlock s| |
3151 |
3151 |
3152 (aString includesMatchCharacters |
3152 (aString includesMatchCharacters |
3153 or:[ignoreCase]) ifTrue:[ |
3153 or:[ignoreCase]) ifTrue:[ |
3154 s := '*' , aString , '*'. |
3154 s := '*' , aString , '*'. |
3155 "a matchString" |
3155 "a matchString" |
3809 ! ! |
3809 ! ! |
3810 |
3810 |
3811 !SystemBrowser class methodsFor:'documentation'! |
3811 !SystemBrowser class methodsFor:'documentation'! |
3812 |
3812 |
3813 version |
3813 version |
3814 ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.151 2002-03-26 14:18:16 cg Exp $' |
3814 ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.152 2002-03-28 12:59:49 stefan Exp $' |
3815 ! ! |
3815 ! ! |
3816 SystemBrowser initialize! |
3816 SystemBrowser initialize! |