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

"{ NameSpace: Cairo }"

ApplicationModel subclass:#AbstractViewer

	instanceVariableNames:'workspace exampleCodeHolder exampleMethodHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'Cairo-Examples'

!

!AbstractViewer class methodsFor:'interface specs'!

previewSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:Cairo::AbstractViewer andSelector:#previewSpec

     Cairo::AbstractViewer new openInterface:#previewSpec

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: 'previewSpec'

       window: 

      (WindowSpec

         label: 'Preview'

         name: 'Preview'

         min: (Point 10 10)

         bounds: (Rectangle 0 0 619 380)

       )

       component: 

      (SpecCollection

         collection: (

          (NonScrollableArbitraryComponentSpec

             name: 'NonScrollableArbitraryComponent1'

             layout: (LayoutFrame 0 0 0 0 0 1 0 1)

             component: PluggableView

             postBuildCallback: postBuildOutput:

           )

          )

       )

     )

!

windowSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:Cairo::AbstractViewer andSelector:#windowSpec

     Cairo::AbstractViewer new openInterface:#windowSpec

     Cairo::AbstractViewer open

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: windowSpec

       window: 

      (WindowSpec

         label: 'Cairo Examples'

         name: 'Cairo Examples'

         min: (Point 10 10)

         bounds: (Rectangle 0 0 619 380)

         menu: windowMenu

       )

       component: 

      (SpecCollection

         collection: (

          (VariableHorizontalPanelSpec

             name: 'VariableHorizontalPanel1'

             layout: (LayoutFrame 0 0 0 0 0 1 0 1)

             showHandle: true

             snapMode: both

             component: 

            (SpecCollection

               collection: (

                (TextEditorSpec

                   name: 'TextEditor1'

                   model: exampleCodeHolder

                   hasHorizontalScrollBar: false

                   hasVerticalScrollBar: false

                   hasKeyboardFocusInitially: false

                   viewClassName: 'Tools::CodeView2'

                   postBuildCallback: postBuildWorkspace:

                 )

                (UISubSpecification

                   name: 'Preview'

                   minorKey: previewSpec

                 )

                )

             )

             handles: (Any 0.5 1.0)

           )

          )

       )

     )

! !

!AbstractViewer class methodsFor:'menu specs'!

windowMenu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the MenuEditor may not be able to read the specification."

    "

     MenuEditor new openOnClass:Cairo::Examples andSelector:#windowMenu

     (Menu new fromLiteralArrayEncoding:(Cairo::Examples windowMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            label: 'File'

            submenu: 

           (Menu

              (

               (MenuItem

                  label: 'Exit'

                  itemValue: closeRequest

                )

               )

              nil

              nil

            )

          )

         (MenuItem

            label: 'Edit'

            submenu: 

           (Menu

              (

               (MenuItem

                  label: 'Cut'

                  itemValue: cutSelection

                )

               (MenuItem

                  label: 'Copy'

                  itemValue: copySelection

                )

               (MenuItem

                  label: 'Paste'

                  itemValue: paste

                )

               )

              nil

              nil

            )

          )

         (MenuItem

            label: 'Examples'

            submenuChannel: menuExamples

          )

         )

        nil

        nil

      )

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

! !

!AbstractViewer methodsFor:'aspects'!

exampleCodeHolder

    "return/create the 'exampleCodeHolder' value holder (automatically generated)"

    exampleCodeHolder isNil ifTrue:[

        exampleCodeHolder := ValueHolder new.

        exampleCodeHolder addDependent:self.

    ].

    ^ exampleCodeHolder

!

exampleCodeHolder:something

    "set the 'exampleCodeHolder' value holder (automatically generated)"

    |oldValue newValue|

    exampleCodeHolder notNil ifTrue:[

        oldValue := exampleCodeHolder value.

        exampleCodeHolder removeDependent:self.

    ].

    exampleCodeHolder := something.

    exampleCodeHolder notNil ifTrue:[

        exampleCodeHolder addDependent:self.

    ].

    newValue := exampleCodeHolder value.

    oldValue ~~ newValue ifTrue:[

        self update:#value with:newValue from:exampleCodeHolder.

    ].

!

