equal
deleted
inserted
replaced
1 " |
1 " |
2 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague |
2 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague |
|
3 COPYRIGHT (c) 2021 LabWare |
3 All Rights Reserved |
4 All Rights Reserved |
4 |
5 |
5 Permission is hereby granted, free of charge, to any person |
6 Permission is hereby granted, free of charge, to any person |
6 obtaining a copy of this software and associated documentation |
7 obtaining a copy of this software and associated documentation |
7 files (the 'Software'), to deal in the Software without |
8 files (the 'Software'), to deal in the Software without |
40 !CodeNavigationService class methodsFor:'documentation'! |
41 !CodeNavigationService class methodsFor:'documentation'! |
41 |
42 |
42 copyright |
43 copyright |
43 " |
44 " |
44 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague |
45 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague |
|
46 COPYRIGHT (c) 2021 LabWare |
45 All Rights Reserved |
47 All Rights Reserved |
46 |
48 |
47 Permission is hereby granted, free of charge, to any person |
49 Permission is hereby granted, free of charge, to any person |
48 obtaining a copy of this software and associated documentation |
50 obtaining a copy of this software and associated documentation |
49 files (the 'Software'), to deal in the Software without |
51 files (the 'Software'), to deal in the Software without |
507 !CodeNavigationService methodsFor:'initialization'! |
509 !CodeNavigationService methodsFor:'initialization'! |
508 |
510 |
509 initialize |
511 initialize |
510 |
512 |
511 super initialize. |
513 super initialize. |
512 |
|
513 "the following must only define a background - otherwise, syntax highlight fg is lost" |
|
514 selectorEmphasis := self class defaultSelectorEmphasis. |
|
515 variableEmphasis := self class defaultVariableEmphasis. |
|
516 assignmentEmphasis := self class defaultAssignmentEmphasis. |
|
517 linesToRedraw := OrderedCollection new. |
514 linesToRedraw := OrderedCollection new. |
518 |
515 |
519 "Created: / 25-06-2010 / 14:05:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
516 "Created: / 25-06-2010 / 14:05:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
517 "Modified: / 15-09-2021 / 21:18:34 / Jan Vrany <jan.vrany@labware.com>" |
520 ! ! |
518 ! ! |
521 |
519 |
522 !CodeNavigationService methodsFor:'misc'! |
520 !CodeNavigationService methodsFor:'misc'! |
523 |
521 |
524 highlightClassVariable:name |
522 highlightClassVariable:name |
864 |
862 |
865 "Created: / 20-07-2011 / 18:45:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
863 "Created: / 20-07-2011 / 18:45:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
866 "Modified (format): / 18-08-2011 / 16:01:34 / cg" |
864 "Modified (format): / 18-08-2011 / 16:01:34 / cg" |
867 ! ! |
865 ! ! |
868 |
866 |
|
867 !CodeNavigationService methodsFor:'registering'! |
|
868 |
|
869 registerIn: aCodeView |
|
870 | theme | |
|
871 |
|
872 super registerIn: aCodeView. |
|
873 |
|
874 theme := UserPreferences current codeViewTheme ? UserPreferences current. |
|
875 selectorEmphasis := theme selectorHighlightEmphasis. |
|
876 variableEmphasis := theme variableHighlightEmphasis. |
|
877 assignmentEmphasis := theme assignmentHighlightEmphasis. |
|
878 |
|
879 "Created: / 15-09-2021 / 21:18:13 / Jan Vrany <jan.vrany@labware.com>" |
|
880 ! ! |
|
881 |
869 !CodeNavigationService class methodsFor:'documentation'! |
882 !CodeNavigationService class methodsFor:'documentation'! |
870 |
883 |
871 version |
884 version |
872 ^ '$Header$' |
885 ^ '$Header$' |
873 ! |
886 ! |
874 |
887 |
875 version_CVS |
888 version_CVS |
876 ^ '$Header$' |
889 ^ '$Header$' |
877 ! |
890 ! |
878 |
891 |
|
892 version_HG |
|
893 |
|
894 ^ '$Changeset: <not expanded> $' |
|
895 ! |
|
896 |
879 version_SVN |
897 version_SVN |
880 ^ '$Id$' |
898 ^ '$Id$' |
881 ! ! |
899 ! ! |
882 |
900 |