From 7a1d596bdb3902421954f622020a998c3a9770e2 Mon Sep 17 00:00:00 2001
From: memson <memson@d5ff2aa3-e835-421f-bc93-9a7aa3229f71>
Date: Tue, 2 Apr 2002 20:42:15 +0000
Subject: [PATCH] updated for Eric

---
 begui/begui/imports/pascal/begui.pas         |  26 ++++++++++++++-----
 begui/begui/imports/pascal/examples/build.sh |   1 +
 begui/begui/libbegui/BeGuiAPI.cpp            |  10 +++++--
 begui/begui/libbegui/libbegui.proj           | Bin 12956 -> 12956 bytes
 4 files changed, 29 insertions(+), 8 deletions(-)

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 e9bd1255ed1f9fc916f3584359dd490791aae12c..e16f28603f909cfbf9f22d3f502967a121a5c500 100644
GIT binary patch
delta 233
zcmbP}Iwy6*MRw-9vJI0r@HuW4<+!h+EA!VSpeXH}4g(nckeB&;IhVJAMN#H&%w&~@
zmfPZBHb}BVL1wd}ZX9C}Nm~9|GcYu`W#$+HO}NIuAh8-qzX4)qAZBO)Vw+WBiIXqt
f-DX~1@*GI3O}?r>3CR8eW=}B4B+-RxhGmQZQVC28

delta 233
zcmbP}Iwy6*MRsOq*@np*_#8Kja@<$ZRru=?P?UB~hXD+J$SeH4oXgw5qNwoqN})_c
z%WZKm8zkAGps-m{H;yrgBrSif85kPeGII=pCR}4+keCgm-vBW)5HmCYvCXnO>60(&
f-DX~Pry5ABO}?r>3CNxdW=}B4B+-RxhGmQZiJ47M