1 "{ Package: 'stx:libscm/mercurial' }"

     2 

     3 Object subclass:#HGRevision

     4 	instanceVariableNames:'id branch user timestamp message parent1 parent2'

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'SCM-Mercurial-Core'

     8 !

     9 

    10 

    11 !HGRevision class methodsFor:'instance creation'!

    12 

    13 new

    14     "return an initialized instance"

    15 

    16     ^ self basicNew initialize.

    17 ! !

    18 

    19 !HGRevision methodsFor:'initialization'!

    20 

    21 initialize

    22     "Invoked when a new instance is created."

    23 

    24     "/ please change as required (and remove this comment)

    25     "/ id := nil.

    26     "/ user := nil.

    27     "/ timestamp := nil.

    28     "/ files := nil.

    29     "/ message := nil.

    30 

    31 

    32     "/ super initialize.   -- commented since inherited method does nothing

    33 

    34     "Modified: / 19-10-2012 / 16:08:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    35 !

    36 

    37 setAuthor: aString

    38     message := aString

    39 

    40     "Created: / 13-11-2012 / 10:23:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    41 !

    42 

    43 setBranch: aString

    44     branch := aString

    45 

    46     "Created: / 13-11-2012 / 10:16:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    47 !

    48 

    49 setId: anHGNodeId

    50     id := anHGNodeId

    51 

    52     "Created: / 13-11-2012 / 10:08:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    53 !

    54 

    55 setMessage: aString

    56     message := aString

    57 

    58     "Created: / 13-11-2012 / 10:23:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    59 !

    60 

    61 setParent1Id: anHGNodeId

    62     parent1 := anHGNodeId

    63 

    64     "Created: / 13-11-2012 / 10:23:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    65 !

    66 

    67 setParent2Id: anHGNodeId

    68     parent1 := anHGNodeId

    69 

    70     "Created: / 13-11-2012 / 10:23:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    71 ! !

    72 

    73 !HGRevision class methodsFor:'documentation'!

    74 

    75 version_SVN

    76     ^ '$Id::                                                                                                                        $'

    77 ! !