equal
deleted
inserted
replaced
10 ! |
10 ! |
11 |
11 |
12 |
12 |
13 !TConstantBinding class methodsFor:'instance creation'! |
13 !TConstantBinding class methodsFor:'instance creation'! |
14 |
14 |
15 value: anObject type: aTType |
15 value: anObject |
16 ^ self new initializeWithValue: anObject type: aTType |
16 ^ self new initializeWithValue: anObject |
17 |
17 |
18 "Created: / 15-09-2015 / 08:19:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
18 "Created: / 20-09-2015 / 07:11:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
19 ! ! |
19 ! ! |
20 |
20 |
21 !TConstantBinding methodsFor:'accessing'! |
21 !TConstantBinding methodsFor:'accessing'! |
22 |
22 |
23 value |
23 value |
35 "Created: / 03-09-2015 / 07:07:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
35 "Created: / 03-09-2015 / 07:07:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
36 ! ! |
36 ! ! |
37 |
37 |
38 !TConstantBinding methodsFor:'initialization'! |
38 !TConstantBinding methodsFor:'initialization'! |
39 |
39 |
40 initializeWithValue: anObject type: aTType |
40 initializeWithValue: anObject |
41 value := anObject. |
41 value := anObject. |
42 type := aTType. |
|
43 |
42 |
44 "Created: / 15-09-2015 / 08:19:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
43 "Created: / 20-09-2015 / 07:11:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
45 ! ! |
44 ! ! |
46 |
45 |
47 !TConstantBinding methodsFor:'testing'! |
46 !TConstantBinding methodsFor:'testing'! |
48 |
47 |
49 isConstantBinding |
48 isConstantBinding |