UX: reflect font size in in `VDBMemoryApplication`
authorJan Vrany <jan.vrany@fit.cvut.cz>
Wed, 28 Nov 2018 14:08:58 +0000
changeset 126 6f8886624595
parent 125 3c57c6e9a9e9
child 127 37d9f13932c2
UX: reflect font size in in `VDBMemoryApplication`
VDBMemoryApplication.st
--- 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