#include <Core/Core.h>

#include <Carbon/Carbon.h>

#define kWindowTop 100
#define kWindowLeft 50
#define kWindowRight 250
#define kWindowBottom 250

const EventTypeSpec     eventList[] =
{
	{ kEventClassWindow, kEventWindowClose },
	{ kEventClassWindow, kEventWindowActivated },
	{ kEventClassWindow, kEventWindowDeactivated },
	{ kEventClassWindow, kEventWindowDrawContent },
};

void MyDrawInWindow (WindowRef window)
{
	CGContextRef myContext;
	SetPortWindowPort (window);// 1
	QDBeginCGContext (GetWindowPort (window), &myContext);
	CGContextSetRGBFillColor (myContext, 1, 0, 0, 1);
	CGContextFillRect (myContext, CGRectMake (0, 0, 200, 100));
	CGContextSetRGBFillColor (myContext, 0, 0, 1, .5);
	CGContextFillRect (myContext, CGRectMake (0, 0, 100, 200));
	CGContextFlush(myContext);// 4
	QDEndCGContext (GetWindowPort(window), &myContext);// 5
}

static pascal OSStatus MyWindowEventHandler(EventHandlerCallRef nextHandler,
                              EventRef theEvent,
                              void *userData)
{
		OSStatus result = eventNotHandledErr;
		WindowRef theWindow = (WindowRef) userData;
		UInt32 whatHappened;
		
		whatHappened = GetEventKind(theEvent);
		
		switch(whatHappened) {
		case kEventWindowClose:
			DisposeWindow(theWindow);
			QuitApplicationEventLoop();
			result = noErr;
		break;
		case kEventWindowActivated:
			::CallNextEventHandler(nextHandler, theEvent);
			result = noErr;
		break;
		
		case kEventWindowDeactivated:
			::CallNextEventHandler(nextHandler, theEvent);
			result = noErr;
			break;
		
		case kEventWindowDrawContent:
			LOG("PAINT!");
			MyDrawInWindow(theWindow);
			::CallNextEventHandler(nextHandler, theEvent);
			break;
        }
        
        return result;
        
}


void Initialize(void)
{
        // Do one-time-only initialization
        
        WindowRef                       theWindow;
        WindowAttributes        windowAttrs;
        Rect                            contentRect;
        EventHandlerUPP         handlerUPP;
        
        windowAttrs = kWindowStandardDocumentAttributes |
                                        kWindowStandardHandlerAttribute;
        
        SetRect(&contentRect, kWindowLeft, kWindowTop, kWindowRight, kWindowBottom);
                                                
        CreateNewWindow(kDocumentWindowClass, windowAttrs,
                        &contentRect, &theWindow);
                        
        SetWindowTitleWithCFString(theWindow, CFSTR("U++ Carbon Example"));
                
        handlerUPP = NewEventHandlerUPP(MyWindowEventHandler);
        
        InstallWindowEventHandler(theWindow, handlerUPP, 
                                 GetEventTypeCount(eventList), eventList,
                                 theWindow, NULL);
                                 
        ShowWindow(theWindow);
        
        InitCursor();

}


void Finalize(void)
{
        
}


using namespace UPP;


CONSOLE_APP_MAIN
{
	LOG("Hello!");
        Initialize(); // Do one-time-only initialization
        
        RunApplicationEventLoop(); //Process events until time to quit
        
        Finalize(); // Do one-time-only finalization

}