equal
deleted
inserted
replaced
466 ! |
466 ! |
467 |
467 |
468 markVariable:v from:pos to:endPos |
468 markVariable:v from:pos to:endPos |
469 "support for syntaxColoring" |
469 "support for syntaxColoring" |
470 |
470 |
471 |type globalValue| |
471 |type globalValue nameSym| |
472 |
472 |
473 type := v type. |
473 type := v type. |
474 (type == #BlockArg |
474 (type == #BlockArg |
475 or:[type == #MethodArg]) ifTrue:[ |
475 or:[type == #MethodArg]) ifTrue:[ |
476 self markArgumentIdentifierFrom:pos to:endPos. |
476 self markArgumentIdentifierFrom:pos to:endPos. |
480 or:[type == #MethodVariable]) ifTrue:[ |
480 or:[type == #MethodVariable]) ifTrue:[ |
481 self markLocalIdentifierFrom:pos to:endPos. |
481 self markLocalIdentifierFrom:pos to:endPos. |
482 ^ self |
482 ^ self |
483 ]. |
483 ]. |
484 (type == #GlobalVariable) ifTrue:[ |
484 (type == #GlobalVariable) ifTrue:[ |
485 globalValue := Smalltalk at:v name ifAbsent:nil. |
485 nameSym := v name asSymbolIfInterned. |
|
486 nameSym notNil ifTrue:[ |
|
487 globalValue := Smalltalk at:nameSym ifAbsent:nil. |
|
488 ]. |
486 globalValue isBehavior ifTrue:[ |
489 globalValue isBehavior ifTrue:[ |
487 self markGlobalClassIdentifierFrom:pos to:endPos. |
490 self markGlobalClassIdentifierFrom:pos to:endPos. |
488 ] ifFalse:[ |
491 ] ifFalse:[ |
489 self markGlobalIdentifierFrom:pos to:endPos. |
492 self markGlobalIdentifierFrom:pos to:endPos. |
490 ]. |
493 ]. |
502 ! ! |
505 ! ! |
503 |
506 |
504 !SyntaxHighlighter class methodsFor:'documentation'! |
507 !SyntaxHighlighter class methodsFor:'documentation'! |
505 |
508 |
506 version |
509 version |
507 ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.16 1999-03-04 12:06:49 cg Exp $' |
510 ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.17 1999-03-06 02:17:01 cg Exp $' |
508 ! ! |
511 ! ! |