author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Mon, 17 Sep 2012 18:05:30 +0000 | |
changeset 14 | d5b81c30785e |
parent 13 | f90704544ca0 |
child 15 | 31a33727c629 |
permissions | -rw-r--r-- |
11
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1 |
"{ Package: 'stx:goodies/cypress' }" |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2 |
|
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
3 |
CypressModel subclass:#CypressClass |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
4 |
instanceVariableNames:'comment methods' |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
5 |
classVariableNames:'' |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
6 |
poolDictionaries:'' |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
7 |
category:'Cypress-New-Model' |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
8 |
! |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
9 |
|
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
10 |
|
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
11 |
!CypressClass class methodsFor:'instance creation'! |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
12 |
|
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
13 |
fromClass: aClass |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
14 |
"Returns a CypressPackage for given (real) class" |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
15 |
|
12
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
16 |
^self new initializeFromClass: aClass. |
11
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
17 |
|
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
18 |
"Created: / 10-09-2012 / 23:48:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
13 | 19 |
! |
20 |
||
21 |
fromDirectory: directory |
|
22 |
"Reads a CypressClass from given directory" |
|
23 |
||
24 |
^self new initializeFromDirectory: directory |
|
25 |
||
26 |
"Created: / 13-09-2012 / 15:34:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
11
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
27 |
! ! |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
28 |
|
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
29 |
!CypressClass methodsFor:'accessing'! |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
30 |
|
14 | 31 |
comment |
32 |
^ comment |
|
33 |
! |
|
34 |
||
35 |
comment:something |
|
36 |
comment := something. |
|
37 |
! |
|
38 |
||
11
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
39 |
methods |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
40 |
|
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
41 |
methods isNil ifTrue:[ |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
42 |
methods := OrderedCollection new. |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
43 |
(Smalltalk at: name asSymbol) instAndClassMethodsDo:[:mthd| |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
44 |
methods add: (CypressMethod fromMethod: mthd) |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
45 |
] |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
46 |
]. |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
47 |
^methods |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
48 |
|
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
49 |
"Created: / 11-09-2012 / 00:03:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
50 |
! |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
51 |
|
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
52 |
package |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
53 |
"Returns a CypressPackage which the receiver belongs to" |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
54 |
|
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
55 |
^ self shouldImplement |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
56 |
! ! |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
57 |
|
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
58 |
!CypressClass methodsFor:'initialization'! |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
59 |
|
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
60 |
initializeFromClass: aClass |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
61 |
name := aClass name. |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
62 |
properties := Dictionary new. |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
63 |
|
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
64 |
properties |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
65 |
at:'name' put: aClass nameWithoutPrefix; |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
66 |
at:'super' put: aClass superclass nameWithoutPrefix; |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
67 |
at:'namespace' put: aClass nameSpace nameWithoutPrefix; |
12
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
68 |
at:'superNamespace' put: aClass nameSpace nameSpace name; |
11
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
69 |
|
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
70 |
at:'instvars' put: aClass instVarNames; |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
71 |
at:'classinstvars' put: aClass class instVarNames; |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
72 |
at:'classvars' put: aClass classVarNames; |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
73 |
at:'pools' put: aClass sharedPoolNames; |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
74 |
|
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
75 |
at:'category' put: aClass category. |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
76 |
|
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
77 |
|
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
78 |
aClass definitionSelector ~~ Object definitionSelector ifTrue:[ |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
79 |
properties |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
80 |
at:'_stx_type' put: aClass definitionSelector |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
81 |
]. |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
82 |
|
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
83 |
"Created: / 10-09-2012 / 23:48:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
12
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
84 |
! |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
85 |
|
13 | 86 |
initializeFromDirectory: directory |
87 |
self readFrom: directory |
|
88 |
||
89 |
"Created: / 13-09-2012 / 15:35:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
90 |
! |
|
91 |
||
12
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
92 |
initializeWithMethods: aCollection |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
93 |
methods := aCollection |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
94 |
|
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
95 |
"Created: / 11-09-2012 / 11:15:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
11
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
96 |
! ! |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
97 |
|
12
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
98 |
!CypressClass methodsFor:'reading & writing - private'! |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
99 |
|
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
100 |
writeMethodsTo:directory notice:copyrightNotice |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
101 |
"Writes methods into given 'directory' with copyrightNotice in each file" |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
102 |
|
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
103 |
| obsolete instDir classDir | |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
104 |
|
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
105 |
instDir := directory / 'instance'. |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
106 |
classDir := directory / 'class'. |
11
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
107 |
|
12
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
108 |
" collect possibly obsolete directories/files " |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
109 |
obsolete := Set new. |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
110 |
instDir exists ifTrue:[ |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
111 |
obsolete add: instDir. |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
112 |
obsolete add: instDir directoryContentsAsFilenames |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
113 |
]. |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
114 |
classDir exists ifTrue:[ |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
115 |
obsolete add: classDir. |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
116 |
obsolete add: classDir directoryContentsAsFilenames |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
117 |
]. |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
118 |
|
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
119 |
self methods do:[:cpsMthd| |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
120 |
| dir dottedSel file | |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
121 |
|
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
122 |
dir := cpsMthd meta ifTrue:[classDir] ifFalse:[instDir]. |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
123 |
dir exists ifFalse:[ dir makeDirectory ]. |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
124 |
file := dir / ((dottedSel := cpsMthd selector copyReplaceAll:$: with: $.) , '.st'). |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
125 |
cpsMthd writeTo: file notice:copyrightNotice. |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
126 |
obsolete := obsolete reject:[:each| |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
127 |
each withoutSuffix baseName = dottedSel |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
128 |
]. |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
129 |
]. |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
130 |
|
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
131 |
" wipe out obsolete directories / files " |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
132 |
obsolete do:[:each| |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
133 |
each exists ifTrue:[ each recursiveRemove ] |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
134 |
]. |
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
135 |
|
ec118792047a
- Package writing rewritten to use new model. Writes package according to recent spec.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
136 |
"Created: / 11-09-2012 / 11:19:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
11
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
137 |
! ! |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
138 |
|
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
139 |
!CypressClass class methodsFor:'documentation'! |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
140 |
|
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
141 |
version_SVN |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
142 |
^ '$Id:: $' |
333528cd629a
- Cypress refactoring - towards a lot simpler code
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
143 |
! ! |