equal
deleted
inserted
replaced
1607 ] |
1607 ] |
1608 ]. |
1608 ]. |
1609 ^ self. |
1609 ^ self. |
1610 ] |
1610 ] |
1611 ifNotFound:[self showNotFound] |
1611 ifNotFound:[self showNotFound] |
1612 onError:[self beep] |
1612 onError:[self beepInEditor] |
1613 openingCharacters:((parenthesisSpecification at:#open) ", '([{'") |
1613 openingCharacters:((parenthesisSpecification at:#open) ", '([{'") |
1614 closingCharacters:((parenthesisSpecification at:#close) ", ')]}'"). |
1614 closingCharacters:((parenthesisSpecification at:#close) ", ')]}'"). |
1615 selectStyle := nil |
1615 selectStyle := nil |
1616 ] |
1616 ] |
1617 ]. |
1617 ]. |
3871 searchForMatchingParenthesisFromLine:startLine col:startCol |
3871 searchForMatchingParenthesisFromLine:startLine col:startCol |
3872 ifFound:[:line :col | |
3872 ifFound:[:line :col | |
3873 self selectFromLine:startLine col:startCol |
3873 self selectFromLine:startLine col:startCol |
3874 toLine:line col:col] |
3874 toLine:line col:col] |
3875 ifNotFound:[self showNotFound] |
3875 ifNotFound:[self showNotFound] |
3876 onError:[self beep] |
3876 onError:[self beepInEditor] |
3877 |
3877 |
3878 "Modified: 9.10.1997 / 12:57:34 / cg" |
3878 "Modified: 9.10.1997 / 12:57:34 / cg" |
3879 ! |
3879 ! |
3880 |
3880 |
3881 searchForMatchingParenthesisFromLine:startLine col:startCol |
3881 searchForMatchingParenthesisFromLine:startLine col:startCol |
4746 |
4746 |
4747 self selectFromLine:line col:col toLine:line col:endCol. |
4747 self selectFromLine:line col:col toLine:line col:endCol. |
4748 self makeLineVisible:line |
4748 self makeLineVisible:line |
4749 ! |
4749 ! |
4750 |
4750 |
4751 showNotFound |
|
4752 "search not found - tell user by beeping and changing |
|
4753 cursor for a while (sometimes I work with a headset :-) |
|
4754 (used to be: tell user by changing cursor for a while)" |
|
4755 |
|
4756 self withCursor:(Cursor cross) do:[ |
|
4757 self beep. |
|
4758 Processor activeProcess millisecondDelay:200. |
|
4759 ] |
|
4760 |
|
4761 "Modified: 20.2.1997 / 12:49:27 / cg" |
|
4762 ! |
|
4763 |
|
4764 startPositionForSearchBackward |
4751 startPositionForSearchBackward |
4765 ^ self startPositionForSearchBackwardBasedOnSelection |
4752 ^ self startPositionForSearchBackwardBasedOnSelection |
4766 ! |
4753 ! |
4767 |
4754 |
4768 startPositionForSearchBackwardBasedOnSelection |
4755 startPositionForSearchBackwardBasedOnSelection |