extensions.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Tue, 26 Jun 2018 13:19:02 +0100
changeset 80 7a9cf1d6be50
parent 73 82e202dec6cb
child 83 101ff2210613
permissions -rw-r--r--
UX: improvements in disasembly view (`VDBInstructionListApplication`) Namely: * when a branch instruction is selected, highlight target address, i.e, an address of next instruction if branch is taken. * highlight all instruction in basic block of currently selected instruction. This is not as cool as in Hexray IDA Pro but better than nothing. We'll get there, eventually.

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

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

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