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

"{ NameSpace: Cairo }"

SimpleView subclass:#TextExampleView

	instanceVariableNames:'cr updater'

	classVariableNames:''

	poolDictionaries:''

	category:'Cairo-Examples'

!

!TextExampleView methodsFor:'accessing-dimensions'!

preferredExtent

    ^400 @ 400

    "Created: / 17-06-2012 / 22:37:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!TextExampleView methodsFor:'redrawing'!

redraw

    |  |

    self clippingRectangle: 

        (Smalltalk::Rectangle left:1 top:1 width:self width height:self height).

    cr isNil ifTrue:[

        cr := self cairo.

    ].

    self font: (Font family: 'Helvetica' face: 'medium' style: 'italic' size: 32).

    self displayString: 'Hello world!!' x: 10 y: 40.

    cr fontFaceFamily: 'Helvetice' slant: Cairo::FontSlant FONT_SLANT_ITALIC weight: Cairo::FontWeight FONT_WEIGHT_NORMAL. 

    cr fontSize: 42.

    cr moveToX: 10 y: 82.

    cr showText: 'Hello World!!'

    "Created: / 16-06-2012 / 23:25:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

redrawX: x y: y width: w height: h

    self redraw

    "Created: / 17-06-2012 / 21:33:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!TextExampleView class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'

! !