BBox class support

bepascal/bepascal/be/interface/Box.cpp

@@ -0,0 +1,676 @@
+/*  BePascal - A pascal wrapper around the BeOS API
+    Copyright (C) 2003	Olivier Coursiere
+						Eric Jourde 
+						Oscar Lesta
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Library General Public
+    License as published by the Free Software Foundation; either
+    version 2 of the License, or (at your option) any later version.
+
+    This library is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+    Library General Public License for more details.
+
+    You should have received a copy of the GNU Library General Public
+    License along with this library; if not, write to the Free
+    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+*/
+
+#ifndef _BOX_CPP_
+#define _BOX_CPP_
+
+#include "Box.h"
+
+#include "view.h"
+#include <beobj.h>
+
+
+class BPBox : public BBox, virtual public BPView
+{
+public:
+	BPBox(TPasObject PasObject,
+			BRect bounds,
+			const char *name = NULL,
+			uint32 resizeFlags = B_FOLLOW_LEFT | B_FOLLOW_TOP,
+			uint32 flags = B_WILL_DRAW | B_FRAME_EVENTS | B_NAVIGABLE_JUMP,
+			border_style border = B_FANCY_BORDER);
+
+//	virtual	~BBox(void);
+
+/* Archiving */
+	BPBox(TPasObject PasObject, BMessage *data);
+						
+	static	BArchivable	*Instantiate(BMessage *data);
+//	virtual	status_t	Archive(BMessage *data, bool deep = true) const;
+
+/* BBox guts */
+	virtual	void	SetBorder(border_style style);
+	border_style	Border() const;
+
+	void			SetLabel(const char *label);
+	status_t		SetLabel(BView *view_label);
+
+	const char		*Label() const;
+	BView			*LabelView() const;
+
+	virtual	void	Draw(BRect bounds);
+	virtual	void	AttachedToWindow();
+	virtual	void	DetachedFromWindow();
+	virtual	void	AllAttached();
+	virtual	void	AllDetached();
+	virtual void	FrameResized(float new_width, float new_height);
+	virtual void	MessageReceived(BMessage *msg);
+	virtual	void	MouseDown(BPoint pt);
+	virtual	void	MouseUp(BPoint pt);
+	virtual	void	WindowActivated(bool state);
+	virtual	void	MouseMoved(BPoint pt, uint32 code, const BMessage *msg);
+	virtual	void	FrameMoved(BPoint new_position);
+/*
+	virtual BHandler	*ResolveSpecifier(BMessage *msg,
+										int32 index,
+										BMessage *specifier,
+										int32 form,
+										const char *property);
+*/
+	virtual void		ResizeToPreferred();
+	virtual void		GetPreferredSize(float *width, float *height);
+//	virtual void		MakeFocus(bool state = true);
+//	virtual status_t	GetSupportedSuites(BMessage *data);
+
+/*----- Private or reserved -----------------------------------------*/
+
+//	virtual status_t	Perform(perform_code d, void *arg);
+
+private:
+/*
+	virtual	void	_ReservedBox1();
+	virtual	void	_ReservedBox2();
+
+	BBox	&operator=(const BBox &);
+
+	void	InitObject(BMessage *data = NULL);
+	void	DrawPlain();
+	void	DrawFancy();
+	void	ClearAnyLabel();
+
+	char			*fLabel;
+	BRect			fBounds;
+	border_style	fStyle;
+	BView			*fLabelView;
+	uint32			_reserved[1];
+*/
+};
+
+BPBox::BPBox(TPasObject PasObject, 
+			BRect bounds,
+			const char *name = NULL,
+			uint32 resizeFlags = B_FOLLOW_LEFT | B_FOLLOW_TOP,
+			uint32 flags = B_WILL_DRAW | B_FRAME_EVENTS | B_NAVIGABLE_JUMP,
+			border_style border = B_FANCY_BORDER)
+		:
+		BBox(bounds, name, resizeFlags, flags, border),
+		BPView(PasObject, bounds, name, resizeFlags, flags),
+		BPHandler(PasObject, name),
+		BPasObject(PasObject)
+{
+
+}
+
+BPBox::BPBox(TPasObject PasObject, BMessage *archive)
+		:
+		BBox(archive),
+		BPView(PasObject, archive),
+		BPHandler(PasObject, archive),
+		BPasObject(PasObject)
+{
+
+}
+
+void
+BPBox::SetBorder(border_style style)
+{
+	BBox::SetBorder(style);
+}
+
+
+border_style
+BPBox::Border(void) const
+{
+	return BBox::Border();
+}
+
+void
+BPBox::SetLabel(const char *label)
+{
+	BBox::SetLabel(label);
+}
+
+status_t
+BPBox::SetLabel(BView *view_label)
+{
+	return BBox::SetLabel(view_label);
+}
+
+void
+BPBox::Draw(BRect bounds)
+{
+	BBox::Draw(bounds);
+}
+
+void
+BPBox::AttachedToWindow(void)
+{
+	BBox::AttachedToWindow();
+}
+
+void
+BPBox::DetachedFromWindow(void)
+{
+	BBox::DetachedFromWindow();
+}
+
+void
+BPBox::AllAttached(void)
+{
+	BBox::AllAttached();
+}
+
+void
+BPBox::AllDetached(void)
+{
+	BBox::AllDetached();
+}
+
+void
+BPBox::FrameResized(float new_width, float new_height)
+{
+	BBox::FrameResized(new_width, new_height);
+}
+
+void
+BPBox::MessageReceived(BMessage *msg)
+{
+	BBox::MessageReceived(msg);
+}
+
+void
+BPBox::MouseDown(BPoint pt)
+{
+	BBox::MouseDown(pt);
+}
+
+void
+BPBox::MouseUp(BPoint pt)
+{
+	BBox::MouseUp(pt);
+}
+
+void
+BPBox::WindowActivated(bool state)
+{
+	BBox::WindowActivated(state);
+}
+
+void
+BPBox::MouseMoved(BPoint pt, uint32 code, const BMessage *msg)
+{
+	BBox::MouseMoved(pt, code, msg);
+}
+
+void
+BPBox::FrameMoved(BPoint new_position)
+{
+	BBox::FrameMoved(new_position);
+}
+
+void
+BPBox::ResizeToPreferred(void)
+{
+	BBox::ResizeToPreferred();
+}
+
+void
+BPBox::GetPreferredSize(float *width, float *height)
+{
+	BBox::GetPreferredSize(width, height);
+}
+
+
+#if defined(__cplusplus)
+extern "C" {
+#endif
+
+/***********************************************************************
+ * AUTHOR: nobody <baron>
+ *   FILE: Box.cpp
+ *   DATE: Tue Jan 21 00:15:28 2003
+ *  DESCR: 
+ ***********************************************************************/
+
+/*
+ *  Method: BBox::~BBox()
+ *   Descr: 
+ */
+
+void BBox_Free(BBox *Box)
+{
+   delete Box;
+}
+
+/*
+ *  Method: BBox::BBox()
+ *   Descr:
+ */
+
+TCPlusObject BBox_Create(TPasObject PasObject, BRect frame,
+							const char *name,
+							uint32 resizeMask,
+							uint32 flags,
+							border_style border)
+{
+	return new BPBox(PasObject,
+					frame,
+					name,
+					resizeMask,
+					flags,
+					border);
+}
+
+/*
+ *  Method: BBox::BBox()
+ *   Descr:
+ */
+
+TCPlusObject BBox_Create_1(TPasObject PasObject, BMessage *data)
+{
+	return new BPBox(PasObject, data);
+}
+
+/*
+ *  Method: BBox::Instantiate()
+ *   Descr:
+ */
+BArchivable *
+BBox_Instantiate(BBox *Box, BMessage *data)
+{
+   return Box->Instantiate(data);
+}
+
+
+/*
+ *  Method: BBox::Archive()
+ *   Descr:
+ */
+status_t
+BBox_Archive(BBox *Box, BMessage *data, bool deep)
+{
+   return Box->Archive(data, deep);
+}
+
+
+/*
+ *  Method: BBox::SetBorder()
+ *   Descr: 
+ */
+void
+BBox_SetBorder(BBox *Box, border_style style)
+{
+   Box->SetBorder(style);
+}
+
+
+/*
+ *  Method: BBox::Border()
+ *   Descr: 
+ */
+border_style
+BBox_Border(BBox *Box)
+{
+   return Box->Border();
+}
+
+
+/*
+ *  Method: BBox::SetLabel()
+ *   Descr: 
+ */
+void
+BBox_SetLabel(BBox *Box, const char *label)
+{
+   Box->SetLabel(label);
+}
+
+
+/*
+ *  Method: BBox::SetLabel()
+ *   Descr: 
+ */
+status_t
+BBox_SetLabel_1
+(BBox *Box, BView *view_label)
+{
+   return Box->SetLabel(view_label);
+}
+
+
+/*
+ *  Method: BBox::Label()
+ *   Descr: 
+ */
+const char *
+BBox_Label(BBox *Box)
+{
+   return Box->Label();
+}
+
+
+/*
+ *  Method: BBox::LabelView()
+ *   Descr: 
+ */
+BView *
+BBox_LabelView_1(BBox *Box)
+{
+   return Box->LabelView();
+}
+
+
+/*
+ *  Method: BBox::Draw()
+ *   Descr: 
+ */
+void
+BBox_Draw(BBox *Box, BRect bounds)
+{
+   Box->Draw(bounds);
+}
+
+
+/*
+ *  Method: BBox::AttachedToWindow()
+ *   Descr: 
+ */
+void
+BBox_AttachedToWindow(BBox *Box)
+{
+   Box->AttachedToWindow();
+}
+
+
+/*
+ *  Method: BBox::DetachedFromWindow()
+ *   Descr: 
+ */
+void
+BBox_DetachedFromWindow(BBox *Box)
+{
+   Box->DetachedFromWindow();
+}
+
+
+/*
+ *  Method: BBox::AllAttached()
+ *   Descr: 
+ */
+void
+BBox_AllAttached(BBox *Box)
+{
+   Box->AllAttached();
+}
+
+
+/*
+ *  Method: BBox::AllDetached()
+ *   Descr: 
+ */
+void
+BBox_AllDetached(BBox *Box)
+{
+   Box->AllDetached();
+}
+
+
+/*
+ *  Method: BBox::FrameResized()
+ *   Descr: 
+ */
+void
+BBox_FrameResized(BBox *Box, float new_width,
+                   float new_height)
+{
+   Box->FrameResized(new_width, new_height);
+}
+
+
+/*
+ *  Method: BBox::MessageReceived()
+ *   Descr: 
+ */
+void
+BBox_MessageReceived(BBox *Box, BMessage *msg)
+{
+   Box->MessageReceived(msg);
+}
+
+
+/*
+ *  Method: BBox::MouseDown()
+ *   Descr: 
+ */
+void
+BBox_MouseDown(BBox *Box, BPoint pt)
+{
+   Box->MouseDown(pt);
+}
+
+
+/*
+ *  Method: BBox::MouseUp()
+ *   Descr: 
+ */
+void
+BBox_MouseUp(BBox *Box, BPoint pt)
+{
+   Box->MouseUp(pt);
+}
+
+
+/*
+ *  Method: BBox::WindowActivated()
+ *   Descr: 
+ */
+void
+BBox_WindowActivated(BBox *Box, bool state)
+{
+   Box->WindowActivated(state);
+}
+
+
+/*
+ *  Method: BBox::MouseMoved()
+ *   Descr: 
+ */
+void
+BBox_MouseMoved(BBox *Box, BPoint pt,
+                 uint32 code,
+                 const BMessage *msg)
+{
+   Box->MouseMoved(pt, code, msg);
+}
+
+
+/*
+ *  Method: BBox::FrameMoved()
+ *   Descr: 
+ */
+void
+BBox_FrameMoved(BBox *Box, BPoint new_position)
+{
+   Box->FrameMoved(new_position);
+}
+
+
+/*
+ *  Method: BBox::ResolveSpecifier()
+ *   Descr: 
+ */
+BHandler *
+BBox_ResolveSpecifier(BBox *Box, BMessage *msg,
+                       int32 index,
+                       BMessage *specifier,
+                       int32 form,
+                       const char *property)
+{
+   return Box->ResolveSpecifier(msg, index, specifier, form, property);
+}
+
+
+/*
+ *  Method: BBox::ResizeToPreferred()
+ *   Descr: 
+ */
+void
+BBox_ResizeToPreferred(BBox *Box)
+{
+   Box->ResizeToPreferred();
+}
+
+
+/*
+ *  Method: BBox::GetPreferredSize()
+ *   Descr: 
+ */
+void
+BBox_GetPreferredSize(BBox *Box, float *width,
+                       float *height)
+{
+   Box->GetPreferredSize(width, height);
+}
+
+
+/*
+ *  Method: BBox::MakeFocus()
+ *   Descr: 
+ */
+void
+BBox_MakeFocus(BBox *Box, bool state)
+{
+   Box->MakeFocus(state);
+}
+
+
+/*
+ *  Method: BBox::GetSupportedSuites()
+ *   Descr: 
+ */
+status_t
+BBox_GetSupportedSuites(BBox *Box, BMessage *data)
+{
+   return Box->GetSupportedSuites(data);
+}
+
+
+/*
+ *  Method: BBox::Perform()
+ *   Descr: 
+ */
+status_t
+BBox_Perform(BBox *Box, perform_code d,
+              void *arg)
+{
+   return Box->Perform(d, arg);
+}
+
+
+/*
+ *  Method: BBox::_ReservedBox1()
+ *   Descr: 
+ */
+/*
+void
+BBox__ReservedBox1(BBox *Box)
+{
+   Box->_ReservedBox1();
+}
+*/
+
+/*
+ *  Method: BBox::_ReservedBox2()
+ *   Descr: 
+ */
+/*
+void
+BBox__ReservedBox2(BBox *Box)
+{
+   Box->_ReservedBox2();
+}
+*/
+
+/*
+ *  Method: BBox::operator=()
+ *   Descr: 
+ */
+/*
+BBox &
+BBox_operator=(BBox *Box, const BBox &)
+{
+   return Box->operator=();
+}
+*/
+
+
+/*
+ *  Method: BBox::InitObject()
+ *   Descr: 
+ */
+/*
+void
+BBox_InitObject(BBox *Box, BMessage *data)
+{
+   Box->InitObject(data);
+}
+*/
+
+/*
+ *  Method: BBox::DrawPlain()
+ *   Descr: 
+ */
+/*
+void
+BBox_DrawPlain(BBox *Box)
+{
+   Box->DrawPlain();
+}
+*/
+
+/*
+ *  Method: BBox::DrawFancy()
+ *   Descr: 
+ */
+/*
+void
+BBox_DrawFancy(BBox *Box)
+{
+   Box->DrawFancy();
+}
+*/
+
+/*
+ *  Method: BBox::ClearAnyLabel()
+ *   Descr: 
+ */
+/*
+void
+BBox_ClearAnyLabel(BBox *Box)
+{
+   Box->ClearAnyLabel();
+}
+*/
+
+#if defined(__cplusplus)
+}
+#endif
+
+#endif /* _BOX_CPP_ */

