"

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

VDBAbstractApplication subclass:#VDBEventLogApplication

	instanceVariableNames:'eventList eventSelectionHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'VDB-UI-Events'

!

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

"

! !

!VDBEventLogApplication class methodsFor:'columns specs'!

listColumnSpec

    "This resource specification was automatically generated

     by the DataSetBuilder of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the DataSetBuilder may not be able to read the specification."

    "

     DataSetBuilder new openOnClass:VDBEventLogApplication andSelector:#listColumnSpec

    "

    <resource: #tableColumns>

    ^#(

      (DataSetColumnSpec

         label: 'Class Name'

         labelButtonType: Button

         usePreferredWidth: true

         minWidth: 150

         height: heightOfFirstRow

         menuFromApplication: false

         printSelector: className

         canSelect: false

       )

      (DataSetColumnSpec

         label: 'Value'

         labelButtonType: Button

         width: 1.0

         height: heightOfFirstRow

         menuFromApplication: false

         printSelector: displayString

         canSelect: false

       )

      )

! !

!VDBEventLogApplication class methodsFor:'interface specs'!

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

     VDBEventLogApplication new openInterface:#windowSpec

     VDBEventLogApplication open

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: windowSpec

       window: 

      (WindowSpec

         label: 'Event Log'

         name: 'Event Log'

         min: (Point 10 10)

         bounds: (Rectangle 0 0 300 300)

       )

       component: 

      (SpecCollection

         collection: (

          (DataSetSpec

             name: 'EventList'

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

             model: eventSelectionHolder

             menu: eventMenu

             hasHorizontalScrollBar: true

             hasVerticalScrollBar: true

             dataList: eventList

             useIndex: false

             columnHolder: listColumnSpec

           )

          )

       )

     )

! !

!VDBEventLogApplication class methodsFor:'menu specs'!

eventMenu

    "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:VDBEventLogApplication andSelector:#eventMenu

     (Menu new fromLiteralArrayEncoding:(VDBEventLogApplication eventMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            enabled: hasEventSelectedHolder

            label: 'Inspect Event'

            itemValue: doInspect

          )

         (MenuItem

            label: 'Clear Events'

            itemValue: doClear

          )

         )

        nil

        nil

      )

! !

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

      ).

! !

!VDBEventLogApplication methodsFor:'aspects'!

eventList

    <resource: #uiAspect>

    "automatically generated by UIPainter ..."

    "*** the code below creates a default model when invoked."

    "*** (which may not be the one you wanted)"

    "*** Please change as required and accept it in the browser."

    "*** (and replace this comment by something more useful ;-)"

    eventList isNil ifTrue:[

        eventList := List new.

"/ if your app needs to be notified of changes, uncomment one of the lines below:

"/       eventList addDependent:self.

"/       eventList onChangeSend:#eventListChanged to:self.

    ].

    ^ eventList.

!

eventSelectionHolder

    <resource: #uiAspect>

    "automatically generated by UIPainter ..."

    "*** the code below creates a default model when invoked."

    "*** (which may not be the one you wanted)"

    "*** Please change as required and accept it in the browser."

    "*** (and replace this comment by something more useful ;-)"

    eventSelectionHolder isNil ifTrue:[

        eventSelectionHolder := ValueHolder new.

"/ if your app needs to be notified of changes, uncomment one of the lines below:

"/       eventSelectionHolder addDependent:self.

"/       eventSelectionHolder onChangeSend:#eventSelectionHolderChanged to:self.

    ].

    ^ eventSelectionHolder.

! !

!VDBEventLogApplication methodsFor:'event handling'!

onEvent: aGDBEvent

    (aGDBEvent isKindOf: GDBExitEvent) ifTrue:[

        self unsubscribe.

        ^self.

    ].

    ((aGDBEvent isKindOf: GDBCommandEvent) and:[aGDBEvent command isKindOf: GDBMI_gdb_exit]) ifTrue:[

        self unsubscribe.

        ^self.

    ].

    self eventList add: aGDBEvent

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

! !

!VDBEventLogApplication methodsFor:'hooks'!

postBuildListView:aView

    <resource: #uiCallback>

    aView setupTableRenderer

        columnDescriptors:self class listColumnSpec;

        showHorizontalSeparators:false;

        showItemInAdditionToColumns: false.

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

! !

!VDBEventLogApplication methodsFor:'initialization & release'!

subscribe   

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

    debugger announcer

        when: GDBEvent send: #onEvent: to: self

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

! !

!VDBEventLogApplication methodsFor:'menu actions'!

doClear

    <resource: #uiCallback>

    eventList removeAll

    "Modified: / 11-06-2017 / 20:18:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

doInspect

    | event |

    event := self eventSelectionHolder value.

    event notNil ifTrue:[

        event inspect

    ].

    "Modified: / 07-06-2014 / 14:36:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBEventLogApplication methodsFor:'menu queries'!

hasEventSelectedHolder

    ^ (AspectAdaptor forAspect:#notEmptyOrNil) subjectChannel: self eventSelectionHolder

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

    "Modified: / 09-06-2014 / 10:16:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBEventLogApplication class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'

! !