"

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:#VDBDebuggerApplication

	instanceVariableNames:'layoutSpecHolder selectedThreadGroupHolder selectedThreadHolder

		selectedFrameHolder containerBottom canExecRestartHolder

		canExecResumeHolder canExecRunHolder canExecStepIntoHolder

		canExecStepOverHolder canExecStepReturnHolder

		canExecSuspendHolder canExecTerminateHolder canExecBackIntoHolder

		canExecBackOverHolder canExecBackReturnHolder

		canExecReverseHolder targetIsRR'

	classVariableNames:''

	poolDictionaries:'GDBStopReasons'

	category:'VDB-UI'

!

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

"

! !

!VDBDebuggerApplication class methodsFor:'initialization'!

initializeDefaultKeyboardMap

    defaultKeyboardMap := DebugView defaultKeyboardMap copy.

    defaultKeyboardMap bindValue: #DebuggerRestart to: ('Ctrl', (defaultKeyboardMap bindingForLogical: #DebuggerContinue)) asSymbol.

    "Created: / 05-06-2017 / 23:01:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"

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

! !

!VDBDebuggerApplication class methodsFor:'accessing - defaults'!

defaultUserInit

    "Return path to user-specific VDB initi file (as Filename).

     Use this to customize VDB upon startup.

     If it does not exist, try create one with some defaults."

    | gdbinit |

    gdbinit := Filename homeDirectory / '.vdbinit.st'.

    gdbinit exists ifFalse:[

        [

            gdbinit 

                writingFileDo:[:s | 

                    s

                        nextPutLine:'"/ VDB init script';

                        nextPutLine:'"/ Current VDB instance can be accessed in via variable `vdb`';

                        nextPutLine:'"/';

                        nextPutLine:'"/ Set prompt';

                        nextPutLine:'vdb debugger send: ''set prompt (vdb) ''.';

                        cr;

                        nextPutLine:'"/ Set default font:';

                        nextPutLine:'"/ VDBAbstractApplication defaultTextFont: (CodeView defaultFont asSize: 16).';

                        yourself.

                ].

        ] on:Error

                do:[:ex | 

            gdbinit exists ifTrue:[

                gdbinit remove

            ].

            ^ nil

        ].

    ].

    ^ gdbinit

    "

     VDBDebuggerApplication defaultUserInit"

    "Created: / 31-08-2018 / 07:03:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBDebuggerApplication class methodsFor:'interface opening'!

open

    ^ self openFor: GDBDebugger new.

    "Created: / 23-09-2014 / 16:39:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

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

             showHandle: true

             snapMode: both

             component: 

            (SpecCollection

               collection: (

                (VariableHorizontalPanelSpec

                   name: 'StackAndFrameCanvas'

                   snapMode: both

                   component: 

                  (SpecCollection

                     collection: (

                      (SubCanvasSpec

                         name: 'StackCanvas'

                         level: 0

                         hasHorizontalScrollBar: false

                         hasVerticalScrollBar: false

                         majorKey: VDBStackApplication

                         subAspectHolders: 

                        (Array

                          (SubChannelInfoSpec

                             subAspect: selectedFrameHolder

                             aspect: selectedFrameHolder

                           ) 

                          (SubChannelInfoSpec

                             subAspect: selectedThreadGroupHolder

                             aspect: selectedThreadGroupHolder

                           )

                          (SubChannelInfoSpec

                             subAspect: selectedThreadHolder

                             aspect: selectedThreadHolder

                           )

                         )

                         createNewApplication: true

                         createNewBuilder: true

                       )

                      (SubCanvasSpec

                         name: 'FrameCanvas'

                         hasHorizontalScrollBar: true

                         hasVerticalScrollBar: true

                         majorKey: VDBFrameApplication

                         subAspectHolders: 

                        (Array

                          (SubChannelInfoSpec

                             subAspect: debuggerHolder

                             aspect: debuggerHolder

                           ) 

                          (SubChannelInfoSpec

                             subAspect: frameHolder

                             aspect: selectedFrameHolder

                           )

                         )

                         createNewApplication: true

                         createNewBuilder: true

                       )

                      )

                   )

                   handles: (Any 0.5 1.0)

                 )

                (SubCanvasSpec

                   name: 'SourceCanvas'

                   hasHorizontalScrollBar: false

                   hasVerticalScrollBar: false

                   majorKey: VDBSourceApplication

                   subAspectHolders: 

                  (Array

                    (SubChannelInfoSpec

                       subAspect: frameHolder

                       aspect: selectedFrameHolder

                     )

                   )

                   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

                 )

                )

             )

             handles: (Any 0.33333333333333337 0.66666666666666674 1.0)

           )

          )

       )

     )

    "Modified: / 06-06-2017 / 08:12:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

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/VM Debugger'

         name: 'Visual/VM Debugger'

         min: (Point 10 10)

         bounds: (Rectangle 0 0 800 600)

         menu: mainMenu

       )

       component: 

      (SpecCollection

         collection: (

          (MenuPanelSpec

             name: 'ToolBar'

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

             menu: toolbarMenu

             textDefault: true

           )

          (SubCanvasSpec

             name: 'Layout'

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

             hasHorizontalScrollBar: true

             hasVerticalScrollBar: true

             specHolder: layoutSpecHolder

             createNewBuilder: false

           )

          )

       )

     )

    "Modified: / 02-06-2017 / 08:34:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBDebuggerApplication class methodsFor:'menu specs'!

