equal
deleted
inserted
replaced
3543 "search forward for pattern or selection" |
3543 "search forward for pattern or selection" |
3544 |
3544 |
3545 |ign match| |
3545 |ign match| |
3546 |
3546 |
3547 searchAction notNil ifTrue:[ |
3547 searchAction notNil ifTrue:[ |
3548 "/autosearch is cleared whenever there is search with user selection |
3548 "/ autosearch is cleared whenever there is search with user selection |
3549 (self hasSelection and:[self hasSearchActionSelection not]) ifTrue: [self clearSearchAction]. |
3549 (self hasSelection and:[self hasSearchActionSelection not]) ifTrue: [self clearSearchAction]. |
3550 |
3550 ]. |
3551 "/confusing: this is for autosearch of variables (browse variable uses, for example) |
3551 |
|
3552 searchAction notNil ifTrue:[ |
|
3553 "/ confusing: this is for autosearch of variables (browse variable uses, for example) |
3552 self searchUsingSearchAction:#forward. |
3554 self searchUsingSearchAction:#forward. |
3553 ^ self. |
3555 ^ self. |
3554 ]. |
3556 ]. |
3555 searchBarActionBlock notNil ifTrue:[ |
3557 searchBarActionBlock notNil ifTrue:[ |
3556 searchBarActionBlock value:#forward value:self. |
3558 searchBarActionBlock value:#forward value:self. |
3557 ^ self |
3559 ^ self |
3558 ]. |
3560 ]. |
3559 |
|
3560 |
3561 |
3561 ign := lastSearchIgnoredCase ? LastSearchIgnoredCase ? true. |
3562 ign := lastSearchIgnoredCase ? LastSearchIgnoredCase ? true. |
3562 match := lastSearchWasMatch ? LastSearchWasMatch ? false. |
3563 match := lastSearchWasMatch ? LastSearchWasMatch ? false. |
3563 |
3564 |
3564 selectStyle == #wordLeft ifTrue:[ |
3565 selectStyle == #wordLeft ifTrue:[ |
3585 searchFwd:lastSearchPattern |
3586 searchFwd:lastSearchPattern |
3586 ignoreCase:ign |
3587 ignoreCase:ign |
3587 match: match |
3588 match: match |
3588 ] |
3589 ] |
3589 |
3590 |
3590 "Modified: / 21-09-2006 / 16:49:02 / cg" |
3591 "Modified: / 22-10-2010 / 11:12:45 / cg" |
3591 ! |
3592 ! |
3592 |
3593 |
3593 searchFwd:pattern |
3594 searchFwd:pattern |
3594 "do a forward search" |
3595 "do a forward search" |
3595 |
3596 |
4362 ! ! |
4363 ! ! |
4363 |
4364 |
4364 !TextView class methodsFor:'documentation'! |
4365 !TextView class methodsFor:'documentation'! |
4365 |
4366 |
4366 version |
4367 version |
4367 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.319 2010-09-20 15:52:26 cg Exp $' |
4368 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.320 2010-10-22 09:51:43 cg Exp $' |
4368 ! |
4369 ! |
4369 |
4370 |
4370 version_CVS |
4371 version_CVS |
4371 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.319 2010-09-20 15:52:26 cg Exp $' |
4372 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.320 2010-10-22 09:51:43 cg Exp $' |
4372 ! ! |
4373 ! ! |
4373 |
4374 |
4374 TextView initialize! |
4375 TextView initialize! |