"{ Package: 'jv:vdb' }"

"{ NameSpace: Smalltalk }"

VDBAbstractApplication subclass:#VDBAbstractListApplication

	instanceVariableNames:'internalListHolder internalListView internalSelectionHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'VDB-UI-Abstract'

!

!VDBAbstractListApplication class methodsFor:'queries'!

isAbstract

    "Return if this class is an abstract class.

     True is returned here for myself only; false for subclasses.

     Abstract subclasses must redefine again."

    ^ self == VDBAbstractListApplication.

! !

!VDBAbstractListApplication methodsFor:'aspects-private'!

internalListHolder

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

    internalListHolder isNil ifTrue:[

        internalListHolder := ValueHolder new.

    ].

    ^ internalListHolder

    "Created: / 27-02-2015 / 15:55:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

internalSelectionHolder

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

    internalSelectionHolder isNil ifTrue:[

        internalSelectionHolder := ValueHolder new.

        internalSelectionHolder addDependent:self.

    ].

    ^ internalSelectionHolder

! !

!VDBAbstractListApplication methodsFor:'change & update'!

enqueueDelayedUpdateInternalList

    self window sensor pushUserEvent:#delayedUpdateInternalList for:self

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

!

enqueueDelayedUpdateSelection

    self window sensor pushUserEvent:#delayedUpdateSelection   for:self

    "Created: / 27-02-2015 / 15:35:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

update:aspect with:param from:sender

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

    sender == internalSelectionHolder ifTrue:[ 

        self enqueueDelayedUpdateSelection.

        ^ self

    ].

    super update:aspect with:param from:sender

    "Created: / 27-02-2015 / 15:44:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

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

delayedUpdateInternalList

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

    ^ self subclassResponsibility

!

delayedUpdateSelection

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

    ^ self subclassResponsibility

! !

!VDBAbstractListApplication methodsFor:'hooks'!

commonPostOpen

    "a common hook for postOpenWith:, postOpenAsSubcanvasWith: and postOpenAsDialogWith:."

    self enqueueDelayedUpdateInternalList

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

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

!

postBuildInternalListView: aView

    internalListView := aView

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

! !