equal
deleted
inserted
replaced
2843 nesting "{ Class: SmallInteger }" |
2843 nesting "{ Class: SmallInteger }" |
2844 maxLine "{ Class: SmallInteger }" |
2844 maxLine "{ Class: SmallInteger }" |
2845 ign skip anySet |
2845 ign skip anySet |
2846 eol1 eol2| |
2846 eol1 eol2| |
2847 |
2847 |
|
2848 self assert:(openingCharacters size == closingCharacters size). |
|
2849 |
2848 charSet := openingCharacters , closingCharacters. |
2850 charSet := openingCharacters , closingCharacters. |
2849 |
2851 |
2850 parChar := self characterAtLine:startLine col:startCol. |
2852 parChar := self characterAtLine:startLine col:startCol. |
2851 i := charSet indexOf:parChar. |
2853 i := charSet indexOf:parChar. |
2852 i == 0 ifTrue:[ |
2854 i == 0 ifTrue:[ |
2955 ] |
2957 ] |
2956 ]. |
2958 ]. |
2957 |
2959 |
2958 nesting == 0 ifTrue:[ |
2960 nesting == 0 ifTrue:[ |
2959 "check if legal" |
2961 "check if legal" |
2960 |
|
2961 skip ifFalse:[ |
2962 skip ifFalse:[ |
2962 cc == closingChar ifFalse:[ |
2963 cc == closingChar ifFalse:[ |
2963 ^ failBlock value |
2964 ^ failBlock value |
2964 ]. |
2965 ]. |
2965 ^ foundBlock value:line value:runCol. |
2966 ^ foundBlock value:line value:runCol. |
3633 ! ! |
3634 ! ! |
3634 |
3635 |
3635 !TextView class methodsFor:'documentation'! |
3636 !TextView class methodsFor:'documentation'! |
3636 |
3637 |
3637 version |
3638 version |
3638 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.204 2003-05-10 11:54:27 cg Exp $' |
3639 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.205 2003-06-03 18:08:17 cg Exp $' |
3639 ! ! |
3640 ! ! |
3640 |
3641 |
3641 TextView initialize! |
3642 TextView initialize! |