--- a/VDBInstructionPresenter.st	Tue Jun 26 14:17:50 2018 +0100
+++ b/VDBInstructionPresenter.st	Tue Jun 26 13:19:02 2018 +0100
@@ -11,7 +11,7 @@
 "{ NameSpace: Smalltalk }"
 
 VDBAbstractPresenter subclass:#VDBInstructionPresenter
-	instanceVariableNames:'instruction'
+	instanceVariableNames:'instruction basicBlock'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'VDB-Presentation'
@@ -32,6 +32,16 @@
 
 !VDBInstructionPresenter methodsFor:'accessing'!
 
+address
+    ^instruction address
+
+    "Created: / 26-06-2018 / 12:42:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+basicBlock
+    ^ basicBlock
+!
+
 instruction
     ^ instruction
 !
@@ -46,6 +56,12 @@
 
 !VDBInstructionPresenter methodsFor:'initialization'!
 
+setBasicBlock: aVDBBasicBLock
+    basicBlock := aVDBBasicBLock
+
+    "Created: / 26-06-2018 / 12:37:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 setInstruction: aGDBInstruction
     instruction := aGDBInstruction
 
@@ -55,9 +71,10 @@
 !VDBInstructionPresenter methodsFor:'protocol-accessing'!
 
 label
-    ^ instruction address , '  ', instruction assembly.
+    ^ (instruction address printStringRadix: 16 size: 16 fill: $0) , '  ', instruction assembly.
 
     "Created: / 22-06-2018 / 12:21:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 26-06-2018 / 11:29:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !VDBInstructionPresenter methodsFor:'testing'!