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

CypressModel subclass:#CypressMethod

	instanceVariableNames:'klass meta category source'

	classVariableNames:''

	poolDictionaries:''

	category:'Cypress-New-Model'

!

!CypressMethod class methodsFor:'instance creation'!

fromMethod: aMethod

    "Returns a Cypress method for given (real) method"

    ^self new initializeFromMethod: aMethod

    "Created: / 11-09-2012 / 00:03:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CypressMethod methodsFor:'accessing'!

package

    "Returns a CypressPackage which the receiver belongs to"

    ^ self shouldImplement

! !

!CypressMethod methodsFor:'initialization'!

initializeFromMethod: aMethod

    name := aMethod selector.

    klass := aMethod mclass name.

    meta := aMethod mclass isMetaclass.

    category := aMethod category.

    source := aMethod source.

    "Created: / 11-09-2012 / 00:05:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CypressMethod methodsFor:'reading & writing'!

readFrom:filename

    "Initializes the receiver from directory/file named 'filename'"

    ^ self shouldImplement

!

writeTo:filename notice:copyrightNotice

    "Writes the receiver into directory/file named 'filename'

     with given copyrightNotice"

    ^ self shouldImplement

! !

!CypressMethod class methodsFor:'documentation'!

version_SVN

    ^ '$Id::                                                                                                                        $'

! !