| author | Jan Vrany <jan.vrany@fit.cvut.cz> |
| Fri, 02 Aug 2013 16:40:58 +0100 | |
| changeset 47 | 547d48a49dbd |
| parent 42 | 48307f46ff8e |
| child 50 | 8655feecd4db |
| permissions | -rw-r--r-- |
|
39
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1 |
"{ Package: 'jv:smallsense' }"
|
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2 |
|
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
3 |
Object subclass:#SmallSenseEditSupport |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
4 |
instanceVariableNames:'service textView' |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
5 |
classVariableNames:'' |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
6 |
poolDictionaries:'' |
|
42
48307f46ff8e
Edit support cut off to a new service. Added SmallSense syntax highlighting service.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
39
diff
changeset
|
7 |
category:'SmallSense-Services' |
|
39
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
8 |
! |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
9 |
|
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
10 |
!SmallSenseEditSupport class methodsFor:'instance creation'! |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
11 |
|
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
12 |
forLanguage: aProgrammingLanguage |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
13 |
aProgrammingLanguage notNil ifTrue:[ |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
14 |
aProgrammingLanguage isSmalltalk ifTrue:[ |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
15 |
^SmallSenseSmalltalkEditSupport new |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
16 |
]. |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
17 |
]. |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
18 |
|
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
19 |
^SmallSenseGenericEditSupport new. |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
20 |
|
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
21 |
"Created: / 24-07-2013 / 23:20:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
22 |
! ! |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
23 |
|
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
24 |
!SmallSenseEditSupport methodsFor:'accessing'! |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
25 |
|
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
26 |
language |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
27 |
^ self subclassResponsibility. |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
28 |
|
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
29 |
"Created: / 24-07-2013 / 23:44:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
30 |
! |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
31 |
|
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
32 |
service |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
33 |
^ service |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
34 |
! |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
35 |
|
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
36 |
service:aSmallSenseService |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
37 |
service := aSmallSenseService. |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
38 |
textView := aSmallSenseService textView. |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
39 |
|
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
40 |
"Modified: / 25-07-2013 / 00:11:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
41 |
! ! |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
42 |
|
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
43 |
!SmallSenseEditSupport methodsFor:'event handling'! |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
44 |
|
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
45 |
keyPress: key x:x y:y in: view |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
46 |
|
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
47 |
"Handles an event in given view (a subview of codeView). |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
48 |
If the method returns true, the event will not be processed |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
49 |
by the view." |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
50 |
|
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
51 |
^false |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
52 |
|
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
53 |
"Created: / 24-07-2013 / 23:31:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
54 |
! ! |
|
748389119d0a
Initial support for per-language edit support.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
55 |