1 /* SCCS Id: @(#)mmodal.c 3.1 93/01/24 */
2 /* Copyright (c) Jon W{tte, Hao-Yang Wang, Jonathan Handler 1992. */
3 /* NetHack may be freely redistributed. See license for details. */
4
5 #if !TARGET_API_MAC_CARBON
6 # include <Dialogs.h>
7 # include <ControlDefinitions.h>
8 #else
9 # include <Carbon/Carbon.h>
10 #endif
11
12 #include "macpopup.h"
13
14 /* Flash a dialog button when its accelerator key is pressed */
15 void
FlashButton(DialogRef wind,short item)16 FlashButton(DialogRef wind, short item) {
17 short type;
18 Handle handle;
19 Rect rect;
20 unsigned long ticks;
21
22 /* Apple recommends 8 ticks */
23 GetDialogItem(wind, item, &type, &handle, &rect);
24 HiliteControl((ControlHandle)handle, kControlButtonPart);
25 Delay(8, &ticks);
26 HiliteControl((ControlHandle)handle, 0);
27 return;
28 }
29
30
31