From c497837837af46ce20ec60705c27e801adb8d72c Mon Sep 17 00:00:00 2001
From: ocoursiere <ocoursiere@d5ff2aa3-e835-421f-bc93-9a7aa3229f71>
Date: Sun, 11 Jan 2004 18:00:04 +0000
Subject: [PATCH] Updated BPDemo with a working BFilePanel and a working BAlert

---
 bepascal/demos/demo/sources/main.pp        | 36 ++++++++++++++++++++--
 bepascal/demos/demo/sources/main_window.pp | 21 ++++++++++---
 2 files changed, 50 insertions(+), 7 deletions(-)

diff --git a/bepascal/demos/demo/sources/main.pp b/bepascal/demos/demo/sources/main.pp
index 64198cc..fc9e97c 100644
--- a/bepascal/demos/demo/sources/main.pp
+++ b/bepascal/demos/demo/sources/main.pp
@@ -21,16 +21,46 @@ program Main;
 {$M+}
 uses
   Application, Message, Roster, Rect, Window,
-  Main_Window;
+  Main_Window, SysUtils;
 	
 type
 
   TMonApplication = class(BApplication)
   public
-  	procedure ReadyToRun; override;
   	function QuitRequested : Boolean; override;
+    procedure RefsReceived(amessage : BMessage); override;
+    procedure ArgvReceived(argc : integer; argv : PPChar); override;
+    procedure AboutRequested; override;
+    procedure Pulse; override;
+  	procedure ReadyToRun; override;
   end;
 
+procedure TMonApplication.RefsReceived(amessage : BMessage);
+begin
+  WriteLn('RefsReceived');
+  WriteLn('message.what : ' + IntToStr(amessage.what));
+  amessage.PrintToStream;
+end;
+
+procedure TMonApplication.ArgvReceived(argc : integer; argv : PPChar);
+var
+  i : integer;
+begin
+  WriteLn('Nb argument : ' + IntToStr(argc));
+  for i := 0 to argc - 1 do
+    WriteLn(argv[i]);
+end;
+
+procedure TMonApplication.AboutRequested;
+begin
+  WriteLn('AboutRequested');
+end;
+
+procedure TMonApplication.Pulse;
+begin
+  WriteLn('Pulse');
+end;
+
 
 function TMonApplication.QuitRequested : Boolean;
 begin
@@ -69,4 +99,4 @@ begin
     aRect.Free;
     win.Free;
   end;	
-end.
\ No newline at end of file
+end.
diff --git a/bepascal/demos/demo/sources/main_window.pp b/bepascal/demos/demo/sources/main_window.pp
index 1ea7dc7..47ebca0 100644
--- a/bepascal/demos/demo/sources/main_window.pp
+++ b/bepascal/demos/demo/sources/main_window.pp
@@ -21,10 +21,10 @@ unit Main_Window;
 interface
 {$M+}
 uses
-  SysUtils,
+  SysUtils, Application, AppDefs,
   Alert, InterfaceDefs, ListItem, Menu, Menubar, Message, Rect, StringView,
   TabView, View, Window,
-  Common, Button_View, Edit_View, Other_View;
+  Common, Button_View, Edit_View, Other_View, FilePanel,entry, messenger;
 
 type
   TMyWindow = class(BWindow)
@@ -150,6 +150,9 @@ var
   S : String;
   p : PChar;
   Alert : BAlert;
+  FilePanel : BFilePanel;
+  aref : entry_ref;
+  aspecialmessage : BMessage;
 begin
   inherited;
   case aMessage.what of
@@ -222,12 +225,22 @@ begin
       VEdit.Edit.SetEnabled(false);  				
     end;
 
+    MSG_MENU_BASE + 1 :
+    begin
+      aspecialmessage := BMessage.Create(17);
+      aspecialmessage.AddString('titititititi', 'titititititi');
+      FilePanel := BFilePanel.Create(B_OPEN_PANEL, be_app_BMessenger, aref, 0, true, 
+                                     {aspecialmessage}nil, 
+                                     nil, false, true);
+      FilePanel.Show;
+    end;
+
     MSG_MENU_BASE + 2 :
     begin
-      Quit;
+      be_app.PostMessage(B_QUIT_REQUESTED);
     end;
 
   end; // case
 end;
 
-end.
\ No newline at end of file
+end.