From 208f44b27ed4ee011102a027b3c217bf22b39d86 Mon Sep 17 00:00:00 2001
From: ocoursiere <ocoursiere@d5ff2aa3-e835-421f-bc93-9a7aa3229f71>
Date: Sun, 27 Oct 2002 18:26:58 +0000
Subject: [PATCH] Some litle updates

---
 bepascal/bepascal/be/AppKit.cpp             | 2 +-
 bepascal/bepascal/be/app/Application.cpp    | 5 +++--
 bepascal/bepascal/be/support/supportdefs.pp | 7 +++++++
 3 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/bepascal/bepascal/be/AppKit.cpp b/bepascal/bepascal/be/AppKit.cpp
index c7cbb98..e2869e9 100644
--- a/bepascal/bepascal/be/AppKit.cpp
+++ b/bepascal/bepascal/be/AppKit.cpp
@@ -20,6 +20,6 @@
 #define _APPKIT_CPP_
 
 #include <Application.cpp>
-#include <Message.cpp>
+#include <message.h>
 
 #endif /* _APPKIT_CPP_ */
\ No newline at end of file
diff --git a/bepascal/bepascal/be/app/Application.cpp b/bepascal/bepascal/be/app/Application.cpp
index baf792b..15890fc 100644
--- a/bepascal/bepascal/be/app/Application.cpp
+++ b/bepascal/bepascal/be/app/Application.cpp
@@ -58,15 +58,16 @@ BApplication_ReadyToRun_hook Application_ReadyToRun_hook;
 #endif
 
 BPApplication::BPApplication(TPasObject PasObject, const char *signature) 
-	: BApplication(signature), BPLooper(PasObject), BPHandler(PasObject),
+	: BApplication(signature), BPHandler(PasObject), BPLooper(PasObject), 
 	BPasObject(PasObject)
 {
 
 }
 
 BPApplication::BPApplication(TPasObject PasObject, const char *signature,
-	 status_t *error) : BApplication(signature, error), BPLooper(PasObject),
+	 status_t *error) : BApplication(signature, error), 
 	 BPHandler(PasObject),
+	 BPLooper(PasObject),
 	 BPasObject(PasObject)
 {
 }
diff --git a/bepascal/bepascal/be/support/supportdefs.pp b/bepascal/bepascal/be/support/supportdefs.pp
index fee876b..21c0032 100644
--- a/bepascal/bepascal/be/support/supportdefs.pp
+++ b/bepascal/bepascal/be/support/supportdefs.pp
@@ -1,5 +1,6 @@
 {  BePascal - A pascal wrapper around the BeOS API
     Copyright (C) 2002 Olivier Coursiere
+                       Eric Jourde
 
     This library is free software; you can redistribute it and/or
     modify it under the terms of the GNU Library General Public
@@ -26,6 +27,12 @@ type
   TBigtime_t = int64;
   TType_code = Cardinal;
   TPerform_code = Cardinal;
+  // For Storage kit
+  // TODO : move these declarations in a different unit (but which one ?).
+  // C++ declarations are in /boot/develop/headers/posix/sys/types.h,
+  // not in SupportDefs.h
+  TDev_t = Longint;
+  Toff_t = int64;	
   
   	// pointer types for FreePascal : to make life easier
   PStatus_t = ^TStatus_t;