"

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

VDBAbstractContentsApplication subclass:#VDBAbstractListApplication

	instanceVariableNames:'internalListHolder internalListView internalSelectionHolder

		internalMessageView internalMessageTimeoutID'

	classVariableNames:''

	poolDictionaries:''

	category:'VDB-UI-Abstract'

!

!VDBAbstractListApplication 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/

"

! !

!VDBAbstractListApplication class methodsFor:'interface specs'!

columnsSpec

    ^ #()

    "Created: / 02-06-2017 / 07:26:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

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:VDBAbstractListApplication andSelector:#windowSpec

     VDBAbstractListApplication new openInterface:#windowSpec

     VDBAbstractListApplication open

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: windowSpec

       uuid: '0f7dc3f0-3c2f-11e8-93ae-0021ccd5e3d3'

       window: 

      (WindowSpec

         label: 'VDBAbstractListApplication'

         name: 'VDBAbstractListApplication'

         uuid: '0f7dc3f1-3c2f-11e8-93ae-0021ccd5e3d3'

         min: (Point 10 10)

         bounds: (Rectangle 0 0 300 300)

       )

       component: 

      (SpecCollection

         collection: (

          (SelectionInListModelViewSpec

             name: 'SelectionInListModelView1'

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

             uuid: '0f7dc3f2-3c2f-11e8-93ae-0021ccd5e3d3'

             model: internalSelectionHolder

             menu: contextMenu

             hasHorizontalScrollBar: true

             hasVerticalScrollBar: true

             listModel: internalListHolder

             useIndex: false

             highlightMode: line

             doubleClickSelector: doDoubleClick

             selectConditionSelector: internalCanSelect:

             postBuildCallback: postBuildInternalListView:

           )

          )

       )

     )

    "Modified: / 09-04-2018 / 20:52:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBAbstractListApplication 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:VDBAbstractListApplication andSelector:#contextMenu

     (Menu new fromLiteralArrayEncoding:(VDBAbstractListApplication contextMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

          (MenuItem

            label: 'Appl Menu Slice'

            isVisible: true

            submenuChannel: contextMenuApplSlice

            isMenuSlice: true

          )

         (MenuItem

            label: 'Item Menu Slice'

            isVisible: true

            submenuChannel: contextMenuItemSlice

            isMenuSlice: true

          )

         (MenuItem

            label: 'Copy Menu Slice'

            isVisible: true

            submenuChannel: contextMenuCopySlice

            isMenuSlice: true

          )

         (MenuItem

            label: '-'

          )

         (MenuItem

            label: 'Inspect Menu Slice'

            isVisible: true

            submenuChannel: contextMenuInspectSlice

            isMenuSlice: true

          )

         )

        nil

        nil

      )

    "Modified: / 01-09-2018 / 14:36:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

contextMenuApplSlice

    "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:VDBAbstractListApplication andSelector:#contextMenuSlice

     (Menu new fromLiteralArrayEncoding:(VDBAbstractListApplication contextMenuSlice)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        nil nil

        nil

      )

    "Created: / 01-09-2018 / 14:36:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

contextMenuCopySlice

    "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:VDBAbstractListApplication andSelector:#contextMenuCopySlice

     (Menu new fromLiteralArrayEncoding:(VDBAbstractListApplication contextMenuCopySlice)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            label: 'Copy Contents To Clipboard'

            itemValue: doCopyContents

            isVisible: true

          )

         (MenuItem

            enabled: hasSelection

            label: 'Copy Selection To Clipboard'

            itemValue: doCopySelection

            isVisible: true

          )

         )

        nil

        nil

      )

!

contextMenuInspectSlice

    "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:VDBAbstractListApplication andSelector:#contextMenuInspectSlice

     (Menu new fromLiteralArrayEncoding:(VDBAbstractListApplication contextMenuInspectSlice)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            enabled: hasSelection

            label: 'Inspect Model'

            itemValue: doInspectModel

            isVisible: true

          )

         (MenuItem

            label: 'Inspect Presenter'

            itemValue: doInspectPresenter

            isVisible: true

          )

         (MenuItem

            label: 'Inspect Application'

            itemValue: doInspectApplication

            isVisible: true

          )

         (MenuItem

            label: '-'

            isVisible: true

          )

         (MenuItem

            label: 'Update'

            itemValue: duUpdateList

            isVisible: true

          )

         )

        nil

        nil

      )

