Some litle updates

bepascal/bepascal/be/AppKit.cpp

@@ -20,6 +20,6 @@
 #define _APPKIT_CPP_
 
 #include <Application.cpp>
-#include <Message.cpp>
+#include <message.h>
 
 #endif /* _APPKIT_CPP_ */

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)
 {
 }

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;