// add an HIImageViewRef to the parentView
HIViewRef
AddImage( HIViewRef parentView )
{
OSStatus status = paramErr;
HIViewRef cgImageView = NULL;
CGImageRef cgImage = NULL;
CGDataProviderRef cgImageProvider = NULL;
HILayoutInfo layoutInfo;
CFBundleRef theAppBundle = NULL;
CFStringRef imageFileName = NULL;
CFURLRef imageURL = NULL;
HIRect parentFrame;
theAppBundle = CFBundleGetMainBundle();
imageFileName = CFStringCreateWithCString( NULL /*allocator*/, "rainbowpark.jpg", kCFStringEncodingASCII );
imageURL = CFBundleCopyResourceURL( theAppBundle, imageFileName, NULL, NULL );
cgImageProvider = CGDataProviderCreateWithURL(imageURL);
require( cgImageProvider != NULL, FAIL );
cgImage = CGImageCreateWithJPEGDataProvider( cgImageProvider, NULL, false, kCGRenderingIntentDefault );
require( cgImage != NULL, FAIL );
CGDataProviderRelease( cgImageProvider );
CFRelease( imageFileName );
HIImageViewCreate( cgImage, &cgImageView );
CGImageRelease( cgImage);
require( cgImageView != NULL, FAIL );
layoutInfo.binding.left.kind = kHILayoutBindLeft;
layoutInfo.binding.left.toView = NULL;
layoutInfo.binding.left.offset = 0.0;
layoutInfo.binding.top.kind = kHILayoutBindTop;
layoutInfo.binding.top.toView = NULL;
layoutInfo.binding.top.offset = 0.0;
layoutInfo.binding.right.kind = kHILayoutBindRight;
layoutInfo.binding.right.toView = NULL;
layoutInfo.binding.right.offset = 0.0;
layoutInfo.binding.bottom.kind = kHILayoutBindBottom;
layoutInfo.binding.bottom.toView = NULL;
layoutInfo.binding.bottom.offset = 0.0;
verify_noerr( HIViewSetLayoutInfo(cgImageView, &layoutInfo) );
verify_noerr( HIImageViewSetScaleToFit(cgImageView, true) );
status = HIViewAddSubview(parentView, cgImageView);
if( status != noErr )
{
CFRelease( cgImageView );
cgImageView = NULL;
}
FAIL:
return cgImageView;
}
void MacWebWidget::showEvent ( QShowEvent * event )
{
QWidget::showEvent(event);
if ( m_hiWebView && m_container) {
setWebViewFrame();
HIViewAddSubview( (HIViewRef)m_container->winId(), m_hiWebView );
HIViewSetVisible( m_hiWebView, true );
}
}
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;
}
OSStatus
CreateMouseTrackingView(HIViewRef parentView, const Rect* inBounds, HIViewID* inViewID)
{
#define kCanvasClassID CFSTR( "com.apple.sample.canvasview" )
OSStatus err;
EventRef event;
HIViewRef theView;
// Register this class
err = MyMTViewRegister(kCanvasClassID);
require_noerr( err, CantRegister );
// Make an initialization event
err = CreateEvent( NULL, kEventClassHIObject, kEventHIObjectInitialize, GetCurrentEventTime(), 0, &event );
require_noerr( err, CantCreateEvent );
// If bounds were specified, push them into the initialization event
// so that they can be used in the initialization handler.
if ( inBounds != NULL )
{
err = SetEventParameter(event, kCanvasBoundsParam, typeQDRectangle, sizeof(Rect), inBounds);
require_noerr( err, CantSetParameter );
}
err = HIObjectCreate(kCanvasClassID, event, (HIObjectRef*)&theView);
require_noerr(err, CantCreate);
if (parentView != NULL)
{
err = HIViewAddSubview(parentView, theView);
}
SetControlID(theView, inViewID); // useful if a handler needs to call GetControlByID()
HIViewSetVisible(theView, true);
CantCreate:
CantSetParameter:
CantCreateEvent:
ReleaseEvent( event );
CantRegister:
return err;
}
OSStatus HIOpenGLViewCreate (WindowRef inWindow, const Rect* inBounds, ControlRef* outControl)
{
// Register this class
OSStatus err = HIOpenGLViewRegister();
require_noerr(err, CantRegister);
// Make an initialization event
EventRef event;
err = CreateEvent(nil, kEventClassHIObject, kEventHIObjectInitialize, GetCurrentEventTime(), 0, &event);
require_noerr(err, CantCreateEvent);
// If bounds were specified, push the them into the initialization
// event so that they can be used in the initialization handler.
if (inBounds != nil)
{
err = SetEventParameter(event, 'Boun', typeQDRectangle, sizeof(Rect), inBounds);
require_noerr(err, CantSetParameter);
}
// Make a new instantiation of this class
err = HIObjectCreate(kHIOpenGLViewClassID, event, (HIObjectRef*)outControl);
require_noerr(err, CantCreate);
// If a parent window was specified, place the new view into the parent window.
if (inWindow != nil)
{
ControlRef root = nil;
err = GetRootControl(inWindow, &root);
require_noerr(err, CantGetRootControl);
err = HIViewAddSubview(root, *outControl);
}
CantCreate:
CantGetRootControl:
CantSetParameter:
CantCreateEvent:
ReleaseEvent(event);
CantRegister:
return err;
}
/*
Handle the initialization event for a star-shaped frame. This routine
creates the content view, installs its event handler, and sets its
initial location.
*/
OSStatus HandleStarFrameInitialize(
EventHandlerCallRef inCallRef,
EventRef inEvent,
StarFrameData *frameData)
{
OSStatus retVal = eventNotHandledErr;
HIViewRef contentView;
// The frame view must support embedding
HIViewChangeFeatures(frameData->hiSelf, kHIViewAllowsSubviews, kHIViewIsOpaque);
// Create the content view for the frame.
retVal = HIObjectCreate(kHIViewClassID, NULL, (HIObjectRef *)&contentView);
if(noErr == retVal && NULL != contentView) {
HIViewChangeFeatures(contentView, kHIViewAllowsSubviews, kHIViewIsOpaque);
SetControlID(contentView, &kHIViewWindowContentID);
// content view must be visible.
verify_noerr(HIViewSetVisible(contentView, true));
// Make sure the content view is handling events
verify_noerr(InstallControlEventHandler(
contentView,
gContentViewHandlerUPP,
GetEventTypeCount(gContentViewHandledEvents),
gContentViewHandledEvents,
NULL,
NULL));
// set the location of the content view appropriately
PositionContentViewWithMetrics(frameData->hiSelf, contentView);
// add the content view as a subview of me.
verify_noerr(HIViewAddSubview(frameData->hiSelf, contentView));
retVal = noErr;
}
return retVal;
}
/*****************************************************
*
* Do_NewWindowFromAPI(outWindow)
*
* Purpose: called to create a new window using only API calls fron MacWindows.h, Controls.h, and HIView.h
*
* Notes: called by Do_NewWindow()
*
* Inputs: outWindow - if not NULL, the address where to return the WindowRef
* - if not NULL, the callee will have to ShowWindow
*
* Returns: OSStatus - error code (0 == no error)
*/
static OSStatus Do_NewWindowFromAPI(WindowRef * outWindow)
{
WindowRef aWindowRef = NULL;
CFStringRef theTitle = NULL;
OSStatus status;
// Create a window
Rect bounds = {0, 0, 360, 480};
status = CreateNewWindow(kDocumentWindowClass, kWindowStandardFloatingAttributes | kWindowStandardHandlerAttribute | kWindowCompositingAttribute | kWindowMetalAttribute, &bounds, &aWindowRef);
require_noerr(status, CreateNewWindow);
require(aWindowRef != NULL, CreateNewWindow);
status = RepositionWindow(aWindowRef, NULL, kWindowCascadeOnMainScreen);
require_noerr(status, RepositionWindow);
HIViewRef contentView;
status = HIViewFindByID(HIViewGetRoot(aWindowRef), kHIViewWindowContentID, &contentView);
require_noerr(status, HIViewFindByID);
ControlRef aControlRef;
Rect statBounds = {113, 20, 177, 460};
ControlFontStyleRec style = {kControlUseJustMask, 0, 0, 0, 0, teJustCenter};
status = CreateStaticTextControl(NULL, &statBounds, CFSTR("Click in the LittleArrows control above."), &style, &aControlRef);
require_noerr(status, CreateStaticTextControl);
HIViewID staticTextID = { 'STTC', 100 };
HIViewSetID(aControlRef, staticTextID);
status = HIViewAddSubview(contentView, aControlRef);
require_noerr(status, HIViewAddSubview);
Rect littleArrowBounds = {51, 234, 73, 247};
status = CreateLittleArrowsControl(NULL, &littleArrowBounds, 0, 0, 10, 1, &aControlRef);
require_noerr(status, CreateLittleArrowsControl);
status = HIViewAddSubview(contentView, aControlRef);
require_noerr(status, HIViewAddSubview);
SetControlAction(aControlRef, LittleArrowsControlAction);
EventTypeSpec eventTypeCVFC = {kEventClassControl, kEventControlValueFieldChanged};
status = HIViewInstallEventHandler(aControlRef, Handle_PostLittleArrowsClick, 1, &eventTypeCVFC, (void *)aControlRef, NULL);
require_noerr(status, CantInstallEventHandler);
Rect buttonBounds = {320, 390, 340, 460};
status = CreatePushButtonControl(NULL, &buttonBounds, CFSTR("OK"), &aControlRef);
require_noerr(status, CreatePushButtonControl);
status = SetControlCommandID(aControlRef, kHICommandOK);
require_noerr(status, SetControlCommandID);
status = HIViewAddSubview(contentView, aControlRef);
require_noerr(status, HIViewAddSubview);
status = SetWindowDefaultButton(aWindowRef, aControlRef);
require_noerr(status, SetWindowDefaultButton);
WindowDataPtr wdr = (WindowDataPtr)calloc(1, sizeof(WindowDataRec));
require(wdr != NULL, CantAllocateWindowData);
SetWRefCon(aWindowRef, (long)wdr);
theTitle = CFStringCreateWithFormat(NULL, NULL, CFSTR("LittleArrowsShowcase Window From API #%ld"), ++gWindowCount);
require(theTitle != NULL, CFStringCreateWithFormat);
status = SetWindowTitleWithCFString(aWindowRef, theTitle);
require_noerr(status, SetWindowTitleWithCFString);
EventTypeSpec eventTypeCP = {kEventClassCommand, kEventCommandProcess};
status = InstallWindowEventHandler(aWindowRef, Handle_WindowCommandProcess, 1, &eventTypeCP, (void *)aWindowRef, NULL);
require_noerr(status, CantInstallEventHandler);
EventTypeSpec eventTypeWC = {kEventClassWindow, kEventWindowClosed};
status = InstallWindowEventHandler(aWindowRef, Handle_WindowIsClosing, 1, &eventTypeWC, (void *)aWindowRef, NULL);
require_noerr(status, CantInstallEventHandler);
// The window was created hidden so show it if the outWindow parameter is NULL,
// if it's not, it will be the responsibility of the caller to show it.
if (outWindow == NULL)
ShowWindow(aWindowRef);
SetWindowModified(aWindowRef, false);
CantInstallEventHandler:
SetWindowTitleWithCFString:
CFStringCreateWithFormat:
if (theTitle != NULL)
CFRelease(theTitle);
CantAllocateWindowData:
SetWindowDefaultButton:
SetControlCommandID:
CreatePushButtonControl:
CreateLittleArrowsControl:
HIViewAddSubview:
CreateStaticTextControl:
HIViewFindByID:
RepositionWindow:
CreateNewWindow:
if (outWindow != NULL)
*outWindow = aWindowRef;
return status;
} // Do_NewWindowFromAPI
void MusicBoxDialog(void)
{
OSStatus err;
IBNibRef nibRef;
if (!cartOpen)
return;
err = CreateNibReference(kMacS9XCFString, &nibRef);
if (err == noErr)
{
CFURLRef iconURL;
FSRef iconFSRef;
IconRef actIcon;
WindowRef tWindowRef;
actIcon = nil;
if (musicboxmode == kMBXSoundEmulation)
iconURL = CFBundleCopyResourceURL(CFBundleGetMainBundle(), CFSTR("musicbox_ledoff"), CFSTR("icns"), nil);
else
iconURL = CFBundleCopyResourceURL(CFBundleGetMainBundle(), CFSTR("musicbox_ledon" ), CFSTR("icns"), nil);
if (iconURL)
{
if (CFURLGetFSRef(iconURL, &iconFSRef))
err = RegisterIconRefFromFSRef('~9X~', 'micn', &iconFSRef, &actIcon);
CFRelease(iconURL);
}
err = CreateWindowFromNib(nibRef, CFSTR("MusicBox"), &tWindowRef);
if (err == noErr)
{
EventHandlerRef mboxRef, paneRef;
EventHandlerUPP mboxUPP, paneUPP;
EventLoopTimerRef timeRef;
EventLoopTimerUPP timeUPP;
EventTypeSpec mboxEvents[] = { { kEventClassCommand, kEventCommandProcess },
{ kEventClassCommand, kEventCommandUpdateStatus } },
paneEvents[] = { { kEventClassControl, kEventControlDraw } };
CFStringRef sref;
CGDataProviderRef prov;
CGImageRef ipng;
CFURLRef iurl;
HIViewRef ctl, root, paneView, imageView, contentView;
HIViewID cid;
HIRect bounds;
Rect windowRect, barRect;
char drive[_MAX_DRIVE], dir[_MAX_DIR], fname[_MAX_FNAME], ext[_MAX_EXT];
mboxPause = false;
mbxFinished = false;
showIndicator = false;
so.stereo_switch = ~0;
for (int i = 0; i < MAC_MAX_PLAYERS; i++)
controlPad[i] = 0;
switch (drawingMethod)
{
case kDrawingOpenGL:
Settings.OpenGLEnable = true;
break;
case kDrawingDirect:
case kDrawingBlitGL:
Settings.OpenGLEnable = false;
}
// 107's enhanced SPC player
root = HIViewGetRoot(tWindowRef);
cid.id = 0;
if (musicboxmode == kMBXSoundEmulation)
{
cid.signature = 'HEAD';
HIViewFindByID(root, cid, &ctl);
EnableControl(ctl);
StoredAPU = new SAPU;
StoredAPURegisters = new SAPURegisters;
StoredSoundData = new SSoundData;
StoredIAPURAM = new uint8 [0x10000];
SPCPlayFreeze();
}
else
MusicBoxForceFreeze();
cid.signature = 'Kart';
HIViewFindByID(root, cid, &ctl);
SetStaticTextTrunc(ctl, truncEnd, false);
_splitpath(Memory.ROMFilename, drive, dir, fname, ext);
sref = CFStringCreateWithCString(kCFAllocatorDefault, fname, MAC_PATH_ENCODING);
if (sref)
{
SetStaticTextCFString(ctl, sref, false);
CFRelease(sref);
}
ipng = nil;
iurl = CFBundleCopyResourceURL(CFBundleGetMainBundle(), CFSTR("musicbox_indicator"), CFSTR("png"), nil);
if (iurl)
{
prov = CGDataProviderCreateWithURL(iurl);
if (prov)
{
ipng = CGImageCreateWithPNGDataProvider(prov, nil, false, kCGRenderingIntentDefault);
CGDataProviderRelease(prov);
}
CFRelease(iurl);
}
imageView = nil;
if (ipng)
{
HIViewFindByID(root, kHIViewWindowContentID, &contentView);
err = HIImageViewCreate(ipng, &imageView);
if (err == noErr)
{
bounds = CGRectMake(30, 64, CGImageGetWidth(ipng), CGImageGetHeight(ipng));
HIViewSetFrame(imageView, &bounds);
HIImageViewSetOpaque(imageView, false);
HIViewSetVisible(imageView, true);
HIViewAddSubview(contentView, imageView);
cid.signature = 'iMaG';
SetControlID(imageView, &cid);
}
CGImageRelease(ipng);
}
cid.signature = 'Pane';
HIViewFindByID(root, cid, &paneView);
HIViewGetBounds(paneView, &bounds);
mbxViewWidth = bounds.size.width;
mbxViewHeight = bounds.size.height;
mbxMarginY = (mbxViewHeight - mbxBarHeight) / 2.0;
mbxMarginX = (mbxViewWidth - ((mbxBarWidth * 8.0 + mbxBarSpace * 7.0) * 2.0 + mbxLRSpace)) / 2.0;
if (imageView)
{
HIViewSetZOrder(imageView, kHIViewZOrderBelow, paneView);
HIViewAddSubview(imageView, paneView);
}
cid.signature = 'Tr_i';
HIViewFindByID(root, cid, &ctl);
HIViewGetFrame(ctl, &bounds);
GetWindowBounds(tWindowRef, kWindowTitleBarRgn, &barRect);
mbxClosedHeight = (short) (bounds.origin.y + bounds.size.height + 7.0) + (barRect.bottom - barRect.top);
GetWindowBounds(tWindowRef, kWindowStructureRgn, &windowRect);
mbxOpenedHeight = windowRect.bottom - windowRect.top;
windowRect.bottom = windowRect.top + mbxClosedHeight;
SetWindowBounds(tWindowRef, kWindowStructureRgn, &windowRect);
paneUPP = NewEventHandlerUPP(IndicatorEventHandler);
err = InstallControlEventHandler(paneView, paneUPP, GetEventTypeCount(paneEvents), paneEvents, (void *) paneView, &paneRef);
mboxUPP = NewEventHandlerUPP(MusicBoxEventHandler);
err = InstallWindowEventHandler(tWindowRef, mboxUPP, GetEventTypeCount(mboxEvents), mboxEvents, (void *) tWindowRef, &mboxRef);
timeUPP = NewEventLoopTimerUPP(MusicBoxTimerHandler);
err = InstallEventLoopTimer(GetCurrentEventLoop(), kEventDurationNoWait, kEventDurationSecond * 2.0 / (double) Memory.ROMFramesPerSecond, timeUPP, (void *) paneView, &timeRef);
MusicBoxInitIndicator();
stopNow = false;
MacStartSound();
pthread_create(&mbxThread, nil, SoundTask, nil);
MoveWindowPosition(tWindowRef, kWindowMusicBox, true);
GetWindowBounds(tWindowRef, kWindowStructureRgn, &windowRect);
if (windowRect.bottom - windowRect.top > mbxClosedHeight)
{
showIndicator = true;
SetControl32BitValue(ctl, 1); // Tr_i
}
ShowWindow(tWindowRef);
err = RunAppModalLoopForWindow(tWindowRef);
HideWindow(tWindowRef);
SaveWindowPosition(tWindowRef, kWindowMusicBox);
stopNow = true;
pthread_join(mbxThread, nil);
MacStopSound();
err = RemoveEventLoopTimer(timeRef);
DisposeEventLoopTimerUPP(timeUPP);
err = RemoveEventHandler(mboxRef);
DisposeEventHandlerUPP(mboxUPP);
err = RemoveEventHandler(paneRef);
DisposeEventHandlerUPP(paneUPP);
ReleaseWindow(tWindowRef);
so.stereo_switch = ~0;
mbxFinished = true;
if (musicboxmode == kMBXSoundEmulation)
{
SPCPlayDefrost();
delete StoredAPU;
delete StoredAPURegisters;
delete StoredSoundData;
delete [] StoredIAPURAM;
}
else
MusicBoxForceDefrost();
Settings.OpenGLEnable = false;
}
if (actIcon)
err = UnregisterIconRef('~9X~', 'micn');
DisposeNibReference(nibRef);
}
}
int main(int argc, char *argv[])
{
WindowRef window;
HIViewRef content;
HIViewRef combo;
HIViewRef group;
HIViewRef check;
HIViewRef text;
HIViewRef slider;
HIViewRef quit;
MenuRef menu;
HIRect rect;
// Window bounds
Rect bounds = {0, 0, 436, 590};
// Create window
CreateNewWindow(kDocumentWindowClass,
kWindowStandardFloatingAttributes |
kWindowStandardHandlerAttribute |
kWindowInWindowMenuAttribute |
kWindowCompositingAttribute,
&bounds, &window);
// Set the title
SetWindowTitleWithCFString(window, CFSTR("Accordion"));
// Create an application menu
CreateNewMenu(0, 0, &menu);
// Set menu title
SetMenuTitleWithCFString(menu,
CFStringCreateWithPascalString(kCFAllocatorDefault,
"\p\024",
kCFStringEncodingMacRoman));
// Create an about item
InsertMenuItemTextWithCFString(menu, CFSTR("About Accordion"),
0, 0, kHICommandAbout);
// Insert the menu
InsertMenu(menu, 0);
// Create a standard window menu
CreateStandardWindowMenu(0, &menu);
// Insert the menu
InsertMenu(menu, 0);
// Show and position the window
ShowWindow(window);
RepositionWindow(window, NULL, kWindowCascadeOnMainScreen);
// Find the window content
HIViewFindByID(HIViewGetRoot(window),
kHIViewWindowContentID,
&content);
// Set bounds for group box
bounds.bottom = 92;
bounds.right = 550;
// Create group box
CreateGroupBoxControl(window, &bounds, NULL, true, &group);
// Place in the window
HIViewAddSubview(content, group);
HIViewPlaceInSuperviewAt(group, 20, 20);
// Bounds of text
bounds.bottom = 16;
bounds.right = 74;
// Create static text
CreateStaticTextControl(window, &bounds, CFSTR("Instrument:"),
NULL, &text);
// Place in the group box
HIViewAddSubview(group, text);
HIViewPlaceInSuperviewAt(text, 16, 18);
// Bounds of combo box
rect.size.height = 20;
rect.size.width = 168;
// Create combo box
HIComboBoxCreate(&rect, CFSTR(" Accordion"), NULL, NULL,
kHIComboBoxStandardAttributes,
&combo);
// Set visible and set command ID
HIViewSetVisible(combo, true);
HIViewSetCommandID(combo, kCommandInst);
// Add the instruments
for (int i = 0; i < Length(instruments); i++)
{
HIComboBoxAppendTextItem(combo,
CFStringCreateWithCString(kCFAllocatorDefault,
instruments[i],
kCFStringEncodingMacRoman), NULL);
// Set the current instrument
if (strcmp(instruments[i], " Accordion") == 0)
instrument = i;
}
// Place in the group box
HIViewAddSubview(group, combo);
HIViewPlaceInSuperviewAt(combo, 102, 16);
// Bounds of check box
bounds.bottom = 18;
bounds.right = 121;
// Create check box
CreateCheckBoxControl(window, &bounds, CFSTR("Reverse"),
false, true, &check);
// Set the control ID and the command ID
HIViewSetID(check, kHIViewIDReverse);
HIViewSetCommandID(check, kCommandReverse);
// Place in the group box
HIViewAddSubview(group, check);
HIViewPlaceInSuperviewAt(check, 286, 17);
// Bounds of text
bounds.bottom = 16;
bounds.right = 32;
// Create static text
CreateStaticTextControl(window, &bounds, CFSTR("Key:"), NULL, &text);
// Place in the group box
HIViewAddSubview(group, text);
HIViewPlaceInSuperviewAt(text, 400, 18);
// Bounds of combo box
rect.size.width = 90;
// Create combo box
HIComboBoxCreate(&rect, CFSTR(" A/D/G"), NULL, NULL,
kHIComboBoxStandardAttributes,
&combo);
// Set visible and set command ID
HIViewSetVisible(combo, true);
HIViewSetID(combo, kHIViewIDKey);
HIViewSetCommandID(combo, kCommandKey);
// Add keys
for (int i = 0; i < Length(keys); i++)
{
HIComboBoxAppendTextItem(combo,
CFStringCreateWithCString(kCFAllocatorDefault,
keys[i],
kCFStringEncodingMacRoman), NULL);
// Set current key
if (strcmp(keys[i], " A/D/G") == 0)
key = i;
}
// Place in the group box
HIViewAddSubview(group, combo);
HIViewPlaceInSuperviewAt(combo, 440, 16);
// Bounds of text
bounds.bottom = 16;
bounds.right = 54;
// Create static text
CreateStaticTextControl(window, &bounds, CFSTR("Volume:"), NULL, &text);
// Place in the group box
HIViewAddSubview(group, text);
HIViewPlaceInSuperviewAt(text, 16, 56);
// Bounds of slider
bounds.bottom = 16;
bounds.right = 168;
// Create slider
CreateSliderControl(window, &bounds, MAXVOL, 0, MAXVOL,
kControlSliderDoesNotPoint, 0, false, NULL, &slider);
// Set command ID
HIViewSetCommandID(slider, kCommandVolume);
// Place in the group box
HIViewAddSubview(group, slider);
HIViewPlaceInSuperviewAt(slider, 100, 58);
// Bounds of check box
bounds.bottom = 18;
bounds.right = 121;
// Create check box
CreateCheckBoxControl(window, &bounds, CFSTR("Notes"),
false, true, &check);
// Set the control ID and the command ID
HIViewSetID(check, kHIViewIDNote);
HIViewSetCommandID(check, kCommandNote);
// Place in the group box
HIViewAddSubview(group, check);
HIViewPlaceInSuperviewAt(check, 286, 56);
// Bounds of push button
bounds.bottom = 20;
bounds.right = 90;
// Create push button
CreatePushButtonControl(window, &bounds, CFSTR("Quit"), &quit);
// Set command ID
HIViewSetCommandID(quit, kHICommandQuit);
// Place in the group box
HIViewAddSubview(group, quit);
HIViewPlaceInSuperviewAt(quit, 440, 54);
// Group box bounds
bounds.bottom = 48;
bounds.right = 550;
// Create group box
CreateGroupBoxControl(window, &bounds, NULL, true, &group);
// Place in the window
HIViewAddSubview(content, group);
HIViewPlaceInSuperviewAt(group, 20, 132);
// Font style
ControlFontStyleRec style;
style.flags = kControlUseFontMask|kControlUseJustMask;
style.font = kControlFontBigSystemFont;
style.just = teCenter;
// Bounds of text
bounds.bottom = 16;
bounds.right = 550;
// Create static text
CreateStaticTextControl(window, &bounds, CFSTR("Accordion"),
&style, &text);
// Place in the group box
HIViewAddSubview(group, text);
HIViewPlaceInSuperviewAt(text, 0, 8);
// Bounds of text
bounds.bottom = 16;
bounds.right = 550;
// Create static text
CreateStaticTextControl(window, &bounds,
CFSTR("Play accordion on your keyboard"),
&style, &text);
// Place in the group box
HIViewAddSubview(group, text);
HIViewPlaceInSuperviewAt(text, 0, 24);
// Group box bounds
bounds.bottom = 196;
bounds.right = 550;
// Create group box
CreateGroupBoxControl(window, &bounds, NULL, true, &group);
// Place in the window
HIViewAddSubview(content, group);
HIViewPlaceInSuperviewAt(group, 20, 200);
// Button bounds
bounds.bottom = SIZE;
bounds.right = SIZE;
// Create row of bass buttons
for (int i = 0; i < Length(bassdisplay); i++)
{
int x = 15 + 44 * i;
int y = 15;
// Create button
CreateBevelButtonControl(window, &bounds, NULL,
kControlBevelButtonNormalBevel,
kControlBehaviorPushbutton,
NULL, 0, 0, 0, &bassdisplay[i]);
// Place in the group box
HIViewAddSubview(group, bassdisplay[i]);
HIViewPlaceInSuperviewAt(bassdisplay[i], x, y);
}
// Create three rows of buttons
for (int i = 0; i < Length(display); i++)
{
for (int j = 0; j < ((i == 1)? Length(display[i]):
Length(display[i]) - 1); j++)
{
int x = (i == 1)? 37 + 44 * j: 59 + 44 * j;
int y = 59 + 44 * i;
// Create button
CreateBevelButtonControl(window, &bounds, NULL,
kControlBevelButtonNormalBevel,
kControlBehaviorPushbutton,
NULL, 0, 0, 0, &display[i][j]);
// Place in the group box
HIViewAddSubview(group, display[i][j]);
HIViewPlaceInSuperviewAt(display[i][j], x, y);
}
}
// Create spacebar button
CreateBevelButtonControl(window, &bounds, NULL,
kControlBevelButtonNormalBevel,
kControlBehaviorPushbutton,
NULL, 0, 0, 0, &spacebar);
// Place in the group box
HIViewAddSubview(group, spacebar);
HIViewPlaceInSuperviewAt(spacebar, 16, 147);
// Group box bounds, wider than the window to hide rounded corners
bounds.bottom = 20;
bounds.right = 598;
// Create group box for fake status bar
CreateGroupBoxControl(window, &bounds, NULL, false, &group);
// Place in window at negative offset to hide rounded corners
HIViewAddSubview(content, group);
HIViewPlaceInSuperviewAt(group, -4, 416);
// Text bounds
bounds.bottom = 16;
bounds.right = 590;
// Font style
style.flags = kControlUseFontMask|kControlUseJustMask;
style.font = kControlFontSmallSystemFont;
style.just = teCenter;
// Create static text
CreateStaticTextControl(window, &bounds,
CFSTR("Press the keyboard keys as accordion buttons "
"and the space bar as the bellows. 3rd button start."),
&style, &text);
// Place in group box
HIViewAddSubview(group, text);
HIViewPlaceInSuperviewAt(text, 0, 2);
// Application events type spec
EventTypeSpec applicationEvents[] =
{{kEventClassApplication, kEventAppFrontSwitched}};
// Install event handler
InstallApplicationEventHandler(NewEventHandlerUPP(ApplicationHandler),
Length(applicationEvents), applicationEvents,
NULL, NULL);
// Mouse events type spec
EventTypeSpec mouseEvents[] =
{{kEventClassMouse, kEventMouseDown}};
// Install event handler on the event dispatcher, so that we can
// see mouse events before the default handler gets them
InstallEventHandler(GetEventDispatcherTarget(),
NewEventHandlerUPP(MouseHandler),
Length(mouseEvents), mouseEvents,
NULL, NULL);
// Window events type spec
EventTypeSpec windowEvents[] =
{{kEventClassWindow, kEventWindowClose}};
// Install event handler
InstallWindowEventHandler(window, NewEventHandlerUPP(WindowHandler),
Length(windowEvents), windowEvents,
NULL, NULL);
// Combo box events type spec
EventTypeSpec comboBoxEvents[] =
{{kEventClassHIComboBox, kEventComboBoxListItemSelected}};
// Install event handler
InstallApplicationEventHandler(NewEventHandlerUPP(ComboBoxHandler),
Length(comboBoxEvents), comboBoxEvents,
NULL, NULL);
// Command events type spec
EventTypeSpec commandEvents[] =
{{kEventClassCommand, kEventCommandProcess}};
// Install event handler
InstallApplicationEventHandler(NewEventHandlerUPP(CommandHandler),
Length(commandEvents), commandEvents,
NULL, NULL);
// Keyboard events type spec
EventTypeSpec keyboardEvents[] =
{{kEventClassKeyboard, kEventRawKeyDown},
{kEventClassKeyboard, kEventRawKeyUp},
{kEventClassKeyboard, kEventRawKeyModifiersChanged}};
// Install event handler on the event dispatcher
InstallEventHandler(GetEventDispatcherTarget(),
NewEventHandlerUPP(KeyboardHandler),
Length(keyboardEvents), keyboardEvents,
NULL, NULL);
// Audio Unit graph
AUGraph graph;
// Audio Unit synthesizer and output node
AUNode synthNode;
AUNode outNode;
// Component description
ComponentDescription cd;
cd.componentManufacturer = kAudioUnitManufacturer_Apple;
cd.componentFlags = 0;
cd.componentFlagsMask = 0;
do
{
// New AU graph
OSStatus status = NewAUGraph(&graph);
if (status != noErr)
{
DisplayAlert(CFSTR("NewAUGraph"),
CFSTR("Can't create a new AUGraph"),
status);
break;
}
// Synthesizer
cd.componentType = kAudioUnitType_MusicDevice;
cd.componentSubType = kAudioUnitSubType_DLSSynth;
// New synthesizer node
status = AUGraphNewNode(graph, &cd, 0, NULL, &synthNode);
if (status != noErr)
{
DisplayAlert(CFSTR("AUGraphNewNode"),
CFSTR("Can't create a new AUGraph node"),
status);
break;
}
// Output
cd.componentType = kAudioUnitType_Output;
cd.componentSubType = kAudioUnitSubType_DefaultOutput;
// New output node
status = AUGraphNewNode(graph, &cd, 0, NULL, &outNode);
if (status != noErr)
{
DisplayAlert(CFSTR("AUGraphNewNode"),
CFSTR("Can't create a new AUGraph node"),
status);
break;
}
// Open graph
status = AUGraphOpen(graph);
if (status != noErr)
{
DisplayAlert(CFSTR("AUGraphOpen"),
CFSTR("Can't open AUGraph"),
status);
break;
}
// Connect synthesizer node to output node
status = AUGraphConnectNodeInput(graph, synthNode, 0, outNode, 0);
if (status != noErr)
{
DisplayAlert(CFSTR("AUGraphConnectNodeInput"),
CFSTR("Can't connect AUGraph input node"),
status);
break;
}
// Get a synthesizer unit
status =
AUGraphGetNodeInfo(graph, synthNode, NULL, 0, NULL, &synthUnit);
if (status != noErr)
{
DisplayAlert(CFSTR("AUGraphGetNodeInfo"),
CFSTR("Can't get AUGraph node info"),
status);
break;
}
// Initialise
status = AUGraphInitialize(graph);
if (status != noErr)
{
DisplayAlert(CFSTR("AUGraphInitialize"),
CFSTR("Can't initialize AUGraph"),
status);
break;
}
// Start
status = AUGraphStart(graph);
if (status != noErr)
{
DisplayAlert(CFSTR("AUGraphStart"),
CFSTR("Can't start AUGraph"),
status);
break;
}
// Show the graph
// CAShow(graph);
} while (false);
// Change instrument
ChangeInstrument(instrument);
// Run the application event loop
RunApplicationEventLoop();
// Stop the graph
AUGraphStop(graph);
// Dispose of the graph
DisposeAUGraph(graph);
// Exit
return 0;
}
void IGraphicsCarbon::CreateTextEntry(IControl* pControl, IText* pText, IRECT* pTextRect, const char* pString, IParam* pParam)
{
ControlRef control = 0;
if (!pControl || mTextEntryView || !mIsComposited) return;
Rect r = { pTextRect->T, pTextRect->L, pTextRect->B, pTextRect->R };
// these adjustments should make it the same as the cocoa one, i.e. the same size as the pTextRect, but with the extra blue rim often this is too small
//Rect r = { pTextRect->T+4, pTextRect->L+3, pTextRect->B-3, pTextRect->R -3 };
if (CreateEditUnicodeTextControl(NULL, &r, NULL, false, NULL, &control) != noErr) return;
HIViewAddSubview(mView, control);
const EventTypeSpec events[] =
{
{ kEventClassKeyboard, kEventRawKeyDown },
{ kEventClassKeyboard, kEventRawKeyRepeat }
};
InstallControlEventHandler(control, TextEntryHandler, GetEventTypeCount(events), events, this, &mTextEntryHandler);
mTextEntryView = control;
if (pString[0] != '\0')
{
CFStringRef str = CFStringCreateWithCString(NULL, pString, kCFStringEncodingUTF8);
if (str)
{
SetControlData(mTextEntryView, kControlEditTextPart, kControlEditTextCFStringTag, sizeof(str), &str);
CFRelease(str);
}
ControlEditTextSelectionRec sel;
sel.selStart = 0;
sel.selEnd = strlen(pString);
SetControlData(mTextEntryView, kControlEditTextPart, kControlEditTextSelectionTag, sizeof(sel), &sel);
}
int just = 0;
switch ( pText->mAlign )
{
case IText::kAlignNear:
just = teJustLeft;
break;
case IText::kAlignCenter:
just = teCenter;
break;
case IText::kAlignFar:
just = teJustRight;
break;
default:
just = teCenter;
break;
}
ControlFontStyleRec font = { kControlUseJustMask | kControlUseSizeMask | kControlUseFontMask, 0, pText->mSize, 0, 0, just, 0, 0 };
CFStringRef str = CFStringCreateWithCString(NULL, pText->mFont, kCFStringEncodingUTF8);
font.font = ATSFontFamilyFindFromName(str, kATSOptionFlagsDefault);
SetControlData(mTextEntryView, kControlEditTextPart, kControlFontStyleTag, sizeof(font), &font);
CFRelease(str);
Boolean singleLineStyle = true;
SetControlData(mTextEntryView, kControlEditTextPart, kControlEditTextSingleLineTag, sizeof (Boolean), &singleLineStyle);
HIViewSetVisible(mTextEntryView, true);
HIViewAdvanceFocus(mTextEntryView, 0);
SetKeyboardFocus(mWindow, mTextEntryView, kControlEditTextPart);
SetUserFocusWindow(mWindow);
mEdControl = pControl;
mEdParam = pParam;
}
IGraphicsCarbon::IGraphicsCarbon(IGraphicsMac* pGraphicsMac,
WindowRef pWindow,
ControlRef pParentControl,
short leftOffset,
short topOffset)
: mGraphicsMac(pGraphicsMac)
, mWindow(pWindow)
, mView(0)
, mTimer(0)
, mControlHandler(0)
, mWindowHandler(0)
, mCGC(0)
, mTextEntryView(0)
, mTextEntryHandler(0)
, mEdControl(0)
, mEdParam(0)
, mPrevX(0)
, mPrevY(0)
//, mRgn(NewRgn())
, mLeftOffset(leftOffset)
, mTopOffset(topOffset)
{
TRACE;
Rect r; // Client.
r.left = r.top = 0;
r.right = pGraphicsMac->Width();
r.bottom = pGraphicsMac->Height();
WindowAttributes winAttrs = 0;
GetWindowAttributes(pWindow, &winAttrs);
mIsComposited = (winAttrs & kWindowCompositingAttribute);
UInt32 features = kControlSupportsFocus | kControlHandlesTracking | kControlSupportsEmbedding;
if (mIsComposited)
{
features |= kHIViewIsOpaque | kHIViewFeatureDoesNotUseSpecialParts;
}
CreateUserPaneControl(pWindow, &r, features, &mView);
const EventTypeSpec controlEvents[] =
{
{ kEventClassControl, kEventControlDraw },
};
InstallControlEventHandler(mView, MainEventHandler, GetEventTypeCount(controlEvents), controlEvents, this, &mControlHandler);
const EventTypeSpec windowEvents[] =
{
{ kEventClassMouse, kEventMouseDown },
{ kEventClassMouse, kEventMouseUp },
{ kEventClassMouse, kEventMouseMoved },
{ kEventClassMouse, kEventMouseDragged },
{ kEventClassMouse, kEventMouseWheelMoved },
{ kEventClassKeyboard, kEventRawKeyDown },
{ kEventClassWindow, kEventWindowDeactivated }
};
InstallWindowEventHandler(mWindow, MainEventHandler, GetEventTypeCount(windowEvents), windowEvents, this, &mWindowHandler);
double t = kEventDurationSecond / (double) pGraphicsMac->FPS();
OSStatus s = InstallEventLoopTimer(GetMainEventLoop(), 0., t, TimerHandler, this, &mTimer);
if (mIsComposited)
{
if (!pParentControl)
{
HIViewRef hvRoot = HIViewGetRoot(pWindow);
s = HIViewFindByID(hvRoot, kHIViewWindowContentID, &pParentControl);
}
s = HIViewAddSubview(pParentControl, mView);
}
else
{
if (!pParentControl)
{
if (GetRootControl(pWindow, &pParentControl) != noErr)
{
CreateRootControl(pWindow, &pParentControl);
}
}
s = EmbedControl(mView, pParentControl);
}
if (s == noErr)
{
SizeControl(mView, r.right, r.bottom); // offset?
}
}
SkOSWindow::SkOSWindow(void* hWnd) : fHWND(hWnd), fAGLCtx(NULL)
{
OSStatus result;
WindowRef wr = (WindowRef)hWnd;
HIViewRef imageView, parent;
HIViewRef rootView = HIViewGetRoot(wr);
HIViewFindByID(rootView, kHIViewWindowContentID, &parent);
result = HIImageViewCreate(NULL, &imageView);
SkASSERT(result == noErr);
result = HIViewAddSubview(parent, imageView);
SkASSERT(result == noErr);
fHVIEW = imageView;
HIViewSetVisible(imageView, true);
HIViewPlaceInSuperviewAt(imageView, 0, 0);
if (true) {
HILayoutInfo layout;
layout.version = kHILayoutInfoVersionZero;
set_bindingside(&layout.binding.left, parent, kHILayoutBindLeft);
set_bindingside(&layout.binding.top, parent, kHILayoutBindTop);
set_bindingside(&layout.binding.right, parent, kHILayoutBindRight);
set_bindingside(&layout.binding.bottom, parent, kHILayoutBindBottom);
set_axisscale(&layout.scale.x, parent);
set_axisscale(&layout.scale.y, parent);
set_axisposition(&layout.position.x, parent, kHILayoutPositionLeft);
set_axisposition(&layout.position.y, rootView, kHILayoutPositionTop);
HIViewSetLayoutInfo(imageView, &layout);
}
HIImageViewSetOpaque(imageView, true);
HIImageViewSetScaleToFit(imageView, false);
static const EventTypeSpec gTypes[] = {
{ kEventClassKeyboard, kEventRawKeyDown },
{ kEventClassKeyboard, kEventRawKeyUp },
{ kEventClassMouse, kEventMouseDown },
{ kEventClassMouse, kEventMouseDragged },
{ kEventClassMouse, kEventMouseMoved },
{ kEventClassMouse, kEventMouseUp },
{ kEventClassTextInput, kEventTextInputUnicodeForKeyEvent },
{ kEventClassWindow, kEventWindowBoundsChanged },
// { kEventClassWindow, kEventWindowDrawContent },
{ SK_MacEventClass, SK_MacEventKind }
};
EventHandlerUPP handlerUPP = NewEventHandlerUPP(SkOSWindow::EventHandler);
int count = SK_ARRAY_COUNT(gTypes);
result = InstallEventHandler(GetWindowEventTarget(wr), handlerUPP,
count, gTypes, this, nil);
SkASSERT(result == noErr);
gCurrOSWin = this;
gCurrEventQ = GetCurrentEventQueue();
gEventTarget = GetWindowEventTarget(wr);
static bool gOnce = true;
if (gOnce) {
gOnce = false;
gPrevNewHandler = set_new_handler(sk_new_handler);
}
}
/*****************************************************
*
* 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
/*****************************************************
*
* Do_NewWindow()
*
* Purpose: called to create a new window that has been constructed with Interface Builder
*
* Inputs: none
*
* Returns: OSStatus - error code (0 == no error)
*/
OSStatus Do_NewWindow(void)
{
OSStatus status;
static IBNibRef gIBNibRef = NULL;
WindowRef aWindowRef = NULL;
CFStringRef theTitle = NULL;
CFMutableStringRef theNewTitle = NULL;
if (gIBNibRef == NULL)
{
// Create a Nib reference passing the name of the nib file (without the .nib extension)
// CreateNibReference only searches into the application bundle.
status = CreateNibReference(CFSTR("main"), &gIBNibRef);
require_noerr(status, CantGetNibRef);
}
require(gIBNibRef != NULL, CantGetNibRef);
// Create a window. "MainWindow" is the name of the window object. This name is set in
// InterfaceBuilder when the nib is created.
status = CreateWindowFromNib(gIBNibRef, CFSTR("MainWindow"), &aWindowRef);
require_noerr(status, CantCreateWindow);
require(NULL != aWindowRef, CantCreateWindow);
// Grab the title of the window and add the window count to it
status = CopyWindowTitleAsCFString(aWindowRef, &theTitle);
require_noerr(status, CantGetSetTitle);
theNewTitle = CFStringCreateMutableCopy(NULL, 0, theTitle);
require(NULL != theNewTitle, CantGetSetTitle);
CFStringAppendFormat(theNewTitle, NULL, CFSTR(" %ld"), ++gWindowCount);
status = SetWindowTitleWithCFString(aWindowRef, theNewTitle);
require_noerr(status, CantGetSetTitle);
// Create the custom view to be tested and embed it in our group box control
HIViewRef groupBox;
status = HIViewFindByID(HIViewGetRoot(aWindowRef), kGroupBoxID, &groupBox);
require_noerr(status, CantFindGroupBox);
require(groupBox != NULL, CantFindGroupBox);
HIViewRef customView;
status = HICreateCustomView(NULL, &customView);
require_noerr(status, CantCreateCustom);
require(customView != NULL, CantCreateCustom);
HIRect groupBoxBounds;
HIViewGetBounds(groupBox, &groupBoxBounds);
groupBoxBounds.origin.x += 20;
groupBoxBounds.origin.y += 34;
groupBoxBounds.size.width -= 40;
groupBoxBounds.size.height -= 54;
HIViewSetFrame(customView, &groupBoxBounds);
HIViewSetLayoutInfo(customView, &kBindToParentLayout);
status = HIViewAddSubview(groupBox, customView);
require_noerr(status, CantAddSubview);
HIViewSetVisible(customView, true);
// Let's react to User's commands.
EventTypeSpec eventTypeCP = {kEventClassCommand, kEventCommandProcess};
status = InstallWindowEventHandler(aWindowRef, Handle_WindowCommandProcess, 1, &eventTypeCP, (void *)customView, NULL);
require_noerr(status, CantInstallEventHandler);
// Let's update our static text field whenever the value or hilite of our tested custom view changes
EventTypeSpec eventTypeCVFC[] =
{
{kEventClassControl, kEventControlValueFieldChanged},
{kEventClassControl, kEventControlHiliteChanged}
};
status = InstallControlEventHandler(customView, Handle_ControlValueFieldOrHiliteChanged, 2, eventTypeCVFC, (void *)customView, NULL);
require_noerr(status, CantInstallEventHandler);
// We accept only numbers in our Edit text control
HIViewRef editText;
HIViewFindByID(HIViewGetRoot(GetControlOwner(customView)), kSetValueEditID, &editText);
#ifdef MAC_OS_X_VERSION_10_4
// in Tiger, only 1 event handler is necessary for the key filtering
EventTypeSpec eventTypeTSCIR = {kEventClassTextField, kEventTextShouldChangeInRange};
status = InstallControlEventHandler(editText, Handle_TextShouldChangeInRange, 1, &eventTypeTSCIR, (void *)editText, NULL);
require_noerr(status, CantInstallEventHandler);
#else
// pre-Tiger, we need a different event handler and a validation proc to handle pastes and drops.
ControlEditTextValidationUPP textValidation = MyValidationProc;
SetControlData(editText, kControlEntireControl, kControlEditTextValidationProcTag, sizeof(textValidation), &textValidation);
EventTypeSpec eventTypeTIUFKE = {kEventClassTextInput, kEventTextInputUnicodeForKeyEvent};
status = InstallControlEventHandler(editText, Handle_TextInputEvent, 1, &eventTypeTIUFKE, (void *)editText, NULL);
require_noerr(status, CantInstallEventHandler);
#endif
// Finishing the custom view setup
SetControl32BitMinimum(customView, 0);
SetControl32BitMaximum(customView, 36);
SetControl32BitValue(customView, 2);
// We want window and thus our custom view to be able to respond to drops
status = SetAutomaticControlDragTrackingEnabledForWindow(aWindowRef, true);
require_noerr(status, SetAutomaticControlDragTrackingEnabledForWindow);
ShowWindow(aWindowRef);
SetWindowModified(aWindowRef, false);
SetAutomaticControlDragTrackingEnabledForWindow:
SetControlDragTrackingEnabled:
CantAddSubview:
CantCreateCustom:
CantFindGroupBox:
CantInstallEventHandler:
CantGetSetTitle:
CantAllocateWindowData:
CantCreateWindow:
CantGetNibRef:
if (theTitle != NULL) CFRelease(theTitle);
if (theNewTitle != NULL) CFRelease(theNewTitle);
return status;
} // Do_NewWindow
// --------------------------------------------------------------------------- // To embed an HITextView in another view, use the following code: HIViewRef parentView, textView; OSStatus status; //... // Get some kind of parent view... // In this example, we get the root of a window, but in practice, // you can embed a TextView in any type of HIView. // parentView = HIViewGetRoot(theWindow); // and embed the TextView in it status = HIViewAddSubview(parentView, textView); // --------------------------------------------------------------------------- // To make a TextView auto-size along with its parent view, use the following // code: HIViewRef textView; HILayoutInfo layoutInfo; HIRect parentFrame; //... // Bind the view to its parent on all sides (affects resize) layoutInfo.binding.left.kind = kHILayoutBindLeft;
void MCStack::realize()
{ //create window
if (!MCnoui && MCModeMakeLocalWindows())
{
if ( getextendedstate(ECS_FULLSCREEN) )
{
//TS-2008-08-01 : [[Bug 5703 - fullscreen stack prop interacts badly with HideMenuBar]]
if (!((MCScreenDC*)MCscreen)->getmenubarhidden())
SetSystemUIMode(kUIModeAllHidden, kUIOptionAutoShowMenuBar);
const MCDisplay *t_display;
t_display = MCscreen -> getnearestdisplay(rect);
MCRectangle t_workarea, t_viewport;
t_workarea = t_display -> workarea;
t_viewport = t_display -> viewport ;
setrect(t_viewport);
}
else
{
if (!((MCScreenDC*)MCscreen)->getmenubarhidden())
SetSystemUIMode(kUIModeNormal, NULL);
}
Rect wrect;
MCScreenDC *psdc = (MCScreenDC *)MCscreen;
psdc->MCRect2MacRect(rect, wrect);
window = new _Drawable;
window->type = DC_WINDOW;
window->handle.window = 0;
char *tmpname = NULL;
const unsigned char *namePascal;
if (!isunnamed())
{ //set window title to name of stack temporarily.
tmpname = strclone(getname_cstring()); //it will be changed by setname() later.
namePascal = c2pstr(tmpname);
}
else
namePascal = (unsigned char*)"\p";
loadwindowshape();
window->handle.window = NULL;
uint32_t wclass;
uint32_t wattributes;
getWinstyle(wattributes,wclass);
wattributes |= kWindowCompositingAttribute;
long testdecorations = WD_TITLE | WD_MENU | WD_CLOSE | WD_MINIMIZE | WD_MAXIMIZE;
if (m_window_shape != NULL)
{
static WindowDefUPP s_window_mask_proc = NULL;
if (s_window_mask_proc == NULL)
s_window_mask_proc = NewWindowDefUPP(WindowMaskProc);
WindowDefSpec t_spec;
t_spec . defType = kWindowDefProcPtr;
t_spec . u . defProc = s_window_mask_proc;
CreateCustomWindow(&t_spec, wclass, wattributes, &wrect, (WindowPtr *)&window -> handle . window);
HIWindowChangeFeatures((WindowPtr)window -> handle . window, 0, kWindowIsOpaque);
}
else if (((flags & F_DECORATIONS && !(decorations & testdecorations))
|| wclass == kPlainWindowClass))
{
static WindowDefUPP s_borderless_proc = NULL;
if (s_borderless_proc == NULL)
s_borderless_proc = NewWindowDefUPP(BorderlessWindowProc);
WindowDefSpec t_spec;
t_spec . defType = kWindowDefProcPtr;
t_spec . u . defProc = s_borderless_proc;
if (wclass == kPlainWindowClass)
wclass = kUtilityWindowClass;
CreateCustomWindow(&t_spec, wclass, wattributes, &wrect, (WindowPtr *)&window->handle.window);
}
else
CreateNewWindow(wclass, wattributes,&wrect, (WindowPtr *)&window->handle.window);
if (wclass == kFloatingWindowClass)
ChangeWindowAttributes((WindowPtr)window -> handle . window, kWindowNoAttributes, kWindowHideOnSuspendAttribute);
// MW-2009-10-31: Make sure we can collapse any rev window
HIWindowChangeFeatures((WindowPtr)window -> handle . window, kWindowCanCollapse, 0);
if (window->handle.window == NULL)
SetWTitle((WindowPtr)window->handle.window, namePascal);
SetWTitle((WindowPtr)window->handle.window, namePascal);
setopacity(blendlevel * 255 / 100);
SetWRefCon((WindowPtr)window->handle.window, mode);
ControlRef t_control;
MCRevolutionStackViewCreate(this, &t_control);
ControlRef t_root_control;
GetRootControl((WindowPtr)window -> handle . window, &t_root_control);
HIViewAddSubview(t_root_control, t_control);
ShowControl(t_control);
if (wclass == kDrawerWindowClass)
{
Window pwindow = NULL;
if (parentwindow != DNULL)
pwindow = parentwindow;
else
if (MCdefaultstackptr && MCdefaultstackptr->getw() != DNULL )
pwindow = MCdefaultstackptr->getw();
if (pwindow && GetWRefCon((WindowPtr)pwindow->handle.window) != WM_DRAWER)
{
SetDrawerParent((WindowPtr)window->handle.window, (WindowPtr)pwindow->handle.window);
WindowAttributes watt;
GetWindowAttributes((WindowPtr)pwindow->handle.window,&watt);
if (wattributes & kWindowResizableAttribute)
ChangeWindowAttributes((WindowPtr)pwindow->handle.window, kWindowLiveResizeAttribute, 0);
OptionBits draweredge;
switch (wposition)
{
case WP_PARENTTOP:
draweredge = kWindowEdgeTop;
break;
case WP_PARENTRIGHT:
draweredge = kWindowEdgeRight;
break;
case WP_PARENTBOTTOM:
draweredge = kWindowEdgeBottom;
break;
case WP_PARENTLEFT:
draweredge = kWindowEdgeLeft;
break;
default:
draweredge = kWindowEdgeDefault;
break;
}
SetDrawerPreferredEdge((WindowPtr)window->handle.window, draweredge);
if (walignment)
{
MCRectangle parentwindowrect;
MCscreen->getwindowgeometry(pwindow, parentwindowrect);
int2 wspace = 0;
RgnHandle r = NewRgn();
GetWindowRegion((WindowPtr)window->handle.window, kWindowStructureRgn, r);
Rect tRect;
GetRegionBounds(r, &tRect);
DisposeRgn(r);
MCRectangle drawerwindowrect;
psdc->MacRect2MCRect(tRect, drawerwindowrect);
if (wposition == WP_PARENTTOP || wposition == WP_PARENTBOTTOM)
{
wspace = parentwindowrect.width - drawerwindowrect.width;
if (watt & kWindowMetalAttribute)
if (wspace)
wspace += 10; //for metal
}
else
{
wspace = parentwindowrect.height - drawerwindowrect.height;
if (watt & kWindowMetalAttribute)
if (wspace)
wspace += 5; //for metal
}
if (wspace > 0)
switch (walignment)
{
case OP_CENTER:
SetDrawerOffsets ((WindowPtr)window->handle.window,ceil(wspace/2) -1,floor(wspace/2) + 1);
break;
case OP_RIGHT:
case OP_BOTTOM:
SetDrawerOffsets ((WindowPtr)window->handle.window,wspace,0);
break;
case OP_TOP:
case OP_LEFT:
SetDrawerOffsets ((WindowPtr)window->handle.window,0,wspace);
break;
}
}
}
}
delete tmpname;
// MW-2005-11-06: We also need to catch window constraining events so we can flush
// the screen geometry cache.
EventTypeSpec list[] =
{
{kEventClassWindow, kEventWindowCollapsed},
{kEventClassWindow, kEventWindowExpanded},
{kEventClassMouse, kEventMouseWheelMoved},
{kEventClassWindow, kEventWindowBoundsChanging},
{kEventClassWindow, kEventWindowBoundsChanged},
{kEventClassWindow, kEventWindowConstrain},
{kEventClassWindow, kEventWindowFocusAcquired},
{kEventClassWindow, kEventWindowFocusRelinquish},
{kEventClassWindow, kEventWindowActivated},
{kEventClassWindow, kEventWindowDeactivated},
{kEventClassWindow, kEventWindowClose},
};
EventHandlerRef ref;
// MW-2005-09-07: Pass the window handle as user data, otherwise 'takewindow' causes problems
InstallWindowEventHandler((WindowPtr)window->handle.window, MCS_weh, sizeof(list) / sizeof(EventTypeSpec), list, (WindowPtr)window -> handle . window, &ref);
ChangeWindowAttributes((WindowPtr)window->handle.window, 0, kWindowHideOnFullScreenAttribute);
updatemodifiedmark();
}
start_externals();
}
