--- a/VDBMemoryApplication.st Sun Oct 28 14:34:08 2018 +0000
+++ b/VDBMemoryApplication.st Wed Nov 28 14:08:58 2018 +0000
@@ -71,7 +71,7 @@
^
#(FullSpec
name: windowSpec
- uuid: '69169d80-8057-11e8-8abb-0021ccd5e3d3'
+ uuid: '069d6470-f30e-11e8-885b-0021ccd5e3d3'
window:
(WindowSpec
label: 'Memory Dump'
@@ -101,7 +101,7 @@
acceptOnTab: true
acceptOnPointerLeave: true
emptyFieldReplacementText: 'Address'
- extent: (Point 254 22)
+ extent: (Point 249 22)
)
(LabelSpec
label: 'Size:'
@@ -180,6 +180,7 @@
hasVerticalScrollBar: true
isReadOnly: true
hasKeyboardFocusInitially: false
+ postBuildCallback: postBuildMemoryView:
)
(TransparentBoxSpec
name: 'FooterBar'
@@ -250,6 +251,14 @@
"Created: / 26-01-2018 / 22:51:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+!VDBMemoryApplication methodsFor:'actions'!
+
+postBuildMemoryView: aView
+ aView scrolledView font: self textFont.
+
+ "Modified: / 28-11-2018 / 13:03:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!VDBMemoryApplication methodsFor:'aspects'!
addressHolder
@@ -265,12 +274,12 @@
formatHolder
formatHolder isNil ifTrue:[
- formatHolder := ValueHolder with: LastFormat.
+ formatHolder := ValueHolder with: LastFormat ? GDBOutputFormat paddedHexadecimal.
formatHolder addDependent:self.
].
^ formatHolder.
- "Modified: / 26-01-2018 / 00:47:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 28-11-2018 / 13:09:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
formatList