"{ Package: 'jv:vdb' }"

	instanceVariableNames:'selectedThreadGroupHolder selectedThreadHolder

	classVariableNames:''

	poolDictionaries:''

	category:'VDB-UI-Others'

!

!VDBStackApplication class methodsFor:'menu specs'!

contextMenu

    "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:VDBStackApplication andSelector:#contextMenu

     (Menu new fromLiteralArrayEncoding:(VDBStackApplication contextMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            enabled: hasSelection

            label: 'Inspect Model'

            itemValue: doInspectModel

          )

         (MenuItem

            label: 'Inspect Presenter'

            itemValue: doInspectPresenter

          )

         )

        nil

        nil

      )

! !

!VDBStackApplication class methodsFor:'plugIn spec'!

aspectSelectors

    "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."

    "Return a description of exported aspects;

     these can be connected to aspects of an embedding application

     (if this app is embedded in a subCanvas)."

    ^ #(

        #debuggerHolder

        #selectedFrameHolder

        #selectedThreadGroupHolder

        #selectedThreadHolder

      ).

! !

!VDBStackApplication methodsFor:'aspects'!

selectedFrameHolder

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

    selectedFrameHolder isNil ifTrue:[

        selectedFrameHolder := ValueHolder new.

        selectedFrameHolder addDependent:self.

    ].

    ^ selectedFrameHolder

    "Created: / 21-09-2014 / 23:51:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

selectedFrameHolder:aValueModel

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

    |oldValue newValue|

    selectedFrameHolder notNil ifTrue:[

        oldValue := selectedFrameHolder value.

        selectedFrameHolder removeDependent:self.

    ].

    selectedFrameHolder := aValueModel.

    selectedFrameHolder notNil ifTrue:[

        selectedFrameHolder addDependent:self.

    ].

    newValue := selectedFrameHolder value.

    oldValue ~~ newValue ifTrue:[

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

    ].

    "Created: / 21-09-2014 / 23:50:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

selectedThreadGroupHolder

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

    selectedThreadGroupHolder isNil ifTrue:[

        selectedThreadGroupHolder := ValueHolder new.

        selectedThreadGroupHolder addDependent:self.

    ].

    ^ selectedThreadGroupHolder

!

selectedThreadGroupHolder:something

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

    |oldValue newValue|

    selectedThreadGroupHolder notNil ifTrue:[

        oldValue := selectedThreadGroupHolder value.

        selectedThreadGroupHolder removeDependent:self.

    ].

    selectedThreadGroupHolder := something.

    selectedThreadGroupHolder notNil ifTrue:[

        selectedThreadGroupHolder addDependent:self.

    ].

    newValue := selectedThreadGroupHolder value.

    oldValue ~~ newValue ifTrue:[

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

    ].

!

selectedThreadHolder

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

    selectedThreadHolder isNil ifTrue:[

        selectedThreadHolder := ValueHolder new.

        selectedThreadHolder addDependent:self.

    ].

    ^ selectedThreadHolder

!

selectedThreadHolder:something

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

    |oldValue newValue|

    selectedThreadHolder notNil ifTrue:[

        oldValue := selectedThreadHolder value.

        selectedThreadHolder removeDependent:self.

    ].

    selectedThreadHolder := something.

    selectedThreadHolder notNil ifTrue:[

        selectedThreadHolder addDependent:self.

    ].

    newValue := selectedThreadHolder value.

    oldValue ~~ newValue ifTrue:[

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

    ].

! !

update:aspect with:param from:sender

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

    "stub code automatically generated - please change as required"

    sender == selectedFrameHolder ifTrue:[

         self updateInternalSelection.

         ^ self.

    ].

    super update:aspect with:param from:sender

!

updateInternalSelection

"/    | selection internalSelection |

"/

"/    selection := self selectionHolder value.

"/    internalSelection := self internalListHolder value 

"/            detect:[:e | e value == selection ] ifNone:[ nil ].

"/    self internalSelectionHolder

"/        value: internalSelection

"/        withoutNotifying: self.

    "Created: / 20-09-2014 / 23:05:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 21-09-2014 / 23:52:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

updateInternalSelectionAfterThreadStopped: thread

    | threadP frameP |

    threadP := self internalListHolder value root 

                    recursiveDetect:[ :e | e isThreadPresenter and:[ e thread == thread ] ].

    frameP := threadP children first.

    self internalSelectionHolder value: frameP

    "Created: / 22-09-2014 / 23:21:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

updateSelection

    | internalSelection frame thread group |

    internalSelection := self internalSelectionHolder value.

    internalSelection notNil ifTrue:[ 

        internalSelection isFramePresenter ifTrue:[

            frame := internalSelection frame.

            thread := frame thread.

            group := thread group.

        ] ifFalse:[ 

            internalSelection isThreadPresenter ifTrue:[ 

                thread := internalSelection thread.

                group := thread group.

            ] ifFalse:[  

                group := internalSelection threadGroup.

            ]

        ].

    ].

    self selectedThreadGroupHolder value: group withoutNotifying: self.

    self selectedThreadHolder value: thread withoutNotifying: self.

    self selectedFrameHolder value: frame withoutNotifying: self.

    "Created: / 20-09-2014 / 23:10:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 22-09-2014 / 00:17:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBStackApplication methodsFor:'change & update-delayed'!

!

! !

!VDBStackApplication methodsFor:'event handling'!

onRunningEvent: event

    "Created: / 30-09-2014 / 00:02:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

onStoppedEvent: event

    self enqueueUpdateInternalSelectionAfterThreadStopped:event stoppedThread.

    "Created: / 17-09-2014 / 23:04:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 22-09-2014 / 23:26:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

onThreadExitedEvent: event

    "Created: / 18-09-2014 / 23:30:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 20-09-2014 / 23:08:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

onThreadGroupExitedEvent: event

    "Created: / 18-09-2014 / 23:30:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 20-09-2014 / 23:08:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBStackApplication methodsFor:'initialization & release'!

subscribe   

    "Register for debugger events. To be overrided by subclasses"

    debugger announcer

        when: GDBRunningEvent           send: #onRunningEvent: to: self;

        when: GDBStoppedEvent           send: #onStoppedEvent: to: self;

        when: GDBThreadExitedEvent      send: #onThreadExitedEvent: to: self;

        when: GDBThreadGroupExitedEvent send: #onThreadGroupExitedEvent: to: self

    "Created: / 07-06-2014 / 14:33:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 30-09-2014 / 00:02:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBStackApplication methodsFor:'menu actions'!

doInspectModel

    | selection |

    selection := self internalSelectionHolder value.

    selection notEmptyOrNil ifTrue:[ 

        selection isThreadGroupPresenter ifTrue: [ selection threadGroup inspect ].

        selection isThreadPresenter ifTrue: [ selection thread inspect ].

        selection isFramePresenter ifTrue: [ selection frame inspect ].    

    ].

    "Modified: / 22-09-2014 / 01:17:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

doInspectPresenter

    self internalSelectionHolder value inspect

    "Modified: / 22-09-2014 / 01:17:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBStackApplication methodsFor:'queries'!

hasSelection

    ^ self internalSelectionHolder value notEmptyOrNil

    "Modified: / 22-09-2014 / 01:13:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBStackApplication class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'

! !