84 lines
2.4 KiB
C
84 lines
2.4 KiB
C
#include <Quickdraw.h>
|
|
#include <Dialogs.h>
|
|
#include <Fonts.h>
|
|
#include <stdbool.h>
|
|
#include "types.h"
|
|
#include "utils.h"
|
|
|
|
#ifndef TARGET_API_MAC_CARBON
|
|
/* NOTE: this is checking whether the Dialogs.h we use *knows* about Carbon,
|
|
not whether we are actually compiling for Cabon.
|
|
If Dialogs.h is older, we add a define to be able to use the new name
|
|
for NewUserItemUPP, which used to be NewUserItemProc. */
|
|
|
|
#define NewUserItemUPP NewUserItemProc
|
|
#endif
|
|
|
|
// define position in resource dialog.r (128)
|
|
#define MessageBoxOK 1
|
|
#define MessageBoxMessage 2
|
|
#define MessageBoxCancel 3
|
|
#define MessageBoxTitle 4
|
|
|
|
#define AlertOK 1
|
|
#define AlertMessage 2
|
|
|
|
bool ShowAlert(char *message) {
|
|
DialogItemType type;
|
|
Handle controlHandle;
|
|
Rect box;
|
|
|
|
DialogPtr adlg = GetNewDialog(129,0,(WindowPtr)-1);
|
|
InitCursor();
|
|
{
|
|
GetDialogItem(adlg, AlertMessage, &type, &controlHandle, &box);
|
|
PString _message = toPascal(message);
|
|
SetDialogItemText(controlHandle, toConstStr255Param(_message));
|
|
}
|
|
ShowWindow(adlg);
|
|
|
|
short itemHit = NULL;
|
|
|
|
while (itemHit != AlertOK) {
|
|
ModalDialog(NULL, &itemHit);
|
|
}
|
|
DisposeDialog(adlg);
|
|
FreeDialog(129);
|
|
return true;
|
|
}
|
|
|
|
bool ShowDialog(char *message, char *title, char *ok, char *cancel) {
|
|
DialogItemType type;
|
|
Handle controlHandle;
|
|
Rect box;
|
|
|
|
DialogPtr dlg = GetNewDialog(128,0,(WindowPtr)-1);
|
|
InitCursor();
|
|
|
|
{
|
|
GetDialogItem(dlg, MessageBoxMessage, &type, &controlHandle, &box);
|
|
PString _message = toPascal(message);
|
|
SetDialogItemText(controlHandle, toConstStr255Param(_message));
|
|
|
|
GetDialogItem(dlg, MessageBoxTitle, &type, &controlHandle, &box);
|
|
PString _title = toPascal(title);
|
|
SetDialogItemText(controlHandle, toConstStr255Param(_title));
|
|
|
|
GetDialogItem(dlg, MessageBoxOK, &type, &controlHandle, &box);
|
|
PString _ok = toPascal(ok);
|
|
SetControlTitle(controlHandle, toConstStr255Param(_ok));
|
|
|
|
GetDialogItem(dlg, MessageBoxCancel, &type, &controlHandle, &box);
|
|
PString _cancel = toPascal(cancel);
|
|
SetControlTitle(controlHandle, toConstStr255Param(_cancel));
|
|
}
|
|
ShowWindow(dlg);
|
|
short itemHit = NULL;
|
|
|
|
while (itemHit != MessageBoxOK && itemHit != MessageBoxCancel) {
|
|
ModalDialog(NULL, &itemHit);
|
|
}
|
|
DisposeDialog(dlg);
|
|
return itemHit == MessageBoxOK;
|
|
}
|