extern OSStatus
HICreateScrollingTextBox(
const HIRect * inBounds, /* can be NULL */
CFStringRef inScrollingText,
Boolean inAutoScroll,
UInt32 inDelayBeforeAutoScroll,
UInt32 inDelayBetweenAutoScroll,
UInt16 inAutoScrollAmount,
HIViewRef * outHIView)
{
*outHIView = NULL;
EventRef theInitializeEvent = NULL;
HIViewRef scrollView;
OSStatus status;
status = CreateEvent(NULL, kEventClassHIObject, kEventHIObjectInitialize, GetCurrentEventTime(), kEventAttributeUserEvent, &theInitializeEvent);
// settings
SetEventParameter(theInitializeEvent, kEventParamScrollingText, typeCFStringRef, sizeof(inScrollingText), &inScrollingText);
SetEventParameter(theInitializeEvent, kEventParamAutoScroll, typeBoolean, sizeof(inAutoScroll), &inAutoScroll);
SetEventParameter(theInitializeEvent, kEventParamDelayBeforeAutoScroll, typeUInt32, sizeof(inDelayBeforeAutoScroll), &inDelayBeforeAutoScroll);
SetEventParameter(theInitializeEvent, kEventParamDelayBetweenAutoScroll, typeUInt32, sizeof(inDelayBetweenAutoScroll), &inDelayBetweenAutoScroll);
SetEventParameter(theInitializeEvent, kEventParamAutoScrollAmount, typeSInt16, sizeof(inAutoScrollAmount), &inAutoScrollAmount);
HIObjectRef hiObject;
status = HIObjectCreate(GetScrollingTextBoxClass(), theInitializeEvent, &hiObject);
HIViewSetVisible((HIViewRef)hiObject, true);
if (!inAutoScroll)
{
//
// Manual scrolling, we need to be embedded in a scroll view
//
status = HIScrollViewCreate(kHIScrollViewOptionsVertScroll, &scrollView);
status = HIViewAddSubview(scrollView, (HIViewRef)hiObject);
if (inBounds != NULL)
HIViewSetFrame(scrollView, inBounds);
EventTypeSpec event = {kEventClassControl, kEventControlDraw};
InstallEventHandler(GetControlEventTarget(scrollView), FrameView, 1, &event, NULL, NULL);
*outHIView = scrollView;
}
else
{
if (inBounds != NULL)
HIViewSetFrame((HIViewRef)hiObject, inBounds);
*outHIView = (HIViewRef)hiObject;
}
return status;
}
/*****************************************************
*
* Handle_WindowCommandProcess(inHandlerCallRef, inEvent, inUserData)
*
* Purpose: called to handle of the events generated by the various controls of the HICustomView_Tester window
*
* Inputs: inHandlerCallRef - reference to the current handler call chain
* inEvent - the event
* inUserData - app-specified data you passed in the call to InstallEventHandler
*
* Returns: OSStatus - noErr indicates the event was handled
* eventNotHandledErr indicates the event was not handled and the Toolbox should take over
*/
static pascal OSStatus Handle_WindowCommandProcess(EventHandlerCallRef inHandlerCallRef, EventRef inEvent, void *inUserData)
{
OSStatus status;
HIViewRef customView = (HIViewRef)inUserData;
// getting the command
HICommandExtended aCommand;
status = GetEventParameter(inEvent, kEventParamDirectObject, typeHICommand, NULL, sizeof(aCommand), NULL, &aCommand);
require_noerr(status, ExitCommandProcess);
status = eventNotHandledErr;
// cheking that the command came from a control
if ( ! (aCommand.attributes & kHICommandFromControl) ) goto ExitCommandProcess;
switch (aCommand.commandID)
{
//
// Asking for a refresh of the custom view
//
case 'SNDt':
HIViewSetNeedsDisplay(customView, true);
status = noErr;
break;
//
// Setting the control value of the custom view
//
case 'SV00':
SetControl32BitValue(customView, 0);
status = noErr;
break;
case 'SV01':
SetControl32BitValue(customView, 1);
status = noErr;
break;
case 'SV17':
SetControl32BitValue(customView, 17);
status = noErr;
break;
case 'SVTH':
SetControl32BitValue(customView, 1000);
status = noErr;
break;
case 'SVet':
{
HIViewRef editText;
HIViewFindByID(HIViewGetRoot(GetControlOwner(customView)), kSetValueEditID, &editText);
char buffer[11];
Size actualSize;
GetControlData(editText, kControlEntireControl, kControlEditTextTextTag, 10, buffer, &actualSize);
if (actualSize > 10) actualSize = 10;
buffer[actualSize] = 0;
SetControl32BitValue(customView, atoi(buffer));
}
status = noErr;
break;
//
// Setting the state of the custom view
//
case 'CHlt':
// setting the hilite to non-0 also stomps the previous hilite state if any
// and we don't want that in our testing
if (GetControl32BitValue(aCommand.source.control) == 1)
HiliteControl(customView, 1);
else
HiliteControl(customView, 0);
status = noErr;
break;
case 'CEnb':
{
HIViewRef hiliteControl;
HIViewFindByID(HIViewGetRoot(GetControlOwner(customView)), kCheckHiliteID, &hiliteControl);
if (GetControl32BitValue(aCommand.source.control) == 1)
EnableControl(customView);
else
DisableControl(customView);
UInt16 prevHilite = GetControlHilite(customView);
if ((prevHilite == kControlInactivePart) || (prevHilite == kControlDisabledPart))
DisableControl(hiliteControl);
else
EnableControl(hiliteControl);
HIViewSetNeedsDisplay(customView, true);
}
status = noErr;
break;
case 'CAct':
{
HIViewRef hiliteControl;
HIViewFindByID(HIViewGetRoot(GetControlOwner(customView)), kCheckHiliteID, &hiliteControl);
if (GetControl32BitValue(aCommand.source.control) == 1)
ActivateControl(customView);
else
DeactivateControl(customView);
UInt16 prevHilite = GetControlHilite(customView);
if ((prevHilite == kControlInactivePart) || (prevHilite == kControlDisabledPart))
DisableControl(hiliteControl);
else
EnableControl(hiliteControl);
HIViewSetNeedsDisplay(customView, true);
}
status = noErr;
break;
//
// Testing the custom view in or as a scroller in a HIScrollView
//
case 'CTiS':
case 'CTaS':
if (GetControl32BitValue(aCommand.source.control) == 1)
{
// create a HIScrollView and install it where and as the custom view was
HIViewRef scrollView;
status = HIScrollViewCreate(kHIScrollViewValidOptions, &scrollView);
require_noerr(status, ExitCommandProcess);
HIRect frame;
status = HIViewGetFrame(customView, &frame);
require_noerr(status, ExitCommandProcess);
status = HIViewSetFrame(scrollView, &frame);
require_noerr(status, ExitCommandProcess);
HIViewSetLayoutInfo(scrollView, &kBindToParentLayout);
HIViewSetLayoutInfo(customView, &kNoBindLayout);
status = HIViewAddSubview(HIViewGetSuperview(customView), scrollView);
require_noerr(status, ExitCommandProcess);
if (aCommand.commandID == 'CTiS')
{
// if we are testing the custom view in a scroller, we embed it in a scrolling User Pane
// that we embed in the HIScrollView
Rect boundsRect = {0, 0, 1000, 1000};
HIViewRef userPane;
status = CreateUserPaneControl(NULL, &boundsRect, kControlSupportsEmbedding, &userPane);
require_noerr(status, ExitCommandProcess);
EventTypeSpec userPaneEvents[] =
{
{kEventClassScrollable, kEventScrollableGetInfo},
{kEventClassScrollable, kEventScrollableScrollTo}
};
InstallControlEventHandler(userPane, UserPaneHandler, 2, userPaneEvents, userPane, NULL);
status = HIViewAddSubview(scrollView, userPane);
require_noerr(status, ExitCommandProcess);
status = HIViewAddSubview(userPane, customView);
require_noerr(status, ExitCommandProcess);
HIViewSetVisible(userPane, true);
}
else
{
// else we just embed the custom view directly in the HIScrollView
status = HIViewAddSubview(scrollView, customView);
require_noerr(status, ExitCommandProcess);
}
HIViewSetVisible(scrollView, true);
// the 2 modes are not compatible so we disable the other check box
HIViewRef otherCheckToDisable;
if (aCommand.commandID == 'CTiS')
HIViewFindByID(HIViewGetRoot(GetControlOwner(customView)), kCheckTestAsScrollID, &otherCheckToDisable);
else
HIViewFindByID(HIViewGetRoot(GetControlOwner(customView)), kCheckTestInScrollID, &otherCheckToDisable);
require_noerr(status, ExitCommandProcess);
DisableControl(otherCheckToDisable);
// if we reach here, status is already set to noErr so we don't set it again
}
else
{
// we remove the HIScrollView and set the custom view back to where and as it was
HIViewRef scrollView;
if (aCommand.commandID == 'CTiS')
scrollView = HIViewGetSuperview(HIViewGetSuperview(customView));
else
scrollView = HIViewGetSuperview(customView);
status = HIViewAddSubview(HIViewGetSuperview(scrollView), customView);
require_noerr(status, ExitCommandProcess);
HIRect frame;
status = HIViewGetFrame(scrollView, &frame);
require_noerr(status, ExitCommandProcess);
status = HIViewSetFrame(customView, &frame);
require_noerr(status, ExitCommandProcess);
HIViewSetLayoutInfo(customView, &kBindToParentLayout);
// by releasing the HIScrollView, we also release the scrolling User Pane if any
// which was embedded inside
CFRelease(scrollView);
// we renable the other check box
HIViewRef otherCheckToEnable;
if (aCommand.commandID == 'CTiS')
HIViewFindByID(HIViewGetRoot(GetControlOwner(customView)), kCheckTestAsScrollID, &otherCheckToEnable);
else
HIViewFindByID(HIViewGetRoot(GetControlOwner(customView)), kCheckTestInScrollID, &otherCheckToEnable);
require_noerr(status, ExitCommandProcess);
EnableControl(otherCheckToEnable);
// if we reach here, status is already set to noErr so we don't set it again
}
break;
}
ExitCommandProcess:
return status;
} // Handle_WindowCommandProcess
