"{ Package: 'stx:goodies/cypress' }"

Object subclass:#CypressModel
	instanceVariableNames:'name properties'
	classVariableNames:''
	poolDictionaries:''
	category:'Cypress-New-Model'
!

!CypressModel class methodsFor:'documentation'!

documentation
"
    An abstract class to model packages, classes and methods.

    [author:]
        Jan Vrany <jan.vrany@fit.cvut.cz>

    [instance variables:]

    [class variables:]

    [see also:]

"
! !

!CypressModel methodsFor:'accessing'!

name
    ^ name
!

name:nm
    name := nm asString.

    "Modified: / 13-09-2012 / 15:17:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

properties
    properties isNil ifTrue:[
        properties := Dictionary new
    ].
    ^properties

    "Modified: / 17-09-2012 / 22:10:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

properties: aDictionary
    properties := aDictionary

    "Created: / 18-09-2012 / 10:14:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!CypressModel methodsFor:'converting'!

asChange
    ^self subclassResponsibility

    "Created: / 18-09-2012 / 10:17:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

asChangeSet
    | cs |

    cs := ChangeSet new.
    self changesInto: cs.
    ^cs.

    "Created: / 18-09-2012 / 10:16:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!CypressModel methodsFor:'private'!

changesInto: aChangeSet
    self subclassResponsibility

    "Created: / 18-09-2012 / 10:16:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!CypressModel class methodsFor:'documentation'!

version_SVN
    ^ '$Id::                                                                                                                        $'
! !