! !

!VDBAbstractListApplication 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

      ).

! !

!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'!

backgroundColorFor: aVDBPresenter

    "Returns an backgdound color for for given presenter.               

     If `nil` returned, a default is used"

    ^ nil

    "Created: / 01-02-2018 / 09:06:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified (comment): / 26-06-2018 / 13:02:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

foregroundColorFor: aVDBPresenter

    "Returns an foreground (text) color for given presenter.

     If `nil` returned, a default is used"

    ^ nil

    "Created: / 26-06-2018 / 13:02:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!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'!

enqueueDelayedInvalidateInternalList

    internalListView notNil ifTrue:[

        self enqueueMessage: #delayedInvalidateInternalList

    ]

    "Created: / 06-02-2018 / 12:43:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 18-02-2019 / 10:23:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

enqueueDelayedUpdateInternalList

   self enqueueMessage: #delayedUpdateInternalListInternal

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

    "Modified: / 17-01-2018 / 06:51:55 / jv"

    "Modified: / 14-02-2019 / 16:44:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 18-02-2019 / 10:23:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

enqueueDelayedUpdateSelection

    self enqueueMessage: #delayedUpdateSelection

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

    "Modified: / 17-01-2018 / 06:52:09 / jv"

    "Modified: / 18-02-2019 / 10:23:36 / 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'!

delayedInvalidateInternalList

    | scrolledView |

    "/ Since this is an delayed update, we should check whether

    "/ the update still makes sense  The window may be already 

    "/ closed or (worse) in the middle of closing. Sigh.

    internalListView notNil ifTrue:[

        scrolledView := internalListView scrolledView.

        (scrolledView notNil and:[ scrolledView isVisible ]) ifTrue:[

            scrolledView invalidateRepairNow: true

        ]

    ].

    "Created: / 06-02-2018 / 12:43:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified (format): / 03-10-2018 / 15:25:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

delayedUpdateContents

    self enqueueDelayedUpdateInternalList

    "Created: / 14-02-2019 / 16:29:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

delayedUpdateContentsInternal

    "/ For internal use, do not override!!"

    contentsValid := false.

    windowVisible ifTrue:[ 

        self delayedUpdateContents.

    ].

    "Created: / 14-02-2019 / 16:43:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 10-06-2019 / 14:09:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

delayedUpdateInternalList

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

    ^ self subclassResponsibility

!

delayedUpdateInternalListInternal

    self delayedUpdateInternalList.

    self hideMessage.

    contentsValid := true.

    "Created: / 14-02-2019 / 16:44:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 10-06-2019 / 14:09:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

delayedUpdateSelection

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

    ^ self subclassResponsibility

! !

!VDBAbstractListApplication methodsFor:'help'!

activeHelpViewFor:text onDevice:aDevice

    | view |

    view := super activeHelpViewFor:text onDevice:aDevice.

    view font: self textFont.

    view subViews do:[:each | each font: self textFont ].

    view resizeToFit.

    ^ view

    "Created: / 01-09-2018 / 12:15:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBAbstractListApplication methodsFor:'help texts'!

flyByHelpTextFor:aView at: aPoint

    | line item |

    line := internalListView yVisibleToLineNr: aPoint y.

    line notNil ifTrue:[ 

        item := internalListView list at: line ifAbsent:[ nil ].

        item notNil ifTrue:[

            | tooltip |

            tooltip := item tooltip.

            tooltip notNil ifTrue:[ ^ tooltip ]

        ].

    ].

    ^ super flyByHelpTextFor:aView

    "Created: / 29-07-2018 / 21:30:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBAbstractListApplication methodsFor:'hooks'!

commonPostOpen

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

    super commonPostOpen.

    self enqueueDelayedUpdateContents

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

    "Modified: / 22-02-2019 / 12:57:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

postBuildInternalListView: aView

    <resource: #uiCallback>

    | columns |

    internalListView := aView.

    internalListView font: self textFont.

    columns := self class columnsSpec.

    columns notEmptyOrNil ifTrue:[

        | renderer |

        renderer := aView setupTableRenderer.

        renderer columnDescriptors: columns.

        renderer columnDescriptors do:[:c|

            c dataSetColumnSpec foregroundSelector isNil ifTrue:[ 

                c dataSetColumnSpec foregroundSelector: #foregroundColor