--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/VDBInstructionPresenter.st	Fri Jun 22 20:10:16 2018 +0100
@@ -0,0 +1,68 @@
+"
+jv:vdb - Visual / VM Debugger
+Copyright (C) 2015-now Jan Vrany
+
+This software is licensed under 'Creative Commons Attribution-NonCommercial 4.0 International License'
+
+You may find a full license text in LICENSE.txt or at http://creativecommons.org/licenses/by-nc/4.0/
+"
+"{ Package: 'jv:vdb' }"
+
+"{ NameSpace: Smalltalk }"
+
+VDBAbstractPresenter subclass:#VDBInstructionPresenter
+	instanceVariableNames:'instruction'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'VDB-Presentation'
+!
+
+!VDBInstructionPresenter class methodsFor:'documentation'!
+
+copyright
+"
+jv:vdb - Visual / VM Debugger
+Copyright (C) 2015-now Jan Vrany
+
+This software is licensed under 'Creative Commons Attribution-NonCommercial 4.0 International License'
+
+You may find a full license text in LICENSE.txt or at http://creativecommons.org/licenses/by-nc/4.0/
+"
+! !
+
+!VDBInstructionPresenter methodsFor:'accessing'!
+
+instruction
+    ^ instruction
+!
+
+subject
+    "Return an instance of GDB object that this presenter displays."
+
+    ^ instruction
+
+    "Created: / 22-06-2018 / 15:10:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!VDBInstructionPresenter methodsFor:'initialization'!
+
+setInstruction: aGDBInstruction
+    instruction := aGDBInstruction
+
+    "Created: / 22-06-2018 / 12:19:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!VDBInstructionPresenter methodsFor:'protocol-accessing'!
+
+label
+    ^ instruction address , '  ', instruction assembly.
+
+    "Created: / 22-06-2018 / 12:21:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!VDBInstructionPresenter methodsFor:'testing'!
+
+isInstructionPresenter
+    ^ true
+! !
+