equal
deleted
inserted
replaced
465 |
465 |
466 processEvent:anEvent |
466 processEvent:anEvent |
467 searchTextView hasFocus ifFalse:[^ false]. |
467 searchTextView hasFocus ifFalse:[^ false]. |
468 |
468 |
469 anEvent isKeyPressEvent ifTrue:[ |
469 anEvent isKeyPressEvent ifTrue:[ |
470 |
|
471 "/ Transcript showCR: anEvent key printString. |
470 "/ Transcript showCR: anEvent key printString. |
472 "/ anEvent key == #Find ifTrue:[ |
471 "/ anEvent key == #Find ifTrue:[ |
473 "/ self halt. |
472 "/ self halt. |
474 "/ self searchNextText. |
473 "/ self searchNextText. |
475 "/ ^ true |
474 "/ ^ true |
476 "/ ]. |
475 "/ ]. |
|
476 anEvent key == #Escape ifTrue:[ |
|
477 self escapePressed. |
|
478 ^ true |
|
479 ]. |
477 anEvent key == #FindNext ifTrue:[ |
480 anEvent key == #FindNext ifTrue:[ |
478 self searchNextText. |
481 self searchNextText. |
479 ^ true |
482 ^ true |
480 ]. |
483 ]. |
481 anEvent key == #FindPrev ifTrue:[ |
484 anEvent key == #FindPrev ifTrue:[ |
568 "Created: / 16-06-2007 / 06:29:00 / Administrador" |
571 "Created: / 16-06-2007 / 06:29:00 / Administrador" |
569 ! ! |
572 ! ! |
570 |
573 |
571 !StringSearchTool methodsFor:'public'! |
574 !StringSearchTool methodsFor:'public'! |
572 |
575 |
|
576 escapePressed |
|
577 |
|
578 self hideSearchBar. |
|
579 ! |
|
580 |
573 searchBarOpened |
581 searchBarOpened |
574 |
582 |
575 self setFocusToSearchTextView |
583 self setFocusToSearchTextView |
576 ! |
584 ! |
577 |
585 |
717 ! ! |
725 ! ! |
718 |
726 |
719 !StringSearchTool class methodsFor:'documentation'! |
727 !StringSearchTool class methodsFor:'documentation'! |
720 |
728 |
721 version |
729 version |
722 ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.7 2008-04-23 10:36:31 fm Exp $' |
730 ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.8 2008-04-28 10:47:50 fm Exp $' |
723 ! ! |
731 ! ! |