"{ Package: 'jv:vdb' }"

VDBAbstractApplication subclass:#VDBDebuggerApplication

	classVariableNames:''

	poolDictionaries:''

	category:'VGB-UI'

!

!VDBDebuggerApplication class methodsFor:'interface specs'!

layoutEclipseSpec

    "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:VDBDebuggerApplication andSelector:#layoutEclipseSpec

     VDBDebuggerApplication new openInterface:#layoutEclipseSpec

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: layoutEclipseSpec

       window: 

      (WindowSpec

         label: 'Visual Debugger'

         name: 'Visual Debugger'

         min: (Point 10 10)

         bounds: (Rectangle 0 0 718 390)

         menu: mainMenu

       )

       component: 

      (SpecCollection

         collection: (

          (VariableVerticalPanelSpec

             name: 'VariableVerticalPanel'

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

             component: 

            (SpecCollection

               collection: (

                (SubCanvasSpec

                   name: 'StackCanvas'

                   hasHorizontalScrollBar: false

                   hasVerticalScrollBar: false

                   majorKey: VDBStackApplication

                   createNewApplication: true

                   createNewBuilder: true

                 )

                (SubCanvasSpec

                   name: 'ContainerBottom'

                   level: 0

                   hasHorizontalScrollBar: false

                   hasVerticalScrollBar: false

                   clientHolder: containerBottom

                   subAspectHolders: 

                  (Array

                    (SubChannelInfoSpec

                       subAspect: debuggerHolder

                       aspect: debuggerHolder

                     )

                   )

                   createNewApplication: true

                   createNewBuilder: true

                 )

                )

             )

           )

          )

       )

     )

!

layoutSingleSpec

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

     VDBDebuggerApplication new openInterface:#windowSpec

     VDBDebuggerApplication open

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: windowSpec

       window: 

      (WindowSpec

         label: 'Visual Debugger'

         name: 'Visual Debugger'

         min: (Point 10 10)

         bounds: (Rectangle 0 0 718 390)

         menu: mainMenu

       )

       component: 

      (SpecCollection

         collection: (

          (SubCanvasSpec

             name: 'ContainerBottom'

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

             level: 0

             hasHorizontalScrollBar: false

             hasVerticalScrollBar: false

             clientHolder: containerBottom

             subAspectHolders: 

            (Array

              (SubChannelInfoSpec

                 subAspect: debuggerHolder

                 aspect: debuggerHolder

               )

             )

             createNewApplication: true

             createNewBuilder: true

           )

          )

       )

     )

    "Created: / 17-09-2014 / 22:34:43 / 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:VDBDebuggerApplication andSelector:#windowSpec

     VDBDebuggerApplication new openInterface:#windowSpec

     VDBDebuggerApplication open

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: windowSpec

       window: 

      (WindowSpec

         label: 'Visual Debugger'

         name: 'Visual Debugger'

         min: (Point 10 10)

         bounds: (Rectangle 0 0 718 390)

         menu: mainMenu

       )

       component: 

      (SpecCollection

         collection: (

          (SubCanvasSpec

             name: 'SubCanvas1'

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

             hasHorizontalScrollBar: true

             hasVerticalScrollBar: true

             specHolder: layoutSpecHolder

             createNewBuilder: false

           )

          )

       )

     )

! !

!VDBDebuggerApplication class methodsFor:'menu specs'!

mainMenu

    "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:VDBDebuggerApplication andSelector:#mainMenu

     (Menu new fromLiteralArrayEncoding:(VDBDebuggerApplication mainMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            label: 'File'

            submenu: 

           (Menu

              (

               (MenuItem

                  label: 'Open Executable'

                  itemValue: doOpenExecutable

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  label: 'Quit'

                  itemValue: doQuit

                )

               )

              nil

              nil

            )

          )

         (MenuItem

            label: 'Execution'

            submenu: 

           (Menu

              (

               (MenuItem

                  enabled: canRunOrContinueHolder

                  label: 'Run / Continue'

                  itemValue: doRunOrContinue

                )

               (MenuItem

                  enabled: canStepIntoHolder

                  label: 'Step Into'

                  itemValue: doStepIn

                )

               (MenuItem

                  enabled: canStepOverHolder

                  label: 'Step Over'

                  itemValue: doStepOver

                )

               (MenuItem

                  enabled: canStepOutHolder

                  label: 'Step Out'

                  itemValue: doStepOut

                )

               )

              nil

              nil

            )

          )

         (MenuItem

            label: 'Window'

            submenu: 

           (Menu

              (

               (MenuItem

                  label: 'Stack'

                  itemValue: doWindowOpen:

                  argument: VDBStackApplication

                )

               )

              nil

              nil

            )

          )

         (MenuItem

            label: 'Debug'

            startGroup: right

            submenu: 

           (Menu

              (

               (MenuItem

                  label: 'Inspect Debugger'

                  itemValue: doInspectDebugger

                )

               (MenuItem

                  label: 'Inspect Session Record'

                  itemValue: doInspectSessionRecord

                )

               )

              nil

              nil

            )

          )

         )

        nil

        nil

      )

