--- a/VDBFramePresenter.st	Mon Jul 02 08:45:58 2018 +0200
+++ b/VDBFramePresenter.st	Fri Jun 22 20:10:16 2018 +0100
@@ -51,9 +51,15 @@
      #(Menu
         (
          (MenuItem
+            label: 'Disassemble'
+            itemValue: doDisassemble
+            isVisible: true
+          )
+         (MenuItem
             enabled: canCopyFunctionName
             label: 'Copy Function Name'
             itemValue: doCopyFunctionName
+            isVisible: true
           )
          )
         nil
@@ -105,6 +111,18 @@
     self doCopy: frame func.
 
     "Modified: / 16-01-2018 / 22:36:37 / jv"
+!
+
+doDisassemble
+    | disassembly |
+
+    disassembly := frame disassemble.
+    VDBInstructionListApplication new
+        debugger: frame debugger;
+        instructionList: disassembly;
+        open.
+
+    "Modified: / 22-06-2018 / 15:13:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !VDBFramePresenter methodsFor:'menu-queries'!