"{ Package: 'jv:vdb/plugins/bee' }"

"{ NameSpace: Smalltalk }"

VDBAbstractListApplication subclass:#BeeSymbolListApplication

	instanceVariableNames:'symbolListHolder selectedSymbolHolder'

	classVariableNames:''

	category:'VDB-Plugin-Bee-UI'

!

!BeeSymbolListApplication class methodsFor:'accessing - defaults'!

defaultWindowTitle

    ^ 'Bee Symbols'

    "Modified: / 07-06-2019 / 15:00:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!BeeSymbolListApplication methodsFor:'aspects'!

selectedSymbolHolder

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

    selectedSymbolHolder isNil ifTrue:[

        selectedSymbolHolder := ValueHolder new.

        selectedSymbolHolder addDependent:self.

    ].

    ^ selectedSymbolHolder

!

selectedSymbolHolder:something

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

    |oldValue newValue|

    selectedSymbolHolder notNil ifTrue:[

        oldValue := selectedSymbolHolder value.

        selectedSymbolHolder removeDependent:self.

    ].

    selectedSymbolHolder := something.

    selectedSymbolHolder notNil ifTrue:[

        selectedSymbolHolder addDependent:self.

    ].

    newValue := selectedSymbolHolder value.

    oldValue ~~ newValue ifTrue:[

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

    ].

!

symbolListHolder

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

    symbolListHolder isNil ifTrue:[

        symbolListHolder := ValueHolder new.

        symbolListHolder addDependent:self.

    ].

    ^ symbolListHolder

!

symbolListHolder:something

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

    |oldValue newValue|

    symbolListHolder notNil ifTrue:[

        oldValue := symbolListHolder value.

        symbolListHolder removeDependent:self.

    ].

    symbolListHolder := something.

    symbolListHolder notNil ifTrue:[

        symbolListHolder addDependent:self.

    ].

    newValue := symbolListHolder value.

    oldValue ~~ newValue ifTrue:[

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

    ].

! !

!BeeSymbolListApplication methodsFor:'change & update'!

update:aspect with:param from:sender

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

    sender == symbolListHolder ifTrue:[

        self enqueueDelayedUpdateInternalList.

        ^ self.

    ].

    super update:aspect with:param from:sender

    "Created: / 07-06-2019 / 15:05:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

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

delayedUpdateContents

    | symbols |

    debugger notNil ifTrue:[

        debugger send: GDBMI_bee_list_symbols new andWithResultDo: [ :result |

            result isDone ifTrue:[

                symbols := result propertyAt: #result.

                symbols sort:[ :a :b | a name < b name ].

                self symbolListHolder value: symbols.

        ]

    ] ifFalse:[ 

        self symbolListHolder value: nil.

    ].

    "Created: / 07-06-2019 / 14:59:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

delayedUpdateInternalList

    | symbols symbolPs |

    symbols := self symbolListHolder value ? #().

    symbolPs := symbols collect:[ :reg | BeeSymbolPresenter new setSymbol: reg ].

    self internalListHolder value: symbolPs

    "Modified: / 07-06-2019 / 14:53:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

delayedUpdateSelection

    | symbolP |

    symbolP := self internalSelectionHolder value.    

    self selectedSymbolHolder value: (symbolP notNil ifTrue:[ symbolP symbol ] ifFalse:[ nil ])

    "Modified (format): / 07-06-2019 / 15:07:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!BeeSymbolListApplication class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'

! !