5528 "launch an enterBox for a keyword search" |
5528 "launch an enterBox for a keyword search" |
5529 |
5529 |
5530 self askForSearchTitle:'keyword to search for (in selector & comment):' |
5530 self askForSearchTitle:'keyword to search for (in selector & comment):' |
5531 openWith:#aproposSearch:in: |
5531 openWith:#aproposSearch:in: |
5532 isSelector:true |
5532 isSelector:true |
5533 |
5533 searchArea:#class |
5534 "Modified: 10.7.1996 / 12:48:29 / cg" |
5534 |
|
5535 "Modified: 11.11.1996 / 12:43:54 / cg" |
5535 ! |
5536 ! |
5536 |
5537 |
5537 methodBreakPoint |
5538 methodBreakPoint |
5538 "set a breakpoint on the current method" |
5539 "set a breakpoint on the current method" |
5539 |
5540 |
6403 ! |
6404 ! |
6404 |
6405 |
6405 methodStringSearch |
6406 methodStringSearch |
6406 "launch an enterBox for string to search for" |
6407 "launch an enterBox for string to search for" |
6407 |
6408 |
6408 self askForSearchTitle:'string to search for in sources:' |
6409 self |
6409 openWith:#browseForString:in: |
6410 askForSearchTitle:'string to search for in sources:' |
6410 isSelector:true |
6411 openWith:#browseForString:in: |
6411 |
6412 isSelector:true |
6412 "Modified: 10.7.1996 / 10:33:44 / cg" |
6413 searchArea:#class |
|
6414 |
|
6415 "Modified: 11.11.1996 / 12:44:13 / cg" |
6413 ! |
6416 ! |
6414 |
6417 |
6415 methodTrace |
6418 methodTrace |
6416 "turn on tracing of the current method" |
6419 "turn on tracing of the current method" |
6417 |
6420 |
7014 |
7017 |
7015 askForSearchSelectorTitle:title openWith:aSelector |
7018 askForSearchSelectorTitle:title openWith:aSelector |
7016 "convenient method: setup enterBox with text from codeView or selected |
7019 "convenient method: setup enterBox with text from codeView or selected |
7017 method for browsing based on a selector. Set action and launch box" |
7020 method for browsing based on a selector. Set action and launch box" |
7018 |
7021 |
7019 ^ self askForSearchTitle:title openWith:aSelector isSelector:true |
7022 ^ self |
7020 |
7023 askForSearchTitle:title |
7021 "Modified: 10.7.1996 / 10:32:25 / cg" |
7024 openWith:aSelector |
|
7025 isSelector:true |
|
7026 |
|
7027 "Modified: 11.11.1996 / 12:43:24 / cg" |
7022 ! |
7028 ! |
7023 |
7029 |
7024 askForSearchTitle:title openWith:aSelector isSelector:isSelector |
7030 askForSearchTitle:title openWith:aSelector isSelector:isSelector |
7025 "convenient method: setup enterBox with text from codeView or selected |
7031 "convenient method: setup enterBox with text from codeView or selected |
7026 method for browsing based on a selector. Set action and launch box" |
7032 method for browsing based on a selector. Set action and launch box" |
|
7033 |
|
7034 ^ self |
|
7035 askForSearchTitle:title |
|
7036 openWith:aSelector |
|
7037 isSelector:isSelector |
|
7038 searchArea:#everywhere |
|
7039 |
|
7040 "Modified: 11.11.1996 / 12:42:46 / cg" |
|
7041 ! |
|
7042 |
|
7043 askForSearchTitle:title openWith:aSelector isSelector:isSelector searchArea:whereDefault |
|
7044 "convenient method: setup enterBox with text from codeView or selected |
|
7045 method for browsing based on a selector. Set action and launch box. |
|
7046 SearchArea may be one of #everywhere, #classCategory, #class or #classHierarchy" |
7027 |
7047 |
7028 |box grp panel selectorHolder where whereChannel b sel classes| |
7048 |box grp panel selectorHolder where whereChannel b sel classes| |
7029 |
7049 |
7030 isSelector ifTrue:[ |
7050 isSelector ifTrue:[ |
7031 selectorHolder := (self selectorToSearchFor) asValue. |
7051 selectorHolder := (self selectorToSearchFor) asValue. |
7065 |
7085 |
7066 b := CheckBox "RadioButton" label:(resources string:'class & subclasses'). |
7086 b := CheckBox "RadioButton" label:(resources string:'class & subclasses'). |
7067 panel add:b. grp add:b. |
7087 panel add:b. grp add:b. |
7068 box makeTabable:b. |
7088 box makeTabable:b. |
7069 ]. |
7089 ]. |
7070 grp value:1. |
7090 whereDefault notNil ifTrue:[ |
|
7091 where := (#(everywhere classCategory class classHierarchy) |
|
7092 indexOf:whereDefault). |
|
7093 where == 0 ifTrue:[where := 1]. |
|
7094 ] ifFalse:[ |
|
7095 where := 1. |
|
7096 ]. |
|
7097 grp value:where. |
7071 whereChannel := grp valueChannel. |
7098 whereChannel := grp valueChannel. |
7072 box addComponent:panel indent:0. "/ panel has its own idea of indenting |
7099 box addComponent:panel indent:0. "/ panel has its own idea of indenting |
7073 |
7100 |
7074 box addVerticalSpace. |
7101 box addVerticalSpace. |
7075 box addHorizontalLine. |
7102 box addHorizontalLine. |
7103 self withSearchCursorDo:[ |
7130 self withSearchCursorDo:[ |
7104 SystemBrowser perform:aSelector with:sel with:classes |
7131 SystemBrowser perform:aSelector with:sel with:classes |
7105 ] |
7132 ] |
7106 ] |
7133 ] |
7107 |
7134 |
7108 "Created: 10.7.1996 / 10:31:29 / cg" |
7135 "Created: 11.11.1996 / 12:42:14 / cg" |
7109 "Modified: 10.9.1996 / 14:05:45 / cg" |
7136 "Modified: 11.11.1996 / 12:43:13 / cg" |
7110 ! |
7137 ! |
7111 |
7138 |
7112 busyLabel:what with:someArgument |
7139 busyLabel:what with:someArgument |
7113 "set the title for some warning" |
7140 "set the title for some warning" |
7114 |
7141 |