equal
deleted
inserted
replaced
148 |
148 |
149 #searchStringInLiterals |
149 #searchStringInLiterals |
150 'Search string in literal constants; not in source code' |
150 'Search string in literal constants; not in source code' |
151 |
151 |
152 #match |
152 #match |
153 'Perform a pattern match search, as oposed to an exact string search.\Pattern is a simple GLOB pattern (as in filenames)' |
153 'Perform a pattern match search, as opposed to an exact string search.\Pattern is a simple GLOB pattern (as in filenames)' |
154 |
154 |
155 #caseSensitive |
155 #caseSensitive |
156 'Perform a case sensitive search (default is to ignore case differences)' |
156 'Perform a case sensitive search (default is to ignore case differences)' |
157 ) |
157 ) |
158 ! ! |
158 ! ! |
278 |
278 |
279 flyByHelpTextFor:aComponent |
279 flyByHelpTextFor:aComponent |
280 |symbolicHelpKey text| |
280 |symbolicHelpKey text| |
281 |
281 |
282 (symbolicHelpKey := aComponent helpKey) notNil ifTrue:[ |
282 (symbolicHelpKey := aComponent helpKey) notNil ifTrue:[ |
283 Transcript showCR:symbolicHelpKey. |
|
284 text := self class helpSpec at:symbolicHelpKey ifAbsent:[ nil ]. |
283 text := self class helpSpec at:symbolicHelpKey ifAbsent:[ nil ]. |
285 text notNil ifTrue:[ |
284 text notNil ifTrue:[ |
286 ^ NewSystemBrowser classResources stringWithCRs:text. |
285 ^ NewSystemBrowser classResources stringWithCRs:text. |
287 ]. |
286 ]. |
288 ]. |
287 ]. |
961 addCheckBoxForSearchInLiteralsOnly |
960 addCheckBoxForSearchInLiteralsOnly |
962 |p b| |
961 |p b| |
963 |
962 |
964 p := View new. |
963 p := View new. |
965 |
964 |
966 b := CheckBox label:(resources string:'Search Literals Only') in:p. |
965 b := CheckBox label:(resources string:'Search String-Constants (Literals) Only') in:p. |
967 b model:(searchStringInLiteralsHolder := false asValue). |
966 b model:(searchStringInLiteralsHolder := false asValue). |
968 p helpKey:#searchStringInLiterals. |
967 p helpKey:#searchStringInLiterals. |
969 self makeTabable:b. |
968 self makeTabable:b. |
970 |
969 |
971 currentPanel add:p. |
970 currentPanel add:p. |