/*

File: PrefsWindow.c

Abstract: Handles all Window related functions for the Demo.

Version: 5.0

Change History:

    <5.0>   converted everything from a List Manager list interface 

            to a Data Browser control

            renamed RedrawPrefsWindowList to 

            RedrawPrefsWindowDataBrowser which doesn't actually draw 

            the data browser but rather just invalidates its content 

            rectangle

            removed handleDrawContent, handleContentClick, 

            handleKeyDown, createIconList, drawFrameAndFocus, and 

            changePanel

            removed handleActivate and put its necessary 

            functionality into windowEventHandler

    <4.0>   removed all Classic code

            made AdjustControls, HandleDrawContent, and 

            HandleActivate, internal functions

            made HandleContentClick an internal function and changed 

            its last parameter from an EventModifiers to a UInt32

            made HandleKeyDown an internal function and changed its 

            first parameter from a char to a UInt32

            made ClosePrefsWindow an internal function

            adjusted the RunningInMacOSX dependent stuff

            changed windowEventHander to call through to the 

            standard handler for default behavior on activation and 

            close events instead of implementing it on top of the 

            custom behavior already implemented

    <3.0>   converted the Carbon version to use Carbon Events and 

            standard handlers

            added windowEventHandler to support Carbon Events

            windowEventHandler has some similarities to handleEvents 

            in ExamplePrefs.c

            Carbon Events has richer support for mouse events, we 

            support a mouse wheel in Carbon

    <2.0>   Carbonized

            for the Carbon version we're using CreateCustomList to 

            create the list

            introduced some new globals to account for the different 

            theme metrics between the Platinum and Aqua appearances

    <1.0>   first release version

            this draws a list directly into a window and mimics the 

            behavior of a list box control

            it turns out this was actually quite difficult, there is 

            a LOT of background color/pattern changing you have to 

            do to achieve the desired effect

© Copyright 2005 Apple Computer, Inc. All rights reserved.

IMPORTANT:  This Apple software is supplied to 

you by Apple Computer, Inc. ("Apple") in 

consideration of your agreement to the following 

terms, and your use, installation, modification 

or redistribution of this Apple software 

constitutes acceptance of these terms.  If you do 

not agree with these terms, please do not use, 

install, modify or redistribute this Apple 

software.

In consideration of your agreement to abide by 

the following terms, and subject to these terms, 

Apple grants you a personal, non-exclusive 

license, under Apple's copyrights in this 

original Apple software (the "Apple Software"), 

to use, reproduce, modify and redistribute the 

Apple Software, with or without modifications, in 

source and/or binary forms; provided that if you 

redistribute the Apple Software in its entirety 

and without modifications, you must retain this 

notice and the following text and disclaimers in 

all such redistributions of the Apple Software. 

Neither the name, trademarks, service marks or 

logos of Apple Computer, Inc. may be used to 

endorse or promote products derived from the 

Apple Software without specific prior written 

permission from Apple.  Except as expressly 

stated in this notice, no other rights or 

licenses, express or implied, are granted by 

Apple herein, including but not limited to any 

patent rights that may be infringed by your 

derivative works or by other works in which the 

Apple Software may be incorporated.

The Apple Software is provided by Apple on an "AS 

IS" basis.  APPLE MAKES NO WARRANTIES, EXPRESS OR 

IMPLIED, INCLUDING WITHOUT LIMITATION THE IMPLIED 

WARRANTIES OF NON-INFRINGEMENT, MERCHANTABILITY 

AND FITNESS FOR A PARTICULAR PURPOSE, REGARDING 

THE APPLE SOFTWARE OR ITS USE AND OPERATION ALONE 

OR IN COMBINATION WITH YOUR PRODUCTS.

IN NO EVENT SHALL APPLE BE LIABLE FOR ANY 

SPECIAL, INDIRECT, INCIDENTAL OR CONSEQUENTIAL 

DAMAGES (INCLUDING, BUT NOT LIMITED TO, 

PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS 

OF USE, DATA, OR PROFITS; OR BUSINESS 

INTERRUPTION) ARISING IN ANY WAY OUT OF THE USE, 

REPRODUCTION, MODIFICATION AND/OR DISTRIBUTION OF 

THE APPLE SOFTWARE, HOWEVER CAUSED AND WHETHER 

UNDER THEORY OF CONTRACT, TORT (INCLUDING 

NEGLIGENCE), STRICT LIABILITY OR OTHERWISE, EVEN 

IF APPLE HAS BEEN ADVISED OF THE POSSIBILITY OF 

SUCH DAMAGE.

*/

