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 SetStaticText(int id, const char *text)
{
ControlRef cref=GetControl(id);
SetControlData(cref,kControlNoPart,kControlStaticTextTextTag,strlen(text),text);
DrawOneControl(cref);
// HACKY: wake up event loop to update display
ProcessSerialNumber psn={0,kCurrentProcess};
WakeUpProcess(&psn);
}
void TabbedWindow::SelectTabViewItemAtIndex( int tabIndex )
{
OSStatus status;
SetControlValue( fTabControlRef, tabIndex );
status = this->SwitchTabPane( fTabControlRef );
DrawOneControl( fTabControlRef );
this->ForceUpdate();
}
void
UpdateItemCount()
{
ControlID controlID = { kNSLSample, kServicesCountText };
ControlRef control;
Str255 countStr;
char count[16];
UInt32 itemCount;
static UInt32 previousItemCount = 0;
OSStatus err = noErr;
err = GetControlByID(gMainWindow, &controlID, &control);
if (err == noErr)
{
err = GetDataBrowserItemCount(gDataBrowserControl, 0, true, kDataBrowserItemAnyState, &itemCount);
// Only update if the count has actually changed since last time.
if (err == noErr && previousItemCount != itemCount)
{
previousItemCount = itemCount;
NumToString (itemCount, countStr);
CopyPascalStringToC(countStr, count);
if (itemCount == 1)
{
strcat(count, " Item");
SetControlData(control, kControlNoPart, kControlEditTextTextTag, strlen(count), count);
ShowControl(control);
}
else
{
strcat(count, " Items");
SetControlData(control, kControlNoPart, kControlEditTextTextTag, strlen(count), count);
ShowControl(control);
}
DrawOneControl(control);
DrawOneControl(gDataBrowserControl);
}
}
}
void
drivers_notification_item (ControlRef browser,
DataBrowserItemID itemID, DataBrowserItemNotification message)
{
static Boolean ignore_next = false, selected = false;
switch (message)
{
case kDataBrowserItemSelected:
if (DRIVERCHOOSER->b_configure)
{
ActivateControl (DRIVERCHOOSER->b_remove);
DrawOneControl (DRIVERCHOOSER->b_remove);
ActivateControl (DRIVERCHOOSER->b_configure);
DrawOneControl (DRIVERCHOOSER->b_configure);
}
else
{
ActivateControl (DRIVERCHOOSER->b_add);
DrawOneControl (DRIVERCHOOSER->b_add);
}
if (selected)
ignore_next = true;
else
selected = true;
break;
case kDataBrowserItemDeselected:
if (!ignore_next)
{
if (DRIVERCHOOSER->b_configure)
{
DeactivateControl (DRIVERCHOOSER->b_remove);
DrawOneControl (DRIVERCHOOSER->b_remove);
DeactivateControl (DRIVERCHOOSER->b_configure);
DrawOneControl (DRIVERCHOOSER->b_configure);
}
else
{
DeactivateControl (DRIVERCHOOSER->b_add);
DrawOneControl (DRIVERCHOOSER->b_add);
}
selected = false;
}
else
{
ignore_next = false;
selected = true;
}
break;
case kDataBrowserItemDoubleClicked:
if (DRIVERCHOOSER->b_configure)
driver_configure_clicked (NULL, NULL, DRIVERCHOOSER);
break;
};
}
//-----------------------------------------------------------------------------
// ¥ SetEditTextText
//-----------------------------------------------------------------------------
// Sets the text of an edit text control and optionally redraws it.
//
OSStatus
SetEditTextCFString( ControlHandle control, CFStringRef text, Boolean draw )
{
OSStatus err;
if ( control == nil )
return paramErr;
err = SetControlData( control, 0, kControlEditTextCFStringTag, sizeof( text ), (Ptr)&text );
if ( (err == noErr) && draw )
DrawOneControl( control );
return err;
}
//-----------------------------------------------------------------------------
// ¥ SetStaticTextText
//-----------------------------------------------------------------------------
// Sets the text of an edit text control and optionally redraws it.
//
OSStatus
SetStaticTextText( ControlHandle control, ConstStr255Param text, Boolean draw )
{
OSStatus err;
if ( control == nil )
return paramErr;
err = SetControlData( control, 0, kControlStaticTextTextTag, text[0], (Ptr)(text+1) );
if ( (err == noErr) && draw )
DrawOneControl( control );
return err;
}
OSStatus
SetStaticTextCFString( ControlRef control, CFStringRef text, Boolean draw )
{
OSStatus err;
if ( control == nil )
return paramErr;
if ( text == nil )
return paramErr;
err = SetControlData( control, 0, kControlStaticTextCFStringTag, sizeof( CFStringRef ),
&text );
if ( (err == noErr) && draw )
DrawOneControl( control );
return err;
}
static void
parse_attribute_line (TGENSETUP * gensetup_t,
LPCSTR dsn,
LPCSTR attrs,
BOOL add)
{
if (dsn)
{
SetControlData (gensetup_t->dsn_entry, 0, kControlEditTextTextTag,
STRLEN (dsn), (UInt8 *) dsn);
if (add)
ActivateControl (gensetup_t->dsn_entry);
else
DeactivateControl (gensetup_t->dsn_entry);
DrawOneControl (gensetup_t->dsn_entry);
}
addkeywords_to_list (gensetup_t->key_list, attrs, gensetup_t);
}
//-----------------------------------------------------------------------------
// ¥ SetEditTextSelection
//-----------------------------------------------------------------------------
// Sets the selection of an edit text control and redraws it.
//
OSStatus
SetEditTextSelection( ControlHandle control, SInt16 selStart, SInt16 selEnd )
{
ControlEditTextSelectionRec selection;
OSStatus err;
if ( control == nil )
return paramErr;
selection.selStart = selStart;
selection.selEnd = selEnd;
err = SetControlData( control, 0, kControlEditTextSelectionTag,
sizeof( selection ), (Ptr)&selection );
if ( err == noErr )
DrawOneControl( control );
return err;
}
static void
dsnsetup_notification_item (ControlRef browser,
DataBrowserItemID itemID, DataBrowserItemNotification message)
{
static Boolean ignore_next = false, selected = false;
switch (message)
{
case kDataBrowserItemSelected:
if (DSNSETUP)
{
ActivateControl (DSNSETUP->bupdate);
DrawOneControl (DSNSETUP->bupdate);
SetControlData (DSNSETUP->key_entry, 0, kControlEditTextCFStringTag,
sizeof(CFStringRef), &DSNSETUP_array[0][itemID - DBITEM_ID - 1]);
DrawOneControl (DSNSETUP->key_entry);
SetControlData (DSNSETUP->value_entry, 0, kControlEditTextCFStringTag,
sizeof(CFStringRef), &DSNSETUP_array[1][itemID - DBITEM_ID - 1]);
DrawOneControl (DSNSETUP->value_entry);
}
if (selected)
ignore_next = true;
else
selected = true;
break;
case kDataBrowserItemDeselected:
if (!ignore_next && DSNSETUP)
{
DeactivateControl (DSNSETUP->bupdate);
DrawOneControl (DSNSETUP->bupdate);
SetControlData (DSNSETUP->key_entry, 0, kControlEditTextTextTag, 0,
"");
DrawOneControl (DSNSETUP->key_entry);
SetControlData (DSNSETUP->value_entry, 0, kControlEditTextTextTag,
0, "");
DrawOneControl (DSNSETUP->value_entry);
selected = false;
}
else
{
ignore_next = false;
selected = true;
}
break;
};
}
// Add item
OSStatus
OPL_DSNList::addItem(CFStringRef dsn, int item_type)
{
OSStatus err;
m_nextItemID++;
CFNumberRef num = CFNumberCreate(NULL, kCFNumberSInt32Type, &m_nextItemID);
CFDictionarySetValue(m_items, num, dsn);
CFDictionarySetValue(m_itemsType, num, CFNumberCreate(NULL, kCFNumberSInt32Type, &item_type));
// add new test item
DataBrowserItemID itemID = m_nextItemID;
err = AddDataBrowserItems(m_itemView, kDataBrowserNoItem,
1, &itemID, kDataBrowserItemNoProperty);
require_noerr(err, error);
// update control
DrawOneControl(m_itemView);
error:
return err;
}
static pascal ControlPartCode trackingProc (
ControlRef inControl,
Point inStartPt,
ControlActionUPP inActionProc)
{
#pragma unused (inControl, inStartPt, inActionProc)
int i;
for (i = 0; i < sNumMonitors; i++)
{
if (PtInRect(inStartPt, &sMonitors[i].scaledRect))
{
if (sMonitors[i].device != sSelectedDevice)
{
sSelectedDevice = sMonitors[i].device;
DrawOneControl(inControl);
}
break;
}
}
return kControlNoPart;
}
static void
fdsn_notification_item (ControlRef browser,
DataBrowserItemID itemID, DataBrowserItemNotification message)
{
static Boolean ignore_next = false, selected = false;
switch (message)
{
case kDataBrowserItemSelected:
ActivateControl (DSNCHOOSER->fremove);
DrawOneControl (DSNCHOOSER->fremove);
ActivateControl (DSNCHOOSER->ftest);
DrawOneControl (DSNCHOOSER->ftest);
ActivateControl (DSNCHOOSER->fconfigure);
DrawOneControl (DSNCHOOSER->fconfigure);
if (selected)
ignore_next = true;
else
selected = true;
break;
case kDataBrowserItemDeselected:
if (!ignore_next)
{
DeactivateControl (DSNCHOOSER->fremove);
DrawOneControl (DSNCHOOSER->fremove);
DeactivateControl (DSNCHOOSER->ftest);
DrawOneControl (DSNCHOOSER->ftest);
DeactivateControl (DSNCHOOSER->fconfigure);
DrawOneControl (DSNCHOOSER->fconfigure);
}
else
{
ignore_next = false;
selected = true;
}
break;
case kDataBrowserItemDoubleClicked:
filedsn_configure_clicked (NULL, NULL, DSNCHOOSER);
break;
};
}
BOOL create_confirm_Internal (HWND hwnd,
SQLPOINTER dsn,
SQLPOINTER text,
SQLCHAR waMode)
{
EventTypeSpec controlSpec = { kEventClassControl, kEventControlHit };
RgnHandle cursorRgn = NULL;
ControlID controlID;
ControlRef control;
WindowRef wconfirm;
TCONFIRM confirm_t;
EventRecord event;
IBNibRef nibRef;
CFStringRef msg;
OSStatus err;
/* Search the bundle for a .nib file named 'odbcadmin'. */
err =
CreateNibReferenceWithCFBundle (CFBundleGetBundleWithIdentifier (CFSTR
("org.iodbc.drvproxy")), CFSTR ("confirmation"), &nibRef);
if (err == noErr)
{
/* Nib found ... so create the window */
CreateWindowFromNib (nibRef, CFSTR ("Dialog"), &wconfirm);
DisposeNibReference (nibRef);
/* Set the title with the DSN name */
if (dsn)
{
if (waMode == 'A')
msg = CFStringCreateWithBytes (NULL, (unsigned char*)dsn, STRLEN(dsn),
kCFStringEncodingUTF8, false);
else
msg = convert_wchar_to_CFString((wchar_t*)dsn);
SetWindowTitleWithCFString (wconfirm, msg);
CFRelease(msg);
}
/* Install handlers for the finish button, the cancel */
GETCONTROLBYID (controlID, CNTL_SIGNATURE, CONFYES_CNTL, wconfirm,
control);
InstallEventHandler (GetControlEventTarget (control),
NewEventHandlerUPP (confirmadm_yes_clicked), 1, &controlSpec,
&confirm_t, NULL);
GETCONTROLBYID (controlID, CNTL_SIGNATURE, CONFNO_CNTL, wconfirm,
control);
InstallEventHandler (GetControlEventTarget (control),
NewEventHandlerUPP (confirmadm_no_clicked), 1, &controlSpec,
&confirm_t, NULL);
/* Change the static field with the message */
GETCONTROLBYID (controlID, CNTL_SIGNATURE, CONFTEXT_CNTL, wconfirm,
control);
if (waMode == 'A')
SetControlData (control, 0, kControlEditTextTextTag, STRLEN (text), text);
else
{
msg = convert_wchar_to_CFString((wchar_t*)text);
SetControlData (control, 0, kControlEditTextCFStringTag, sizeof(CFStringRef), &msg);
CFRelease(msg);
}
DrawOneControl (control);
confirm_t.yes_no = FALSE;
confirm_t.mainwnd = wconfirm;
/* Show the window and run the loop */
ShowWindow (wconfirm);
/* The main loop */
while (confirm_t.mainwnd)
WaitNextEvent (everyEvent, &event, 60L, cursorRgn);
}
else
goto error;
return confirm_t.yes_no;
error:
fprintf (stderr, "Can't load Window. Err: %d\n", (int) err);
return confirm_t.yes_no;
}
void
addfdsns_to_list (TDSNCHOOSER *dsnchoose_t, char *path, Boolean b_reset)
{
DataBrowserItemID item = DBITEM_ID + 1;
DataBrowserCallbacks dbCallbacks;
ThemeDrawingState outState = NULL;
UInt16 colSize[3] = { 400, 100, 150 };
SInt16 outBaseline;
Point ioBound;
int i;
DIR *dir;
char *path_buf;
struct dirent *dir_entry;
struct stat fstat;
int b_added;
ControlRef widget;
WindowRef dlg;
if (!dsnchoose_t || !path)
return;
widget = dsnchoose_t->fdsnlist;
dlg = dsnchoose_t->mainwnd;
GetThemeDrawingState (&outState);
/* Install an event handler on the component databrowser */
dbCallbacks.version = kDataBrowserLatestCallbacks;
InitDataBrowserCallbacks (&dbCallbacks);
dbCallbacks.u.v1.itemNotificationCallback =
NewDataBrowserItemNotificationUPP (fdsn_notification_item);
/* On Mac OS X 10.0.x : clientDataCallback */
dbCallbacks.u.v1.itemDataCallback =
NewDataBrowserItemDataUPP (fdsn_getset_item);
SetDataBrowserCallbacks (widget, &dbCallbacks);
/* Begin the draw of the data browser */
SetDataBrowserTarget (widget, DBITEM_ID);
/* Make the clean up */
for (i = 0; i < FDSN_nrows; i++, item++)
{
CFRelease (FDSN_array[i]);
FDSN_array[i] = NULL;
FDSN_type[i] = 0;
RemoveDataBrowserItems (widget, DBITEM_ID, 1, &item, DBNAME_ID);
}
ActivateControl (widget);
DrawOneControl (widget);
/* Global Initialization */
FDSN_nrows = 0;
item = DBITEM_ID + 1;
if ((dir = opendir (path)))
{
while ((dir_entry = readdir (dir)) && FDSN_nrows < MAX_ROWS)
{
asprintf (&path_buf, "%s/%s", path, dir_entry->d_name);
b_added = 0;
if (stat ((LPCSTR) path_buf, &fstat) >= 0 && S_ISDIR (fstat.st_mode))
{
if (dir_entry->d_name && dir_entry->d_name[0] != '.')
{
FDSN_array[FDSN_nrows] = CFStringCreateWithCString(NULL, dir_entry->d_name, kCFStringEncodingUTF8);
FDSN_type[FDSN_nrows] = 0;
b_added = 1;
}
}
else if (stat ((LPCSTR) path_buf, &fstat) >= 0 && !S_ISDIR (fstat.st_mode)
&& strstr (dir_entry->d_name, ".dsn"))
{
FDSN_array[FDSN_nrows] = CFStringCreateWithCString(NULL, dir_entry->d_name, kCFStringEncodingUTF8);
FDSN_type[FDSN_nrows] = 1;
b_added = 1;
}
if (path_buf)
free (path_buf);
if (b_added)
{
GetThemeTextDimensions (FDSN_array[FDSN_nrows], kThemeSystemFont,
kThemeStateActive, false, &ioBound, &outBaseline);
if(colSize[0] < ioBound.h) colSize[0] = ioBound.h;
AddDataBrowserItems (widget, DBITEM_ID, 1, &item, DBNAME_ID);
item++;
FDSN_nrows++;
}
}
/* Close the directory entry */
closedir (dir);
}
else
create_error (NULL, NULL, "Error during accessing directory information",
strerror (errno));
ActivateControl (widget);
/* Resize the columns to have a good look */
SetDataBrowserTableViewNamedColumnWidth (widget, DBNAME_ID, colSize[0] + 20);
DrawOneControl (widget);
/* Remove the DataBrowser callback */
SetDataBrowserCallbacks (NULL, &dbCallbacks);
if(outState) DisposeThemeDrawingState (outState);
if (b_reset)
SetDataBrowserScrollPosition(widget, 0, 0);
fill_dir_menu(dsnchoose_t, path);
}
void SetStaticText(int id, const char *text)
{
ControlRef cref=GetControl(id);
SetControlData(cref,kControlNoPart,kControlStaticTextTextTag,strlen(text),text);
DrawOneControl(cref);
}
/* Changed ... Have to implement the same for translators */
void
adddrivers_to_list (ControlRef widget, WindowRef dlg, BOOL addNotify)
{
wchar_t drvdesc[1024], drvattrs[1024], driver[1024];
DataBrowserItemID item = DBITEM_ID + 1;
DataBrowserCallbacks dbCallbacks;
ThemeDrawingState outState = NULL;
UInt16 colSize[5] = { 150, 150, 100, 50 , 50};
void *handle;
SInt16 outBaseline;
Point ioBound;
struct stat _stat;
SQLSMALLINT len, len1;
SQLRETURN ret;
HENV henv, drv_henv;
HDBC drv_hdbc;
pSQLGetInfoFunc funcHdl;
pSQLAllocHandle allocHdl;
pSQLAllocEnv allocEnvHdl = NULL;
pSQLAllocConnect allocConnectHdl = NULL;
pSQLFreeHandle freeHdl;
pSQLFreeEnv freeEnvHdl;
pSQLFreeConnect freeConnectHdl;
char *_drv_u8 = NULL;
int i;
if (!widget)
return;
GetThemeDrawingState (&outState);
/* Install an event handler on the component databrowser */
dbCallbacks.version = kDataBrowserLatestCallbacks;
InitDataBrowserCallbacks (&dbCallbacks);
if (addNotify)
dbCallbacks.u.v1.itemNotificationCallback =
NewDataBrowserItemNotificationUPP (drivers_notification_item);
/* On Mac OS X 10.0.x : clientDataCallback */
dbCallbacks.u.v1.itemDataCallback =
NewDataBrowserItemDataUPP (drivers_getset_item);
SetDataBrowserCallbacks (widget, &dbCallbacks);
/* Begin the draw of the data browser */
SetDataBrowserTarget (widget, DBITEM_ID);
/* Make the clean up */
for (i = 0; i < Drivers_nrows; i++, item++)
{
CFRelease (Drivers_array[0][i]);
Drivers_array[0][i] = NULL;
CFRelease (Drivers_array[1][i]);
Drivers_array[1][i] = NULL;
CFRelease (Drivers_array[2][i]);
Drivers_array[2][i] = NULL;
CFRelease (Drivers_array[3][i]);
Drivers_array[3][i] = NULL;
CFRelease (Drivers_array[4][i]);
Drivers_array[4][i] = NULL;
RemoveDataBrowserItems (widget, DBITEM_ID, 1, &item, DBNAME_ID);
}
/* Global Initialization */
Drivers_nrows = 0;
item = DBITEM_ID + 1;
/* Create a HENV to get the list of drivers then */
ret = SQLAllocHandle (SQL_HANDLE_ENV, SQL_NULL_HANDLE, &henv);
if (ret != SQL_SUCCESS && ret != SQL_SUCCESS_WITH_INFO)
{
_iodbcdm_nativeerrorbox (dlg, henv, SQL_NULL_HANDLE, SQL_NULL_HANDLE);
goto end;
}
/* Set the version ODBC API to use */
SQLSetEnvAttr (henv, SQL_ATTR_ODBC_VERSION, (SQLPOINTER) SQL_OV_ODBC3,
SQL_IS_UINTEGER);
/* Get the list of drivers */
ret =
SQLDriversW (henv, SQL_FETCH_FIRST, drvdesc, sizeof (drvdesc)/sizeof(wchar_t),
&len, drvattrs, sizeof (drvattrs)/sizeof(wchar_t), &len1);
if (ret != SQL_SUCCESS && ret != SQL_SUCCESS_WITH_INFO && ret != SQL_NO_DATA)
{
_iodbcdm_nativeerrorbox (dlg, henv, SQL_NULL_HANDLE, SQL_NULL_HANDLE);
goto error;
}
while (ret != SQL_NO_DATA)
{
Drivers_array[0][Drivers_nrows] = convert_wchar_to_CFString(drvdesc);
/* Get the driver library name */
SQLSetConfigMode (ODBC_BOTH_DSN);
SQLGetPrivateProfileStringW (drvdesc, L"Driver", L"", driver,
sizeof (driver)/sizeof(wchar_t), L"odbcinst.ini");
if (driver[0] == L'\0')
SQLGetPrivateProfileStringW (L"Default", L"Driver", L"", driver,
sizeof (driver)/sizeof(wchar_t), L"odbcinst.ini");
if (driver[0] == L'\0')
{
if (Drivers_array[0][Drivers_nrows])
{
CFRelease (Drivers_array[0][Drivers_nrows]);
Drivers_array[0][Drivers_nrows] = NULL;
}
goto skip;
}
Drivers_array[1][Drivers_nrows] = convert_wchar_to_CFString(driver);
/* Alloc a connection handle */
drv_hdbc = NULL;
drv_henv = NULL;
_drv_u8 = (char *) dm_SQL_WtoU8((SQLWCHAR*)driver, SQL_NTS);
if (_drv_u8 == NULL)
goto skip;
if ((handle = DLL_OPEN(_drv_u8)) != NULL)
{
if ((allocHdl = (pSQLAllocHandle)DLL_PROC(handle, "SQLAllocHandle")) != NULL)
{
ret = allocHdl(SQL_HANDLE_ENV, SQL_NULL_HANDLE, &drv_henv);
if (ret == SQL_ERROR) goto nodriverver;
ret = allocHdl(SQL_HANDLE_DBC, drv_henv, &drv_hdbc);
if (ret == SQL_ERROR) goto nodriverver;
}
else
{
if ((allocEnvHdl = (pSQLAllocEnv)DLL_PROC(handle, "SQLAllocEnv")) != NULL)
{
ret = allocEnvHdl(&drv_henv);
if (ret == SQL_ERROR) goto nodriverver;
}
else goto nodriverver;
if ((allocConnectHdl = (pSQLAllocConnect)DLL_PROC(handle, "SQLAllocConnect")) != NULL)
{
ret = allocConnectHdl(drv_henv, &drv_hdbc);
if (ret == SQL_ERROR) goto nodriverver;
}
else goto nodriverver;
}
/*
* Use SQLGetInfoA for Unicode drivers
* and SQLGetInfo for ANSI drivers
*/
funcHdl = (pSQLGetInfoFunc)DLL_PROC(handle, "SQLGetInfoA");
if (!funcHdl)
funcHdl = (pSQLGetInfoFunc)DLL_PROC(handle, "SQLGetInfo");
if (funcHdl)
{
/* Retrieve some informations */
ret = funcHdl (drv_hdbc, SQL_DRIVER_VER, drvattrs, sizeof(drvattrs), &len);
if (ret == SQL_SUCCESS || ret == SQL_SUCCESS_WITH_INFO)
{
char *p = drvattrs;
/* Find the description if one provided */
for (; *p ; p++)
{
if (*p == ' ')
{
*p++ = '\0';
break;
}
}
/*
* Store Version
*/
Drivers_array[2][Drivers_nrows] = CFStringCreateWithCString(NULL, (char *)drvattrs, kCFStringEncodingUTF8);
}
else goto nodriverver;
}
else if ((funcHdl = (pSQLGetInfoFunc)DLL_PROC(handle, "SQLGetInfoW")) != NULL)
{
/* Retrieve some informations */
ret = funcHdl (drv_hdbc, SQL_DRIVER_VER, drvattrs, sizeof(drvattrs), &len);
if (ret == SQL_SUCCESS || ret == SQL_SUCCESS_WITH_INFO)
{
wchar_t *p = drvattrs;
/* Find the description if one provided */
for (; *p ; p++)
{
if (*p == L' ')
{
*p++ = L'\0';
break;
}
}
/*
* Store Version
*/
Drivers_array[2][Drivers_nrows] = convert_wchar_to_CFString(drvattrs);
}
else goto nodriverver;
}
else goto nodriverver;
}
else
{
nodriverver:
Drivers_array[2][Drivers_nrows] = CFStringCreateWithCString(NULL,
"##.##", kCFStringEncodingUTF8);
}
if(drv_hdbc || drv_henv)
{
if(allocConnectHdl &&
(freeConnectHdl = (pSQLFreeConnect)DLL_PROC(handle, "SQLFreeConnect")) != NULL)
{ freeConnectHdl(drv_hdbc); drv_hdbc = NULL; }
if(allocEnvHdl &&
(freeEnvHdl = (pSQLFreeEnv)DLL_PROC(handle, "SQLFreeEnv")) != NULL)
{ freeEnvHdl(drv_henv); drv_henv = NULL; }
}
if ((drv_hdbc || drv_henv) &&
(freeHdl = (pSQLFreeHandle)DLL_PROC(handle, "SQLFreeHandle")) != NULL)
{
if(drv_hdbc) freeHdl(SQL_HANDLE_DBC, drv_hdbc);
if(drv_henv) freeHdl(SQL_HANDLE_ENV, drv_henv);
}
DLL_CLOSE(handle);
/* Get the size and date of the driver */
if (!stat (_drv_u8, &_stat))
{
CFStringRef strRef;
struct tm drivertime;
char buf[100];
Drivers_array[3][Drivers_nrows] =
CFStringCreateWithFormat(NULL, NULL,
strRef = CFStringCreateWithCString(NULL, "%d Kb", kCFStringEncodingUTF8),
(int) (_stat.st_size / 1024));
CFRelease(strRef);
localtime_r (&_stat.st_mtime, &drivertime);
strftime (buf, sizeof (buf), "%c", &drivertime);
Drivers_array[4][Drivers_nrows] = CFStringCreateWithCString(NULL,
buf, kCFStringEncodingUTF8);
}
else
{
Drivers_array[3][Drivers_nrows] = CFStringCreateWithCString(NULL,
"-", kCFStringEncodingUTF8);
Drivers_array[4][Drivers_nrows] = CFStringCreateWithCString(NULL,
"-", kCFStringEncodingUTF8);
}
for(i = 0 ; i < 5 ; i++)
{
GetThemeTextDimensions (Drivers_array[i][Drivers_nrows], kThemeSystemFont,
kThemeStateActive, false, &ioBound, &outBaseline);
if(colSize[i] < ioBound.h) colSize[i] = ioBound.h;
}
AddDataBrowserItems (widget, DBITEM_ID, 1, &item, DBNAME_ID);
item++;
Drivers_nrows++;
/* Process next one */
skip:
MEM_FREE (_drv_u8);
_drv_u8 = NULL;
ret = SQLDriversW (henv, SQL_FETCH_NEXT, drvdesc,
sizeof (drvdesc)/sizeof(wchar_t), &len, drvattrs,
sizeof (drvattrs)/sizeof(wchar_t), &len1);
if (ret != SQL_SUCCESS && ret != SQL_SUCCESS_WITH_INFO && ret != SQL_NO_DATA)
{
_iodbcdm_nativeerrorbox (dlg, henv, SQL_NULL_HANDLE,
SQL_NULL_HANDLE);
goto error;
}
}
error:
/* Clean all that */
SQLFreeHandle (SQL_HANDLE_ENV, henv);
end:
ActivateControl (widget);
/* Resize the columns to have a good look */
SetDataBrowserTableViewNamedColumnWidth (widget, DBNAME_ID, colSize[0] + 20);
SetDataBrowserTableViewNamedColumnWidth (widget, DBFILE_ID, colSize[1] + 20);
SetDataBrowserTableViewNamedColumnWidth (widget, DBVERSION_ID, colSize[2] + 20);
SetDataBrowserTableViewNamedColumnWidth (widget, DBSIZE_ID, colSize[3] + 20);
SetDataBrowserTableViewNamedColumnWidth (widget, DBDATE_ID, colSize[4] + 20);
DrawOneControl (widget);
/* Remove the DataBrowser callback */
SetDataBrowserCallbacks (NULL, &dbCallbacks);
if(outState) DisposeThemeDrawingState (outState);
}
pascal OSStatus
keyval_add_clicked (EventHandlerCallRef inHandlerRef,
EventRef inEvent, void *inUserData)
{
TKEYVAL *keyval_t = (TKEYVAL *) inUserData;
DataBrowserItemID item = DBITEM_ID + 1;
DataBrowserCallbacks dbCallbacks;
ThemeDrawingState outState = NULL;
UInt16 colSize[2] = { 150, 250 };
SInt16 outBaseline;
Point ioBound;
CFStringRef data[2];
Size len;
int i = 0, j;
if (keyval_t)
{
GetThemeDrawingState (&outState);
GetControlData (keyval_t->key_entry, 0, kControlEditTextCFStringTag,
sizeof (CFStringRef), &data[0], &len);
if (CFStringGetLength(data[0]))
{
GetControlData (keyval_t->value_entry, 0, kControlEditTextCFStringTag,
sizeof (CFStringRef), &data[1], &len);
/* Try to see if the keyword already exists */
for (i = 0; i < KEYVAL_nrows; i++, item++)
if (CFStringCompare (data[0], KEYVAL_array[0][i],
0) == kCFCompareEqualTo)
goto done;
/* Install an event handler on the component databrowser */
dbCallbacks.version = kDataBrowserLatestCallbacks;
InitDataBrowserCallbacks (&dbCallbacks);
dbCallbacks.u.v1.itemNotificationCallback =
NewDataBrowserItemNotificationUPP (keyval_notification_item);
/* On Mac OS X 10.0.x : this is clientDataCallback */
dbCallbacks.u.v1.itemDataCallback =
NewDataBrowserItemDataUPP (keyval_getset_item);
SetDataBrowserCallbacks (keyval_t->key_list, &dbCallbacks);
/* Begin the draw of the data browser */
SetDataBrowserTarget (keyval_t->key_list, DBITEM_ID);
/* An update operation */
if(i<KEYVAL_nrows)
{
CFRelease (KEYVAL_array[1][i]);
KEYVAL_array[1][i] = data[1];
UpdateDataBrowserItems (keyval_t->key_list, DBITEM_ID, 1, &item,
GSKEYWORD_ID, kDataBrowserItemNoProperty);
}
else if(len)
{
KEYVAL_array[0][i] = data[0];
KEYVAL_array[1][i] = data[1];
AddDataBrowserItems (keyval_t->key_list, DBITEM_ID, 1, &item,
GSKEYWORD_ID);
KEYVAL_nrows++;
}
for(j = 0 ; j < KEYVAL_nrows ; j++)
{
for(i = 0 ; i < 2 ; i++)
{
GetThemeTextDimensions (KEYVAL_array[i][j], kThemeSystemFont,
kThemeStateActive, false, &ioBound, &outBaseline);
if(colSize[i] < ioBound.h) colSize[i] = ioBound.h;
}
}
ActivateControl (keyval_t->key_list);
/* Resize the columns to have a good look */
SetDataBrowserTableViewNamedColumnWidth (keyval_t->key_list, GSKEYWORD_ID, colSize[0] + 20);
SetDataBrowserTableViewNamedColumnWidth (keyval_t->key_list, GSVALUE_ID, colSize[1] + 20);
DrawOneControl (keyval_t->key_list);
/* Remove the DataBrowser callback */
SetDataBrowserCallbacks (NULL, &dbCallbacks);
}
done:
SetControlData (keyval_t->key_entry, 0, kControlEditTextTextTag, 0,
"");
DrawOneControl (keyval_t->key_entry);
SetControlData (keyval_t->value_entry, 0, kControlEditTextTextTag, 0,
"");
DrawOneControl (keyval_t->value_entry);
DeactivateControl (KEYVAL->bupdate);
DrawOneControl (KEYVAL->bupdate);
}
return noErr;
}
pascal OSStatus
gensetup_update_clicked (EventHandlerCallRef inHandlerRef,
EventRef inEvent, void *inUserData)
{
TGENSETUP *gensetup_t = (TGENSETUP *) inUserData;
DataBrowserItemID item = DBITEM_ID + 1, first, last;
DataBrowserCallbacks dbCallbacks;
ThemeDrawingState outState = NULL;
UInt16 colSize[2] = { 150, 250 };
SInt16 outBaseline;
Point ioBound;
CFStringRef data[2];
Size len;
int i = 0, j;
if (gensetup_t)
{
GetThemeDrawingState (&outState);
GetControlData (gensetup_t->key_entry, 0, kControlEditTextCFStringTag,
sizeof (CFStringRef), &data[0], &len);
if (CFStringGetLength(data[0]))
{
GetControlData (gensetup_t->value_entry, 0, kControlEditTextCFStringTag,
sizeof (CFStringRef), &data[1], &len);
if(GetDataBrowserSelectionAnchor (gensetup_t->key_list, &first, &last) == noErr)
{
i = first - DBITEM_ID - 1;
item += i;
}
else i = 0;
/* Install an event handler on the component databrowser */
dbCallbacks.version = kDataBrowserLatestCallbacks;
InitDataBrowserCallbacks (&dbCallbacks);
dbCallbacks.u.v1.itemNotificationCallback =
NewDataBrowserItemNotificationUPP (dsnsetup_notification_item);
/* On Mac OS X 10.0.x : this is clientDataCallback */
dbCallbacks.u.v1.itemDataCallback =
NewDataBrowserItemDataUPP (dsnsetup_getset_item);
SetDataBrowserCallbacks (gensetup_t->key_list, &dbCallbacks);
/* Begin the draw of the data browser */
SetDataBrowserTarget (gensetup_t->key_list, DBITEM_ID);
/* An update operation */
if(i<DSNSETUP_nrows)
{
CFRelease (DSNSETUP_array[0][i]);
CFRelease (DSNSETUP_array[1][i]);
DSNSETUP_array[0][i] = data[0];
DSNSETUP_array[1][i] = data[1];
UpdateDataBrowserItems (gensetup_t->key_list, DBITEM_ID, 1,
&item, GSKEYWORD_ID, kDataBrowserItemNoProperty);
}
for(j = 0 ; j < DSNSETUP_nrows ; j++)
{
for(i = 0 ; i < 2 ; i++)
{
GetThemeTextDimensions (DSNSETUP_array[i][j], kThemeSystemFont,
kThemeStateActive, false, &ioBound, &outBaseline);
if(colSize[i] < ioBound.h) colSize[i] = ioBound.h;
}
}
ActivateControl (gensetup_t->key_list);
/* Resize the columns to have a good look */
SetDataBrowserTableViewNamedColumnWidth (gensetup_t->key_list, GSKEYWORD_ID, colSize[0] + 20);
SetDataBrowserTableViewNamedColumnWidth (gensetup_t->key_list, GSVALUE_ID, colSize[1] + 20);
DrawOneControl (gensetup_t->key_list);
/* Remove the DataBrowser callback */
SetDataBrowserCallbacks (NULL, &dbCallbacks);
}
SetControlData (gensetup_t->key_entry, 0, kControlEditTextTextTag, 0,
"");
DrawOneControl (gensetup_t->key_entry);
SetControlData (gensetup_t->value_entry, 0, kControlEditTextTextTag, 0,
"");
DrawOneControl (gensetup_t->value_entry);
DeactivateControl (DSNSETUP->bupdate);
DrawOneControl (DSNSETUP->bupdate);
}
return noErr;
}
static void
addkeywords_to_list (ControlRef widget,
LPCSTR attrs,
TGENSETUP * gensetup_t)
{
DataBrowserItemID item = DBITEM_ID + 1;
DataBrowserCallbacks dbCallbacks;
ThemeDrawingState outState = NULL;
UInt16 colSize[2] = { 150, 250 };
SInt16 outBaseline;
Point ioBound;
char *curr, *cour;
int i;
if (!widget)
return;
GetThemeDrawingState (&outState);
/* Install an event handler on the component databrowser */
dbCallbacks.version = kDataBrowserLatestCallbacks;
InitDataBrowserCallbacks (&dbCallbacks);
dbCallbacks.u.v1.itemNotificationCallback =
NewDataBrowserItemNotificationUPP (dsnsetup_notification_item);
/* On Mac OS X 10.0.x : this is clientDataCallback */
dbCallbacks.u.v1.itemDataCallback =
NewDataBrowserItemDataUPP (dsnsetup_getset_item);
SetDataBrowserCallbacks (widget, &dbCallbacks);
/* Begin the draw of the data browser */
SetDataBrowserTarget (widget, DBITEM_ID);
/* Make the clean up */
for (i = 0; i < DSNSETUP_nrows; i++)
{
CFRelease (DSNSETUP_array[0][i]);
DSNSETUP_array[0][i] = NULL;
CFRelease (DSNSETUP_array[1][i]);
DSNSETUP_array[1][i] = NULL;
}
/* Global Initialization */
DSNSETUP_nrows = 0;
item = DBITEM_ID + 1;
for (curr = (LPSTR) attrs; *curr; curr += (STRLEN (curr) + 1))
{
if (!strncasecmp (curr, "DSN=", STRLEN ("DSN=")) ||
!strncasecmp (curr, "Driver=", STRLEN ("Driver=")) ||
!strncasecmp (curr, "Description=", STRLEN ("Description=")))
continue;
if ((cour = strchr ((char*)curr, '=')))
{
*cour = '\0';
DSNSETUP_array[0][DSNSETUP_nrows] =
CFStringCreateWithCString (NULL, curr, kCFStringEncodingUTF8);
*cour = '=';
DSNSETUP_array[1][DSNSETUP_nrows] =
CFStringCreateWithCString (NULL, ((char*)cour) + 1, kCFStringEncodingUTF8);
}
else
DSNSETUP_array[0][DSNSETUP_nrows] =
CFStringCreateWithCString (NULL, "", kCFStringEncodingUTF8);
for(i = 0 ; i < 2 ; i++)
{
GetThemeTextDimensions (DSNSETUP_array[i][DSNSETUP_nrows], kThemeSystemFont,
kThemeStateActive, false, &ioBound, &outBaseline);
if(colSize[i] < ioBound.h) colSize[i] = ioBound.h;
}
AddDataBrowserItems (widget, DBITEM_ID, 1, &item, GSKEYWORD_ID);
item++;
DSNSETUP_nrows++;
}
ActivateControl (widget);
/* Resize the columns to have a good look */
SetDataBrowserTableViewNamedColumnWidth (widget, GSKEYWORD_ID, colSize[0] + 20);
SetDataBrowserTableViewNamedColumnWidth (widget, GSVALUE_ID, colSize[1] + 20);
DrawOneControl (widget);
/* Remove the DataBrowser callback */
SetDataBrowserCallbacks (NULL, &dbCallbacks);
}