execMenu

    "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:#execMenu

     (Menu new fromLiteralArrayEncoding:(VDBDebuggerApplication execMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            enabled: canExecRunHolder

            label: 'Run'

            itemValue: doExecRun

            isVisible: true

            labelImage: (ResourceRetriever VDBIconLibrary actionRun16x16 'Run')

          )

         (MenuItem

            enabled: canExecResumeHolder

            label: 'Resume'

            itemValue: doExecResume

            isVisible: true

            shortcutKey: DebuggerContinue

            labelImage: (ResourceRetriever VDBIconLibrary actionContinue16x16 'Resume')

          )

         (MenuItem

            enabled: canExecSuspendHolder

            label: 'Suspend'

            itemValue: doExecSuspend

            isVisible: true

            labelImage: (ResourceRetriever VDBIconLibrary actionStop16x16 'Suspend')

          )

         (MenuItem

            enabled: canExecTerminateHolder

            label: 'Terminate'

            itemValue: doExecTerminate

            isVisible: true

            labelImage: (ResourceRetriever VDBIconLibrary actionTerminate6x16 'Terminate')

          )

         (MenuItem

            enabled: canExecRestartHolder

            label: 'Restart'

            itemValue: doExecRestart

            isVisible: true

            shortcutKey: DebuggerRestart

            labelImage: (ResourceRetriever VDBIconLibrary actionTerminateAndRun6x16 'Restart')

          )

         (MenuItem

            label: '-'

            isVisible: true

          )

         (MenuItem

            enabled: canExecStepOverHolder

            label: 'Step Over'

            itemValue: doExecStepOver

            isVisible: true

            shortcutKey: DebuggerNext

            labelImage: (ResourceRetriever VDBIconLibrary actionStepOver6x16 'Step Over')

          )

         (MenuItem

            enabled: canExecStepIntoHolder

            label: 'Step Into'

            itemValue: doExecStepInto

            isVisible: true

            shortcutKey: DebuggerSend

            labelImage: (ResourceRetriever VDBIconLibrary actionStepInto6x16 'Step Into')

          )

         (MenuItem

            enabled: canExecStepReturnHolder

            label: 'Step Return'

            itemValue: doExecStepReturn

            isVisible: true

            shortcutKey: DebuggerReturn

            labelImage: (ResourceRetriever VDBIconLibrary actionStepReturn6x16 'Step Return')

          )

         (MenuItem

            label: '-'

            isVisible: true

          )

         (MenuItem

            enabled: canExecBackOverHolder

            label: 'Back Over'

            itemValue: doExecBackOver

            isVisible: true

            shortcutKey: DebuggerBackOver

          )

         (MenuItem

            enabled: canExecBackIntoHolder

            label: 'Back Into'

            itemValue: doExecBackInto

            isVisible: true

            shortcutKey: DebuggerBackInto

          )

         (MenuItem

            enabled: canExecBackReturnHolder

            label: 'Back Return'

            itemValue: doExecBackReturn

            isVisible: true

            shortcutKey: DebuggerBackReturn

          )

         (MenuItem

            label: '-'

            isVisible: true

          )

         (MenuItem

            enabled: canExecReverseHolder

            label: 'Reverse'

            itemValue: doExecReverse

            isVisible: true

            shortcutKey: DebuggerBackReturn

          )

         (MenuItem

            label: '-'

          )

         (MenuItem

            label: 'Pin Menu'

            itemValue: doPinMenuAs:item:

            isVisible: true

            labelImage: (ResourceRetriever VDBIconLibrary pin 'Pin Menu')

            argument: 'Execute'

          )

         )

        nil

        nil

      )

!

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