--- a/VDBFramePresenter.st	Mon Jan 15 09:57:48 2018 +0000
+++ b/VDBFramePresenter.st	Wed Jan 17 06:46:47 2018 +0000
@@ -30,6 +30,37 @@
 "
 ! !
 
+!VDBFramePresenter class methodsFor:'menu specs'!
+
+contextMenu
+    "This resource specification was automatically generated
+     by the MenuEditor of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the MenuEditor may not be able to read the specification."
+
+
+    "
+     MenuEditor new openOnClass:VDBFramePresenter andSelector:#contextMenu
+     (Menu new fromLiteralArrayEncoding:(VDBFramePresenter contextMenu)) startUp
+    "
+
+    <resource: #menu>
+
+    ^ 
+     #(Menu
+        (
+         (MenuItem
+            enabled: canCopyFunctionName
+            label: 'Copy Function Name'
+            itemValue: doCopyFunctionName
+          )
+         )
+        nil
+        nil
+      )
+! !
+
 !VDBFramePresenter methodsFor:'accessing'!
 
 frame
@@ -58,6 +89,22 @@
     "Created: / 21-09-2014 / 23:38:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!VDBFramePresenter methodsFor:'menu actions'!
+
+canCopyFunctionName
+   ^ frame func notNil
+
+    "Modified: / 16-01-2018 / 22:19:59 / jv"
+!
+
+doCopyFunctionName
+    <resource: #uiCallback>
+
+    self doCopy: frame func.
+
+    "Modified: / 16-01-2018 / 22:36:37 / jv"
+! !
+
 !VDBFramePresenter methodsFor:'protocol-accessing'!
 
 fetchChildren