diff --git a/begui/begui/imports/pascal/begui.pas b/begui/begui/imports/pascal/begui.pas
index f82f128..6e13865 100644
--- a/begui/begui/imports/pascal/begui.pas
+++ b/begui/begui/imports/pascal/begui.pas
@@ -1,13 +1,11 @@
 unit BeGUI;
 
 {
+$Header: /home/haiku/befpc/begui/begui/imports/pascal/begui.pas,v 1.2 2002-04-02 20:42:15 memson Exp $
 
-$Header $
-
-$Revision $
+$Revision: 1.2 $
   
-$Log $
-
+$Log: not supported by cvs2svn $
 }
 
 interface
@@ -19,13 +17,16 @@ type
   MEditH = pointer;
   MPanelH = pointer;
   MMemoH = pointer;
+  
+  MMenuBarH = pointer;
+  MMenuItemH = pointer;
+  MMenuH = pointer;
 
   uint32 = longword;
   int32  = longint;
 
 var
   Application: MApplicationH;
-
 type
 
    base_Message = procedure (sender:pointer; msg:uint32);cdecl;
@@ -40,6 +41,19 @@ const
 
 {$PACKRECORDS C}
 
+ { MenuBar}
+
+// Jourde 01/04/2002 : add menu and menuitems
+ 
+ function BMenuBar_Create( form : MFormh ; caption : pchar) : MMenuBarH; cdecl; external BEGUILIB; 
+ function MMenuItem_Create(caption : pchar): MMenuItemh;cdecl; external BEGUILIB; 
+ function BMenu_Create(caption : Pchar):MmenuH ;cdecl; external BEGUILIB; 
+ procedure BMenuBar_AddItem( menuBar : MMenuBarH; Menu : MMenuH);cdecl; external BEGUILIB; 
+
+ procedure BMenu_AddItem(Menu : MMenuBarH; item : MMenuItemH );cdecl; external BEGUILIB; 
+ procedure MMenuItem_AttachMenuClickDispatcher(Menu: MMenuItemH; msg: mouseAction_Message);cdecl; external BEGUILIB; 
+
+
 
   function MApplication_Create: MApplicationH; cdecl; external BEGUILIB; 
 
diff --git a/begui/begui/imports/pascal/examples/build.sh b/begui/begui/imports/pascal/examples/build.sh
index dcb8553..d3a00c5 100644
--- a/begui/begui/imports/pascal/examples/build.sh
+++ b/begui/begui/imports/pascal/examples/build.sh
@@ -1,3 +1,4 @@
 fpc testapp.pas -Fu.. -Fl..
 fpc testapp3.pas -Fu.. -Fl..
+fpc testapp4.pas -Fu.. -Fl..
 rm *.o
diff --git a/begui/begui/libbegui/BeGuiAPI.cpp b/begui/begui/libbegui/BeGuiAPI.cpp
index 477590b..d9d1b98 100644
--- a/begui/begui/libbegui/BeGuiAPI.cpp
+++ b/begui/begui/libbegui/BeGuiAPI.cpp
@@ -1,9 +1,13 @@
 /*
-  $Header: /home/haiku/befpc/begui/begui/libbegui/BeGuiAPI.cpp,v 1.1.1.1 2002-03-31 10:36:07 memson Exp $
+  $Header: /home/haiku/befpc/begui/begui/libbegui/BeGuiAPI.cpp,v 1.2 2002-04-02 20:42:15 memson Exp $
   
-  $Revision: 1.1.1.1 $
+  $Revision: 1.2 $
   
   $Log: not supported by cvs2svn $
+  Revision 1.1.1.1  2002/03/31 10:36:07  memson
+
+  initial import into sourceforge
+
   Revision 1.20  2002/03/28 08:41:02  memson
 
   Commited to main tree by the above on behalf of :
@@ -361,7 +365,9 @@ char* MEdit_getText(MEdit* edt){
 }
 
 void  MEdit_setText(MEdit* edt, char* text){
+  edt->LockLooper();
   edt->SetText(text);
+  edt->UnlockLooper();
 }
 
 ///
diff --git a/begui/begui/libbegui/libbegui.proj b/begui/begui/libbegui/libbegui.proj
index e9bd125..e16f286 100644
Binary files a/begui/begui/libbegui/libbegui.proj and b/begui/begui/libbegui/libbegui.proj differ