#include "ExamplePrefs.h"

#include "Help.h"

#include "IconDBUtilities.h"

#include "PrefsWindow.h"

static EventHandlerUPP gWindowEventHandler;

static void closePrefsWindow(WindowRef prefsWindow);

static pascal OSStatus windowEventHandler(EventHandlerCallRef nextHandler, EventRef event, 

                                            void *junk);

// --------------------------------------------------------------------------------------

void OpenPrefsWindow(void)

{   

    OSStatus error;

    WindowRef window;

    ControlRef containerControls[kNumberOfRows], embeddedControl, iconDataBrowser;

    short iconDBBottom;

    Rect iconDBRect;

    EventTypeSpec windowEvents[] = {

                                    {kEventClassWindow, kEventWindowActivated},

                                    {kEventClassWindow, kEventWindowDeactivated},

                                    {kEventClassWindow, kEventWindowGetMinimumSize},

                                    {kEventClassWindow, kEventWindowResizeCompleted},

                                    {kEventClassWindow, kEventWindowClose}

                                   };

    ControlID iconDataBrowserID = {kAppSignature, kIconDataBrowserID};

    error = CreateWindowFromResource(rPrefsWindow, &window);

    if (error != noErr)

        ExitToShell();

    RepositionWindow(window, NULL, kWindowCascadeOnMainScreen);     // CreateWindowFromResource

                                            // doesn't call this for you like GetNewCWindow does

        // we would just set the standard handler attribute in the Platinum 'wind' resource 

        // but that makes it not work under CarbonLib for some reason

    ChangeWindowAttributes(window, kWindowStandardHandlerAttribute, kWindowNoAttributes);

    SetPortWindowPort(window);

    SetThemeWindowBackground(window, kThemeBrushModelessDialogBackgroundActive, true);

    CreateRootControl(window, &containerControls[0]);

        /* Get each user pane and embed each preference panel's controls (for the 

           demonstration there is only some static text identifying each panel number).  

           We could just as easily have used AutoEmbedControl but why make the system 

           figure out which control to use as the embedder when we already know?  

           We need to get the user panes before the data browser so that they are the 

           first 10 subcontrols of the root control (adjustControls depends on this). */

    containerControls[0] = GetNewControl(cWindowUserPaneVisible, window);

    embeddedControl = GetNewControl(cStaticText, window);

    EmbedControl(embeddedControl, containerControls[0]);

    SetControlData(embeddedControl, kControlEntireControl, kControlStaticTextTextTag, 7, 

                    "Panel 1");

    containerControls[1] = GetNewControl(cWindowUserPaneInvisible, window);

    embeddedControl = GetNewControl(cStaticText, window);

    EmbedControl(embeddedControl, containerControls[1]);

    SetControlData(embeddedControl, kControlEntireControl, kControlStaticTextTextTag, 7, 

                    "Panel 2");

    containerControls[2] = GetNewControl(cWindowUserPaneInvisible, window);

    embeddedControl = GetNewControl(cStaticText, window);

    EmbedControl(embeddedControl, containerControls[2]);

    SetControlData(embeddedControl, kControlEntireControl, kControlStaticTextTextTag, 7, 

                    "Panel 3");

    containerControls[3] = GetNewControl(cWindowUserPaneInvisible, window);

    embeddedControl = GetNewControl(cStaticText, window);

    EmbedControl(embeddedControl, containerControls[3]);

    SetControlData(embeddedControl, kControlEntireControl, kControlStaticTextTextTag, 7, 

                    "Panel 4");

    containerControls[4] = GetNewControl(cWindowUserPaneInvisible, window);

    embeddedControl = GetNewControl(cStaticText, window);

    EmbedControl(embeddedControl, containerControls[4]);

    SetControlData(embeddedControl, kControlEntireControl, kControlStaticTextTextTag, 7, 

                    "Panel 5");

    containerControls[5] = GetNewControl(cWindowUserPaneInvisible, window);

    embeddedControl = GetNewControl(cStaticText, window);

    EmbedControl(embeddedControl, containerControls[5]);

    SetControlData(embeddedControl, kControlEntireControl, kControlStaticTextTextTag, 7, 

                    "Panel 6");

    containerControls[6] = GetNewControl(cWindowUserPaneInvisible, window);

    embeddedControl = GetNewControl(cStaticText, window);

    EmbedControl(embeddedControl, containerControls[6]);

    SetControlData(embeddedControl, kControlEntireControl, kControlStaticTextTextTag, 7, 

                    "Panel 7");

    containerControls[7] = GetNewControl(cWindowUserPaneInvisible, window);

    embeddedControl = GetNewControl(cStaticText, window);

    EmbedControl(embeddedControl, containerControls[7]);

    SetControlData(embeddedControl, kControlEntireControl, kControlStaticTextTextTag, 7, 

                    "Panel 8");

    containerControls[8] = GetNewControl(cWindowUserPaneInvisible, window);

    embeddedControl = GetNewControl(cStaticText, window);

    EmbedControl(embeddedControl, containerControls[8]);

    SetControlData(embeddedControl, kControlEntireControl, kControlStaticTextTextTag, 7, 

                    "Panel 9");

    containerControls[9] = GetNewControl(cWindowUserPaneInvisible, window);

    embeddedControl = GetNewControl(cStaticText, window);

    EmbedControl(embeddedControl, containerControls[9]);

    SetControlData(embeddedControl, kControlEntireControl, kControlStaticTextTextTag, 8, 

                    "Panel 10");

                                                                // get the bottom-most 

    iconDBBottom = kPrefsWindowHeight - kWindowEdgeSpacing;     // coordinate we can use

    iconDBBottom -= (kPrefsWindowHeight - kWindowEdgeSpacing - kDataBrowserInset - 

                        (kWindowEdgeSpacing + kDataBrowserInset) ) % 

                        kRowHeight; // then subtract out the partial cell height that would 

                                    // be drawn on the bottom so that it's not actually drawn

    SetRect(&iconDBRect, kWindowEdgeSpacing , kWindowEdgeSpacing, 

            kWindowEdgeSpacing + kDataBrowserInset + kColumnWidth + kDataBrowserInset + 

            kScrollBarWidth, iconDBBottom);

    iconDataBrowser = CreateIconDataBrowser(window, &iconDBRect, containerControls);

    SetControlID(iconDataBrowser, &iconDataBrowserID);

    gWindowEventHandler = NewEventHandlerUPP(windowEventHandler);

    InstallWindowEventHandler(window, gWindowEventHandler, GetEventTypeCount(windowEvents), 

                                    windowEvents, NULL, NULL);

    SetPrefsWindowHelpTags(window);

    DisableMenuItem(GetMenuRef(mDemonstration), iPrefsWindow);

    EnableMenuItem(GetMenuRef(mFile), iClose);

    ShowWindow(window);

} // OpenPrefsWindow

