equal
deleted
inserted
replaced
16 ApplicationModel subclass:#StringSearchTool |
16 ApplicationModel subclass:#StringSearchTool |
17 instanceVariableNames:'searchTextHolder searchTextView searchBarImageInfoLabelHolder |
17 instanceVariableNames:'searchTextHolder searchTextView searchBarImageInfoLabelHolder |
18 searchBarInfoLabelHolder searchTextModifiedHolder |
18 searchBarInfoLabelHolder searchTextModifiedHolder |
19 ignoreCaseHolder closeBlock searchNextBlock searchPreviousBlock |
19 ignoreCaseHolder closeBlock searchNextBlock searchPreviousBlock |
20 restartHolder' |
20 restartHolder' |
21 classVariableNames:'' |
21 classVariableNames:'LastIgnoreCase LastRestart' |
22 poolDictionaries:'' |
22 poolDictionaries:'' |
23 category:'Interface-Tools' |
23 category:'Interface-Tools' |
24 ! |
24 ! |
25 |
25 |
26 !StringSearchTool class methodsFor:'documentation'! |
26 !StringSearchTool class methodsFor:'documentation'! |
67 [exBegin] |
67 [exBegin] |
68 ... add code fragment for |
68 ... add code fragment for |
69 ... executable example here ... |
69 ... executable example here ... |
70 [exEnd] |
70 [exEnd] |
71 " |
71 " |
|
72 ! ! |
|
73 |
|
74 !StringSearchTool class methodsFor:'accessing'! |
|
75 |
|
76 lastIgnoreCase |
|
77 |
|
78 ^ LastIgnoreCase ? true |
|
79 ! |
|
80 |
|
81 lastIgnoreCase: aBoolean |
|
82 |
|
83 LastIgnoreCase := aBoolean |
|
84 ! |
|
85 |
|
86 lastRestart |
|
87 |
|
88 ^ LastRestart ? false |
|
89 ! |
|
90 |
|
91 lastRestart: aBoolean |
|
92 |
|
93 LastRestart := aBoolean |
72 ! ! |
94 ! ! |
73 |
95 |
74 !StringSearchTool class methodsFor:'image specs'! |
96 !StringSearchTool class methodsFor:'image specs'! |
75 |
97 |
76 closeSearchBarIcon |
98 closeSearchBarIcon |
415 !StringSearchTool methodsFor:'aspects'! |
437 !StringSearchTool methodsFor:'aspects'! |
416 |
438 |
417 ignoreCaseHolder |
439 ignoreCaseHolder |
418 |
440 |
419 ignoreCaseHolder isNil ifTrue:[ |
441 ignoreCaseHolder isNil ifTrue:[ |
420 ignoreCaseHolder := true asValue. |
442 ignoreCaseHolder := self class lastIgnoreCase asValue. |
421 "/ if your app needs to be notified of changes, uncomment one of the lines below: |
443 "/ if your app needs to be notified of changes, uncomment one of the lines below: |
422 "/ ignoreCaseHolder addDependent:self. |
444 "/ ignoreCaseHolder addDependent:self. |
423 ignoreCaseHolder onChangeSend:#ignoreCaseHolderChanged to:self. |
445 ignoreCaseHolder onChangeSend:#ignoreCaseHolderChanged to:self. |
424 |
446 |
425 ]. |
447 ]. |
430 ! |
452 ! |
431 |
453 |
432 restartHolder |
454 restartHolder |
433 |
455 |
434 restartHolder isNil ifTrue:[ |
456 restartHolder isNil ifTrue:[ |
435 restartHolder := false asValue. |
457 restartHolder := self class lastRestart asValue. |
436 "/ if your app needs to be notified of changes, uncomment one of the lines below: |
458 "/ if your app needs to be notified of changes, uncomment one of the lines below: |
437 "/ restartHolder addDependent:self. |
459 "/ restartHolder addDependent:self. |
438 restartHolder onChangeSend:#restartHolderChanged to:self. |
460 restartHolder onChangeSend:#restartHolderChanged to:self. |
439 ]. |
461 ]. |
440 ^ restartHolder. |
462 ^ restartHolder. |
484 |
506 |
485 ignoreCaseHolderChanged |
507 ignoreCaseHolderChanged |
486 |
508 |
487 self searchNextTextIncludingCurrentSelection: true. |
509 self searchNextTextIncludingCurrentSelection: true. |
488 self setFocusToSearchTextView. |
510 self setFocusToSearchTextView. |
|
511 self class lastIgnoreCase: self ignoreCaseHolder value. |
489 ! |
512 ! |
490 |
513 |
491 processEvent:anEvent |
514 processEvent:anEvent |
492 searchTextView hasFocus ifFalse:[^ false]. |
515 searchTextView hasFocus ifFalse:[^ false]. |
493 |
516 |
515 ! |
538 ! |
516 |
539 |
517 restartHolderChanged |
540 restartHolderChanged |
518 |
541 |
519 self setFocusToSearchTextView. |
542 self setFocusToSearchTextView. |
|
543 self class lastRestart: self restartHolder value. |
520 ! |
544 ! |
521 |
545 |
522 searchTextModifiedHolderChanged |
546 searchTextModifiedHolderChanged |
523 |
547 |
524 |previousRestart| |
548 |previousRestart| |
761 ! ! |
785 ! ! |
762 |
786 |
763 !StringSearchTool class methodsFor:'documentation'! |
787 !StringSearchTool class methodsFor:'documentation'! |
764 |
788 |
765 version |
789 version |
766 ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.13 2009-10-09 11:53:55 fm Exp $' |
790 ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.14 2009-10-09 14:14:16 fm Exp $' |
767 ! |
791 ! |
768 |
792 |
769 version_CVS |
793 version_CVS |
770 ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.13 2009-10-09 11:53:55 fm Exp $' |
794 ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.14 2009-10-09 14:14:16 fm Exp $' |
771 ! ! |
795 ! ! |