"

stx:libscm - a new source code management library for Smalltalk/X

Copyright (C) 2012-2015 Jan Vrany

This library is free software; you can redistribute it and/or

modify it under the terms of the GNU Lesser General Public

License as published by the Free Software Foundation; either

version 2.1 of the License. 

This library is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public

License along with this library; if not, write to the Free Software

Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

"

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

"{ NameSpace: Smalltalk }"

Object subclass:#HGChangesetPresenter

	instanceVariableNames:'changeset labels'

	classVariableNames:'PaddingLeft PaddingRight PaddingTop PaddingBottom'

	poolDictionaries:''

	category:'SCM-Mercurial-StX-Interface'

!

!HGChangesetPresenter class methodsFor:'documentation'!

copyright

"

stx:libscm - a new source code management library for Smalltalk/X

Copyright (C) 2012-2015 Jan Vrany

This library is free software; you can redistribute it and/or

modify it under the terms of the GNU Lesser General Public

License as published by the Free Software Foundation; either

version 2.1 of the License. 

This library is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public

License along with this library; if not, write to the Free Software

Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

"

! !

!HGChangesetPresenter class methodsFor:'initialization'!

initialize

    "Invoked at system start or when the class is dynamically loaded."

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

    PaddingLeft := 3.

    PaddingRight := 3.

    PaddingTop := 3.

    PaddingBottom := 3.

    "Modified: / 11-03-2014 / 21:27:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGChangesetPresenter methodsFor:'accessing'!

changeset

    ^ changeset

!

changeset:anHGChangeset

    changeset := anHGChangeset.

!

labels

    "/ Cache labels for speed...

    labels isNil ifTrue:[ 

        labels := changeset labels.

    ].

    ^ labels

    "Created: / 25-03-2014 / 01:48:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGChangesetPresenter methodsFor:'accessing-presentation'!

authorString

    ^ changeset author

    "Created: / 11-03-2014 / 21:49:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

changesetString

    ^ changeset id asString

!

dateString

    ^ changeset timestamp printString

    "Created: / 11-03-2014 / 21:48:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

parentsString

    "raise an error: this method should be implemented (TODO)"

    | p1 p2 |

    p1 := changeset parent1.

    p1 isNil ifTrue:[ 

        ^ HGChangesetId null printString.

    ].

    p2 := changeset parent2.

    ^ p2 isNil ifTrue:[ 

        p1 id asString.

    ] ifFalse:[ 

        p1 id asString , ', ' , p2 id asString.

    ].

    "Created: / 11-03-2014 / 21:52:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

summaryString

    ^ changeset summary

    "Created: / 11-03-2014 / 21:49:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGChangesetPresenter methodsFor:'comparing'!

= another

    ^ self class = another class and:[changeset = another changeset]

    "Created: / 11-03-2014 / 21:18:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 15-03-2014 / 00:03:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

hash

    ^ changeset hash

    "Created: / 11-03-2014 / 21:18:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGChangesetPresenter methodsFor:'displaying'!

displayOn:aGC x:x0 y:y0"baseline of the text!!!!!!"

    | x y yTextOffset xSummary fontH fontA lineH labelH idW resources |

    resources := HGChangesetList resources.

    fontH := aGC deviceFont height.

    fontA := aGC deviceFont ascent.

    lineH := (fontH * 1.2) rounded.

    labelH := changeset branches anElement heightOn: aGC.  

    idW := aGC widthOfString:'XXXXXXXXXXXX'.

    yTextOffset := 0."/((labelH - fontH) / 2) rounded.

    x := x0 + PaddingLeft.

    y := y0 + PaddingTop.

    aGC displayString: changeset id printStringWithoutNumber x: x y: y + yTextOffset.

    xSummary := x + idW + 5.

    self labels do:[:label |

"/        (label isBranch and:[ label isDefault ]) ifFalse:[

            label displayOn: aGC x: xSummary y: y - fontA.

            xSummary := xSummary + (label widthOn: aGC) + 3. 

"/        ].

    ].

    aGC displayString: changeset summary x: xSummary + 3 y: y + 2.

    y := y + lineH + 4.

    aGC displayString: changeset user , ', ', changeset timestamp printString x: x + idW + 5 y: y

    "Created: / 11-03-2014 / 21:36:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 28-03-2014 / 00:22:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

heightOn:aGC

    | fontH lineSpacing |

    fontH := aGC deviceFont height.

    lineSpacing := (fontH * 0.2) rounded.

     ^ (fontH * 2) + lineSpacing + 6 +  PaddingTop + PaddingRight.

    "Created: / 11-03-2014 / 21:29:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 28-03-2014 / 00:22:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

widthOn:aGC 

    | w idW |

    idW := aGC widthOfString:'XXXXXXXXXXXX'.

    w := PaddingLeft.

    w := w + idW + 5.

    self labels do:[:label |

"/        (label isBranch and:[ label isDefault ]) ifFalse:[

            w := w + (label widthOn: aGC) + 3. 

"/        ].

    ].

    w := w + (aGC widthOfString: changeset summary) + 3.

    ^ w.

    "Created: / 28-03-2014 / 00:26:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGChangesetPresenter methodsFor:'printing & storing'!

printOn:aStream

    "append a printed representation of the receiver to the argument, aStream"

    super printOn:aStream.

    aStream nextPutAll:'('.

    changeset printOn:aStream.

    aStream nextPutAll:')'.

    "Modified: / 27-03-2014 / 23:54:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGChangesetPresenter class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !

HGChangesetPresenter initialize!