/*  BePascal - A pascal wrapper around the BeOS API
    Copyright (C) 2002 Olivier Coursiere

    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 _BEOBJ_CPP_
#define _BEOBJ_CPP_

typedef void* TPasObject;
typedef void* TCPlusObject;

typedef char *(*BPasObject_GetPasClassName_hook)(TPasObject PasObject);

#if defined(__cplusplus)
extern "C" {
#endif

BPasObject_GetPasClassName_hook PasObject_GetPasClassName_hook;

#if defined(__cplusplus)
}
#endif

class BPasObject
{
	public:
		BPasObject(TPasObject PasObject);
		TPasObject GetPasObject(void) const;
		virtual ~BPasObject(void);
		char *GetPasClassName(void);
	private:
		TPasObject FPasObject;
};

BPasObject::BPasObject(TPasObject PasObject)
{
	FPasObject = PasObject;
}

TPasObject BPasObject::GetPasObject(void) const
{
	return FPasObject;
}

BPasObject::~BPasObject(){}

char *BPasObject::GetPasClassName(void)
{
	return PasObject_GetPasClassName_hook(FPasObject);
}

#endif /* _BEOBJ_CPP_ */