// --------------------------------------------------------------------------------------

static void closePrefsWindow(WindowRef prefsWindow)

{

    ControlID iconDataBrowserID = {kAppSignature, kIconDataBrowserID};

    ControlRef iconDataBrowser;

    HideWindow(prefsWindow);

    DisableMenuItem(GetMenuRef(mFile), iClose);

    GetControlByID(prefsWindow, &iconDataBrowserID, &iconDataBrowser);

    ReleaseIconDataBrowserItemData(iconDataBrowser);

    DisposeEventHandlerUPP(gWindowEventHandler);

    EnableMenuItem(GetMenuRef(mDemonstration), iPrefsWindow);

}

// --------------------------------------------------------------------------------------

static void adjustControls(WindowRef prefsWindow)

{

    Rect contentRect, iconDBRect;

    SInt16 userPaneWidth, userPaneHeight;

    ControlRef rootControl, userPane, iconDataBrowser;

    UInt16 panelIndex;

    ControlID iconDataBrowserID = {kAppSignature, kIconDataBrowserID};

    short oldDBHeight, newDBHeight;

    GetWindowBounds(prefsWindow, kWindowContentRgn, &contentRect);

    userPaneWidth = (contentRect.right - contentRect.left) - 

                    (kWindowEdgeSpacing + kDataBrowserInset + kColumnWidth + 

                    kDataBrowserInset + kScrollBarWidth + kControlSpacing) - 

                    (kSizeBoxWidth + kMinimumSpacing);

    userPaneHeight = (contentRect.bottom - contentRect.top) - kWindowEdgeSpacing - 

                        (kSizeBoxWidth + kMinimumSpacing);

    GetRootControl(prefsWindow, &rootControl);

    for (panelIndex = 1; panelIndex <= kNumberOfRows; panelIndex++)

    {

        GetIndexedSubControl(rootControl, panelIndex, &userPane);

        SizeControl(userPane, userPaneWidth, userPaneHeight);

    }

    GetControlByID(prefsWindow, &iconDataBrowserID, &iconDataBrowser);

    GetControlBounds(iconDataBrowser, &iconDBRect);

    oldDBHeight = iconDBRect.bottom - iconDBRect.top;

    newDBHeight = (contentRect.bottom - contentRect.top) - 

                    (kWindowEdgeSpacing + kDataBrowserInset) - 

                    (kWindowEdgeSpacing + kDataBrowserInset);

    newDBHeight -= newDBHeight % kRowHeight;        // make the list height a multiple 

    newDBHeight += 2 * kDataBrowserInset;           // of the cell height and don't make 

    if (newDBHeight > kMaxDataBrowserHeight)        // it bigger than we have cells for

        newDBHeight = kMaxDataBrowserHeight;

    if (newDBHeight != oldDBHeight)

    {

        SizeControl(iconDataBrowser, iconDBRect.right - iconDBRect.left, newDBHeight);

#if !TARGET_API_MAC_OSX     // Mac OS 8/9 doesn't properly erase the focus rectangle when the 

        if (newDBHeight < oldDBHeight)  // data browser is sized smaller

        {

            Rect invalRect;

            SetRect(&invalRect, iconDBRect.left - 5, kWindowEdgeSpacing + newDBHeight - 5, 

                    iconDBRect.right + 5, contentRect.bottom);

            EraseRect(&invalRect);

            InvalWindowRect(prefsWindow, &invalRect);

        }

#endif

    }

} // adjustControls

