"{ Package: 'jv:vdb' }"!

!GDBDebugger methodsFor:'event handling'!

onRRExitEvent:anRRExitEvent

    | status |

    anRRExitEvent rr announcer unsubscribe: self.

    status := anRRExitEvent status.

    (status success or:[ status status == #signal and:[status code == OperatingSystem sigTERM ]]) ifFalse:[ 

        Dialog warn: (self class classResources string: 'Replay server terminated with error')

    ].

    "Created: / 31-07-2018 / 09:37:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GDBDebugger methodsFor:'commands - API'!

targetConnectRR: rr

    "Connect to rr replay server"

    "/ rr suggest to connect as follows:

    "/ 

    "/     gdb '-l' '10000' '-ex' 'set sysroot /' '-ex' 'target extended-remote 127.0.0.1:9876' ...

    "/

    self send: (GDBMI_gdb_set arguments: #('sysroot' '/')).

    self targetConnect: 'extended-remote'  parameters: (Array with: '127.0.0.1:' with: rr port).

    rr announcer when: RRExitEvent send: #onRRExitEvent: to: self.

    "Created: / 26-07-2018 / 21:48:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 31-07-2018 / 09:38:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GDBVariableObject methodsFor:'inspecting'!

inspector2TabVariable

    <inspector2Tab>

    | varObjApp |

    varObjApp := Smalltalk at: #VDBVariableObjectListApplication ifAbsent:[ ^ nil ].

    ^ (self newInspector2Tab)

        label:'Variable';

        priority:95;

        "/ view: [ ... ];

        application: [ varObjApp new debugger: debugger; variableObjectList: (Array with: self); yourself ];

        "/ text: [ ... ];

        yourself

    "Modified: / 03-02-2018 / 09:58:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!UserPreferences methodsFor:'accessing-vdb'!

vdbDebuggerLayout

    "Return default (initial) layout of debugger window."

    ^ self at: #vdbDebuggerLayout ifAbsent:[ nil ].

    "    

    UserPreferences current vdbDebuggerLayout.

    UserPreferences current vdbDebuggerLayout: #layoutSingleSpec.

    UserPreferences current vdbDebuggerLayout: nil.

    "

    "Created: / 04-10-2018 / 11:13:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!UserPreferences methodsFor:'accessing-vdb'!

vdbDebuggerLayout: aSymbol

    "Set default (initial) debugger window layout (as spec-selector).

     For set of supported layouts, see VDBDebuggerApplication class,

     protocol `interface specs-layouts`"

    ^ self at: #vdbDebuggerLayout put: aSymbol

    "    

    UserPreferences current vdbDebuggerLayout.

    UserPreferences current vdbDebuggerLayout: #layoutSingleSpec.

    UserPreferences current vdbDebuggerLayout: nil.

    "

    "Created: / 04-10-2018 / 12:27:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!UserPreferences methodsFor:'accessing-vdb'!

vdbFrameFiltersEnabled

    "Return true, if VDB should enable frame filters by default."

    ^ self at: #vdbFrameFiltersEnabled ifAbsent:[ false ].

    "    

    UserPreferences current vdbFrameFiltersEnabled.

    UserPreferences current vdbFrameFiltersEnabled: true.

    UserPreferences current vdbFrameFiltersEnabled: false.

    "

    "Created: / 10-04-2018 / 11:05:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!UserPreferences methodsFor:'accessing-vdb'!

vdbFrameFiltersEnabled: aBoolean

    "Set whether VDB should enable frame filters by default."

    ^ self at: #vdbFrameFiltersEnabled put: aBoolean

    "    

    UserPreferences current vdbFrameFiltersEnabled.

    UserPreferences current vdbFrameFiltersEnabled: true.

    UserPreferences current vdbFrameFiltersEnabled: false.

    "

    "Created: / 10-04-2018 / 11:05:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!UserPreferences methodsFor:'accessing-vdb'!

vdbPrettyPrintingEnabled

    "Return true, if VDB should enable pretty printing by default."

    ^ self at: #vdbPrettyPrintingEnabled ifAbsent:[ false ].

    "    

    UserPreferences current vdbPrettyPrintingEnabled.

    UserPreferences current vdbPrettyPrintingEnabled: true.

    UserPreferences current vdbPrettyPrintingEnabled: false.

    "

    "Created: / 10-04-2018 / 11:06:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!UserPreferences methodsFor:'accessing-vdb'!

vdbPrettyPrintingEnabled: aBoolean

    "Set whether VDB should enable pretty printing by default."

    ^ self at: #vdbPrettyPrintingEnabled put: aBoolean

    "    

    UserPreferences current vdbPrettyPrintingEnabled.

    UserPreferences current vdbPrettyPrintingEnabled: true.

    UserPreferences current vdbPrettyPrintingEnabled: false.

    "

    "Created: / 10-04-2018 / 11:06:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!jv_vdb class methodsFor:'documentation'!

extensionsVersion_HG

    ^ '$Changeset: <not expanded> $'

! !