* Implememented more parts of the new MVP framework for tiOPF and fpGUI.

1 files changed, 22 insertions, 0 deletions

diff --git a/extras/tiopf/mvp/fpgui_intf.pas b/extras/tiopf/mvp/fpgui_intf.pas
new file mode 100644
index 00000000..f6e9e4ca
--- /dev/null
+++ b/extras/tiopf/mvp/fpgui_intf.pas
@@ -0,0 +1,22 @@
+unit fpgui_intf;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  gui_menu, basic_intf;
+  
+type
+
+  IPopupCommandMenu = interface(IInterface)
+  ['{812C1940-A8BD-4BB4-AE8D-37A912D44A6D}']
+    function GetMenu: TfpgPopupMenu;
+    procedure SetMenu(const AValue: TfpgPopupMenu);
+    property Menu: TfpgPopupMenu read GetMenu write SetMenu;
+  end;
+
+implementation
+
+end.
+