// --------------------------------------------------------------------------------------

void RedrawPrefsWindowDataBrowser(WindowRef prefsWindow)

{

    ControlID iconDataBrowserID = {kAppSignature, kIconDataBrowserID};

    ControlRef iconDataBrowser;

    Rect iconDBRect;

    GetControlByID(prefsWindow, &iconDataBrowserID, &iconDataBrowser);

    GetControlBounds(iconDataBrowser, &iconDBRect);

    iconDBRect.right -= kScrollBarWidth;

    InsetRect(&iconDBRect, kDataBrowserInset, kDataBrowserInset);

    InvalWindowRect(prefsWindow, &iconDBRect);

}

// --------------------------------------------------------------------------------------

static pascal OSStatus windowEventHandler(EventHandlerCallRef nextHandler, EventRef event, 

                                            void *junk)

{

#pragma unused (nextHandler, junk)

    OSStatus result = eventNotHandledErr;

    UInt32 eventClass, eventKind;

    WindowRef prefsWindow;

    Point minWindowBounds;

    eventClass = GetEventClass(event);

    eventKind = GetEventKind(event);

    switch (eventClass)

    {

        case kEventClassWindow:

            GetEventParameter(event, kEventParamDirectObject, typeWindowRef, NULL, 

                                sizeof(WindowRef), NULL, &prefsWindow);

            switch (eventKind)

            {

                case kEventWindowActivated:

                    EnableMenuItem(GetMenuRef(mFile), iClose);

                    break;      // propogate this event to the standard handler

                case kEventWindowDeactivated:

                    DisableMenuItem(GetMenuRef(mFile), iClose);

                    break;      // propogate this event to the standard handler

                case kEventWindowGetMinimumSize:

                    SetPt(&minWindowBounds, kPrefsWindowWidth, kPrefsWindowHeight);

                    SetEventParameter(event, kEventParamDimensions, typeQDPoint, sizeof(Point), 

                                        &minWindowBounds);

                    result = noErr;

                    break;

                case kEventWindowResizeCompleted:

                    adjustControls(prefsWindow);

                    result = noErr;

                    break;

                case kEventWindowClose:

                    closePrefsWindow(prefsWindow);

                    break;      // propogate this event to the standard handler

            }

            break;

    }

    return result;

} // windowEventHandler