pascal OSStatus OpenEventHandler(EventHandlerCallRef inHandlerRef, EventRef inEvent, void *inUserData)
{
NavDialogRef fileDialog;
NavDialogCreationOptions fo;
NavGetDefaultDialogCreationOptions(&fo);
fo.optionFlags=0;
fo.parentWindow=win;
NavCreateChooseFileDialog(&fo,NULL,NULL,NULL,NULL,NULL,&fileDialog);
// if someone wants to somehow get the file selector to filter like in the Windows example, that'd be nice ;)
if (!NavDialogRun(fileDialog)) {
NavReplyRecord r;
if (!NavDialogGetReply(fileDialog,&r)) {
AEKeyword k;
FSRef fr;
if (!AEGetNthPtr(&r.selection,1,typeFSRef,&k,NULL,&fr,sizeof(fr),NULL)) {
char file[256];
FSRefMakePath(&fr,(BYTE*)file,sizeof(file));
BASS_StreamFree(chan); // free old stream before opening new
if (!(chan=BASS_StreamCreateFile(FALSE,file,0,0,BASS_SAMPLE_LOOP|BASS_SAMPLE_FLOAT))) {
SetControlTitleWithCFString(inUserData,CFSTR("click here to open a file..."));
{
ControlRef cref=GetControl(11);
SetControlData(cref,kControlNoPart,kControlStaticTextTextTag,0,"");
DrawOneControl(cref);
}
SetControl32BitMaximum(GetControl(12),0);
Error("Can't play the file");
} else {
CFStringRef cs=CFStringCreateWithCString(0,file,kCFStringEncodingUTF8);
SetControlTitleWithCFString(inUserData,cs);
CFRelease(cs);
{ // display the file type and length
QWORD bytes=BASS_ChannelGetLength(chan,BASS_POS_BYTE);
DWORD time=BASS_ChannelBytes2Seconds(chan,bytes);
BASS_CHANNELINFO info;
BASS_ChannelGetInfo(chan,&info);
sprintf(file,"channel type = %x (%s)\nlength = %llu (%u:%02u)",
info.ctype,GetCTypeString(info.ctype,info.plugin),bytes,time/60,time%60);
{
ControlRef cref=GetControl(11);
SetControlData(cref,kControlNoPart,kControlStaticTextTextTag,strlen(file),file);
DrawOneControl(cref);
}
SetControl32BitMaximum(GetControl(12),time); // update scroller range
}
BASS_ChannelPlay(chan,FALSE);
}
}
NavDisposeReply(&r);
}
}
NavDialogDispose(fileDialog);
return noErr;
}
void PreferencesDialog::updateSliderVelocityAmplify()
{
ControlHandle control, controlSlider;
ControlID controlID1 = {kAppSignature, 127};
ControlID controlID2 = {kAppSignature, 125};
GetControlByID(preferencesWindow, &controlID1, &control);
GetControlByID(preferencesWindow, &controlID2, &controlSlider);
char buffer[1024];
sprintf(buffer, "Record velocity (amplify: %i%%)", m_dataBase->restore(KEY_VELOCITYAMPLIFY)->getIntValue());
CFStringRef CFStrVelocityAmplify = CFStringCreateWithCString(NULL, buffer, kCFStringEncodingASCII);
SetControlTitleWithCFString(control, CFStrVelocityAmplify);
CFRelease(CFStrVelocityAmplify);
SetControlValue(controlSlider, m_dataBase->restore(KEY_VELOCITYAMPLIFY)->getIntValue());
}
void
TkpDisplayMenuButton(
ClientData clientData) /* Information about widget. */
{
TkMenuButton *butPtr = (TkMenuButton *) clientData;
Tk_Window tkwin = butPtr->tkwin;
TkWindow * winPtr;
Pixmap pixmap;
MacMenuButton * mbPtr = (MacMenuButton *) butPtr;
GWorldPtr dstPort;
CGrafPtr saveWorld;
GDHandle saveDevice;
int hasImageOrBitmap = 0;
int width, height;
int err;
ControlButtonGraphicAlignment theAlignment;
Rect paneRect, cntrRect;
butPtr->flags &= ~REDRAW_PENDING;
if ((butPtr->tkwin == NULL) || !Tk_IsMapped(tkwin)) {
return;
}
pixmap = ( Pixmap )Tk_WindowId(tkwin);
GetGWorld(&saveWorld, &saveDevice);
dstPort = TkMacOSXGetDrawablePort(Tk_WindowId(tkwin));
SetGWorld(dstPort, NULL);
TkMacOSXSetUpClippingRgn(Tk_WindowId(tkwin));
winPtr=(TkWindow *)butPtr->tkwin;
paneRect.left=winPtr->privatePtr->xOff;
paneRect.top=winPtr->privatePtr->yOff;
paneRect.right=paneRect.left+Tk_Width(butPtr->tkwin)-1;
paneRect.bottom=paneRect.top+Tk_Height(butPtr->tkwin)-1;
cntrRect=paneRect;
cntrRect.left+=butPtr->inset;
cntrRect.top+=butPtr->inset;
cntrRect.right-=butPtr->inset;
cntrRect.bottom-=butPtr->inset;
if (mbPtr->userPane) {
MenuButtonControlParams params;
bzero(¶ms, sizeof(params));
ComputeMenuButtonControlParams(butPtr, ¶ms );
if (bcmp(¶ms,&mbPtr->params,sizeof(params))) {
if (mbPtr->userPane) {
DisposeControl(mbPtr->userPane);
mbPtr->userPane = NULL;
mbPtr->control = NULL;
}
}
}
if (!mbPtr->userPane) {
if (MenuButtonInitControl(mbPtr,&paneRect,&cntrRect ) ) {
fprintf(stderr,"Init Control failed\n" );
return;
}
}
SetControlBounds(mbPtr->userPane,&paneRect);
SetControlBounds(mbPtr->control,&cntrRect);
/*
* We need to cache the title and its style
*/
if (!(mbPtr->flags&2)) {
ControlTitleParams titleParams;
int titleChanged;
int styleChanged;
ComputeControlTitleParams(butPtr,&titleParams);
CompareControlTitleParams(&titleParams,&mbPtr->titleParams,
&titleChanged,&styleChanged);
if (titleChanged) {
CFStringRef cf;
cf = CFStringCreateWithCString(NULL,
titleParams.title, kCFStringEncodingUTF8);
if (hasImageOrBitmap) {
SetControlTitleWithCFString(mbPtr->control, cf);
} else {
SetMenuItemTextWithCFString(mbPtr->menuRef, 1, cf);
}
CFRelease(cf);
bcopy(titleParams.title,mbPtr->titleParams.title,titleParams.len+1);
mbPtr->titleParams.len = titleParams.len;
}
if ((titleChanged||styleChanged) && titleParams .len) {
if (hasImageOrBitmap) {
if ((err=SetControlFontStyle(mbPtr->control,&titleParams.style))!=noErr) {
fprintf(stderr,"SetControlFontStyle failed %d\n", err);
return;
}
}
bcopy(&titleParams.style,&mbPtr->titleParams.style,sizeof(titleParams.style));
}
}
if (butPtr->image != None) {
Tk_SizeOfImage(butPtr->image, &width, &height);
hasImageOrBitmap = 1;
} else if (butPtr->bitmap != None) {
Tk_SizeOfBitmap(butPtr->display, butPtr->bitmap, &width, &height);
hasImageOrBitmap = 1;
}
if (hasImageOrBitmap) {
mbPtr->picParams.srcRect.right = width;
mbPtr->picParams.srcRect.bottom = height;
/* Set the flag to circumvent clipping and bounds problems with OS 10.0.4 */
tkPictureIsOpen = 1;
if (!(mbPtr->bevelButtonContent.u.picture = OpenCPicture(&mbPtr->picParams)) ) {
fprintf(stderr,"OpenCPicture failed\n");
}
/*
* TO DO - There is one case where XCopyPlane calls CopyDeepMask,
* which does not get recorded in the picture. So the bitmap code
* will fail in that case.
*/
if (butPtr->image != NULL) {
Tk_RedrawImage(butPtr->image, 0, 0, width,
height, pixmap, 0, 0);
} else {
XCopyPlane(butPtr->display, butPtr->bitmap, pixmap, NULL, 0, 0,
(unsigned int) width, (unsigned int) height, 0, 0, 1);
}
ClosePicture();
tkPictureIsOpen = 0;
if ( (err=SetControlData(mbPtr->control, kControlButtonPart,
kControlBevelButtonContentTag,
sizeof(ControlButtonContentInfo),
(char *) &mbPtr->bevelButtonContent)) != noErr ) {
fprintf(stderr,"SetControlData BevelButtonContent failed, %d\n", err );
}
switch (butPtr->anchor) {
case TK_ANCHOR_N:
theAlignment = kControlBevelButtonAlignTop;
break;
case TK_ANCHOR_NE:
theAlignment = kControlBevelButtonAlignTopRight;
break;
case TK_ANCHOR_E:
theAlignment = kControlBevelButtonAlignRight;
break;
case TK_ANCHOR_SE:
theAlignment = kControlBevelButtonAlignBottomRight;
break;
case TK_ANCHOR_S:
theAlignment = kControlBevelButtonAlignBottom;
break;
case TK_ANCHOR_SW:
theAlignment = kControlBevelButtonAlignBottomLeft;
break;
case TK_ANCHOR_W:
theAlignment = kControlBevelButtonAlignLeft;
break;
case TK_ANCHOR_NW:
theAlignment = kControlBevelButtonAlignTopLeft;
break;
case TK_ANCHOR_CENTER:
theAlignment = kControlBevelButtonAlignCenter;
break;
}
if ((err=SetControlData(mbPtr->control, kControlButtonPart,
kControlBevelButtonGraphicAlignTag,
sizeof(ControlButtonGraphicAlignment),
(char *) &theAlignment)) != noErr ) {
fprintf(stderr,"SetControlData BevelButtonGraphicAlign failed, %d\n", err );
}
}
if (butPtr->flags & GOT_FOCUS) {
HiliteControl(mbPtr->control,kControlButtonPart);
} else {
HiliteControl(mbPtr->control,kControlNoPart);
}
UpdateControlColors(mbPtr);
if (mbPtr->flags&2) {
ShowControl(mbPtr->control);
ShowControl(mbPtr->userPane);
mbPtr->flags ^= 2;
} else {
Draw1Control(mbPtr->userPane);
SetControlVisibility(mbPtr->control, true, true);
}
if (hasImageOrBitmap) {
KillPicture(mbPtr->bevelButtonContent.u.picture);
}
SetGWorld(saveWorld, saveDevice);
}
void SetControlText(int id, const char *text)
{
CFStringRef cs=CFStringCreateWithCString(0,text,0);
SetControlTitleWithCFString(GetControl(id),cs);
CFRelease(cs);
}
pascal OSStatus OpenEventHandler(EventHandlerCallRef inHandlerRef, EventRef inEvent, void *inUserData)
{
DWORD p;
NavDialogRef fileDialog;
NavDialogCreationOptions fo;
NavGetDefaultDialogCreationOptions(&fo);
fo.optionFlags=0;
fo.parentWindow=win;
NavCreateChooseFileDialog(&fo,NULL,NULL,NULL,NULL,NULL,&fileDialog);
if (!NavDialogRun(fileDialog)) {
NavReplyRecord r;
if (!NavDialogGetReply(fileDialog,&r)) {
AEKeyword k;
FSRef fr;
if (!AEGetNthPtr(&r.selection,1,typeFSRef,&k,NULL,&fr,sizeof(fr),NULL)) {
char file[256];
FSRefMakePath(&fr,(BYTE*)file,sizeof(file));
BASS_StreamFree(chan); // free old streams before opening new
// create decode channel
chan = BASS_StreamCreateFile(FALSE,file,0,0,BASS_SAMPLE_FLOAT|BASS_STREAM_DECODE|BASS_STREAM_PRESCAN);
// check for MOD
if (!chan) chan = BASS_MusicLoad(FALSE, file, 0, 0, BASS_SAMPLE_FLOAT|BASS_MUSIC_RAMP|BASS_STREAM_DECODE|BASS_MUSIC_PRESCAN,0);
if (!chan) {
SetControlTitleWithCFString(inUserData,CFSTR("click here to open a file && play it..."));
Error("Selected file couldn't be loaded!");
} else {
// create new stream - decoded & reversed
// 2 seconds decoding block as a decoding channel
if (!(chan=BASS_FX_ReverseCreate(chan, 2, BASS_STREAM_DECODE|BASS_FX_FREESOURCE))) {
SetControlTitleWithCFString(inUserData,CFSTR("click here to open a file && play it..."));
Error("Couldn't create a reversed stream!");
BASS_StreamFree(chan);
BASS_MusicFree(chan);
} else {
// create a new stream - decoded & resampled :)
if (!(chan=BASS_FX_TempoCreate(chan, BASS_SAMPLE_LOOP|BASS_FX_FREESOURCE))){
SetControlTitleWithCFString(inUserData,CFSTR("click here to open a file && play it..."));
Error("Couldn't create a resampled stream!");
BASS_StreamFree(chan);
BASS_MusicFree(chan);
} else {
// update the Button to show the loaded file
c2pstrcpy((BYTE*)file,file);
SetControlTitle(inUserData,(BYTE*)file);
// update the position slider
p = BASS_ChannelBytes2Seconds(chan, BASS_ChannelGetLength(chan, BASS_POS_BYTE));
SetControl32BitMaximum(GetControl(15),p);
SetControl32BitValue(GetControl(15),p);
// set Volume
p = GetControl32BitValue(GetControl(11));
BASS_ChannelSetAttribute(chan, BASS_ATTRIB_VOL, (float)p/100.0f);
// update tempo slider
SetControl32BitValue(GetControl(13),0);
SetStaticText(12,"Tempo = 0%");
// play new created stream
BASS_ChannelPlay(chan,FALSE);
}
}
}
}
NavDisposeReply(&r);
}
}
NavDialogDispose(fileDialog);
return noErr;
}
static void
TkMacOSXDrawControl(
MacButton *mbPtr, /* Mac button. */
GWorldPtr destPort, /* Off screen GWorld. */
GC gc, /* The GC we are drawing into - needed for the
* bevel button */
Pixmap pixmap) /* The pixmap we are drawing into - needed for
* the bevel button */
{
TkButton *butPtr = (TkButton *) mbPtr;
TkWindow *winPtr;
Rect paneRect, cntrRect;
int active, enabled;
int rebuild;
winPtr = (TkWindow *) butPtr->tkwin;
paneRect.left = winPtr->privatePtr->xOff;
paneRect.top = winPtr->privatePtr->yOff;
paneRect.right = paneRect.left + Tk_Width(butPtr->tkwin);
paneRect.bottom = paneRect.top + Tk_Height(butPtr->tkwin);
cntrRect = paneRect;
/*
cntrRect.left += butPtr->inset;
cntrRect.top += butPtr->inset;
cntrRect.right -= butPtr->inset;
cntrRect.bottom -= butPtr->inset;
*/
cntrRect.left += DEF_INSET_LEFT;
cntrRect.top += DEF_INSET_TOP;
cntrRect.right -= DEF_INSET_RIGHT;
cntrRect.bottom -= DEF_INSET_BOTTOM;
/*
* The control has been previously initialised.
* It may need to be re-initialised
*/
#if 0
rebuild = (winPtr->flags & TK_REBUILD_TOPLEVEL);
winPtr->flags &= ~TK_REBUILD_TOPLEVEL;
#else
rebuild = 0;
#endif
if (mbPtr->flags) {
MacControlParams params;
TkMacOSXComputeControlParams(butPtr, ¶ms);
if (rebuild || bcmp(¶ms, &mbPtr->params, sizeof(params))) {
/*
* The type of control has changed.
* Clean it up and clear the flag.
*/
if (mbPtr->userPane) {
DisposeControl(mbPtr->userPane);
mbPtr->userPane = NULL;
mbPtr->control = NULL;
}
mbPtr->flags = 0;
}
}
if (!(mbPtr->flags & CONTROL_INITIALIZED)) {
if (TkMacOSXInitControl(mbPtr, destPort, gc, pixmap, &paneRect,
&cntrRect)) {
return;
}
}
SetControlBounds(mbPtr->userPane, &paneRect);
SetControlBounds(mbPtr->control, &cntrRect);
if (!mbPtr->useTkText) {
Str255 controlTitle;
ControlFontStyleRec fontStyle;
Tk_Font font;
int len;
if (((mbPtr->info.image == NULL) && (mbPtr->info.bitmap == None))
|| (mbPtr->info.compound != COMPOUND_NONE)) {
len = TkFontGetFirstTextLayout(butPtr->textLayout,
&font, (char*) controlTitle);
controlTitle[len] = 0;
} else {
len = 0;
controlTitle[0] = 0;
}
if (rebuild || bcmp(mbPtr->controlTitle, controlTitle, len+1)) {
CFStringRef cf = CFStringCreateWithCString(NULL,
(char*) controlTitle, kCFStringEncodingUTF8);
if (cf != NULL) {
SetControlTitleWithCFString(mbPtr->control, cf);
CFRelease(cf);
}
bcopy(controlTitle, mbPtr->controlTitle, len+1);
}
if (len) {
TkMacOSXInitControlFontStyle(font, &fontStyle);
if (bcmp(&mbPtr->fontStyle, &fontStyle, sizeof(fontStyle)) ) {
ChkErr(SetControlFontStyle, mbPtr->control, &fontStyle);
bcopy(&fontStyle, &mbPtr->fontStyle, sizeof(fontStyle));
}
}
}
if (mbPtr->params.isBevel) {
/*
* Initialiase the image/button parameters.
*/
SetupBevelButton(mbPtr, mbPtr->control, destPort, gc, pixmap);
}
if (butPtr->flags & SELECTED) {
SetControlValue(mbPtr->control, 1);
#if 0
} else if (butPtr->flags & TRISTATED) {
SetControlValue(mbPtr->control, 2);
#endif
} else {
SetControlValue(mbPtr->control, 0);
}
active = ((mbPtr->flags & ACTIVE) != 0);
if (active != IsControlActive(mbPtr->control)) {
if (active) {
ChkErr(ActivateControl, mbPtr->control);
} else {
ChkErr(DeactivateControl, mbPtr->control);
}
}
enabled = !(butPtr->state == STATE_DISABLED);
if (enabled != IsControlEnabled(mbPtr->control)) {
if (enabled) {
ChkErr(EnableControl, mbPtr->control);
} else {
ChkErr(DisableControl, mbPtr->control);
}
}
if (active && enabled) {
if (butPtr->state == STATE_ACTIVE) {
if (mbPtr->params.isBevel) {
HiliteControl(mbPtr->control, kControlButtonPart);
} else {
switch (butPtr->type) {
case TYPE_BUTTON:
HiliteControl(mbPtr->control, kControlButtonPart);
break;
case TYPE_RADIO_BUTTON:
HiliteControl(mbPtr->control, kControlRadioButtonPart);
break;
case TYPE_CHECK_BUTTON:
HiliteControl(mbPtr->control, kControlCheckBoxPart);
break;
}
}
} else {
HiliteControl(mbPtr->control, kControlNoPart);
}
}
UpdateControlColors(mbPtr);
if (butPtr->type == TYPE_BUTTON && !mbPtr->params.isBevel) {
Boolean isDefault;
if (butPtr->defaultState == STATE_ACTIVE) {
isDefault = true;
} else {
isDefault = false;
}
ChkErr(SetControlData, mbPtr->control, kControlNoPart,
kControlPushButtonDefaultTag, sizeof(isDefault), &isDefault);
}
if (mbPtr->flags & FIRST_DRAW) {
ShowControl(mbPtr->userPane);
ShowControl(mbPtr->control);
mbPtr->flags ^= FIRST_DRAW;
} else {
SetControlVisibility(mbPtr->control, true, true);
Draw1Control(mbPtr->userPane);
}
if (mbPtr->params.isBevel) {
if (mbPtr->bevelButtonContent.contentType ==
kControlContentPictHandle) {
KillPicture(mbPtr->bevelButtonContent.u.picture);
}
}
}
// Update our UI to display the "play" button text
static OSStatus SetControlButtonTextPlay()
{
return(SetControlTitleWithCFString(mButtonRef,playText));
}
// Update our UI to display the "stop" button text
static OSStatus SetControlButtonTextStopped()
{
return(SetControlTitleWithCFString(mButtonRef,stopText));
}
extern OSStatus MyEmbedCustomControls (
MyCustomContext context,
WindowRef nibWindow,
ControlRef userPane
)
{
static const ControlID containerControlID = { kMozPDECreatorCode, 4000 };
static const ControlID radioGroupControlID = { kMozPDECreatorCode, 4001 };
static const ControlID printSelCheckControlID = { kMozPDECreatorCode, 4002 };
static const ControlID shrinkToFitCheckControlID = { kMozPDECreatorCode, 4003 };
static const ControlID printBGColorsCheckControlID = { kMozPDECreatorCode, 4004 };
static const ControlID printBGImagesCheckControlID = { kMozPDECreatorCode, 4005 };
static const ControlID headerLeftPopupControlID = { kMozPDECreatorCode, 4006 };
static const ControlID headerCenterPopupControlID = { kMozPDECreatorCode, 4007 };
static const ControlID headerRightPopupControlID = { kMozPDECreatorCode, 4008 };
static const ControlID footerLeftPopupControlID = { kMozPDECreatorCode, 4009 };
static const ControlID footerCenterPopupControlID = { kMozPDECreatorCode, 4010 };
static const ControlID footerRightPopupControlID = { kMozPDECreatorCode, 4011 };
OSStatus result = noErr;
if (context != NULL)
{
ControlHandle paneControl = NULL;
// The control we're embedding into the given
// userPane is itself a user pane control.
result = MyEmbedControl(nibWindow,
userPane,
&containerControlID,
&paneControl);
if (paneControl)
{
WindowRef controlOwner = GetControlOwner(paneControl);
GetControlByID(controlOwner,
&radioGroupControlID,
&(context->controls.frameRadioGroup));
if (context->controls.frameRadioGroup != NULL)
{
// It doesn't seem to be possible to specify the titles of the
// radio buttons within a radio group control, so do it by hand :-/
// This is not done as a loop, but instead using CFSTR("abc") so
// that genstrings can grok this file. Maybe that's not worth it?
CFStringRef radioTitle;
ControlRef radioControl;
if (GetIndexedSubControl(context->controls.frameRadioGroup,
kFramesAsLaidOutIndex, &radioControl) == noErr)
{
radioTitle = CFCopyLocalizedStringFromTableInBundle(
CFSTR("As laid out on the screen"),
CFSTR("Localizable"),
MyGetBundle(),
"top radio title");
if (radioTitle)
{
SetControlTitleWithCFString(radioControl, radioTitle);
CFRelease(radioTitle);
}
}
if (GetIndexedSubControl(context->controls.frameRadioGroup,
kFramesSelectedIndex, &radioControl) == noErr)
{
radioTitle = CFCopyLocalizedStringFromTableInBundle(
CFSTR("The selected frame"),
CFSTR("Localizable"),
MyGetBundle(),
"middle radio title");
if (radioTitle)
{
SetControlTitleWithCFString(radioControl, radioTitle);
CFRelease(radioTitle);
}
}
if (GetIndexedSubControl(context->controls.frameRadioGroup,
kFramesEachSeparatelyIndex, &radioControl) == noErr)
{
radioTitle = CFCopyLocalizedStringFromTableInBundle(
CFSTR("Each frame separately"),
CFSTR("Localizable"),
MyGetBundle(),
"bottom radio title");
if (radioTitle)
{
SetControlTitleWithCFString(radioControl, radioTitle);
CFRelease(radioTitle);
}
}
}
GetControlByID(controlOwner,
&printSelCheckControlID,
&(context->controls.printSelCheck));
GetControlByID(controlOwner,
&shrinkToFitCheckControlID,
&(context->controls.shrinkToFitCheck));
GetControlByID(controlOwner,
&printBGColorsCheckControlID,
&(context->controls.printBGColorsCheck));
GetControlByID(controlOwner,
&printBGImagesCheckControlID,
&(context->controls.printBGImagesCheck));
GetControlByID(controlOwner,
&headerLeftPopupControlID,
&(context->controls.headerLeftPopup));
GetControlByID(controlOwner,
&headerCenterPopupControlID,
&(context->controls.headerCenterPopup));
GetControlByID(controlOwner,
&headerRightPopupControlID,
&(context->controls.headerRightPopup));
GetControlByID(controlOwner,
&footerLeftPopupControlID,
&(context->controls.footerLeftPopup));
GetControlByID(controlOwner,
&footerCenterPopupControlID,
&(context->controls.footerCenterPopup));
GetControlByID(controlOwner,
&footerRightPopupControlID,
&(context->controls.footerRightPopup));
// Now that the controls are in, sync with data.
SyncPaneFromSettings(context);
}
}
return result;
}
