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

"{ NameSpace: Cairo }"

TestCase subclass:#Examples2

	instanceVariableNames:'view surface'

	classVariableNames:''

	poolDictionaries:''

	category:'Cairo-Examples'

!

!Examples2 class methodsFor:'accessing'!

isTestSelector:aSelector

    | method |

    aSelector isNil ifTrue:[ ^ false ].

    method := self lookupMethodFor: aSelector.

    ^ method notNil 

        and:[(method hasAnnotation: #example:) or:[ method hasAnnotation: #example:category: ] ]

    "

    Cairo::Examples1 isTestSelector: #example01:

    "

    "Created: / 26-02-2016 / 21:57:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Examples2 class methodsFor:'private'!

testSelectors

        "The API method is allTestSelectors which now includes #shouldInheritSelectors and so handles all cases.  Unlike that method, this does not guarantee to return a sorted ordered collection."

        ^self sunitSelectors select: [:each | self isTestSelector: each ]

    "Created: / 26-02-2016 / 22:40:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Examples2 methodsFor:'examples'!

example01: gc <example: '01 - Rectangles'>

gc lineWidth: 1.

gc paint: Color blue.

gc fillRectangleX: 10 y: 10 width: gc width - 20 height: gc height - 20.

gc paint: Color red.

gc displayRectangleX: 10 y: 10 width: gc width - 20 height: gc height - 20.

gc paint: Color blue.

gc fillRectangleX: 10 y: 10 + ((gc height - 20) / 2) rounded width: gc width - 20 height: ((gc height - 20) / 2) rounded.

gc paint: Color black.

gc displayLineFromX: 1 y: (gc height / 2) rounded toX: gc width y: (gc height / 2) rounded.

    "Created: / 26-02-2016 / 22:57:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

example02: gc <example: '01 - Rectangles (rounded)'>

gc lineWidth: 10.

gc paint: Color red.

gc displayRoundRectangleX: 10 y: 10 width: gc width - 20 height: gc height - 20

   wCorner: 30 hCorner: 30.

gc paint: Color blue lighter.

gc fillRoundRectangleX: 10 y: 10 rounded width: gc width - 20 height: (gc height - 20) rounded

   wCorner: 30 hCorner: 30.

gc paint: Color black.

gc lineWidth: 1.

gc displayLineFromX: 1 y: (gc height / 2) rounded toX: gc width y: (gc height / 2) rounded.

    "Created: / 27-02-2016 / 09:04:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Examples2 methodsFor:'private'!

performTest

    | dGC cGC |

    dGC := view instVarNamed: #gc.

    cGC := CairoGraphicsContext onDeviceGraphicsContext: dGC.

    [

        view instVarNamed: #gc put: dGC.    

        self perform: testSelector sunitAsSymbol with: view.

        view instVarNamed: #gc put: cGC.    

        self perform: testSelector sunitAsSymbol with: view. 

    ] ensure:[ 

        view instVarNamed: #gc put: dGC.    

        cGC destroyCR.

    ].

    "Created: / 26-02-2016 / 22:01:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 27-02-2016 / 09:01:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Examples2 methodsFor:'running'!

setUp

    | top |

    self assert: Display notNil.

    top := StandardSystemView new.

    top origin: 10@10 extent: 200@100.       

    view := SimpleView origin: 0.0 @ 0.0 corner: 1.0 @ 1.0 in: top.

    top openAndWait.

    "Created: / 26-02-2016 / 22:15:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

tearDown

    view notNil ifTrue:[ 

        view topView close.

    ].

    "Created: / 26-02-2016 / 22:18:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !