equal
deleted
inserted
replaced
60 packageStructure |
60 packageStructure |
61 ^self |
61 ^self |
62 ! ! |
62 ! ! |
63 |
63 |
64 !CypressPackageStructure methodsFor:'converting'! |
64 !CypressPackageStructure methodsFor:'converting'! |
|
65 |
|
66 asChangeSet |
|
67 | changeset | |
|
68 |
|
69 changeset := super asChangeSet. |
|
70 changeset name: (self name , ' (loaded from Cypress)'). |
|
71 ^changeset |
|
72 |
|
73 "Created: / 03-09-2012 / 11:52:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
74 ! |
65 |
75 |
66 changesOn:aStream |
76 changesOn:aStream |
67 "superclass CypressStructure says that I am responsible to implement this method" |
77 "superclass CypressStructure says that I am responsible to implement this method" |
68 |
78 |
69 classes ? #() do:[:cls | cls changesOn: aStream ]. |
79 classes ? #() do:[:cls | cls changesOn: aStream ]. |