! !

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

      ).

! !

!VDBDebuggerApplication methodsFor:'aspects'!

layoutSpecHolder

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

    layoutSpecHolder isNil ifTrue:[

        layoutSpecHolder := ValueHolder with: #layoutEclipseSpec.

    ].

    ^ layoutSpecHolder

    "Modified: / 18-09-2014 / 23:35:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBDebuggerApplication methodsFor:'aspects-containers'!

containerBottom

    containerBottom isNil ifTrue:[ 

        containerBottom := VDBTabbingContainer new.

        containerBottom addApplication: VDBDebuggerConsoleApplication new.

        containerBottom addApplication: VDBInferiorConsoleApplication new.

        containerBottom addApplication: VDBEventLogApplication new.

    ].

    ^ containerBottom

    "Created: / 10-06-2014 / 17:29:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBDebuggerApplication methodsFor:'menu actions'!

doOpenExecutable

    | file |

    file := Dialog requestFileName:'Selected executable to debug' pattern:'*'.

    file isNil ifTrue:[ ^ self ].

    file := file asFilename.

    debugger send: (GDBMI_file_exec_and_symbols arguments: { file asString }) wait: false.

    "Modified: / 12-06-2014 / 01:12:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

doQuit

    "automatically generated by UIEditor ..."

    "*** the code below performs no action"

    "*** (except for some feedback on the Transcript)"

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

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

    "action to be added ..."

    Transcript showCR:self class name, ': action for #doQuit ...'.

!

doRunOrContinue

    "automatically generated by UIEditor ..."

    "*** the code below performs no action"

    "*** (except for some feedback on the Transcript)"

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

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

    "action to be added ..."

    Transcript showCR:self class name, ': action for #doRunOrContinue ...'.

!

doStepIn

    "automatically generated by UIEditor ..."

    "*** the code below performs no action"

    "*** (except for some feedback on the Transcript)"

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

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

    "action to be added ..."

    Transcript showCR:self class name, ': action for #doStepIn ...'.

!

doStepOut

    "automatically generated by UIEditor ..."

    "*** the code below performs no action"

    "*** (except for some feedback on the Transcript)"

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

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

    "action to be added ..."

    Transcript showCR:self class name, ': action for #doStepOut ...'.

!

doStepOver

    "automatically generated by UIEditor ..."

    "*** the code below performs no action"

    "*** (except for some feedback on the Transcript)"

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

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

    "action to be added ..."

    Transcript showCR:self class name, ': action for #doStepOver ...'.

!

doWindowOpen: applicationClassName        

    | applicationClass application screen |

    applicationClass := Smalltalk at: applicationClassName asSymbol.

    applicationClass isNil ifTrue:[ 

        Dialog warn: ('No application class named %1' bindWith: applicationClassName).

        ^ self.

    ].

    application := applicationClass new.

    application debuggerHolder: self debuggerHolder.

    application open.

    "/ On X11, use ICCCM hints to tell the WM about a transient tool window

    "/ and let WM to handle this according to DE standards. It has the nice

    "/ side effect (on most modern WM) that these windows don't show up in

    "/ pager / task list and go away when browser's main window is minimuzed

    screen := Screen current.

    (screen notNil and:[ screen platformName == #X11 ]) ifTrue:[ 

        screen setTransient: application window topView id for: self window topView id.

        "/ Also, use EWMH hint to tell the WM that the window is

        "/ a sort of floating tool so WM can decorate it according to

        "/ DE standards.

        screen setWindowType:#'_NET_WM_WINDOW_TYPE_UTILITY' in:application window topView id

    ].

    "Modified: / 17-09-2014 / 23:36:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBDebuggerApplication methodsFor:'menu queries'!

canRunOrContinueHolder

    "automatically generated by UIEditor ..."

    "*** the code below performs no action"

    "*** (except for some feedback on the Transcript)"

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

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

    "action to be added ..."

    Transcript showCR:self class name, ': action for #canRunOrContinueHolder ...'.

!

canStepIntoHolder

    "automatically generated by UIEditor ..."