bepascal/bepascal/be/interface/box.pp

@@ -0,0 +1,360 @@
+{   BePascal - A pascal wrapper around the BeOS API
+    Copyright (C) 2003 Olivier Coursiere
+                       Eric Jourde
+                       Oscar Lesta
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Library General Public
+    License as published by the Free Software Foundation; either
+    version 2 of the License, or (at your option) any later version.
+
+    This library is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+    Library General Public License for more details.
+
+    You should have received a copy of the GNU Library General Public
+    License along with this library; if not, write to the Free
+    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+}
+unit box;
+
+interface
+
+uses
+  BeObj, Archivable, Control, Handler, Message, Rect, SupportDefs,
+  InterfaceDefs, View;
+
+type
+
+  TBox = class(TView)
+  private
+  public
+    constructor Create(Frame : TRect; Name : PChar; ResizingMode,
+                       Flags : Cardinal; BorderStyle : Tborder_style);
+    constructor Create(data : TMessage);
+    destructor Destroy; override;
+    function Instantiate(data : TMessage) : TArchivable;
+    function Archive(data : TMessage; deep : boolean) : TStatus_t;
+    procedure SetBorder(style : Tborder_style);
+    function Border : Tborder_style;
+    procedure SetLabel(aLabel : PChar);
+    function SetLabel(view_label : TView) : TStatus_t;
+    // Conflicting Name: Label is a reserved word in Pascal.
+    // I will use: GetLabel
+    function GetLabel : PChar;
+
+    function LabelView : TView;
+    procedure Draw(bounds : TRect); override;
+    procedure AttachedToWindow; override;
+    procedure DetachedFromWindow; override;
+    procedure AllAttached; override;
+    procedure AllDetached; override;
+    procedure FrameResized(new_width : double; new_height : double); override;
+    procedure MessageReceived(msg : TMessage); override;
+    procedure MouseDown(pt : TPoint); override;
+    procedure MouseUp(pt : TPoint); override;
+    procedure WindowActivated(state : boolean); override;
+    procedure MouseMoved(pt : TPoint; code : Cardinal; msg : TMessage); override;
+    procedure FrameMoved(new_position : TPoint); override;
+    function ResolveSpecifier(msg : TMessage; index : integer;
+                              specifier : TMessage; form : integer;
+                              properti : PChar) : THandler;
+    procedure ResizeToPreferred; override;
+    procedure GetPreferredSize(width : double; height : double);
+    procedure MakeFocus(state : boolean);
+    function GetSupportedSuites(data : TMessage) : TStatus_t;
+    function Perform(d : TPerform_code; arg : Pointer) : TStatus_t;
+//    procedure _ReservedBox1;
+//    procedure _ReservedBox2;
+//    function operator=( : TBox) :  TBox;
+//    procedure InitObject(data : TMessage);
+//    procedure DrawPlain;
+//    procedure DrawFancy;
+//    procedure ClearAnyLabel;
+//    procedure char *fLabel;
+//    procedure BRect fBounds;
+//    procedure border_style fStyle;
+//    procedure BView *fLabelView;
+//    procedure uint32 _reserved[1];
+  end;
+
+function BBox_Create(AObject : TBeObject;
+                     Frame : TCPlusObject;
+                     Name : PChar;
+                     ResizingMode, Flags : Cardinal;
+                     BorderStyle : Tborder_style) : TCPlusObject;
+                     cdecl; external BePascalLibName name 'BBox_Create';
+
+function BBox_Create_1(AObject : TBeObject; data : TCPlusObject) : TCPlusObject; cdecl; external BePascalLibName name 'BBox_Create_1';
+procedure BBox_Free(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_Free';
+function BBox_Instantiate(AObject : TCPlusObject; data : TCPlusObject) : TArchivable; cdecl; external BePascalLibName name 'BBox_Instantiate';
+function BBox_Archive(AObject : TCPlusObject; data : TCPlusObject; deep : boolean) : TStatus_t; cdecl; external BePascalLibName name 'BBox_Archive';
+procedure BBox_SetBorder(AObject : TCPlusObject; style :  Tborder_style); cdecl; external BePascalLibName name 'BBox_SetBorder';
+function BBox_Border(AObject : TCPlusObject) :  Tborder_style; cdecl; external BePascalLibName name 'BBox_Border';
+
+// Conflicting name Label --> aLabel.
+procedure BBox_SetLabel(AObject : TCPlusObject; aLabel : PChar); cdecl; external BePascalLibName name 'BBox_SetLabel';
+
+function BBox_SetLabel(AObject : TCPlusObject; view_label : TView) : TStatus_t; cdecl; external BePascalLibName name 'BBox_SetLabel';
+function BBox_Label(AObject : TCPlusObject) : PChar; cdecl; external BePascalLibName name 'BBox_Label';
+
+function BBox_LabelView(AObject : TCPlusObject) : TView; cdecl; external BePascalLibName name 'BBox_LabelView_1';
+
+procedure BBox_Draw(AObject : TCPlusObject; bounds : TRect); cdecl; external BePascalLibName name 'BBox_Draw';
+procedure BBox_AttachedToWindow(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_AttachedToWindow';
+procedure BBox_DetachedFromWindow(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_DetachedFromWindow';
+procedure BBox_AllAttached(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_AllAttached';
+procedure BBox_AllDetached(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_AllDetached';
+procedure BBox_FrameResized(AObject : TCPlusObject; new_width : double; new_height : double); cdecl; external BePascalLibName name 'BBox_FrameResized';
+procedure BBox_MessageReceived(AObject : TCPlusObject; msg : TCPlusObject); cdecl; external BePascalLibName name 'BBox_MessageReceived';
+procedure BBox_MouseDown(AObject : TCPlusObject; pt : TPoint); cdecl; external BePascalLibName name 'BBox_MouseDown';
+procedure BBox_MouseUp(AObject : TCPlusObject; pt : TPoint); cdecl; external BePascalLibName name 'BBox_MouseUp';
+procedure BBox_WindowActivated(AObject : TCPlusObject; state : boolean); cdecl; external BePascalLibName name 'BBox_WindowActivated';
+procedure BBox_MouseMoved(AObject : TCPlusObject; pt : TPoint; code : Cardinal; msg : TCPlusObject); cdecl; external BePascalLibName name 'BBox_MouseMoved';
+procedure BBox_FrameMoved(AObject : TCPlusObject; new_position : TPoint); cdecl; external BePascalLibName name 'BBox_FrameMoved';
+function BBox_ResolveSpecifier(AObject : TCPlusObject; msg : TCPlusObject; index : integer; specifier : TMessage; form : integer; properti : PChar) : THandler; cdecl; external BePascalLibName name 'BBox_ResolveSpecifier';
+procedure BBox_ResizeToPreferred(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_ResizeToPreferred';
+procedure BBox_GetPreferredSize(AObject : TCPlusObject; width : double; height : double); cdecl; external BePascalLibName name 'BBox_GetPreferredSize';
+procedure BBox_MakeFocus(AObject : TCPlusObject; state : boolean); cdecl; external BePascalLibName name 'BBox_MakeFocus';
+function BBox_GetSupportedSuites(AObject : TCPlusObject; data : TCPlusObject) : TStatus_t; cdecl; external BePascalLibName name 'BBox_GetSupportedSuites';
+function BBox_Perform(AObject : TCPlusObject; d : TPerform_code; arg : Pointer) : TStatus_t; cdecl; external BePascalLibName name 'BBox_Perform';
+{
+procedure BBox__ReservedBox1(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox__ReservedBox1';
+procedure BBox__ReservedBox2(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox__ReservedBox2';
+function BBox_operator=(AObject : TCPlusObject;  :  TBox) :  TBox; cdecl; external BePascalLibName name 'BBox_operator=';
+procedure BBox_InitObject(AObject : TCPlusObject; data : TMessage); cdecl; external BePascalLibName name 'BBox_InitObject';
+procedure BBox_DrawPlain(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_DrawPlain';
+procedure BBox_DrawFancy(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_DrawFancy';
+procedure BBox_ClearAnyLabel(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_ClearAnyLabel';
+procedure BBox_char *fLabel(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_char *fLabel';
+
+procedure BBox_BRect fBounds(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_BRect fBounds';
+
+procedure BBox_border_style fStyle(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_border_style fStyle';
+procedure BBox_BView *fLabelView(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_BView *fLabelView';
+procedure BBox_uint32 _reserved[1](AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_uint32 _reserved[1]';
+}
+
+implementation
+
+
+constructor TBox.Create(Frame : TRect; Name : PChar; ResizingMode, Flags : Cardinal; BorderStyle : Tborder_style);
+begin
+  CreatePas;
+  CPlusObject := BBox_Create(Self, Frame.CPlusObject, Name, ResizingMode, Flags, BorderStyle);
+end;
+
+constructor TBox.Create(data : TMessage);
+begin
+  CreatePas;
+  CPlusObject := BBox_Create_1(Self, data.CPlusObject);
+end;
+
+destructor TBox.Destroy;
+begin
+  BBox_Free(CPlusObject);
+  inherited;
+end;
+
+function TBox.Instantiate(data : TMessage) : TArchivable;
+begin
+  Result := BBox_Instantiate(CPlusObject, data.CPlusObject);
+end;
+
+function TBox.Archive(data : TMessage; deep : boolean) : TStatus_t;
+begin
+  Result := BBox_Archive(CPlusObject, data.CPlusObject, deep);
+end;
+
+procedure TBox.SetBorder(style : Tborder_style);
+begin
+  BBox_SetBorder(CPlusObject, style);
+end;
+
+function TBox.Border : Tborder_style;
+begin
+  Result := BBox_Border(CPlusObject);
+end;
+
+procedure TBox.SetLabel(aLabel : PChar);
+begin
+  BBox_SetLabel(CPlusObject, aLabel);
+end;
+
+function TBox.SetLabel(view_label : TView) : TStatus_t;
+begin
+  Result := BBox_SetLabel(CPlusObject, view_label{.CPlusObject});
+end;
+
+// Conflicting Name: Label is a reserved word in Pascal.
+// I will use: GetLabel
+function TBox.GetLabel : PChar;
+begin
+  Result := BBox_Label(CPlusObject);
+end;
+
+
+function TBox.LabelView : TView;
+begin
+  Result := BBox_LabelView(CPlusObject);
+end;
+
+
+procedure TBox.Draw(bounds : TRect);
+begin
+  BBox_Draw(CPlusObject, bounds{.CPlusObject});
+end;
+
+procedure TBox.AttachedToWindow;
+begin
+  BBox_AttachedToWindow(CPlusObject);
+end;
+
+procedure TBox.DetachedFromWindow;
+begin
+  BBox_DetachedFromWindow(CPlusObject);
+end;
+
+procedure TBox.AllAttached;
+begin
+  BBox_AllAttached(CPlusObject);
+end;
+
+procedure TBox.AllDetached;
+begin
+  BBox_AllDetached(CPlusObject);
+end;
+
+procedure TBox.FrameResized(new_width : double; new_height : double);
+begin
+  BBox_FrameResized(CPlusObject, new_width, new_height);
+end;
+
+procedure TBox.MessageReceived(msg : TMessage);
+begin
+  BBox_MessageReceived(CPlusObject, msg.CPlusObject);
+end;
+
+procedure TBox.MouseDown(pt : TPoint);
+begin
+  BBox_MouseDown(CPlusObject, pt{.CPlusObject});
+end;
+
+procedure TBox.MouseUp(pt : TPoint);
+begin
+  BBox_MouseUp(CPlusObject, pt{.CPlusObject});
+end;
+
+procedure TBox.WindowActivated(state : boolean);
+begin
+  BBox_WindowActivated(CPlusObject, state);
+end;
+
+procedure TBox.MouseMoved(pt : TPoint; code : Cardinal; msg : TMessage);
+begin
+  BBox_MouseMoved(CPlusObject, pt{.CPlusObject}, code, msg);
+end;
+
+procedure TBox.FrameMoved(new_position : TPoint);
+begin
+  BBox_FrameMoved(CPlusObject, new_position{.CPlusObject});
+end;
+
+function TBox.ResolveSpecifier(msg : TMessage; index : integer; specifier : TMessage; form : integer; properti : PChar) : THandler;
+begin
+  Result := BBox_ResolveSpecifier(CPlusObject, msg{.CPlusObject}, index, specifier{.CPlusObject}, form, properti);
+end;
+
+procedure TBox.ResizeToPreferred;
+begin
+  BBox_ResizeToPreferred(CPlusObject);
+end;
+
+procedure TBox.GetPreferredSize(width : double; height : double);
+begin
+  BBox_GetPreferredSize(CPlusObject, width, height);
+end;
+
+procedure TBox.MakeFocus(state : boolean);
+begin
+  BBox_MakeFocus(CPlusObject, state);
+end;
+
+function TBox.GetSupportedSuites(data : TMessage) : TStatus_t;
+begin
+  Result := BBox_GetSupportedSuites(CPlusObject, data.CPlusObject);
+end;
+
+function TBox.Perform(d : TPerform_code; arg : Pointer) : TStatus_t;
+begin
+  Result := BBox_Perform(CPlusObject, d, arg);
+end;
+
+{
+procedure TBox._ReservedBox1;
+begin
+  BBox__ReservedBox1(CPlusObject);
+end;
+
+procedure TBox._ReservedBox2;
+begin
+  BBox__ReservedBox2(CPlusObject);
+end;
+
+function TBox.operator=( :  TBox) :  TBox;
+begin
+  Result := BBox_operator=(CPlusObject, );
+end;
+}
+
+{
+procedure TBox.InitObject(data : TMessage);
+begin
+  BBox_InitObject(CPlusObject, data.CPlusObject);
+end;
+
+procedure TBox.DrawPlain;
+begin
+  BBox_DrawPlain(CPlusObject);
+end;
+
+procedure TBox.DrawFancy;
+begin
+  BBox_DrawFancy(CPlusObject);
+end;
+
+procedure TBox.ClearAnyLabel;
+begin
+  BBox_ClearAnyLabel(CPlusObject);
+end;
+}
+
+{
+procedure TBox.char *fLabel;
+begin
+  BBox_char *fLabel(CPlusObject);
+end;
+
+procedure TBox.BRect fBounds;
+begin
+  BBox_BRect fBounds(CPlusObject);
+end;
+
+procedure TBox.border_style fStyle;
+begin
+  BBox_border_style fStyle(CPlusObject);
+end;
+
+procedure TBox.BView *fLabelView;
+begin
+  BBox_BView *fLabelView(CPlusObject);
+end;
+
+procedure TBox.uint32 _reserved[1];
+begin
+  BBox_uint32 _reserved[1](CPlusObject);
+end;
+}
+
+end.