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

     2 

     3 CypressModel subclass:#CypressMethod

     4 	instanceVariableNames:'klass meta category source'

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'Cypress-New-Model'

     8 !

     9 

    10 

    11 !CypressMethod class methodsFor:'instance creation'!

    12 

    13 fromMethod: aMethod

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

    15     ^self new initializeFromMethod: aMethod

    16 

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

    18 ! !

    19 

    20 !CypressMethod methodsFor:'accessing'!

    21 

    22 package

    23     "Returns a CypressPackage which the receiver belongs to"

    24 

    25     ^ self shouldImplement

    26 ! !

    27 

    28 !CypressMethod methodsFor:'initialization'!

    29 

    30 initializeFromMethod: aMethod

    31     name := aMethod selector.

    32     klass := aMethod mclass name.

    33     meta := aMethod mclass isMetaclass.

    34     category := aMethod category.

    35     source := aMethod source.

    36 

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

    38 ! !

    39 

    40 !CypressMethod methodsFor:'reading & writing'!

    41 

    42 readFrom:filename

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

    44 

    45     ^ self shouldImplement

    46 !

    47 

    48 writeTo:filename notice:copyrightNotice

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

    50      with given copyrightNotice"

    51 

    52     ^ self shouldImplement

    53 ! !

    54 

    55 !CypressMethod class methodsFor:'documentation'!

    56 

    57 version_SVN

    58     ^ '$Id::                                                                                                                        $'

    59 ! !