From 4c4961209a1848270721d8a3088410a366e53d5e Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Wed, 16 Apr 2008 13:54:58 +0000
Subject: * Implememented more parts of the new MVP framework for tiOPF and
 fpGUI.

---
 extras/tiopf/mvp/fpgui_intf.pas | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 extras/tiopf/mvp/fpgui_intf.pas

(limited to 'extras/tiopf/mvp/fpgui_intf.pas')

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.
+
-- 
cgit v1.2.3-70-g09d2