#include <Carbon/Carbon.h>

#include "UPPCarbon.h"

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

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



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;
                        
        }
        
        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
{
        Initialize(); // Do one-time-only initialization
        
        RunApplicationEventLoop(); //Process events until time to quit
        
        Finalize(); // Do one-time-only finalization

}

flags(OSX11) "-framework carbon";

uses
        Core;

link(OSX11) " -framework carbon";

file
        UPPCarbon.h,
        UPPCarbon.cpp;

mainconfig
        "" = "";

custom(OSX11) "post-link",
        "mkdir -p $(OUTTITLE).App/Contents/MacOS\ncp $(OUTPATH) $(OUTTITLE).App"
        "/Contents/MacOS",
        "";