#include "MyWindow.bh"
#include "initcl.h"

#ifndef MAKE_ID
#define MAKE_ID(a,b,c,d) ((ULONG) (a)<<24 | (ULONG) (b)<<16 | (ULONG) (c)<<8 | (ULONG) (d))
#endif


Method MyWindow::MyWindow() :
			MUIA_Window_Title, (ULONG)"Koch: Project",
			MUIA_Window_ID, MAKE_ID('K', 'P', 'R', 'J'),
			WindowContents, GroupObject,
				MUIA_Background, MUII_WindowBack,
				Child, StringObject,
				End,
				Child, data->myobj = NewObject( cl_MyClass->mcc_Class, NULL,
				End,
			End

{
}

custom Method MyWindow::WinMet( )
{
/*	short a;
	a = 10;
*/
 MyWindowData *data = INST_DATA( cl, obj );

 if( data->myobj ) DisplayBeep( NULL );
 
 return 0;

}

Attribute Set MyWindow::CustomAttr
{

	DisplayBeep( val );

}

Attribute Get MyWindow::CustomAttr
{

	*store = 2;

}