"

jv:vdb - Visual / VM Debugger

Copyright (C) 2015-now Jan Vrany

This software is licensed under 'Creative Commons Attribution-NonCommercial 4.0 International License'

You may find a full license text in LICENSE.txt or at http://creativecommons.org/licenses/by-nc/4.0/

"

"{ Package: 'jv:vdb' }"

"{ NameSpace: Smalltalk }"

ApplicationModel subclass:#VDBAbstractApplication

	instanceVariableNames:'debuggerHolder debugger titleHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'VDB-UI-Abstract'

!

!VDBAbstractApplication class methodsFor:'documentation'!

copyright

"

jv:vdb - Visual / VM Debugger

Copyright (C) 2015-now Jan Vrany

This software is licensed under 'Creative Commons Attribution-NonCommercial 4.0 International License'

You may find a full license text in LICENSE.txt or at http://creativecommons.org/licenses/by-nc/4.0/

"

! !

!VDBAbstractApplication class methodsFor:'accessing'!

windowTitle

    | m s |

    m := self class lookupMethodFor: #windowSpec.

    m mclass theNonMetaclass isAbstract ifTrue:[ 

        self subclassResponsibility: 'Override #windowTitle in concrete classes'.

    ].

    s := self windowSpec.

    s do: [:e | 

        (e isArray and:[ e first == #WindowSpec ]) ifTrue:[

            ^ e at: 3

        ]

    ].

    ^ self name

    "Created: / 16-12-2017 / 00:45:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 16-12-2017 / 22:32:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBAbstractApplication class methodsFor:'interface opening'!

openFor: debugger

    self new 

        debugger: debugger;

        open.

    "Created: / 06-06-2014 / 21:35:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBAbstractApplication class methodsFor:'interface specs'!

windowSpec 

    self subclassResponsibility

    "Created: / 01-06-2017 / 12:14:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBAbstractApplication class methodsFor:'plugin spec'!

aspectSelectors

    ^ #(

        debuggerHolder

    )

    "Created: / 06-06-2014 / 21:47:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBAbstractApplication class methodsFor:'testing'!

isAbstract

    ^ self == VDBAbstractApplication

! !

!VDBAbstractApplication methodsFor:'acessing'!

debugger

    ^ debugger

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

!

debugger: dbg

    self debuggerHolder value: dbg

    "Created: / 06-06-2014 / 21:36:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

masterApplication: anApplicationModel

    super masterApplication: anApplicationModel.

    (anApplicationModel isKindOf: VDBAbstractApplication) ifTrue:[ 

        self debuggerHolder: anApplicationModel debuggerHolder.

    ].

    "Created: / 17-09-2014 / 22:45:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

title

    ^ self titleHolder value

    "Created: / 10-06-2014 / 14:53:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

title: aString

    self titleHolder value: aString

    "Created: / 10-06-2014 / 14:53:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBAbstractApplication methodsFor:'aspects'!

debuggerHolder

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

    debuggerHolder isNil ifTrue:[

        debuggerHolder := ValueHolder new.

        debuggerHolder addDependent:self.

    ].

    ^ debuggerHolder

!

debuggerHolder:aValueModel

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

    |oldValue newValue|

    debuggerHolder notNil ifTrue:[

        oldValue := debuggerHolder value.

        debuggerHolder removeDependent:self.

    ].

    debuggerHolder := aValueModel.

    debuggerHolder notNil ifTrue:[

        debuggerHolder addDependent:self.

    ].

    newValue := debuggerHolder value.

    oldValue ~~ newValue ifTrue:[

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

    ].

!

titleHolder

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

    titleHolder isNil ifTrue:[

        titleHolder := ValueHolder with: self class windowTitle

    ].

    ^ titleHolder

    "Modified: / 01-06-2017 / 12:13:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBAbstractApplication methodsFor:'change & update'!

enqueueDelayedUpdate: selector

    "Created: / 17-01-2018 / 06:50:29 / jv"

!

enqueueDelayedUpdate: selector with: argument

    "Created: / 17-01-2018 / 06:50:39 / jv"

!

update:something with:aParameter from:changedObject

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

    changedObject == debuggerHolder ifTrue:[

        debuggerHolder value == debugger ifFalse:[

            debugger notNil ifTrue:[ 

                self unsubscribe.

            ].

            debugger := debuggerHolder value.

            debugger notNil ifTrue:[ 

                self subscribe.

            ].

        ].

        ^ self.

    ].

    super update:something with:aParameter from:changedObject

    "Modified: / 06-06-2014 / 22:09:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBAbstractApplication methodsFor:'dependents access'!

release

    "remove all dependencies from the receiver"

    super release.

    self unsubscribe

    "Created: / 06-06-2014 / 22:13:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBAbstractApplication methodsFor:'hooks'!

postBuildWith:aBuilder

    super postBuildWith: aBuilder.  

    (aBuilder window respondsTo: #labelChannel:) ifTrue:[

        aBuilder window labelChannel: self titleHolder.

    ].

    "Created: / 11-07-2017 / 16:33:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 11-07-2017 / 19:37:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBAbstractApplication methodsFor:'initialization & release'!

subscribe   

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

    "Created: / 06-06-2014 / 21:26:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

unsubscribe

    "Unsubscribe myself fo debugger events"

    (debugger notNil and:[debugger isConnected]) ifTrue:[ 

        debugger announcer unsubscribe: self.

    ].

    "Created: / 06-06-2014 / 21:26:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 01-06-2017 / 13:43:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBAbstractApplication methodsFor:'menu actions'!

doInspectDebugger

   debugger inspect

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

!

doInspectSessionRecord

   (debugger instVarNamed:#connection) recorder inspect

    "Created: / 09-09-2014 / 00:12:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBAbstractApplication methodsFor:'startup & release'!

releaseAsSubCanvas

    "a subcanvas is closed or switching to a new application.

     Can be redefined to perform a self release in this case."

    self release

    "Created: / 06-06-2014 / 22:12:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBAbstractApplication class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'

! !