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. */
5 #if !TARGET_API_MAC_CARBON
7 # include <ControlDefinitions.h>
9 # include <Carbon/Carbon.h>
14 /* Flash a dialog button when its accelerator key is pressed */
16 FlashButton(DialogRef wind, short item) {
22 /* Apple recommends 8 ticks */
23 GetDialogItem(wind, item, &type, &handle, &rect);
24 HiliteControl((ControlHandle)handle, kControlButtonPart);
26 HiliteControl((ControlHandle)handle, 0);