1 files changed, 7 insertions, 1 deletions
diff --git a/examples/gui/menutest/menutest.lpr b/examples/gui/menutest/menutest.lpr
index 2c0bf843..cac4e8e7 100644
--- a/examples/gui/menutest/menutest.lpr
+++ b/examples/gui/menutest/menutest.lpr
@@ -9,7 +9,8 @@ uses
   Classes,
   fpgfx,
   gui_form,
-  gui_menu;
+  gui_menu,
+  gui_edit;
 
 type
   TMainForm = class(TfpgForm)
@@ -19,11 +20,13 @@ type
     FEditSubMenu: TfpgPopupMenu;
     FEditSelectSubMenu: TfpgPopupMenu;
     FHelpSubMenu: TfpgPopupMenu;
+    edit1: TfpgEdit;
     procedure   miExitClicked(Sender: TObject);
   public
     constructor Create(AOwner: TComponent); override;
   end;
 
+
 { TMainForm }
 
 procedure TMainForm.miExitClicked(Sender: TObject);
@@ -75,6 +78,9 @@ begin
   FMenuBar.AddMenuItem('&Disabled', nil).Enabled := False;
   FMenuBar.AddMenuItem('&Help', nil).SubMenu := FHelpSubMenu;
 
+
+  edit1 := TfpgEdit.Create(self);
+  edit1.SetPosition(10, 70, 100, 24);
 end;