189 |
189 |
190 handlesKeyPress:key inView:view |
190 handlesKeyPress:key inView:view |
191 "this method is reached via delegation: are we prepared to handle |
191 "this method is reached via delegation: are we prepared to handle |
192 a keyPress in some other view ?" |
192 a keyPress in some other view ?" |
193 |
193 |
194 <resource: #keyboard (#Delete #BackSpace #Accept #FindPrev #FindNext)> |
194 <resource: #keyboard (#Delete #BackSpace #Accept #Find #FindPrev #FindNext)> |
195 |
195 |
196 view == changeListView ifTrue:[ |
196 view == changeListView ifTrue:[ |
197 (key == #Delete |
197 (key == #Delete |
198 or:[key == #BackSpace |
198 or:[key == #BackSpace |
199 or:[key == #Accept |
199 or:[key == #Accept |
|
200 or:[key == #Find |
200 or:[key == #FindPrev |
201 or:[key == #FindPrev |
201 or:[key == #FindNext]]]]) ifTrue:[^ true]. |
202 or:[key == #FindNext]]]]]) ifTrue:[^ true]. |
202 ]. |
203 ]. |
203 ^ false |
204 ^ false |
204 |
205 |
205 "Modified: 21.1.1997 / 22:16:02 / cg" |
206 "Modified: 8.4.1997 / 11:01:42 / cg" |
206 ! |
207 ! |
207 |
208 |
208 keyPress:key x:x y:y view:view |
209 keyPress:key x:x y:y view:view |
209 "this method is reached via delegation from the changeListView" |
210 "this method is reached via delegation from the changeListView" |
210 |
211 |
211 <resource: #keyboard (#Delete #BackSpace #Accept #FindPrev #FindNext)> |
212 <resource: #keyboard (#Delete #BackSpace #Accept #Find #FindPrev #FindNext)> |
212 |
213 |
213 (key == #Delete or:[key == #BackSpace]) ifTrue:[ |
214 (key == #Delete or:[key == #BackSpace]) ifTrue:[ |
214 self doDelete. |
215 self doDelete. |
215 ^ self |
216 ^ self |
216 ]. |
217 ]. |
217 (key == #Accept) ifTrue:[ |
218 (key == #Accept) ifTrue:[ |
218 self doApply. |
219 self doApply. |
219 ^ self |
220 ^ self |
220 ]. |
221 ]. |
|
222 (key == #Find) ifTrue:[ |
|
223 self findClass. |
|
224 ^ self |
|
225 ]. |
221 (key == #FindPrev) ifTrue:[ |
226 (key == #FindPrev) ifTrue:[ |
222 self findPreviousForClass. |
227 self findPreviousForClass. |
223 ^ self |
228 ^ self |
224 ]. |
229 ]. |
225 (key == #FindNext) ifTrue:[ |
230 (key == #FindNext) ifTrue:[ |
226 self findNextForClass. |
231 self findNextForClass. |
227 ^ self |
232 ^ self |
228 ]. |
233 ]. |
229 changeListView keyPress:key x:x y:y |
234 changeListView keyPress:key x:x y:y |
230 |
235 |
231 "Modified: 21.1.1997 / 22:17:06 / cg" |
236 "Modified: 8.4.1997 / 11:01:38 / cg" |
232 ! ! |
237 ! ! |
233 |
238 |
234 !ChangesBrowser methodsFor:'help '! |
239 !ChangesBrowser methodsFor:'help '! |
235 |
240 |
236 helpTextFor:aComponent |
241 helpTextFor:aComponent |
2356 ] |
2361 ] |
2357 |
2362 |
2358 "Modified: 5.9.1996 / 17:19:46 / cg" |
2363 "Modified: 5.9.1996 / 17:19:46 / cg" |
2359 ! |
2364 ! |
2360 |
2365 |
|
2366 findClass |
|
2367 |nm current savedCursor search| |
|
2368 |
|
2369 changeNrShown notNil ifTrue:[ |
|
2370 current := self classNameOfChange:changeNrShown. |
|
2371 ]. |
|
2372 nm := Dialog request:'class to search for:' initialAnswer:current. |
|
2373 |
|
2374 changeNrShown isNil ifTrue:[ |
|
2375 search := 1. |
|
2376 ] ifFalse:[ |
|
2377 search := changeNrShown + 1 |
|
2378 ]. |
|
2379 |
|
2380 self withCursor:Cursor questionMark do:[ |
|
2381 |lastNr cls nr thisClass | |
|
2382 |
|
2383 lastNr := self numberOfChanges. |
|
2384 nr := search. |
|
2385 [nr <= lastNr] whileTrue:[ |
|
2386 thisClass := self classNameOfChange:nr. |
|
2387 thisClass = nm ifTrue:[ |
|
2388 changeListView setSelection:nr. |
|
2389 self changeSelection:nr. |
|
2390 ^ self |
|
2391 ]. |
|
2392 nr := nr + 1. |
|
2393 ]. |
|
2394 ]. |
|
2395 self beep. |
|
2396 |
|
2397 savedCursor := cursor. |
|
2398 self cursor:(Cursor cross). |
|
2399 Processor activeProcess millisecondDelay:300. |
|
2400 self cursor:savedCursor |
|
2401 |
|
2402 "Created: 8.4.1997 / 11:00:16 / cg" |
|
2403 "Modified: 8.4.1997 / 11:00:45 / cg" |
|
2404 ! |
|
2405 |
2361 findNextForClass |
2406 findNextForClass |
2362 |savedCursor| |
2407 |savedCursor| |
2363 |
2408 |
2364 changeNrShown isNil ifTrue:[^ self]. |
2409 changeNrShown isNil ifTrue:[^ self]. |
2365 |
2410 |