equal
deleted
inserted
replaced
966 "Modified: / 21-08-2011 / 09:27:26 / cg" |
966 "Modified: / 21-08-2011 / 09:27:26 / cg" |
967 "Modified: / 25-02-2014 / 12:15:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
967 "Modified: / 25-02-2014 / 12:15:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
968 ! |
968 ! |
969 |
969 |
970 markSelector:selectorString from:pos1 to:pos2 receiverNode:aReceiverNode |
970 markSelector:selectorString from:pos1 to:pos2 receiverNode:aReceiverNode |
971 |
|
972 | element selectorSymbol | |
971 | element selectorSymbol | |
973 |
972 |
974 "Special hack for Java class references - I would like to have them |
973 "Special hack for Java class references - I would like to have them |
975 marked specially (and not as an error when the class is not yet loaded - |
974 marked specially (and not as an error when the class is not yet loaded - |
976 the code is correct as JavaClassAccessor loads it lazily" |
975 the code is correct as JavaClassAccessor loads it lazily" |
984 ]. |
983 ]. |
985 |
984 |
986 "don't create symbols for partial typed selectors" |
985 "don't create symbols for partial typed selectors" |
987 selectorSymbol := selectorString asSymbolIfInterned. |
986 selectorSymbol := selectorString asSymbolIfInterned. |
988 |
987 |
989 element := elements newElementFor: (SelectorNode value: selectorString from: pos1 to: pos2). |
988 element := elements newElementFor: (SelectorNode value: selectorSymbol ? selectorString from: pos1 to: pos2). |
990 |
989 |
991 (lastSelectorElement notNil "and:[lastSelectorElement value = selectorString]") ifTrue:[ |
990 (lastSelectorElement notNil "and:[lastSelectorElement value = selectorString]") ifTrue:[ |
992 lastSelectorElement nextElement: element. |
991 lastSelectorElement nextElement: element. |
993 ]. |
992 ]. |
994 elements add: element. |
993 elements add: element. |
1080 ! ! |
1079 ! ! |
1081 |
1080 |
1082 !SyntaxHighlighter2 class methodsFor:'documentation'! |
1081 !SyntaxHighlighter2 class methodsFor:'documentation'! |
1083 |
1082 |
1084 version |
1083 version |
1085 ^ '$Header: /cvs/stx/stx/libtool/SyntaxHighlighter2.st,v 1.27 2015-04-20 09:05:32 cg Exp $' |
1084 ^ '$Header$' |
1086 ! |
1085 ! |
1087 |
1086 |
1088 version_CVS |
1087 version_CVS |
1089 ^ '$Header: /cvs/stx/stx/libtool/SyntaxHighlighter2.st,v 1.27 2015-04-20 09:05:32 cg Exp $' |
1088 ^ '$Header$' |
1090 ! |
1089 ! |
1091 |
1090 |
1092 version_SVN |
1091 version_SVN |
1093 ^ '$Id: SyntaxHighlighter2.st,v 1.27 2015-04-20 09:05:32 cg Exp $' |
1092 ^ '$Id$' |
1094 ! ! |
1093 ! ! |
1095 |
1094 |