exampleMethodHolder

    "return/create the 'exampleMethodHolder' value holder (automatically generated)"

    exampleMethodHolder isNil ifTrue:[

        exampleMethodHolder := ValueHolder new.

        exampleMethodHolder addDependent:self.

    ].

    ^ exampleMethodHolder

!

exampleMethodHolder:something

    "set the 'exampleMethodHolder' value holder (automatically generated)"

    |oldValue newValue|

    exampleMethodHolder notNil ifTrue:[

        oldValue := exampleMethodHolder value.

        exampleMethodHolder removeDependent:self.

    ].

    exampleMethodHolder := something.

    exampleMethodHolder notNil ifTrue:[

        exampleMethodHolder addDependent:self.

    ].

    newValue := exampleMethodHolder value.

    oldValue ~~ newValue ifTrue:[

        self update:#value with:newValue from:exampleMethodHolder.

    ].

! !

!AbstractViewer methodsFor:'change & update'!

update:something with:aParameter from:changedObject

    "Invoked when an object that I depend upon sends a change notification."

    "stub code automatically generated - please change as required"

    changedObject == exampleCodeHolder ifTrue:[

         self updateAfterExampleCodeChanged.

         ^ self.

    ].

    changedObject == exampleMethodHolder ifTrue:[

         self updateAfterExampleMethodChanged.

         ^ self.

    ].

    super update:something with:aParameter from:changedObject

    "Modified: / 26-02-2016 / 21:32:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

updateAfterExampleCodeChanged

    | code method |

    code := exampleCodeHolder value.

    code notEmptyOrNil ifTrue:[ 

        method := Compiler compile:( 'redrawOn: ',self exampleMethodParameterName,' ', code)  forClass: nil install: false.

        method notNil ifTrue:[   

            method source: code asString string.

        ].  

    ].

    self exampleMethodHolder value: method

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

    "Modified: / 27-02-2016 / 08:57:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

updateAfterExampleMethodChanged

    self subclassResponsibility

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

! !

!AbstractViewer methodsFor:'hooks'!

postBuildWorkspace:aCodeView2

    <resource: #uiCallback>

    workspace := aCodeView2.

    workspace language: SmalltalkLanguage instance.

    workspace codeAspect: SyntaxHighlighter codeAspectStatements

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

! !

!AbstractViewer methodsFor:'menu'!

menuExamples

    self subclassResponsibility

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

    "Modified: / 27-02-2016 / 08:56:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

menuExamplesFromClass: aClass

    | examples |

    examples := aClass testSelectors collect:[:each | aClass lookupMethodFor: each ].    

    examples sort: [ :a :b | (a annotationsAt: #example: orAt: #example:category:) first arguments first 

                                < (b annotationsAt: #example: orAt: #example:category:) first arguments first ].

    ^ self menuExamplesFromMethods: examples

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

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

!

menuExamplesFromMethods: methods

    | menu |

    menu := Menu new.

    methods do:[:method | 

        menu addItem: (MenuItem

                        label: (method annotationsAt: #example: orAt: #example:category:) first arguments first

                        itemValue: #menuExampleShowMethod: 

                        argument: method)

    ].

    ^ menu

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

! !

!AbstractViewer methodsFor:'menu actions'!

menuExampleShow: code

    self exampleCodeHolder value: code.

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

!

menuExampleShowBrowser

    self halt.

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

!

menuExampleShowMethod: method

    | source |

    source := method source asStringCollection.

    source := source copyFrom: 2.

    source := source asString.

    self menuExampleShow: source.

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

! !

!AbstractViewer methodsFor:'private'!

redraw:view using: method

    self subclassResponsibility

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

!

redraw:view using: method with: gc

    method notNil ifTrue:[    

        method valueWithReceiver:nil arguments:(Array with: gc).    

    ]

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

!

redraw:arg1 usingMethod:arg2

    "raise an error: must be redefined in concrete subclass(es)"

    ^ self subclassResponsibility

!

redrawUsingCode:aString

    ^ self subclassResponsibility

    "Modified (comment): / 26-02-2016 / 21:23:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

redrawUsingMethod:aString

    ^ self subclassResponsibility

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

! !

!AbstractViewer methodsFor:'private - templates'!

exampleMethodParameterName

    ^ self subclassResponsibility

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

! !