[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to src/mactoolbox.c
|
From: |
Dan Nicolaescu |
|
Subject: |
[Emacs-diffs] Changes to src/mactoolbox.c |
|
Date: |
Sun, 27 Jul 2008 18:25:19 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Dan Nicolaescu <dann> 08/07/27 18:24:49
Index: src/mactoolbox.c
===================================================================
RCS file: src/mactoolbox.c
diff -N src/mactoolbox.c
--- src/mactoolbox.c 17 Jul 2008 23:18:58 -0000 1.7
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,6615 +0,0 @@
-/* Functions for GUI implemented with (HI)Toolbox on the Mac OS.
- Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
- 2008 Free Software Foundation, Inc.
-
-This file is part of GNU Emacs.
-
-GNU Emacs is free software: you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation, either version 3 of the License, or
-(at your option) any later version.
-
-GNU Emacs is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
-
-#include <config.h>
-
-#include <stdio.h>
-
-#include "lisp.h"
-#include "blockinput.h"
-
-#include "macterm.h"
-
-#if !TARGET_API_MAC_CARBON
-#include <Quickdraw.h>
-#include <ToolUtils.h>
-#include <Sound.h>
-#include <Events.h>
-#include <Script.h>
-#include <Resources.h>
-#include <Fonts.h>
-#include <TextUtils.h>
-#include <LowMem.h>
-#include <Controls.h>
-#include <Windows.h>
-#include <Displays.h>
-#if defined (__MRC__) || (__MSL__ >= 0x6000)
-#include <ControlDefinitions.h>
-#endif
-
-#if __profile__
-#include <profiler.h>
-#endif
-#endif /* not TARGET_API_MAC_CARBON */
-
-#include "charset.h"
-#include "coding.h"
-#include "frame.h"
-#include "dispextern.h"
-#include "fontset.h"
-#include "termhooks.h"
-#include "buffer.h"
-#include "window.h"
-#include "keyboard.h"
-
-#include <sys/param.h>
-
-#ifndef MAC_OSX
-#include <alloca.h>
-#endif
-
-
-/************************************************************************
- General
- ************************************************************************/
-
-/* The difference in pixels between the top left corner of the
- Emacs window (including possible window manager decorations)
- and FRAME_MAC_WINDOW (f). */
-#define FRAME_OUTER_TO_INNER_DIFF_X(f) ((f)->x_pixels_diff)
-#define FRAME_OUTER_TO_INNER_DIFF_Y(f) ((f)->y_pixels_diff)
-
-#define mac_window_to_frame(wp) (((mac_output *) GetWRefCon (wp))->mFP)
-
-void
-mac_alert_sound_play ()
-{
-#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
- AlertSoundPlay ();
-#else
- SysBeep (1);
-#endif
-}
-
-
-/************************************************************************
- Application
- ************************************************************************/
-
-extern struct frame *mac_focus_frame P_ ((struct mac_display_info *));
-extern void do_keystroke P_ ((EventKind, unsigned char, UInt32, UInt32,
- unsigned long, struct input_event *));
-extern UInt32 mac_mapped_modifiers P_ ((UInt32, UInt32));
-#if TARGET_API_MAC_CARBON
-extern int mac_to_emacs_modifiers P_ ((UInt32, UInt32));
-#else
-extern int mac_to_emacs_modifiers P_ ((EventModifiers, EventModifiers));
-#endif
-
-#if TARGET_API_MAC_CARBON
-/* Points to the variable `inev' in the function XTread_socket. It is
- used for passing an input event to the function back from
- Carbon/Apple event handlers. */
-static struct input_event *read_socket_inev = NULL;
-
-extern const unsigned char keycode_to_xkeysym_table[];
-extern EMACS_INT extra_keyboard_modifiers;
-
-extern Lisp_Object Qhi_command;
-#if USE_MAC_TSM
-static TSMDocumentID tsm_document_id;
-extern Lisp_Object Qtext_input;
-extern Lisp_Object Qupdate_active_input_area, Qunicode_for_key_event;
-extern Lisp_Object Vmac_ts_active_input_overlay, Vmac_ts_active_input_buf;
-extern Lisp_Object Qbefore_string;
-#endif
-
-static int mac_event_to_emacs_modifiers P_ ((EventRef));
-static OSStatus install_menu_target_item_handler P_ ((void));
-#ifdef MAC_OSX
-static OSStatus install_service_handler P_ ((void));
-#endif
-
-extern OSStatus mac_store_event_ref_as_apple_event P_ ((AEEventClass,
AEEventID,
- Lisp_Object,
- Lisp_Object,
- EventRef, UInt32,
- const EventParamName *,
- const EventParamType
*));
-extern int fast_find_position P_ ((struct window *, int, int *, int *,
- int *, int *, Lisp_Object));
-extern struct glyph *x_y_to_hpos_vpos P_ ((struct window *, int, int,
- int *, int *, int *, int *, int *));
-extern void mac_ax_selected_text_range P_ ((struct frame *, CFRange *));
-#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030
-extern unsigned int mac_ax_number_of_characters P_ ((struct frame *));
-#endif
-
-#if USE_MAC_TSM
-extern OSStatus mac_restore_keyboard_input_source P_ ((void));
-extern void mac_save_keyboard_input_source P_ ((void));
-
-static OSStatus
-mac_tsm_resume ()
-{
- OSStatus err;
-
- err = ActivateTSMDocument (tsm_document_id);
- if (err == noErr)
- err = mac_restore_keyboard_input_source ();
-
- return err;
-}
-
-static OSStatus
-mac_tsm_suspend ()
-{
- OSStatus err;
-
- mac_save_keyboard_input_source ();
- err = DeactivateTSMDocument (tsm_document_id);
-
- return err;
-}
-
-static void
-init_tsm ()
-{
-#ifdef MAC_OSX
- static InterfaceTypeList types = {kUnicodeDocument};
-#else
- static InterfaceTypeList types = {kTextService};
-#endif
-
- NewTSMDocument (sizeof (types) / sizeof (types[0]), types,
- &tsm_document_id, 0);
-}
-#endif /* USE_MAC_TSM */
-
-static pascal OSStatus
-mac_handle_keyboard_event (next_handler, event, data)
- EventHandlerCallRef next_handler;
- EventRef event;
- void *data;
-{
- OSStatus err, result = eventNotHandledErr;
- UInt32 event_kind, key_code, modifiers;
- unsigned char char_code;
-
- event_kind = GetEventKind (event);
- switch (event_kind)
- {
- case kEventRawKeyDown:
- case kEventRawKeyRepeat:
- case kEventRawKeyUp:
- /* When using Carbon Events, we need to pass raw keyboard events
- to the TSM ourselves. If TSM handles it, it will pass back
- noErr, otherwise it will pass back "eventNotHandledErr" and
- we can process it normally. */
- result = CallNextEventHandler (next_handler, event);
- if (result != eventNotHandledErr)
- break;
-
- if (read_socket_inev == NULL)
- break;
-
-#if USE_MAC_TSM
- if (read_socket_inev->kind != NO_EVENT)
- {
- result = noErr;
- break;
- }
-#endif
-
- if (event_kind == kEventRawKeyUp)
- break;
-
- err = GetEventParameter (event, kEventParamKeyMacCharCodes,
- typeChar, NULL,
- sizeof (char), NULL, &char_code);
- if (err != noErr)
- break;
-
- err = GetEventParameter (event, kEventParamKeyCode,
- typeUInt32, NULL,
- sizeof (UInt32), NULL, &key_code);
- if (err != noErr)
- break;
-
- err = GetEventParameter (event, kEventParamKeyModifiers,
- typeUInt32, NULL,
- sizeof (UInt32), NULL, &modifiers);
- if (err != noErr)
- break;
-
- do_keystroke ((event_kind == kEventRawKeyDown ? keyDown : autoKey),
- char_code, key_code, modifiers,
- ((unsigned long)
- (GetEventTime (event) / kEventDurationMillisecond)),
- read_socket_inev);
- result = noErr;
- break;
-
- default:
- abort ();
- }
-
- return result;
-}
-
-static pascal OSStatus
-mac_handle_command_event (next_handler, event, data)
- EventHandlerCallRef next_handler;
- EventRef event;
- void *data;
-{
- OSStatus err, result = eventNotHandledErr;
- HICommand command;
- static const EventParamName names[] =
- {kEventParamDirectObject, kEventParamKeyModifiers};
- static const EventParamType types[] =
- {typeHICommand, typeUInt32};
- int num_params = sizeof (names) / sizeof (names[0]);
-
- err = GetEventParameter (event, kEventParamDirectObject, typeHICommand,
- NULL, sizeof (HICommand), NULL, &command);
- if (err != noErr)
- return eventNotHandledErr;
-
- switch (GetEventKind (event))
- {
- case kEventCommandProcess:
- result = CallNextEventHandler (next_handler, event);
- if (result != eventNotHandledErr)
- break;
-
- err = GetEventParameter (event, kEventParamDirectObject,
- typeHICommand, NULL,
- sizeof (HICommand), NULL, &command);
-
- if (err != noErr || command.commandID == 0)
- break;
-
- /* A HI command event is mapped to an Apple event whose event
- class symbol is `hi-command' and event ID is its command
- ID. */
- err = mac_store_event_ref_as_apple_event (0, command.commandID,
- Qhi_command, Qnil,
- event, num_params,
- names, types);
- if (err == noErr)
- result = noErr;
- break;
-
- default:
- abort ();
- }
-
- return result;
-}
-
-static pascal OSStatus
-mac_handle_mouse_event (next_handler, event, data)
- EventHandlerCallRef next_handler;
- EventRef event;
- void *data;
-{
- OSStatus err, result = eventNotHandledErr;
-
- switch (GetEventKind (event))
- {
- case kEventMouseWheelMoved:
- {
- WindowRef wp;
- struct frame *f;
- EventMouseWheelAxis axis;
- SInt32 delta;
- Point point;
-
- result = CallNextEventHandler (next_handler, event);
- if (result != eventNotHandledErr || read_socket_inev == NULL)
- break;
-
- f = mac_focus_frame (&one_mac_display_info);
-
- err = GetEventParameter (event, kEventParamWindowRef, typeWindowRef,
- NULL, sizeof (WindowRef), NULL, &wp);
- if (err != noErr
- || wp != FRAME_MAC_WINDOW (f))
- break;
-
- err = GetEventParameter (event, kEventParamMouseWheelAxis,
- typeMouseWheelAxis, NULL,
- sizeof (EventMouseWheelAxis), NULL, &axis);
- if (err != noErr || axis != kEventMouseWheelAxisY)
- break;
-
- err = GetEventParameter (event, kEventParamMouseLocation,
- typeQDPoint, NULL, sizeof (Point),
- NULL, &point);
- if (err != noErr)
- break;
-
- point.h -= f->left_pos + FRAME_OUTER_TO_INNER_DIFF_X (f);
- point.v -= f->top_pos + FRAME_OUTER_TO_INNER_DIFF_Y (f);
- if (point.h < 0 || point.v < 0
- || EQ (window_from_coordinates (f, point.h, point.v, 0, 0, 0, 1),
- f->tool_bar_window))
- break;
-
- err = GetEventParameter (event, kEventParamMouseWheelDelta,
- typeSInt32, NULL, sizeof (SInt32),
- NULL, &delta);
- if (err != noErr)
- break;
-
- read_socket_inev->kind = WHEEL_EVENT;
- read_socket_inev->code = 0;
- read_socket_inev->modifiers =
- (mac_event_to_emacs_modifiers (event)
- | ((delta < 0) ? down_modifier : up_modifier));
- XSETINT (read_socket_inev->x, point.h);
- XSETINT (read_socket_inev->y, point.v);
- XSETFRAME (read_socket_inev->frame_or_window, f);
-
- result = noErr;
- }
- break;
-
- default:
- abort ();
- }
-
- return result;
-}
-
-#if USE_MAC_TSM
-extern void mac_get_selected_range P_ ((struct window *, CFRange *));
-extern int mac_store_buffer_text_to_unicode_chars P_ ((struct buffer *,
- int, int, UniChar *));
-
-static pascal OSStatus
-mac_handle_text_input_event (next_handler, event, data)
- EventHandlerCallRef next_handler;
- EventRef event;
- void *data;
-{
- OSStatus err, result;
- Lisp_Object id_key = Qnil;
- int num_params;
- const EventParamName *names;
- const EventParamType *types;
- static UInt32 seqno_uaia = 0;
- static const EventParamName names_uaia[] =
- {kEventParamTextInputSendComponentInstance,
- kEventParamTextInputSendRefCon,
- kEventParamTextInputSendSLRec,
- kEventParamTextInputSendFixLen,
- kEventParamTextInputSendText,
- kEventParamTextInputSendUpdateRng,
- kEventParamTextInputSendHiliteRng,
- kEventParamTextInputSendClauseRng,
- kEventParamTextInputSendPinRng,
- kEventParamTextInputSendTextServiceEncoding,
- kEventParamTextInputSendTextServiceMacEncoding,
- EVENT_PARAM_TEXT_INPUT_SEQUENCE_NUMBER};
- static const EventParamType types_uaia[] =
- {typeComponentInstance,
- typeLongInteger,
- typeIntlWritingCode,
- typeLongInteger,
-#ifdef MAC_OSX
- typeUnicodeText,
-#else
- typeChar,
-#endif
- typeTextRangeArray,
- typeTextRangeArray,
- typeOffsetArray,
- typeTextRange,
- typeUInt32,
- typeUInt32,
- typeUInt32};
- static const EventParamName names_ufke[] =
- {kEventParamTextInputSendComponentInstance,
- kEventParamTextInputSendRefCon,
- kEventParamTextInputSendSLRec,
- kEventParamTextInputSendText};
- static const EventParamType types_ufke[] =
- {typeComponentInstance,
- typeLongInteger,
- typeIntlWritingCode,
- typeUnicodeText};
-
- result = CallNextEventHandler (next_handler, event);
- if (result != eventNotHandledErr)
- return result;
-
- switch (GetEventKind (event))
- {
- case kEventTextInputUpdateActiveInputArea:
- id_key = Qupdate_active_input_area;
- num_params = sizeof (names_uaia) / sizeof (names_uaia[0]);
- names = names_uaia;
- types = types_uaia;
- SetEventParameter (event, EVENT_PARAM_TEXT_INPUT_SEQUENCE_NUMBER,
- typeUInt32, sizeof (UInt32), &seqno_uaia);
- seqno_uaia++;
- result = noErr;
- break;
-
- case kEventTextInputUnicodeForKeyEvent:
- {
- EventRef kbd_event;
- UInt32 actual_size, modifiers, key_code;
-
- err = GetEventParameter (event, kEventParamTextInputSendKeyboardEvent,
- typeEventRef, NULL, sizeof (EventRef), NULL,
- &kbd_event);
- if (err == noErr)
- err = GetEventParameter (kbd_event, kEventParamKeyModifiers,
- typeUInt32, NULL,
- sizeof (UInt32), NULL, &modifiers);
- if (err == noErr)
- err = GetEventParameter (kbd_event, kEventParamKeyCode,
- typeUInt32, NULL, sizeof (UInt32),
- NULL, &key_code);
- if (err == noErr && mac_mapped_modifiers (modifiers, key_code))
- /* There're mapped modifier keys. Process it in
- do_keystroke. */
- break;
- if (err == noErr)
- err = GetEventParameter (kbd_event, kEventParamKeyUnicodes,
- typeUnicodeText, NULL, 0, &actual_size,
- NULL);
- if (err == noErr && actual_size == sizeof (UniChar))
- {
- UniChar code;
-
- err = GetEventParameter (kbd_event, kEventParamKeyUnicodes,
- typeUnicodeText, NULL,
- sizeof (UniChar), NULL, &code);
- if (err == noErr && code < 0x80)
- {
- /* ASCII character. Process it in do_keystroke. */
- if (read_socket_inev && code >= 0x20 && code <= 0x7e
- && !(key_code <= 0x7f
- && keycode_to_xkeysym_table [key_code]))
- {
- struct frame *f = mac_focus_frame (&one_mac_display_info);
-
- read_socket_inev->kind = ASCII_KEYSTROKE_EVENT;
- read_socket_inev->code = code;
- read_socket_inev->modifiers =
- mac_to_emacs_modifiers (modifiers, 0);
- read_socket_inev->modifiers |=
- (extra_keyboard_modifiers
- & (meta_modifier | alt_modifier
- | hyper_modifier | super_modifier));
- XSETFRAME (read_socket_inev->frame_or_window, f);
- }
- break;
- }
- }
- if (err == noErr)
- {
- /* Non-ASCII keystrokes without mapped modifiers are
- processed at the Lisp level. */
- id_key = Qunicode_for_key_event;
- num_params = sizeof (names_ufke) / sizeof (names_ufke[0]);
- names = names_ufke;
- types = types_ufke;
- result = noErr;
- }
- }
- break;
-
- case kEventTextInputOffsetToPos:
- {
- long byte_offset;
- struct frame *f;
- struct window *w;
- Point p;
-
- err = GetEventParameter (event, kEventParamTextInputSendTextOffset,
- typeLongInteger, NULL, sizeof (long), NULL,
- &byte_offset);
- if (err != noErr)
- break;
-
- if (STRINGP (Vmac_ts_active_input_buf)
- && SBYTES (Vmac_ts_active_input_buf) != 0)
- {
- if (!OVERLAYP (Vmac_ts_active_input_overlay))
- break;
-
- /* Strictly speaking, this is not always correct because
- previous events may change some states about display. */
- if (!NILP (Foverlay_get (Vmac_ts_active_input_overlay,
Qbefore_string)))
- {
- /* Active input area is displayed around the current point. */
- f = SELECTED_FRAME ();
- w = XWINDOW (f->selected_window);
- }
- else if (WINDOWP (echo_area_window))
- {
- /* Active input area is displayed in the echo area. */
- w = XWINDOW (echo_area_window);
- f = WINDOW_XFRAME (w);
- }
- else
- break;
-
- p.h = (WINDOW_TO_FRAME_PIXEL_X (w, w->cursor.x)
- + WINDOW_LEFT_FRINGE_WIDTH (w)
- + f->left_pos + FRAME_OUTER_TO_INNER_DIFF_X (f));
- p.v = (WINDOW_TO_FRAME_PIXEL_Y (w, w->cursor.y)
- + FONT_BASE (FRAME_FONT (f))
- + f->top_pos + FRAME_OUTER_TO_INNER_DIFF_Y (f));
- }
- else
- {
-#ifndef MAC_OSX
- break;
-#else /* MAC_OSX */
- CFRange sel_range;
- int charpos;
- int hpos, vpos, x, y;
- struct glyph_row *row;
- struct glyph *glyph;
- struct face *face;
-
- f = mac_focus_frame (&one_mac_display_info);
- w = XWINDOW (f->selected_window);
- mac_get_selected_range (w, &sel_range);
- charpos = (BUF_BEGV (XBUFFER (w->buffer)) + sel_range.location
- + byte_offset / (long) sizeof (UniChar));
-
- if (!fast_find_position (w, charpos, &hpos, &vpos, &x, &y, Qnil))
- {
- result = errOffsetInvalid;
- break;
- }
-
- row = MATRIX_ROW (w->current_matrix, vpos);
- glyph = row->glyphs[TEXT_AREA] + hpos;
- if (glyph->type != CHAR_GLYPH || glyph->glyph_not_available_p)
- break;
-
- p.h = (WINDOW_TEXT_TO_FRAME_PIXEL_X (w, x)
- + f->left_pos + FRAME_OUTER_TO_INNER_DIFF_X (f));
- p.v = (WINDOW_TO_FRAME_PIXEL_Y (w, y)
- + row->visible_height
- + f->top_pos + FRAME_OUTER_TO_INNER_DIFF_Y (f));
-
- face = FACE_FROM_ID (f, glyph->face_id);
- if (face && face->font)
- {
- XFontStruct *font = face->font;
- Fixed point_size = Long2Fix (font->mac_fontsize);
- short height = row->visible_height;
- short ascent = row->ascent;
-
- SetEventParameter (event,
- kEventParamTextInputReplyPointSize,
- typeFixed, sizeof (Fixed), &point_size);
- SetEventParameter (event,
- kEventParamTextInputReplyLineHeight,
- typeShortInteger, sizeof (short), &height);
- SetEventParameter (event,
- kEventParamTextInputReplyLineAscent,
- typeShortInteger, sizeof (short), &ascent);
- if (font->mac_fontnum != -1)
- {
- OSStatus err1;
- FMFont fm_font;
- FMFontStyle style;
-
- err1 = FMGetFontFromFontFamilyInstance (font->mac_fontnum,
- font->mac_fontface,
- &fm_font, &style);
- if (err1 == noErr)
- SetEventParameter (event, kEventParamTextInputReplyFMFont,
- typeUInt32, sizeof (UInt32), &fm_font);
- else
- {
- long qd_font = font->mac_fontnum;
-
- SetEventParameter (event, kEventParamTextInputReplyFont,
- typeLongInteger, sizeof (long),
- &qd_font);
- }
- }
- else if (font->mac_style)
- {
- OSStatus err1;
- ATSUFontID font_id;
-
- err1 = ATSUGetAttribute (font->mac_style, kATSUFontTag,
- sizeof (ATSUFontID), &font_id,
- NULL);
- if (err1 == noErr)
- SetEventParameter (event, kEventParamTextInputReplyFMFont,
- typeUInt32, sizeof (UInt32), &font_id);
- }
- else
- abort ();
- }
-#endif /* MAC_OSX */
- }
-
- err = SetEventParameter (event, kEventParamTextInputReplyPoint,
- typeQDPoint, sizeof (Point), &p);
- if (err == noErr)
- result = noErr;
- }
- break;
-
-#ifdef MAC_OSX
- case kEventTextInputPosToOffset:
- {
- Point point;
- Boolean leading_edge_p = true;
- struct frame *f;
- int x, y;
- Lisp_Object window;
- enum window_part part;
- long region_class = kTSMOutsideOfBody, byte_offset = 0;
-
- err = GetEventParameter (event, kEventParamTextInputSendCurrentPoint,
- typeQDPoint, NULL, sizeof (Point), NULL,
- &point);
- if (err != noErr)
- break;
-
- GetEventParameter (event, kEventParamTextInputReplyLeadingEdge,
- typeBoolean, NULL, sizeof (Boolean), NULL,
- &leading_edge_p);
-
- f = mac_focus_frame (&one_mac_display_info);
- x = point.h - (f->left_pos + FRAME_OUTER_TO_INNER_DIFF_X (f));
- y = point.v - (f->top_pos + FRAME_OUTER_TO_INNER_DIFF_Y (f));
- window = window_from_coordinates (f, x, y, &part, 0, 0, 1);
- if (WINDOWP (window) && EQ (window, f->selected_window))
- {
- struct window *w;
- struct buffer *b;
-
- /* Convert to window-relative pixel coordinates. */
- w = XWINDOW (window);
- frame_to_window_pixel_xy (w, &x, &y);
-
- /* Are we in a window whose display is up to date?
- And verify the buffer's text has not changed. */
- b = XBUFFER (w->buffer);
- if (part == ON_TEXT
- && EQ (w->window_end_valid, w->buffer)
- && XINT (w->last_modified) == BUF_MODIFF (b)
- && XINT (w->last_overlay_modified) == BUF_OVERLAY_MODIFF (b))
- {
- int hpos, vpos, area;
- struct glyph *glyph;
-
- /* Find the glyph under X/Y. */
- glyph = x_y_to_hpos_vpos (w, x, y, &hpos, &vpos, 0, 0, &area);
-
- if (glyph != NULL && area == TEXT_AREA)
- {
- byte_offset = ((glyph->charpos - BUF_BEGV (b))
- * sizeof (UniChar));
- region_class = kTSMInsideOfBody;
- }
- }
- }
-
- err = SetEventParameter (event, kEventParamTextInputReplyRegionClass,
- typeLongInteger, sizeof (long),
- ®ion_class);
- if (err == noErr)
- err = SetEventParameter (event, kEventParamTextInputReplyTextOffset,
- typeLongInteger, sizeof (long),
- &byte_offset);
- if (err == noErr)
- result = noErr;
- }
- break;
-
- case kEventTextInputGetSelectedText:
- {
- struct frame *f = mac_focus_frame (&one_mac_display_info);
- struct window *w = XWINDOW (f->selected_window);
- struct buffer *b = XBUFFER (w->buffer);
- CFRange sel_range;
- int start, end;
- UniChar *characters, c;
-
- if (poll_suppress_count == 0 && !NILP (Vinhibit_quit))
- /* Don't try to get buffer contents as the gap might be
- being altered. */
- break;
-
- mac_get_selected_range (w, &sel_range);
- if (sel_range.length == 0)
- {
- Boolean leading_edge_p;
-
- err = GetEventParameter (event,
- kEventParamTextInputReplyLeadingEdge,
- typeBoolean, NULL, sizeof (Boolean), NULL,
- &leading_edge_p);
- if (err != noErr)
- break;
-
- start = BUF_BEGV (b) + sel_range.location;
- if (!leading_edge_p)
- start--;
- end = start + 1;
- characters = &c;
-
- if (start < BUF_BEGV (b) || end > BUF_ZV (b))
- break;
- }
- else
- {
- start = BUF_BEGV (b) + sel_range.location;
- end = start + sel_range.length;
- characters = xmalloc (sel_range.length * sizeof (UniChar));
- }
-
- if (mac_store_buffer_text_to_unicode_chars (b, start, end, characters))
- err = SetEventParameter (event, kEventParamTextInputReplyText,
- typeUnicodeText,
- sel_range.length * sizeof (UniChar),
- characters);
- if (characters != &c)
- xfree (characters);
-
- if (err == noErr)
- result = noErr;
- }
- break;
-#endif /* MAC_OSX */
-
- default:
- abort ();
- }
-
- if (!NILP (id_key))
- err = mac_store_event_ref_as_apple_event (0, 0, Qtext_input, id_key,
- event, num_params,
- names, types);
- return result;
-}
-
-#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030
-static pascal OSStatus
-mac_handle_document_access_event (next_handler, event, data)
- EventHandlerCallRef next_handler;
- EventRef event;
- void *data;
-{
- OSStatus err, result;
- struct frame *f = mac_focus_frame (&one_mac_display_info);
-
- result = CallNextEventHandler (next_handler, event);
- if (result != eventNotHandledErr)
- return result;
-
- switch (GetEventKind (event))
- {
- case kEventTSMDocumentAccessGetLength:
- {
- CFIndex count = mac_ax_number_of_characters (f);
-
- err = SetEventParameter (event, kEventParamTSMDocAccessCharacterCount,
- typeCFIndex, sizeof (CFIndex), &count);
- if (err == noErr)
- result = noErr;
- }
- break;
-
- case kEventTSMDocumentAccessGetSelectedRange:
- {
- CFRange sel_range;
-
- mac_ax_selected_text_range (f, &sel_range);
- err = SetEventParameter (event,
- kEventParamTSMDocAccessReplyCharacterRange,
- typeCFRange, sizeof (CFRange), &sel_range);
- if (err == noErr)
- result = noErr;
- }
- break;
-
- case kEventTSMDocumentAccessGetCharacters:
- {
- struct buffer *b = XBUFFER (XWINDOW (f->selected_window)->buffer);
- CFRange range;
- Ptr characters;
- int start, end;
-
- if (poll_suppress_count == 0 && !NILP (Vinhibit_quit))
- /* Don't try to get buffer contents as the gap might be
- being altered. */
- break;
-
- err = GetEventParameter (event,
- kEventParamTSMDocAccessSendCharacterRange,
- typeCFRange, NULL, sizeof (CFRange), NULL,
- &range);
- if (err == noErr)
- err = GetEventParameter (event,
- kEventParamTSMDocAccessSendCharactersPtr,
- typePtr, NULL, sizeof (Ptr), NULL,
- &characters);
- if (err != noErr)
- break;
-
- start = BUF_BEGV (b) + range.location;
- end = start + range.length;
- if (mac_store_buffer_text_to_unicode_chars (b, start, end,
- (UniChar *) characters))
- result = noErr;
- }
- break;
-
- default:
- abort ();
- }
-
- return result;
-}
-#endif
-#endif
-
-OSStatus
-install_application_handler ()
-{
- OSStatus err = noErr;
-
- if (err == noErr)
- {
- static const EventTypeSpec specs[] =
- {{kEventClassKeyboard, kEventRawKeyDown},
- {kEventClassKeyboard, kEventRawKeyRepeat},
- {kEventClassKeyboard, kEventRawKeyUp}};
-
- err = InstallApplicationEventHandler (NewEventHandlerUPP
- (mac_handle_keyboard_event),
- GetEventTypeCount (specs),
- specs, NULL, NULL);
- }
-
- if (err == noErr)
- {
- static const EventTypeSpec specs[] =
- {{kEventClassCommand, kEventCommandProcess}};
-
- err = InstallApplicationEventHandler (NewEventHandlerUPP
- (mac_handle_command_event),
- GetEventTypeCount (specs),
- specs, NULL, NULL);
- }
-
- if (err == noErr)
- {
- static const EventTypeSpec specs[] =
- {{kEventClassMouse, kEventMouseWheelMoved}};
-
- err = InstallApplicationEventHandler (NewEventHandlerUPP
- (mac_handle_mouse_event),
- GetEventTypeCount (specs),
- specs, NULL, NULL);
- }
-
-#if USE_MAC_TSM
- if (err == noErr)
- {
- static const EventTypeSpec specs[] =
- {{kEventClassTextInput, kEventTextInputUpdateActiveInputArea},
- {kEventClassTextInput, kEventTextInputUnicodeForKeyEvent},
- {kEventClassTextInput, kEventTextInputOffsetToPos},
-#ifdef MAC_OSX
- {kEventClassTextInput, kEventTextInputPosToOffset},
- {kEventClassTextInput, kEventTextInputGetSelectedText}
-#endif
- };
-
- err = InstallApplicationEventHandler (NewEventHandlerUPP
- (mac_handle_text_input_event),
- GetEventTypeCount (specs),
- specs, NULL, NULL);
- }
-
-#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030
- if (err == noErr)
- {
- static const EventTypeSpec specs[] =
- {{kEventClassTSMDocumentAccess, kEventTSMDocumentAccessGetLength},
- {kEventClassTSMDocumentAccess,
kEventTSMDocumentAccessGetSelectedRange},
- {kEventClassTSMDocumentAccess, kEventTSMDocumentAccessGetCharacters}};
-
- err = InstallApplicationEventHandler (mac_handle_document_access_event,
- GetEventTypeCount (specs),
- specs, NULL, NULL);
- }
-#endif
-#endif
-
- if (err == noErr)
- err = install_menu_target_item_handler ();
-
-#ifdef MAC_OSX
- if (err == noErr)
- err = install_service_handler ();
-#endif
-
- return err;
-}
-#endif /* TARGET_API_MAC_CARBON */
-
-
-/************************************************************************
- Windows
- ************************************************************************/
-
-#define DEFAULT_NUM_COLS 80
-
-#define MIN_DOC_SIZE 64
-#define MAX_DOC_SIZE 32767
-
-/* Drag and Drop */
-static OSErr install_drag_handler P_ ((WindowRef));
-static void remove_drag_handler P_ ((WindowRef));
-
-#if USE_CG_DRAWING
-static void mac_prepare_for_quickdraw P_ ((struct frame *));
-#endif
-
-extern void mac_handle_visibility_change P_ ((struct frame *));
-extern void mac_handle_origin_change P_ ((struct frame *));
-extern void mac_handle_size_change P_ ((struct frame *, int, int));
-
-#if TARGET_API_MAC_CARBON
-#ifdef MAC_OSX
-extern Lisp_Object Qwindow;
-extern Lisp_Object Qtoolbar_switch_mode;
-#endif
-#endif
-
-static void
-do_window_update (WindowRef win)
-{
- struct frame *f = mac_window_to_frame (win);
-
- BeginUpdate (win);
-
- /* The tooltip has been drawn already. Avoid the SET_FRAME_GARBAGED
- below. */
- if (win != tip_window)
- {
- if (f->async_visible == 0)
- {
- /* Update events may occur when a frame gets iconified. */
-#if 0
- f->async_visible = 1;
- f->async_iconified = 0;
- SET_FRAME_GARBAGED (f);
-#endif
- }
- else
- {
- Rect r;
-#if TARGET_API_MAC_CARBON
- RgnHandle region = NewRgn ();
-
- GetPortVisibleRegion (GetWindowPort (win), region);
- GetRegionBounds (region, &r);
- expose_frame (f, r.left, r.top, r.right - r.left, r.bottom - r.top);
-#if USE_CG_DRAWING
- mac_prepare_for_quickdraw (f);
-#endif
- UpdateControls (win, region);
- DisposeRgn (region);
-#else
- r = (*win->visRgn)->rgnBBox;
- expose_frame (f, r.left, r.top, r.right - r.left, r.bottom - r.top);
- UpdateControls (win, win->visRgn);
-#endif
- }
- }
-
- EndUpdate (win);
-}
-
-static int
-is_emacs_window (WindowRef win)
-{
- Lisp_Object tail, frame;
-
- if (!win)
- return 0;
-
- FOR_EACH_FRAME (tail, frame)
- if (FRAME_MAC_P (XFRAME (frame)))
- if (FRAME_MAC_WINDOW (XFRAME (frame)) == win)
- return 1;
-
- return 0;
-}
-
-/* Handle drags in size box. Based on code contributed by Ben
- Mesander and IM - Window Manager A. */
-
-static void
-do_grow_window (w, e)
- WindowRef w;
- const EventRecord *e;
-{
- Rect limit_rect;
- int rows, columns, width, height;
- struct frame *f = mac_window_to_frame (w);
- XSizeHints *size_hints = FRAME_SIZE_HINTS (f);
- int min_width = MIN_DOC_SIZE, min_height = MIN_DOC_SIZE;
-#if TARGET_API_MAC_CARBON
- Rect new_rect;
-#else
- long grow_size;
-#endif
-
- if (size_hints->flags & PMinSize)
- {
- min_width = size_hints->min_width;
- min_height = size_hints->min_height;
- }
- SetRect (&limit_rect, min_width, min_height, MAX_DOC_SIZE, MAX_DOC_SIZE);
-
-#if TARGET_API_MAC_CARBON
- if (!ResizeWindow (w, e->where, &limit_rect, &new_rect))
- return;
- height = new_rect.bottom - new_rect.top;
- width = new_rect.right - new_rect.left;
-#else
- grow_size = GrowWindow (w, e->where, &limit_rect);
- /* see if it really changed size */
- if (grow_size == 0)
- return;
- height = HiWord (grow_size);
- width = LoWord (grow_size);
-#endif
-
- if (width != FRAME_PIXEL_WIDTH (f)
- || height != FRAME_PIXEL_HEIGHT (f))
- {
- rows = FRAME_PIXEL_HEIGHT_TO_TEXT_LINES (f, height);
- columns = FRAME_PIXEL_WIDTH_TO_TEXT_COLS (f, width);
-
- x_set_window_size (f, 0, columns, rows);
- }
-}
-
-#if TARGET_API_MAC_CARBON
-static Point
-mac_get_ideal_size (f)
- struct frame *f;
-{
- struct mac_display_info *dpyinfo = FRAME_MAC_DISPLAY_INFO (f);
- WindowRef w = FRAME_MAC_WINDOW (f);
- Point ideal_size;
- Rect standard_rect;
- int height, width, columns, rows;
-
- ideal_size.h = FRAME_TEXT_COLS_TO_PIXEL_WIDTH (f, DEFAULT_NUM_COLS);
- ideal_size.v = dpyinfo->height;
- IsWindowInStandardState (w, &ideal_size, &standard_rect);
- /* Adjust the standard size according to character boundaries. */
- width = standard_rect.right - standard_rect.left;
- height = standard_rect.bottom - standard_rect.top;
- columns = FRAME_PIXEL_WIDTH_TO_TEXT_COLS (f, width);
- rows = FRAME_PIXEL_HEIGHT_TO_TEXT_LINES (f, height);
- ideal_size.h = FRAME_TEXT_COLS_TO_PIXEL_WIDTH (f, columns);
- ideal_size.v = FRAME_TEXT_LINES_TO_PIXEL_HEIGHT (f, rows);
-
- return ideal_size;
-}
-
-static pascal OSStatus
-mac_handle_window_event (next_handler, event, data)
- EventHandlerCallRef next_handler;
- EventRef event;
- void *data;
-{
- WindowRef wp;
- OSStatus err, result = eventNotHandledErr;
- struct frame *f;
- UInt32 attributes;
- XSizeHints *size_hints;
-
- err = GetEventParameter (event, kEventParamDirectObject, typeWindowRef,
- NULL, sizeof (WindowRef), NULL, &wp);
- if (err != noErr)
- return eventNotHandledErr;
-
- f = mac_window_to_frame (wp);
- switch (GetEventKind (event))
- {
- /* -- window refresh events -- */
-
- case kEventWindowUpdate:
- result = CallNextEventHandler (next_handler, event);
- if (result != eventNotHandledErr)
- break;
-
- do_window_update (wp);
- result = noErr;
- break;
-
- /* -- window state change events -- */
-
- case kEventWindowShowing:
- size_hints = FRAME_SIZE_HINTS (f);
- if (!(size_hints->flags & (USPosition | PPosition)))
- {
- struct frame *sf = SELECTED_FRAME ();
-
- if (!(FRAME_MAC_P (sf) && sf->async_visible))
- RepositionWindow (wp, NULL, kWindowCenterOnMainScreen);
- else
- {
- RepositionWindow (wp, FRAME_MAC_WINDOW (sf),
-#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
- kWindowCascadeStartAtParentWindowScreen
-#else
- kWindowCascadeOnParentWindowScreen
-#endif
- );
-#if USE_MAC_TOOLBAR
- /* This is a workaround. RepositionWindow fails to put
- a window at the cascading position when its parent
- window has a Carbon HIToolbar. */
- if ((f->left_pos == sf->left_pos
- && f->top_pos == sf->top_pos)
- || (f->left_pos == sf->left_pos + 10 * 2
- && f->top_pos == sf->top_pos + 32 * 2))
- MoveWindowStructure (wp, sf->left_pos + 10, sf->top_pos + 32);
-#endif
- }
- result = noErr;
- }
- break;
-
- case kEventWindowHiding:
- /* Before unmapping the window, update the WM_SIZE_HINTS
- property to claim that the current position of the window is
- user-specified, rather than program-specified, so that when
- the window is mapped again, it will be placed at the same
- location, without forcing the user to position it by hand
- again (they have already done that once for this window.) */
- x_wm_set_size_hint (f, (long) 0, 1);
- result = noErr;
- break;
-
- case kEventWindowShown:
- case kEventWindowHidden:
- case kEventWindowCollapsed:
- case kEventWindowExpanded:
- mac_handle_visibility_change (f);
- result = noErr;
- break;
-
- case kEventWindowBoundsChanging:
- result = CallNextEventHandler (next_handler, event);
- if (result != eventNotHandledErr)
- break;
-
- err = GetEventParameter (event, kEventParamAttributes, typeUInt32,
- NULL, sizeof (UInt32), NULL, &attributes);
- if (err != noErr)
- break;
-
- size_hints = FRAME_SIZE_HINTS (f);
- if ((attributes & kWindowBoundsChangeUserResize)
- && ((size_hints->flags & (PResizeInc | PBaseSize | PMinSize))
- == (PResizeInc | PBaseSize | PMinSize)))
- {
- Rect bounds;
- int width, height;
-
- err = GetEventParameter (event, kEventParamCurrentBounds,
- typeQDRectangle, NULL, sizeof (Rect),
- NULL, &bounds);
- if (err != noErr)
- break;
-
- width = bounds.right - bounds.left;
- height = bounds.bottom - bounds.top;
-
- if (width < size_hints->min_width)
- width = size_hints->min_width;
- else
- width = size_hints->base_width
- + (int) ((width - size_hints->base_width)
- / (float) size_hints->width_inc + .5)
- * size_hints->width_inc;
-
- if (height < size_hints->min_height)
- height = size_hints->min_height;
- else
- height = size_hints->base_height
- + (int) ((height - size_hints->base_height)
- / (float) size_hints->height_inc + .5)
- * size_hints->height_inc;
-
- bounds.right = bounds.left + width;
- bounds.bottom = bounds.top + height;
- SetEventParameter (event, kEventParamCurrentBounds,
- typeQDRectangle, sizeof (Rect), &bounds);
- result = noErr;
- }
- break;
-
- case kEventWindowBoundsChanged:
- err = GetEventParameter (event, kEventParamAttributes, typeUInt32,
- NULL, sizeof (UInt32), NULL, &attributes);
- if (err != noErr)
- break;
-
- if (attributes & kWindowBoundsChangeSizeChanged)
- {
- Rect bounds;
-
- err = GetEventParameter (event, kEventParamCurrentBounds,
- typeQDRectangle, NULL, sizeof (Rect),
- NULL, &bounds);
- if (err == noErr)
- {
- int width, height;
-
- width = bounds.right - bounds.left;
- height = bounds.bottom - bounds.top;
- mac_handle_size_change (f, width, height);
- mac_wakeup_from_rne ();
- }
- }
-
- if (attributes & kWindowBoundsChangeOriginChanged)
- mac_handle_origin_change (f);
-
- result = noErr;
- break;
-
- /* -- window action events -- */
-
- case kEventWindowClose:
- {
- struct input_event buf;
-
- EVENT_INIT (buf);
- buf.kind = DELETE_WINDOW_EVENT;
- XSETFRAME (buf.frame_or_window, f);
- buf.arg = Qnil;
- kbd_buffer_store_event (&buf);
- }
- result = noErr;
- break;
-
- case kEventWindowGetIdealSize:
- result = CallNextEventHandler (next_handler, event);
- if (result != eventNotHandledErr)
- break;
-
- {
- Point ideal_size = mac_get_ideal_size (f);
-
- err = SetEventParameter (event, kEventParamDimensions,
- typeQDPoint, sizeof (Point), &ideal_size);
- if (err == noErr)
- result = noErr;
- }
- break;
-
-#ifdef MAC_OSX
- case kEventWindowToolbarSwitchMode:
- {
- static const EventParamName names[] = {kEventParamDirectObject,
- kEventParamWindowMouseLocation,
- kEventParamKeyModifiers,
- kEventParamMouseButton,
- kEventParamClickCount,
- kEventParamMouseChord};
- static const EventParamType types[] = {typeWindowRef,
- typeQDPoint,
- typeUInt32,
- typeMouseButton,
- typeUInt32,
- typeUInt32};
- int num_params = sizeof (names) / sizeof (names[0]);
-
- err = mac_store_event_ref_as_apple_event (0, 0,
- Qwindow,
- Qtoolbar_switch_mode,
- event, num_params,
- names, types);
- }
- if (err == noErr)
- result = noErr;
- break;
-#endif
-
-#if USE_MAC_TSM
- /* -- window focus events -- */
-
- case kEventWindowFocusAcquired:
- err = mac_tsm_resume ();
- if (err == noErr)
- result = noErr;
- break;
-
- case kEventWindowFocusRelinquish:
- err = mac_tsm_suspend ();
- if (err == noErr)
- result = noErr;
- break;
-#endif
-
- default:
- abort ();
- }
-
- return result;
-}
-#endif
-
-/* Handle clicks in zoom box. Calculation of "standard state" based
- on code in IM - Window Manager A and code contributed by Ben
- Mesander. The standard state of an Emacs window is 80-characters
- wide (DEFAULT_NUM_COLS) and as tall as will fit on the screen. */
-
-static void
-do_zoom_window (WindowRef w, int zoom_in_or_out)
-{
- Rect zoom_rect, port_rect;
- int width, height;
- struct frame *f = mac_window_to_frame (w);
-#if TARGET_API_MAC_CARBON
- Point ideal_size = mac_get_ideal_size (f);
-
- GetWindowBounds (w, kWindowContentRgn, &port_rect);
- if (IsWindowInStandardState (w, &ideal_size, &zoom_rect)
- && port_rect.left == zoom_rect.left
- && port_rect.top == zoom_rect.top)
- zoom_in_or_out = inZoomIn;
- else
- zoom_in_or_out = inZoomOut;
-
-#ifdef MAC_OS8
- mac_clear_area (f, 0, 0, port_rect.right - port_rect.left,
- port_rect.bottom - port_rect.top);
-#endif
- ZoomWindowIdeal (w, zoom_in_or_out, &ideal_size);
-#else /* not TARGET_API_MAC_CARBON */
- GrafPtr save_port;
- Point top_left;
- int w_title_height, rows;
- struct mac_display_info *dpyinfo = FRAME_MAC_DISPLAY_INFO (f);
-
- GetPort (&save_port);
-
- SetPortWindowPort (w);
-
- /* Clear window to avoid flicker. */
- EraseRect (&(w->portRect));
- if (zoom_in_or_out == inZoomOut)
- {
- SetPt (&top_left, w->portRect.left, w->portRect.top);
- LocalToGlobal (&top_left);
-
- /* calculate height of window's title bar */
- w_title_height = top_left.v - 1
- - (**((WindowPeek) w)->strucRgn).rgnBBox.top + GetMBarHeight ();
-
- /* get maximum height of window into zoom_rect.bottom - zoom_rect.top */
- zoom_rect = qd.screenBits.bounds;
- zoom_rect.top += w_title_height;
- InsetRect (&zoom_rect, 8, 4); /* not too tight */
-
- zoom_rect.right = zoom_rect.left
- + FRAME_TEXT_COLS_TO_PIXEL_WIDTH (f, DEFAULT_NUM_COLS);
-
- /* Adjust the standard size according to character boundaries. */
- rows = FRAME_PIXEL_HEIGHT_TO_TEXT_LINES (f, zoom_rect.bottom -
zoom_rect.top);
- zoom_rect.bottom =
- zoom_rect.top + FRAME_TEXT_LINES_TO_PIXEL_HEIGHT (f, rows);
-
- (**((WStateDataHandle) ((WindowPeek) w)->dataHandle)).stdState
- = zoom_rect;
- }
-
- ZoomWindow (w, zoom_in_or_out, f == mac_focus_frame (dpyinfo));
-
- SetPort (save_port);
-#endif /* not TARGET_API_MAC_CARBON */
-
-#if !TARGET_API_MAC_CARBON
- /* retrieve window size and update application values */
- port_rect = w->portRect;
- height = port_rect.bottom - port_rect.top;
- width = port_rect.right - port_rect.left;
-
- mac_handle_size_change (f, width, height);
- mac_handle_origin_change (f);
-#endif
-}
-
-static OSStatus
-install_window_handler (window)
- WindowRef window;
-{
- OSStatus err = noErr;
-
-#if TARGET_API_MAC_CARBON
- if (err == noErr)
- {
- static const EventTypeSpec specs[] =
- {
- /* -- window refresh events -- */
- {kEventClassWindow, kEventWindowUpdate},
- /* -- window state change events -- */
- {kEventClassWindow, kEventWindowShowing},
- {kEventClassWindow, kEventWindowHiding},
- {kEventClassWindow, kEventWindowShown},
- {kEventClassWindow, kEventWindowHidden},
- {kEventClassWindow, kEventWindowCollapsed},
- {kEventClassWindow, kEventWindowExpanded},
- {kEventClassWindow, kEventWindowBoundsChanging},
- {kEventClassWindow, kEventWindowBoundsChanged},
- /* -- window action events -- */
- {kEventClassWindow, kEventWindowClose},
- {kEventClassWindow, kEventWindowGetIdealSize},
-#ifdef MAC_OSX
- {kEventClassWindow, kEventWindowToolbarSwitchMode},
-#endif
-#if USE_MAC_TSM
- /* -- window focus events -- */
- {kEventClassWindow, kEventWindowFocusAcquired},
- {kEventClassWindow, kEventWindowFocusRelinquish},
-#endif
- };
- static EventHandlerUPP handle_window_eventUPP = NULL;
-
- if (handle_window_eventUPP == NULL)
- handle_window_eventUPP = NewEventHandlerUPP (mac_handle_window_event);
-
- err = InstallWindowEventHandler (window, handle_window_eventUPP,
- GetEventTypeCount (specs),
- specs, NULL, NULL);
- }
-#endif
-
- if (err == noErr)
- err = install_drag_handler (window);
-
- return err;
-}
-
-static void
-remove_window_handler (window)
- WindowRef window;
-{
- remove_drag_handler (window);
-}
-
-void
-mac_get_window_bounds (f, inner, outer)
- struct frame *f;
- Rect *inner, *outer;
-{
-#if TARGET_API_MAC_CARBON
- GetWindowBounds (FRAME_MAC_WINDOW (f), kWindowContentRgn, inner);
- GetWindowBounds (FRAME_MAC_WINDOW (f), kWindowStructureRgn, outer);
-#else /* not TARGET_API_MAC_CARBON */
- RgnHandle region = NewRgn ();
-
- GetWindowRegion (FRAME_MAC_WINDOW (f), kWindowContentRgn, region);
- *inner = (*region)->rgnBBox;
- GetWindowRegion (FRAME_MAC_WINDOW (f), kWindowStructureRgn, region);
- *outer = (*region)->rgnBBox;
- DisposeRgn (region);
-#endif /* not TARGET_API_MAC_CARBON */
-}
-
-Rect *
-mac_get_frame_bounds (f, r)
- struct frame *f;
- Rect *r;
-{
-#if TARGET_API_MAC_CARBON
- return GetWindowPortBounds (FRAME_MAC_WINDOW (f), r);
-#else
- *r = FRAME_MAC_WINDOW (f)->portRect;
-
- return r;
-#endif
-}
-
-void
-mac_get_frame_mouse (f, point)
- struct frame *f;
- Point *point;
-{
-#if TARGET_API_MAC_CARBON
- GetGlobalMouse (point);
- point->h -= f->left_pos + FRAME_OUTER_TO_INNER_DIFF_X (f);
- point->v -= f->top_pos + FRAME_OUTER_TO_INNER_DIFF_Y (f);
-#else
- SetPortWindowPort (FRAME_MAC_WINDOW (f));
- GetMouse (point);
-#endif
-}
-
-void
-mac_convert_frame_point_to_global (f, x, y)
- struct frame *f;
- int *x, *y;
-{
- *x += f->left_pos + FRAME_OUTER_TO_INNER_DIFF_X (f);
- *y += f->top_pos + FRAME_OUTER_TO_INNER_DIFF_Y (f);
-}
-
-#if TARGET_API_MAC_CARBON
-void
-mac_update_proxy_icon (f)
- struct frame *f;
-{
- OSStatus err;
- Lisp_Object file_name =
- XBUFFER (XWINDOW (FRAME_SELECTED_WINDOW (f))->buffer)->filename;
- Window w = FRAME_MAC_WINDOW (f);
- AliasHandle alias = NULL;
-
- err = GetWindowProxyAlias (w, &alias);
- if (err == errWindowDoesNotHaveProxy && !STRINGP (file_name))
- return;
-
- if (STRINGP (file_name))
- {
- AEDesc desc;
-#ifdef MAC_OSX
- FSRef fref, fref_proxy;
-#else
- FSSpec fss, fss_proxy;
-#endif
- Boolean changed;
- Lisp_Object encoded_file_name = ENCODE_FILE (file_name);
-
-#ifdef MAC_OSX
- err = AECoercePtr (TYPE_FILE_NAME, SDATA (encoded_file_name),
- SBYTES (encoded_file_name), typeFSRef, &desc);
-#else
- SetPortWindowPort (w);
- err = AECoercePtr (TYPE_FILE_NAME, SDATA (encoded_file_name),
- SBYTES (encoded_file_name), typeFSS, &desc);
-#endif
- if (err == noErr)
- {
-#ifdef MAC_OSX
- err = AEGetDescData (&desc, &fref, sizeof (FSRef));
-#else
- err = AEGetDescData (&desc, &fss, sizeof (FSSpec));
-#endif
- AEDisposeDesc (&desc);
- }
- if (err == noErr)
- {
- if (alias)
- {
- /* (FS)ResolveAlias never sets `changed' to true if
- `alias' is minimal. */
-#ifdef MAC_OSX
- err = FSResolveAlias (NULL, alias, &fref_proxy, &changed);
- if (err == noErr)
- err = FSCompareFSRefs (&fref, &fref_proxy);
-#else
- err = ResolveAlias (NULL, alias, &fss_proxy, &changed);
- if (err == noErr)
- err = !(fss.vRefNum == fss_proxy.vRefNum
- && fss.parID == fss_proxy.parID
- && EqualString (fss.name, fss_proxy.name,
- false, true));
-#endif
- }
- if (err != noErr || alias == NULL)
- {
- if (alias)
- DisposeHandle ((Handle) alias);
-#ifdef MAC_OSX
- err = FSNewAliasMinimal (&fref, &alias);
-#else
- err = NewAliasMinimal (&fss, &alias);
-#endif
- changed = true;
- }
- }
- if (err == noErr)
- if (changed)
- err = SetWindowProxyAlias (w, alias);
- }
-
- if (alias)
- DisposeHandle ((Handle) alias);
-
- if (err != noErr || !STRINGP (file_name))
- RemoveWindowProxy (w);
-}
-#endif
-
-/* Mac replacement for XSetWindowBackground. */
-
-void
-mac_set_frame_window_background (f, color)
- struct frame *f;
- unsigned long color;
-{
- WindowRef w = FRAME_MAC_WINDOW (f);
-#if !TARGET_API_MAC_CARBON
- AuxWinHandle aw_handle;
- CTabHandle ctab_handle;
- ColorSpecPtr ct_table;
- short ct_size;
-#endif
- RGBColor bg_color;
-
- bg_color.red = RED16_FROM_ULONG (color);
- bg_color.green = GREEN16_FROM_ULONG (color);
- bg_color.blue = BLUE16_FROM_ULONG (color);
-
-#if TARGET_API_MAC_CARBON
- SetWindowContentColor (w, &bg_color);
-#else
- if (GetAuxWin (w, &aw_handle))
- {
- ctab_handle = (*aw_handle)->awCTable;
- HandToHand ((Handle *) &ctab_handle);
- ct_table = (*ctab_handle)->ctTable;
- ct_size = (*ctab_handle)->ctSize;
- while (ct_size > -1)
- {
- if (ct_table->value == 0)
- {
- ct_table->rgb = bg_color;
- CTabChanged (ctab_handle);
- SetWinColor (w, (WCTabHandle) ctab_handle);
- }
- ct_size--;
- }
- }
-#endif
-}
-
-/* Flush display of frame F, or of all frames if F is null. */
-
-void
-x_flush (f)
- struct frame *f;
-{
-#if TARGET_API_MAC_CARBON
- BLOCK_INPUT;
-#if USE_CG_DRAWING
- mac_prepare_for_quickdraw (f);
-#endif
- if (f)
- QDFlushPortBuffer (GetWindowPort (FRAME_MAC_WINDOW (f)), NULL);
- else
- QDFlushPortBuffer (GetQDGlobalsThePort (), NULL);
- UNBLOCK_INPUT;
-#endif
-}
-
-#if USE_CG_DRAWING
-void
-mac_flush_display_optional (f)
- struct frame *f;
-{
- BLOCK_INPUT;
- mac_prepare_for_quickdraw (f);
- UNBLOCK_INPUT;
-}
-#endif
-
-void
-mac_update_begin (f)
- struct frame *f;
-{
-#if TARGET_API_MAC_CARBON
- /* During update of a frame, availability of input events is
- periodically checked with ReceiveNextEvent if
- redisplay-dont-pause is nil. That normally flushes window buffer
- changes for every check, and thus screen update looks waving even
- if no input is available. So we disable screen updates during
- update of a frame. */
- DisableScreenUpdates ();
-#endif
-}
-
-void
-mac_update_end (f)
- struct frame *f;
-{
-#if TARGET_API_MAC_CARBON
- EnableScreenUpdates ();
-#endif
-}
-
-void
-mac_frame_up_to_date (f)
- struct frame *f;
-{
- /* Nothing to do. */
-}
-
-void
-mac_create_frame_window (f, tooltip_p)
- struct frame *f;
- int tooltip_p;
-{
- Rect r;
-#if TARGET_API_MAC_CARBON
- WindowClass window_class;
- WindowAttributes attributes;
-#else
- short proc_id;
- WindowRef behind;
- Boolean go_away_flag;
-#endif
-
- if (!tooltip_p)
- {
- SetRect (&r, f->left_pos, f->top_pos,
- f->left_pos + FRAME_PIXEL_WIDTH (f),
- f->top_pos + FRAME_PIXEL_HEIGHT (f));
-#if TARGET_API_MAC_CARBON
- window_class = kDocumentWindowClass;
- attributes = (kWindowStandardDocumentAttributes
-#ifdef MAC_OSX
- | kWindowToolbarButtonAttribute
-#endif
- );
-#else
- proc_id = zoomDocProc;
- behind = (WindowRef) -1;
- go_away_flag = true;
-#endif
- }
- else
- {
- SetRect (&r, 0, 0, 1, 1);
-#if TARGET_API_MAC_CARBON
- window_class = kHelpWindowClass;
- attributes = (kWindowNoUpdatesAttribute
- | kWindowNoActivatesAttribute
-#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
- | kWindowIgnoreClicksAttribute
-#endif
- );
-#else
- proc_id = plainDBox;
- behind = NULL;
- go_away_flag = false;
-#endif
- }
-
-#if TARGET_API_MAC_CARBON
- CreateNewWindow (window_class, attributes, &r, &FRAME_MAC_WINDOW (f));
- if (FRAME_MAC_WINDOW (f))
- {
- SetWRefCon (FRAME_MAC_WINDOW (f), (long) f->output_data.mac);
- if (!tooltip_p)
- if (install_window_handler (FRAME_MAC_WINDOW (f)) != noErr)
- {
- DisposeWindow (FRAME_MAC_WINDOW (f));
- FRAME_MAC_WINDOW (f) = NULL;
- }
- }
-#else /* !TARGET_API_MAC_CARBON */
- FRAME_MAC_WINDOW (f)
- = NewCWindow (NULL, &r, "\p", false, proc_id, behind, go_away_flag,
- (long) f->output_data.mac);
-#endif /* !TARGET_API_MAC_CARBON */
- /* so that update events can find this mac_output struct */
- f->output_data.mac->mFP = f; /* point back to emacs frame */
-
-#ifndef MAC_OSX
- if (!tooltip_p)
- if (FRAME_MAC_WINDOW (f))
- {
- ControlRef root_control;
-
- if (CreateRootControl (FRAME_MAC_WINDOW (f), &root_control) != noErr)
- {
- DisposeWindow (FRAME_MAC_WINDOW (f));
- FRAME_MAC_WINDOW (f) = NULL;
- }
- }
-#endif
-}
-
-/* Dispose of the Mac window of the frame F. */
-
-void
-mac_dispose_frame_window (f)
- struct frame *f;
-{
- WindowRef window = FRAME_MAC_WINDOW (f);
-
- if (window != tip_window)
- remove_window_handler (window);
-
-#if USE_CG_DRAWING
- mac_prepare_for_quickdraw (f);
-#endif
- DisposeWindow (window);
-}
-
-
-/************************************************************************
- View and Drawing
- ************************************************************************/
-
-#if USE_CG_DRAWING
-#define FRAME_CG_CONTEXT(f) ((f)->output_data.mac->cg_context)
-
-CGContextRef
-mac_begin_cg_clip (f, gc)
- struct frame *f;
- GC gc;
-{
- CGContextRef context = FRAME_CG_CONTEXT (f);
-
- if (!context)
- {
- QDBeginCGContext (GetWindowPort (FRAME_MAC_WINDOW (f)), &context);
- FRAME_CG_CONTEXT (f) = context;
- }
-
- CGContextSaveGState (context);
- CGContextTranslateCTM (context, 0, FRAME_PIXEL_HEIGHT (f));
- CGContextScaleCTM (context, 1, -1);
- if (gc && gc->n_clip_rects)
- CGContextClipToRects (context, gc->clip_rects, gc->n_clip_rects);
-
- return context;
-}
-
-void
-mac_end_cg_clip (f)
- struct frame *f;
-{
- CGContextRestoreGState (FRAME_CG_CONTEXT (f));
-}
-
-static void
-mac_prepare_for_quickdraw (f)
- struct frame *f;
-{
- if (f == NULL)
- {
- Lisp_Object rest, frame;
- FOR_EACH_FRAME (rest, frame)
- if (FRAME_MAC_P (XFRAME (frame)))
- mac_prepare_for_quickdraw (XFRAME (frame));
- }
- else
- {
- CGContextRef context = FRAME_CG_CONTEXT (f);
-
- if (context)
- {
- CGContextSynchronize (context);
- QDEndCGContext (GetWindowPort (FRAME_MAC_WINDOW (f)),
- &FRAME_CG_CONTEXT (f));
- }
- }
-}
-#endif
-
-static RgnHandle saved_port_clip_region = NULL;
-
-void
-mac_begin_clip (f, gc)
- struct frame *f;
- GC gc;
-{
- static RgnHandle new_region = NULL;
-
- if (saved_port_clip_region == NULL)
- saved_port_clip_region = NewRgn ();
- if (new_region == NULL)
- new_region = NewRgn ();
-
-#if USE_CG_DRAWING
- mac_prepare_for_quickdraw (f);
-#endif
- SetPortWindowPort (FRAME_MAC_WINDOW (f));
-
- if (gc && gc->n_clip_rects)
- {
- GetClip (saved_port_clip_region);
- SectRgn (saved_port_clip_region, gc->clip_region, new_region);
- SetClip (new_region);
- }
-}
-
-void
-mac_end_clip (f, gc)
- struct frame *f;
- GC gc;
-{
- if (gc && gc->n_clip_rects)
- SetClip (saved_port_clip_region);
-}
-
-#if TARGET_API_MAC_CARBON
-/* Mac replacement for XCopyArea: used only for scrolling. */
-
-void
-mac_scroll_area (f, gc, src_x, src_y, width, height, dest_x, dest_y)
- struct frame *f;
- GC gc;
- int src_x, src_y;
- unsigned int width, height;
- int dest_x, dest_y;
-{
- Rect src_r;
- RgnHandle dummy = NewRgn (); /* For avoiding update events. */
-
- SetRect (&src_r, src_x, src_y, src_x + width, src_y + height);
-#if USE_CG_DRAWING
- mac_prepare_for_quickdraw (f);
-#endif
- ScrollWindowRect (FRAME_MAC_WINDOW (f),
- &src_r, dest_x - src_x, dest_y - src_y,
- kScrollWindowNoOptions, dummy);
- DisposeRgn (dummy);
-}
-#endif
-
-
-/************************************************************************
- Scroll bars
- ************************************************************************/
-
-extern struct scroll_bar *tracked_scroll_bar;
-extern Lisp_Object last_mouse_scroll_bar;
-extern Time last_mouse_movement_time;
-
-static void x_scroll_bar_handle_click P_ ((struct scroll_bar *,
- ControlPartCode,
- const EventRecord *,
- struct input_event *));
-#ifndef USE_TOOLKIT_SCROLL_BARS
-static void x_scroll_bar_note_movement P_ ((struct scroll_bar *, int, Time));
-#else /* USE_TOOLKIT_SCROLL_BARS */
-static void x_scroll_bar_handle_press P_ ((struct scroll_bar *,
- ControlPartCode, Point,
- struct input_event *));
-static void x_scroll_bar_handle_release P_ ((struct scroll_bar *,
- struct input_event *));
-static void x_scroll_bar_handle_drag P_ ((WindowRef, struct scroll_bar *,
- Point, struct input_event *));
-static pascal void scroll_bar_timer_callback P_ ((EventLoopTimerRef, void *));
-static OSStatus install_scroll_bar_timer P_ ((void));
-static OSStatus set_scroll_bar_timer P_ ((EventTimerInterval));
-static int control_part_code_to_scroll_bar_part P_ ((ControlPartCode));
-static void construct_scroll_bar_click P_ ((struct scroll_bar *, int,
- struct input_event *));
-static OSStatus get_control_part_bounds P_ ((ControlRef, ControlPartCode,
- Rect *));
-static void update_scroll_bar_track_info P_ ((struct scroll_bar *));
-
-/* Last scroll bar part sent in x_scroll_bar_handle_*. */
-
-static int last_scroll_bar_part;
-
-static EventLoopTimerRef scroll_bar_timer;
-
-static int scroll_bar_timer_event_posted_p;
-
-#define SCROLL_BAR_FIRST_DELAY 0.5
-#define SCROLL_BAR_CONTINUOUS_DELAY (1.0 / 15)
-
-static pascal void
-scroll_bar_timer_callback (timer, data)
- EventLoopTimerRef timer;
- void *data;
-{
- OSStatus err;
-
- err = mac_post_mouse_moved_event ();
- if (err == noErr)
- scroll_bar_timer_event_posted_p = 1;
-}
-
-static OSStatus
-install_scroll_bar_timer ()
-{
- static EventLoopTimerUPP scroll_bar_timer_callbackUPP = NULL;
-
- if (scroll_bar_timer_callbackUPP == NULL)
- scroll_bar_timer_callbackUPP =
- NewEventLoopTimerUPP (scroll_bar_timer_callback);
-
- if (scroll_bar_timer == NULL)
- /* Mac OS X and CarbonLib 1.5 and later allow us to specify
- kEventDurationForever as delays. */
- return
- InstallEventLoopTimer (GetCurrentEventLoop (),
- kEventDurationForever, kEventDurationForever,
- scroll_bar_timer_callbackUPP, NULL,
- &scroll_bar_timer);
-}
-
-static OSStatus
-set_scroll_bar_timer (delay)
- EventTimerInterval delay;
-{
- if (scroll_bar_timer == NULL)
- install_scroll_bar_timer ();
-
- scroll_bar_timer_event_posted_p = 0;
-
- return SetEventLoopTimerNextFireTime (scroll_bar_timer, delay);
-}
-
-static int
-control_part_code_to_scroll_bar_part (part_code)
- ControlPartCode part_code;
-{
- switch (part_code)
- {
- case kControlUpButtonPart: return scroll_bar_up_arrow;
- case kControlDownButtonPart: return scroll_bar_down_arrow;
- case kControlPageUpPart: return scroll_bar_above_handle;
- case kControlPageDownPart: return scroll_bar_below_handle;
- case kControlIndicatorPart: return scroll_bar_handle;
- }
-
- return -1;
-}
-
-static void
-construct_scroll_bar_click (bar, part, bufp)
- struct scroll_bar *bar;
- int part;
- struct input_event *bufp;
-{
- bufp->kind = SCROLL_BAR_CLICK_EVENT;
- bufp->frame_or_window = bar->window;
- bufp->arg = Qnil;
- bufp->part = part;
- bufp->code = 0;
- XSETINT (bufp->x, 0);
- XSETINT (bufp->y, 0);
- bufp->modifiers = 0;
-}
-
-static OSStatus
-get_control_part_bounds (ch, part_code, rect)
- ControlRef ch;
- ControlPartCode part_code;
- Rect *rect;
-{
- RgnHandle region = NewRgn ();
- OSStatus err;
-
- err = GetControlRegion (ch, part_code, region);
- if (err == noErr)
- GetRegionBounds (region, rect);
- DisposeRgn (region);
-
- return err;
-}
-
-static void
-x_scroll_bar_handle_press (bar, part_code, mouse_pos, bufp)
- struct scroll_bar *bar;
- ControlPartCode part_code;
- Point mouse_pos;
- struct input_event *bufp;
-{
- int part = control_part_code_to_scroll_bar_part (part_code);
-
- if (part < 0)
- return;
-
- if (part != scroll_bar_handle)
- {
- construct_scroll_bar_click (bar, part, bufp);
- HiliteControl (SCROLL_BAR_CONTROL_REF (bar), part_code);
- set_scroll_bar_timer (SCROLL_BAR_FIRST_DELAY);
- bar->dragging = Qnil;
- }
- else
- {
- Rect r;
-
- get_control_part_bounds (SCROLL_BAR_CONTROL_REF (bar),
- kControlIndicatorPart, &r);
- XSETINT (bar->dragging, - (mouse_pos.v - r.top) - 1);
- }
-
- last_scroll_bar_part = part;
- tracked_scroll_bar = bar;
-}
-
-static void
-x_scroll_bar_handle_release (bar, bufp)
- struct scroll_bar *bar;
- struct input_event *bufp;
-{
- if (last_scroll_bar_part != scroll_bar_handle
- || (INTEGERP (bar->dragging) && XINT (bar->dragging) >= 0))
- construct_scroll_bar_click (bar, scroll_bar_end_scroll, bufp);
-
- HiliteControl (SCROLL_BAR_CONTROL_REF (bar), 0);
- set_scroll_bar_timer (kEventDurationForever);
-
- last_scroll_bar_part = -1;
- bar->dragging = Qnil;
- tracked_scroll_bar = NULL;
-}
-
-static void
-x_scroll_bar_handle_drag (win, bar, mouse_pos, bufp)
- WindowRef win;
- struct scroll_bar *bar;
- Point mouse_pos;
- struct input_event *bufp;
-{
- ControlRef ch = SCROLL_BAR_CONTROL_REF (bar);
-
- if (last_scroll_bar_part == scroll_bar_handle)
- {
- int top, top_range;
- Rect r;
-
- get_control_part_bounds (SCROLL_BAR_CONTROL_REF (bar),
- kControlIndicatorPart, &r);
-
- if (INTEGERP (bar->dragging) && XINT (bar->dragging) < 0)
- XSETINT (bar->dragging, - (XINT (bar->dragging) + 1));
-
- top = mouse_pos.v - XINT (bar->dragging) - XINT (bar->track_top);
- top_range = XINT (bar->track_height) - XINT (bar->min_handle);
-
- if (top < 0)
- top = 0;
- if (top > top_range)
- top = top_range;
-
- construct_scroll_bar_click (bar, scroll_bar_handle, bufp);
- XSETINT (bufp->x, top);
- XSETINT (bufp->y, top_range);
- }
- else
- {
- ControlPartCode part_code;
- int unhilite_p = 0, part;
-
- if (ch != FindControlUnderMouse (mouse_pos, win, &part_code))
- unhilite_p = 1;
- else
- {
- part = control_part_code_to_scroll_bar_part (part_code);
-
- switch (last_scroll_bar_part)
- {
- case scroll_bar_above_handle:
- case scroll_bar_below_handle:
- if (part != scroll_bar_above_handle
- && part != scroll_bar_below_handle)
- unhilite_p = 1;
- break;
-
- case scroll_bar_up_arrow:
- case scroll_bar_down_arrow:
- if (part != scroll_bar_up_arrow
- && part != scroll_bar_down_arrow)
- unhilite_p = 1;
- break;
- }
- }
-
- if (unhilite_p)
- HiliteControl (SCROLL_BAR_CONTROL_REF (bar), 0);
- else if (part != last_scroll_bar_part
- || scroll_bar_timer_event_posted_p)
- {
- construct_scroll_bar_click (bar, part, bufp);
- last_scroll_bar_part = part;
- HiliteControl (SCROLL_BAR_CONTROL_REF (bar), part_code);
- set_scroll_bar_timer (SCROLL_BAR_CONTINUOUS_DELAY);
- }
- }
-}
-
-/* Update BAR->track_top, BAR->track_height, and BAR->min_handle for
- the scroll bar BAR. This function should be called when the bounds
- of the scroll bar is changed. */
-
-static void
-update_scroll_bar_track_info (bar)
- struct scroll_bar *bar;
-{
- ControlRef ch = SCROLL_BAR_CONTROL_REF (bar);
- Rect r0, r1;
-
- GetControlBounds (ch, &r0);
-
- if (r0.right - r0.left >= r0.bottom - r0.top
-#ifdef MAC_OSX
- || r0.right - r0.left < MAC_AQUA_SMALL_VERTICAL_SCROLL_BAR_WIDTH
-#endif
- )
- {
- XSETINT (bar->track_top, 0);
- XSETINT (bar->track_height, 0);
- XSETINT (bar->min_handle, 0);
- }
- else
- {
- BLOCK_INPUT;
-
- SetControl32BitMinimum (ch, 0);
- SetControl32BitMaximum (ch, 1 << 30);
- SetControlViewSize (ch, 1);
-
- /* Move the scroll bar thumb to the top. */
- SetControl32BitValue (ch, 0);
- get_control_part_bounds (ch, kControlIndicatorPart, &r0);
-
- /* Move the scroll bar thumb to the bottom. */
- SetControl32BitValue (ch, 1 << 30);
- get_control_part_bounds (ch, kControlIndicatorPart, &r1);
-
- UnionRect (&r0, &r1, &r0);
- XSETINT (bar->track_top, r0.top);
- XSETINT (bar->track_height, r0.bottom - r0.top);
- XSETINT (bar->min_handle, r1.bottom - r1.top);
-
- /* Don't show the scroll bar if its height is not enough to
- display the scroll bar thumb. */
- if (r0.bottom - r0.top > 0)
- ShowControl (ch);
-
- UNBLOCK_INPUT;
- }
-}
-
-/* Set the thumb size and position of scroll bar BAR. We are currently
- displaying PORTION out of a whole WHOLE, and our position POSITION. */
-
-void
-x_set_toolkit_scroll_bar_thumb (bar, portion, position, whole)
- struct scroll_bar *bar;
- int portion, position, whole;
-{
- ControlRef ch = SCROLL_BAR_CONTROL_REF (bar);
- int value, viewsize, maximum;
-
- if (XINT (bar->track_height) == 0)
- return;
-
- if (whole <= portion)
- value = 0, viewsize = 1, maximum = 0;
- else
- {
- float scale;
-
- maximum = XINT (bar->track_height) - XINT (bar->min_handle);
- scale = (float) maximum / (whole - portion);
- value = position * scale + 0.5f;
- viewsize = (int) (portion * scale + 0.5f) + XINT (bar->min_handle);
- }
-
- BLOCK_INPUT;
-
- if (GetControlViewSize (ch) != viewsize
- || GetControl32BitValue (ch) != value
- || GetControl32BitMaximum (ch) != maximum)
- {
- /* Temporarily hide the scroll bar to avoid multiple redraws. */
- SetControlVisibility (ch, false, false);
-
- SetControl32BitMaximum (ch, maximum);
- SetControl32BitValue (ch, value);
- SetControlViewSize (ch, viewsize);
-
- SetControlVisibility (ch, true, true);
- }
-
- UNBLOCK_INPUT;
-}
-
-#endif /* USE_TOOLKIT_SCROLL_BARS */
-
-/* Create a scroll bar control for BAR. BOUNDS and VISIBLE specifies
- the initial geometry and visibility, respectively. The created
- control is stored in some members of BAR. */
-
-void
-mac_create_scroll_bar (bar, bounds, visible)
- struct scroll_bar *bar;
- const Rect *bounds;
- Boolean visible;
-{
- struct frame *f = XFRAME (WINDOW_FRAME (XWINDOW (bar->window)));
- ControlRef ch;
-
-#if USE_CG_DRAWING
- mac_prepare_for_quickdraw (f);
-#endif
- ch = NewControl (FRAME_MAC_WINDOW (f), bounds, "\p", visible, 0, 0, 0,
-#if TARGET_API_MAC_CARBON
- kControlScrollBarProc,
-#else
- scrollBarProc,
-#endif
- (SInt32) bar);
- SET_SCROLL_BAR_CONTROL_REF (bar, ch);
-
- XSETINT (bar->start, 0);
- XSETINT (bar->end, 0);
- bar->dragging = Qnil;
-
-#ifdef USE_TOOLKIT_SCROLL_BARS
- update_scroll_bar_track_info (bar);
-#endif
-}
-
-/* Dispose of the scroll bar control stored in some members of
- BAR. */
-
-void
-mac_dispose_scroll_bar (bar)
- struct scroll_bar *bar;
-{
-#if USE_CG_DRAWING
- struct frame *f = XFRAME (WINDOW_FRAME (XWINDOW (bar->window)));
-
- mac_prepare_for_quickdraw (f);
-#endif
- DisposeControl (SCROLL_BAR_CONTROL_REF (bar));
-}
-
-/* Set bounds of the scroll bar BAR to BOUNDS. */
-
-void
-mac_set_scroll_bar_bounds (bar, bounds)
- struct scroll_bar *bar;
- const Rect *bounds;
-{
- ControlRef ch = SCROLL_BAR_CONTROL_REF (bar);
- SInt16 width, height;
-#if USE_CG_DRAWING
- struct frame *f = XFRAME (WINDOW_FRAME (XWINDOW (bar->window)));
-
- mac_prepare_for_quickdraw (f);
-#endif
-
- width = bounds->right - bounds->left;
- height = bounds->bottom - bounds->top;
- HideControl (ch);
- MoveControl (ch, bounds->left, bounds->top);
- SizeControl (ch, width, height);
-#ifdef USE_TOOLKIT_SCROLL_BARS
- update_scroll_bar_track_info (bar);
-#else
- if (width < height)
- ShowControl (ch);
-#endif
-}
-
-/* Draw the scroll bar BAR. */
-
-void
-mac_redraw_scroll_bar (bar)
- struct scroll_bar *bar;
-{
-#if USE_CG_DRAWING
- struct frame *f = XFRAME (WINDOW_FRAME (XWINDOW (bar->window)));
-
- mac_prepare_for_quickdraw (f);
-#endif
- Draw1Control (SCROLL_BAR_CONTROL_REF (bar));
-}
-
-/* Handle a mouse click on the scroll bar BAR. If *EMACS_EVENT's kind
- is set to something other than NO_EVENT, it is enqueued.
-
- This may be called from a signal handler, so we have to ignore GC
- mark bits. */
-
-static void
-x_scroll_bar_handle_click (bar, part_code, er, bufp)
- struct scroll_bar *bar;
- ControlPartCode part_code;
- const EventRecord *er;
- struct input_event *bufp;
-{
- int win_y, top_range;
-
- if (! GC_WINDOWP (bar->window))
- abort ();
-
- bufp->kind = SCROLL_BAR_CLICK_EVENT;
- bufp->frame_or_window = bar->window;
- bufp->arg = Qnil;
-
- bar->dragging = Qnil;
-
- switch (part_code)
- {
- case kControlUpButtonPart:
- bufp->part = scroll_bar_up_arrow;
- break;
- case kControlDownButtonPart:
- bufp->part = scroll_bar_down_arrow;
- break;
- case kControlPageUpPart:
- bufp->part = scroll_bar_above_handle;
- break;
- case kControlPageDownPart:
- bufp->part = scroll_bar_below_handle;
- break;
-#if TARGET_API_MAC_CARBON
- default:
-#else
- case kControlIndicatorPart:
-#endif
- if (er->what == mouseDown)
- bar->dragging = make_number (0);
- XSETVECTOR (last_mouse_scroll_bar, bar);
- bufp->part = scroll_bar_handle;
- break;
- }
-
- win_y = XINT (bufp->y) - XINT (bar->top);
- top_range = VERTICAL_SCROLL_BAR_TOP_RANGE (0/*dummy*/, XINT (bar->height));
-
- win_y -= VERTICAL_SCROLL_BAR_TOP_BORDER;
-
- win_y -= 24;
-
- if (! NILP (bar->dragging))
- win_y -= XINT (bar->dragging);
-
- if (win_y < 0)
- win_y = 0;
- if (win_y > top_range)
- win_y = top_range;
-
- XSETINT (bufp->x, win_y);
- XSETINT (bufp->y, top_range);
-}
-
-/* Return information to the user about the current position of the mouse
- on the scroll bar. */
-
-void
-x_scroll_bar_report_motion (fp, bar_window, part, x, y, time)
- FRAME_PTR *fp;
- Lisp_Object *bar_window;
- enum scroll_bar_part *part;
- Lisp_Object *x, *y;
- unsigned long *time;
-{
- struct scroll_bar *bar = XSCROLL_BAR (last_mouse_scroll_bar);
- ControlRef ch = SCROLL_BAR_CONTROL_REF (bar);
-#if TARGET_API_MAC_CARBON
- WindowRef wp = GetControlOwner (ch);
-#else
- WindowRef wp = (*ch)->contrlOwner;
-#endif
- Point mouse_pos;
- struct frame *f = mac_window_to_frame (wp);
- int win_y, top_range;
-
-#if TARGET_API_MAC_CARBON
- GetGlobalMouse (&mouse_pos);
- mouse_pos.h -= f->left_pos + FRAME_OUTER_TO_INNER_DIFF_X (f);
- mouse_pos.v -= f->top_pos + FRAME_OUTER_TO_INNER_DIFF_Y (f);
-#else
- SetPortWindowPort (wp);
- GetMouse (&mouse_pos);
-#endif
-
- win_y = mouse_pos.v - XINT (bar->top);
- top_range = VERTICAL_SCROLL_BAR_TOP_RANGE (f, XINT (bar->height));
-
- win_y -= VERTICAL_SCROLL_BAR_TOP_BORDER;
-
- win_y -= 24;
-
- if (! NILP (bar->dragging))
- win_y -= XINT (bar->dragging);
-
- if (win_y < 0)
- win_y = 0;
- if (win_y > top_range)
- win_y = top_range;
-
- *fp = f;
- *bar_window = bar->window;
-
- if (! NILP (bar->dragging))
- *part = scroll_bar_handle;
- else if (win_y < XINT (bar->start))
- *part = scroll_bar_above_handle;
- else if (win_y < XINT (bar->end) + VERTICAL_SCROLL_BAR_MIN_HANDLE)
- *part = scroll_bar_handle;
- else
- *part = scroll_bar_below_handle;
-
- XSETINT (*x, win_y);
- XSETINT (*y, top_range);
-
- f->mouse_moved = 0;
- last_mouse_scroll_bar = Qnil;
-
- *time = last_mouse_movement_time;
-}
-
-#ifndef USE_TOOLKIT_SCROLL_BARS
-/* Draw BAR's handle in the proper position.
-
- If the handle is already drawn from START to END, don't bother
- redrawing it, unless REBUILD is non-zero; in that case, always
- redraw it. (REBUILD is handy for drawing the handle after expose
- events.)
-
- Normally, we want to constrain the start and end of the handle to
- fit inside its rectangle, but if the user is dragging the scroll
- bar handle, we want to let them drag it down all the way, so that
- the bar's top is as far down as it goes; otherwise, there's no way
- to move to the very end of the buffer. */
-
-void
-x_scroll_bar_set_handle (bar, start, end, rebuild)
- struct scroll_bar *bar;
- int start, end;
- int rebuild;
-{
- int dragging = ! NILP (bar->dragging);
- ControlRef ch = SCROLL_BAR_CONTROL_REF (bar);
- FRAME_PTR f = XFRAME (WINDOW_FRAME (XWINDOW (bar->window)));
- int top_range = VERTICAL_SCROLL_BAR_TOP_RANGE (f, XINT (bar->height));
- int length = end - start;
-
- /* If the display is already accurate, do nothing. */
- if (! rebuild
- && start == XINT (bar->start)
- && end == XINT (bar->end))
- return;
-
- BLOCK_INPUT;
-
- /* Make sure the values are reasonable, and try to preserve the
- distance between start and end. */
- if (start < 0)
- start = 0;
- else if (start > top_range)
- start = top_range;
- end = start + length;
-
- if (end < start)
- end = start;
- else if (end > top_range && ! dragging)
- end = top_range;
-
- /* Store the adjusted setting in the scroll bar. */
- XSETINT (bar->start, start);
- XSETINT (bar->end, end);
-
- /* Clip the end position, just for display. */
- if (end > top_range)
- end = top_range;
-
- /* Draw bottom positions VERTICAL_SCROLL_BAR_MIN_HANDLE pixels below
- top positions, to make sure the handle is always at least that
- many pixels tall. */
- end += VERTICAL_SCROLL_BAR_MIN_HANDLE;
-
- SetControlMinimum (ch, 0);
- /* Don't inadvertently activate deactivated scroll bars */
- if (GetControlMaximum (ch) != -1)
- SetControlMaximum (ch, top_range + VERTICAL_SCROLL_BAR_MIN_HANDLE
- - (end - start));
- SetControlValue (ch, start);
-#if TARGET_API_MAC_CARBON
- SetControlViewSize (ch, end - start);
-#endif
-
- UNBLOCK_INPUT;
-}
-
-/* Handle some mouse motion while someone is dragging the scroll bar.
-
- This may be called from a signal handler, so we have to ignore GC
- mark bits. */
-
-static void
-x_scroll_bar_note_movement (bar, y_pos, t)
- struct scroll_bar *bar;
- int y_pos;
- Time t;
-{
- FRAME_PTR f = XFRAME (XWINDOW (bar->window)->frame);
-
- last_mouse_movement_time = t;
-
- f->mouse_moved = 1;
- XSETVECTOR (last_mouse_scroll_bar, bar);
-
- /* If we're dragging the bar, display it. */
- if (! GC_NILP (bar->dragging))
- {
- /* Where should the handle be now? */
- int new_start = y_pos - 24;
-
- if (new_start != XINT (bar->start))
- {
- int new_end = new_start + (XINT (bar->end) - XINT (bar->start));
-
- x_scroll_bar_set_handle (bar, new_start, new_end, 0);
- }
- }
-}
-#endif /* !USE_TOOLKIT_SCROLL_BARS */
-
-
-/***********************************************************************
- Tool-bars
- ***********************************************************************/
-
-#if USE_MAC_TOOLBAR
-/* In identifiers such as function/variable names, Emacs tool bar is
- referred to as `tool_bar', and Carbon HIToolbar as `toolbar'. */
-
-#define TOOLBAR_IDENTIFIER (CFSTR ("org.gnu.Emacs.toolbar"))
-#define TOOLBAR_ICON_ITEM_IDENTIFIER (CFSTR ("org.gnu.Emacs.toolbar.icon"))
-
-#define TOOLBAR_ITEM_COMMAND_ID_OFFSET 'Tb\0\0'
-#define TOOLBAR_ITEM_COMMAND_ID_P(id) \
- (((id) & ~0xffff) == TOOLBAR_ITEM_COMMAND_ID_OFFSET)
-#define TOOLBAR_ITEM_COMMAND_ID_VALUE(id) \
- ((id) - TOOLBAR_ITEM_COMMAND_ID_OFFSET)
-#define TOOLBAR_ITEM_MAKE_COMMAND_ID(value) \
- ((value) + TOOLBAR_ITEM_COMMAND_ID_OFFSET)
-
-static OSStatus mac_handle_toolbar_command_event P_ ((EventHandlerCallRef,
- EventRef, void *));
-
-extern Rect last_mouse_glyph;
-
-extern void mac_move_window_with_gravity P_ ((struct frame *, int,
- short, short));
-extern void mac_get_window_origin_with_gravity P_ ((struct frame *, int,
- short *, short *));
-extern CGImageRef mac_image_spec_to_cg_image P_ ((struct frame *,
- Lisp_Object));
-
-static OSStatus
-mac_handle_toolbar_event (next_handler, event, data)
- EventHandlerCallRef next_handler;
- EventRef event;
- void *data;
-{
- OSStatus result = eventNotHandledErr;
-
- switch (GetEventKind (event))
- {
- case kEventToolbarGetDefaultIdentifiers:
- result = noErr;
- break;
-
- case kEventToolbarGetAllowedIdentifiers:
- {
- CFMutableArrayRef array;
-
- GetEventParameter (event, kEventParamMutableArray,
- typeCFMutableArrayRef, NULL,
- sizeof (CFMutableArrayRef), NULL, &array);
- CFArrayAppendValue (array, TOOLBAR_ICON_ITEM_IDENTIFIER);
- result = noErr;
- }
- break;
-
- case kEventToolbarCreateItemWithIdentifier:
- {
- CFStringRef identifier;
- HIToolbarItemRef item = NULL;
-
- GetEventParameter (event, kEventParamToolbarItemIdentifier,
- typeCFStringRef, NULL,
- sizeof (CFStringRef), NULL, &identifier);
-
- if (CFStringCompare (identifier, TOOLBAR_ICON_ITEM_IDENTIFIER, 0)
- == kCFCompareEqualTo)
- HIToolbarItemCreate (identifier,
- kHIToolbarItemAllowDuplicates
- | kHIToolbarItemCantBeRemoved, &item);
-
- if (item)
- {
- SetEventParameter (event, kEventParamToolbarItem,
- typeHIToolbarItemRef,
- sizeof (HIToolbarItemRef), &item);
- result = noErr;
- }
- }
- break;
-
- default:
- abort ();
- }
-
- return result;
-}
-
-/* Create a tool bar for frame F. */
-
-static OSStatus
-mac_create_frame_tool_bar (f)
- FRAME_PTR f;
-{
- OSStatus err;
- HIToolbarRef toolbar;
-
- err = HIToolbarCreate (TOOLBAR_IDENTIFIER, kHIToolbarNoAttributes,
- &toolbar);
- if (err == noErr)
- {
- static const EventTypeSpec specs[] =
- {{kEventClassToolbar, kEventToolbarGetDefaultIdentifiers},
- {kEventClassToolbar, kEventToolbarGetAllowedIdentifiers},
- {kEventClassToolbar, kEventToolbarCreateItemWithIdentifier}};
-
- err = InstallEventHandler (HIObjectGetEventTarget (toolbar),
- mac_handle_toolbar_event,
- GetEventTypeCount (specs), specs,
- f, NULL);
- }
-
- if (err == noErr)
- err = HIToolbarSetDisplayMode (toolbar, kHIToolbarDisplayModeIconOnly);
- if (err == noErr)
- {
- static const EventTypeSpec specs[] =
- {{kEventClassCommand, kEventCommandProcess}};
-
- err = InstallWindowEventHandler (FRAME_MAC_WINDOW (f),
- mac_handle_toolbar_command_event,
- GetEventTypeCount (specs),
- specs, f, NULL);
- }
- if (err == noErr)
- err = SetWindowToolbar (FRAME_MAC_WINDOW (f), toolbar);
-
- if (toolbar)
- CFRelease (toolbar);
-
- return err;
-}
-
-/* Update the tool bar for frame F. Add new buttons and remove old. */
-
-void
-update_frame_tool_bar (f)
- FRAME_PTR f;
-{
- HIToolbarRef toolbar = NULL;
- short left, top;
- CFArrayRef old_items = NULL;
- CFIndex old_count;
- int i, pos, win_gravity = f->output_data.mac->toolbar_win_gravity;
- struct mac_display_info *dpyinfo = FRAME_MAC_DISPLAY_INFO (f);
-
- BLOCK_INPUT;
-
- GetWindowToolbar (FRAME_MAC_WINDOW (f), &toolbar);
- if (toolbar == NULL)
- {
- mac_create_frame_tool_bar (f);
- GetWindowToolbar (FRAME_MAC_WINDOW (f), &toolbar);
- if (toolbar == NULL)
- goto out;
- if (win_gravity >= NorthWestGravity && win_gravity <= SouthEastGravity)
- mac_get_window_origin_with_gravity (f, win_gravity, &left, &top);
- }
-
- HIToolbarCopyItems (toolbar, &old_items);
- if (old_items == NULL)
- goto out;
-
- old_count = CFArrayGetCount (old_items);
- pos = 0;
- for (i = 0; i < f->n_tool_bar_items; ++i)
- {
-#define PROP(IDX) AREF (f->tool_bar_items, i * TOOL_BAR_ITEM_NSLOTS + (IDX))
-
- int enabled_p = !NILP (PROP (TOOL_BAR_ITEM_ENABLED_P));
- int selected_p = !NILP (PROP (TOOL_BAR_ITEM_SELECTED_P));
- int idx;
- Lisp_Object image;
- CGImageRef cg_image;
- CFStringRef label;
- HIToolbarItemRef item;
-
- /* If image is a vector, choose the image according to the
- button state. */
- image = PROP (TOOL_BAR_ITEM_IMAGES);
- if (VECTORP (image))
- {
- if (enabled_p)
- idx = (selected_p
- ? TOOL_BAR_IMAGE_ENABLED_SELECTED
- : TOOL_BAR_IMAGE_ENABLED_DESELECTED);
- else
- idx = (selected_p
- ? TOOL_BAR_IMAGE_DISABLED_SELECTED
- : TOOL_BAR_IMAGE_DISABLED_DESELECTED);
-
- xassert (ASIZE (image) >= idx);
- image = AREF (image, idx);
- }
- else
- idx = -1;
-
- cg_image = mac_image_spec_to_cg_image (f, image);
- /* Ignore invalid image specifications. */
- if (cg_image == NULL)
- continue;
-
- label = cfstring_create_with_string (PROP (TOOL_BAR_ITEM_CAPTION));
- if (label == NULL)
- label = CFSTR ("");
-
- if (pos < old_count)
- {
- CGImageRef old_cg_image = NULL;
- CFStringRef old_label = NULL;
- Boolean old_enabled_p;
-
- item = (HIToolbarItemRef) CFArrayGetValueAtIndex (old_items, pos);
-
- HIToolbarItemCopyImage (item, &old_cg_image);
- if (cg_image != old_cg_image)
- HIToolbarItemSetImage (item, cg_image);
- CGImageRelease (old_cg_image);
-
- HIToolbarItemCopyLabel (item, &old_label);
- if (CFStringCompare (label, old_label, 0) != kCFCompareEqualTo)
- HIToolbarItemSetLabel (item, label);
- CFRelease (old_label);
-
- old_enabled_p = HIToolbarItemIsEnabled (item);
- if ((enabled_p || idx >= 0) != old_enabled_p)
- HIToolbarItemSetEnabled (item, (enabled_p || idx >= 0));
- }
- else
- {
- item = NULL;
- HIToolbarCreateItemWithIdentifier (toolbar,
- TOOLBAR_ICON_ITEM_IDENTIFIER,
- NULL, &item);
- if (item)
- {
- HIToolbarItemSetImage (item, cg_image);
- HIToolbarItemSetLabel (item, label);
- HIToolbarItemSetEnabled (item, (enabled_p || idx >= 0));
- HIToolbarAppendItem (toolbar, item);
- CFRelease (item);
- }
- }
-
- CFRelease (label);
- if (item)
- {
- HIToolbarItemSetCommandID (item, TOOLBAR_ITEM_MAKE_COMMAND_ID (i));
- pos++;
- }
- }
-
- CFRelease (old_items);
-
- while (pos < old_count)
- HIToolbarRemoveItemAtIndex (toolbar, --old_count);
-
- ShowHideWindowToolbar (FRAME_MAC_WINDOW (f), true,
- !win_gravity && f == mac_focus_frame (dpyinfo));
- /* Mac OS X 10.3 does not issue kEventWindowBoundsChanged events on
- toolbar visibility change. */
- mac_handle_origin_change (f);
- if (win_gravity >= NorthWestGravity && win_gravity <= SouthEastGravity)
- {
- mac_move_window_with_gravity (f, win_gravity, left, top);
- /* If the title bar is completely outside the screen, adjust the
- position. */
- ConstrainWindowToScreen (FRAME_MAC_WINDOW (f), kWindowTitleBarRgn,
- kWindowConstrainMoveRegardlessOfFit
- | kWindowConstrainAllowPartial, NULL, NULL);
- f->output_data.mac->toolbar_win_gravity = 0;
- }
-
- out:
- UNBLOCK_INPUT;
-}
-
-/* Hide the tool bar on frame F. Unlike the counterpart on GTK+, it
- doesn't deallocate the resources. */
-
-void
-free_frame_tool_bar (f)
- FRAME_PTR f;
-{
- if (IsWindowToolbarVisible (FRAME_MAC_WINDOW (f)))
- {
- struct mac_display_info *dpyinfo = FRAME_MAC_DISPLAY_INFO (f);
-
- BLOCK_INPUT;
- ShowHideWindowToolbar (FRAME_MAC_WINDOW (f), false,
- (NILP (find_symbol_value
- (intern ("frame-notice-user-settings")))
- && f == mac_focus_frame (dpyinfo)));
- /* Mac OS X 10.3 does not issue kEventWindowBoundsChanged events
- on toolbar visibility change. */
- mac_handle_origin_change (f);
- UNBLOCK_INPUT;
- }
-}
-
-/* Report a mouse movement over toolbar to the mainstream Emacs
- code. */
-
-static void
-mac_tool_bar_note_mouse_movement (f, event)
- struct frame *f;
- EventRef event;
-{
- OSStatus err;
- struct mac_display_info *dpyinfo = FRAME_MAC_DISPLAY_INFO (f);
- int mouse_down_p;
- WindowRef window;
- WindowPartCode part_code;
- HIViewRef item_view;
- UInt32 command_id;
-
- mouse_down_p = (dpyinfo->grabbed
- && f == last_mouse_frame
- && FRAME_LIVE_P (f));
- if (mouse_down_p)
- return;
-
- err = GetEventParameter (event, kEventParamWindowRef, typeWindowRef, NULL,
- sizeof (WindowRef), NULL, &window);
- if (err != noErr || window != FRAME_MAC_WINDOW (f))
- return;
-
- err = GetEventParameter (event, kEventParamWindowPartCode,
- typeWindowPartCode, NULL,
- sizeof (WindowPartCode), NULL, &part_code);
- if (err != noErr || part_code != inStructure)
- return;
-
- err = HIViewGetViewForMouseEvent (HIViewGetRoot (window), event, &item_view);
- /* This doesn't work on Mac OS X 10.2. On Mac OS X 10.3 and 10.4, a
- toolbar item view seems to have the same command ID with that of
- the toolbar item. */
- if (err == noErr)
- err = GetControlCommandID (item_view, &command_id);
- if (err == noErr && TOOLBAR_ITEM_COMMAND_ID_P (command_id))
- {
- int i = TOOLBAR_ITEM_COMMAND_ID_VALUE (command_id);
-
- if (i < f->n_tool_bar_items)
- {
- HIRect bounds;
- HIViewRef content_view;
-
- err = HIViewGetBounds (item_view, &bounds);
- if (err == noErr)
- err = HIViewFindByID (HIViewGetRoot (window),
- kHIViewWindowContentID, &content_view);
- if (err == noErr)
- err = HIViewConvertRect (&bounds, item_view, content_view);
- if (err == noErr)
- SetRect (&last_mouse_glyph,
- CGRectGetMinX (bounds), CGRectGetMinY (bounds),
- CGRectGetMaxX (bounds), CGRectGetMaxY (bounds));
-
- help_echo_object = help_echo_window = Qnil;
- help_echo_pos = -1;
- help_echo_string = PROP (TOOL_BAR_ITEM_HELP);
- if (NILP (help_echo_string))
- help_echo_string = PROP (TOOL_BAR_ITEM_CAPTION);
- }
- }
-}
-
-static OSStatus
-mac_handle_toolbar_command_event (next_handler, event, data)
- EventHandlerCallRef next_handler;
- EventRef event;
- void *data;
-{
- OSStatus err, result = eventNotHandledErr;
- struct frame *f = (struct frame *) data;
- HICommand command;
-
- err = GetEventParameter (event, kEventParamDirectObject,
- typeHICommand, NULL,
- sizeof (HICommand), NULL, &command);
- if (err != noErr)
- return result;
-
- switch (GetEventKind (event))
- {
- case kEventCommandProcess:
- if (!TOOLBAR_ITEM_COMMAND_ID_P (command.commandID))
- result = CallNextEventHandler (next_handler, event);
- else
- {
- int i = TOOLBAR_ITEM_COMMAND_ID_VALUE (command.commandID);
-
- if (i < f->n_tool_bar_items
- && !NILP (PROP (TOOL_BAR_ITEM_ENABLED_P)))
- {
- Lisp_Object frame;
- struct input_event buf;
-
- EVENT_INIT (buf);
-
- XSETFRAME (frame, f);
- buf.kind = TOOL_BAR_EVENT;
- buf.frame_or_window = frame;
- buf.arg = frame;
- kbd_buffer_store_event (&buf);
-
- buf.kind = TOOL_BAR_EVENT;
- buf.frame_or_window = frame;
- buf.arg = PROP (TOOL_BAR_ITEM_KEY);
- buf.modifiers = mac_event_to_emacs_modifiers (event);
- kbd_buffer_store_event (&buf);
-
- result = noErr;
- }
- }
- break;
-
- default:
- abort ();
- }
-#undef PROP
-
- return result;
-}
-#endif /* USE_MAC_TOOLBAR */
-
-
-/***********************************************************************
- Font Panel
- ***********************************************************************/
-
-#if USE_MAC_FONT_PANEL
-/* Whether Font Panel has been shown before. The first call to font
- panel functions (FPIsFontPanelVisible, SetFontInfoForSelection) is
- slow. This variable is used for deferring such a call as much as
- possible. */
-static int font_panel_shown_p = 0;
-
-extern Lisp_Object Qpanel_closed, Qselection;
-extern Lisp_Object Qfont;
-
-/* Whether the font panel is currently visible. */
-
-int
-mac_font_panel_visible_p ()
-{
- return font_panel_shown_p && FPIsFontPanelVisible ();
-}
-
-static pascal OSStatus
-mac_handle_font_event (next_handler, event, data)
- EventHandlerCallRef next_handler;
- EventRef event;
- void *data;
-{
- OSStatus result, err;
- Lisp_Object id_key;
- int num_params;
- const EventParamName *names;
- const EventParamType *types;
- static const EventParamName names_sel[] = {kEventParamATSUFontID,
- kEventParamATSUFontSize,
- kEventParamFMFontFamily,
- kEventParamFMFontStyle,
- kEventParamFMFontSize,
- kEventParamFontColor};
- static const EventParamType types_sel[] = {typeATSUFontID,
- typeATSUSize,
- typeFMFontFamily,
- typeFMFontStyle,
- typeFMFontSize,
- typeFontColor};
-
- result = CallNextEventHandler (next_handler, event);
- if (result != eventNotHandledErr)
- return result;
-
- switch (GetEventKind (event))
- {
- case kEventFontPanelClosed:
- id_key = Qpanel_closed;
- num_params = 0;
- names = NULL;
- types = NULL;
- break;
-
- case kEventFontSelection:
- id_key = Qselection;
- num_params = sizeof (names_sel) / sizeof (names_sel[0]);
- names = names_sel;
- types = types_sel;
- break;
- }
-
- err = mac_store_event_ref_as_apple_event (0, 0, Qfont, id_key,
- event, num_params,
- names, types);
- if (err == noErr)
- result = noErr;
-
- return result;
-}
-
-/* Toggle visiblity of the font panel. */
-
-OSStatus
-mac_show_hide_font_panel ()
-{
- if (!font_panel_shown_p)
- {
- OSStatus err;
-
- static const EventTypeSpec specs[] =
- {{kEventClassFont, kEventFontPanelClosed},
- {kEventClassFont, kEventFontSelection}};
-
- err = InstallApplicationEventHandler (mac_handle_font_event,
- GetEventTypeCount (specs),
- specs, NULL, NULL);
- if (err != noErr)
- return err;
-
- font_panel_shown_p = 1;
- }
-
- return FPShowHideFontPanel ();
-}
-
-/* Set the font selected in the font panel to the one corresponding to
- the face FACE_ID and the charcacter C in the frame F. */
-
-OSStatus
-mac_set_font_info_for_selection (f, face_id, c)
- struct frame *f;
- int face_id, c;
-{
- OSStatus err;
- EventTargetRef target = NULL;
- XFontStruct *font = NULL;
-
- if (!mac_font_panel_visible_p ())
- return noErr;
-
- if (f)
- {
- target = GetWindowEventTarget (FRAME_MAC_WINDOW (f));
-
- if (FRAME_FACE_CACHE (f) && CHAR_VALID_P (c, 0))
- {
- struct face *face;
-
- face_id = FACE_FOR_CHAR (f, FACE_FROM_ID (f, face_id), c);
- face = FACE_FROM_ID (f, face_id);
- font = face->font;
- }
- }
-
- if (font == NULL)
- err = SetFontInfoForSelection (kFontSelectionATSUIType, 0, NULL, target);
- else
- {
- if (font->mac_fontnum != -1)
- {
- FontSelectionQDStyle qd_style;
-
- qd_style.version = kFontSelectionQDStyleVersionZero;
- qd_style.instance.fontFamily = font->mac_fontnum;
- qd_style.instance.fontStyle = font->mac_fontface;
- qd_style.size = font->mac_fontsize;
- qd_style.hasColor = false;
-
- err = SetFontInfoForSelection (kFontSelectionQDType,
- 1, &qd_style, target);
- }
- else
- err = SetFontInfoForSelection (kFontSelectionATSUIType,
- 1, &font->mac_style, target);
- }
-
- return err;
-}
-#endif /* USE_MAC_FONT_PANEL */
-
-
-/************************************************************************
- Event Handling
- ************************************************************************/
-
-/* Non-zero means that a HELP_EVENT has been generated since Emacs
- start. */
-
-static int any_help_event_p;
-
-/* Last window where we saw the mouse. Used by mouse-autoselect-window. */
-static Lisp_Object last_window;
-
-static Point saved_menu_event_location;
-
-extern struct frame *pending_autoraise_frame;
-
-extern FRAME_PTR last_mouse_glyph_frame;
-
-#ifdef __STDC__
-extern int volatile input_signal_count;
-#else
-extern int input_signal_count;
-#endif
-
-extern int mac_screen_config_changed;
-
-extern Lisp_Object Vmac_emulate_three_button_mouse;
-#if TARGET_API_MAC_CARBON
-extern int mac_wheel_button_is_mouse_2;
-extern int mac_pass_command_to_system;
-extern int mac_pass_control_to_system;
-#endif /* TARGET_API_MAC_CARBON */
-extern int mac_ready_for_apple_events;
-
-extern void mac_focus_changed P_ ((int, struct mac_display_info *,
- struct frame *, struct input_event *));
-extern int mac_get_emulated_btn P_ ((UInt32));
-extern int note_mouse_movement P_ ((FRAME_PTR, Point *));
-extern void mac_get_screen_info P_ ((struct mac_display_info *));
-
-/* The focus may have changed. Figure out if it is a real focus change,
- by checking both FocusIn/Out and Enter/LeaveNotify events.
-
- Returns FOCUS_IN_EVENT event in *BUFP. */
-
-static void
-x_detect_focus_change (dpyinfo, event, bufp)
- struct mac_display_info *dpyinfo;
- const EventRecord *event;
- struct input_event *bufp;
-{
- struct frame *frame;
-
- frame = mac_window_to_frame ((WindowRef) event->message);
- if (! frame)
- return;
-
- /* On Mac, this is only called from focus events, so no switch needed. */
- mac_focus_changed ((event->modifiers & activeFlag),
- dpyinfo, frame, bufp);
-}
-
-#if TARGET_API_MAC_CARBON
-/* Obtains the event modifiers from the event EVENTREF and then calls
- mac_to_emacs_modifiers. */
-
-static int
-mac_event_to_emacs_modifiers (EventRef eventRef)
-{
- UInt32 mods = 0, class;
-
- GetEventParameter (eventRef, kEventParamKeyModifiers, typeUInt32, NULL,
- sizeof (UInt32), NULL, &mods);
- class = GetEventClass (eventRef);
- if (!NILP (Vmac_emulate_three_button_mouse)
- && (class == kEventClassMouse || class == kEventClassCommand))
- {
- mods &= ~(optionKey | cmdKey);
- }
- return mac_to_emacs_modifiers (mods, 0);
-}
-
-/* Given an event REF, return the code to use for the mouse button
- code in the emacs input_event. */
-
-static int
-mac_get_mouse_btn (EventRef ref)
-{
- EventMouseButton result = kEventMouseButtonPrimary;
- GetEventParameter (ref, kEventParamMouseButton, typeMouseButton, NULL,
- sizeof (EventMouseButton), NULL, &result);
- switch (result)
- {
- case kEventMouseButtonPrimary:
- if (NILP (Vmac_emulate_three_button_mouse))
- return 0;
- else {
- UInt32 mods = 0;
- GetEventParameter (ref, kEventParamKeyModifiers, typeUInt32, NULL,
- sizeof (UInt32), NULL, &mods);
- return mac_get_emulated_btn(mods);
- }
- case kEventMouseButtonSecondary:
- return mac_wheel_button_is_mouse_2 ? 2 : 1;
- case kEventMouseButtonTertiary:
- case 4: /* 4 is the number for the mouse wheel button */
- return mac_wheel_button_is_mouse_2 ? 1 : 2;
- default:
- return 0;
- }
-}
-
-/* Normally, ConvertEventRefToEventRecord will correctly handle all
- events. However the click of the mouse wheel is not converted to a
- mouseDown or mouseUp event. Likewise for dead key events. This
- calls ConvertEventRefToEventRecord, but then checks to see if it is
- a mouse up/down, or a dead key Carbon event that has not been
- converted, and if so, converts it by hand (to be picked up in the
- XTread_socket loop). */
-static Boolean mac_convert_event_ref (EventRef eventRef, EventRecord *eventRec)
-{
- OSStatus err;
- Boolean result = ConvertEventRefToEventRecord (eventRef, eventRec);
- EventKind action;
-
- if (result)
- return result;
-
- switch (GetEventClass (eventRef))
- {
- case kEventClassMouse:
- switch (GetEventKind (eventRef))
- {
- case kEventMouseDown:
- eventRec->what = mouseDown;
- result = 1;
- break;
-
- case kEventMouseUp:
- eventRec->what = mouseUp;
- result = 1;
- break;
-
- default:
- break;
- }
- break;
-
- case kEventClassKeyboard:
- switch (GetEventKind (eventRef))
- {
- case kEventRawKeyDown:
- action = keyDown;
- goto keystroke_common;
- case kEventRawKeyRepeat:
- action = autoKey;
- goto keystroke_common;
- case kEventRawKeyUp:
- action = keyUp;
- keystroke_common:
- {
- unsigned char char_codes;
- UInt32 key_code;
-
- err = GetEventParameter (eventRef, kEventParamKeyMacCharCodes,
- typeChar, NULL, sizeof (char),
- NULL, &char_codes);
- if (err == noErr)
- err = GetEventParameter (eventRef, kEventParamKeyCode,
- typeUInt32, NULL, sizeof (UInt32),
- NULL, &key_code);
- if (err == noErr)
- {
- eventRec->what = action;
- eventRec->message = char_codes | ((key_code & 0xff) << 8);
- result = 1;
- }
- }
- break;
-
- default:
- break;
- }
- break;
-
- default:
- break;
- }
-
- if (result)
- {
- /* Need where and when. */
- UInt32 mods = 0;
-
- GetEventParameter (eventRef, kEventParamMouseLocation, typeQDPoint,
- NULL, sizeof (Point), NULL, &eventRec->where);
- /* Use two step process because new event modifiers are 32-bit
- and old are 16-bit. Currently, only loss is NumLock & Fn. */
- GetEventParameter (eventRef, kEventParamKeyModifiers, typeUInt32,
- NULL, sizeof (UInt32), NULL, &mods);
- eventRec->modifiers = mods;
-
- eventRec->when = EventTimeToTicks (GetEventTime (eventRef));
- }
-
- return result;
-}
-#endif /* TARGET_API_MAC_CARBON */
-
-#if !TARGET_API_MAC_CARBON
-static RgnHandle mouse_region = NULL;
-
-Boolean
-mac_wait_next_event (er, sleep_time, dequeue)
- EventRecord *er;
- UInt32 sleep_time;
- Boolean dequeue;
-{
- static EventRecord er_buf = {nullEvent};
- UInt32 target_tick, current_tick;
- EventMask event_mask;
-
- if (mouse_region == NULL)
- mouse_region = NewRgn ();
-
- event_mask = everyEvent;
- if (!mac_ready_for_apple_events)
- event_mask -= highLevelEventMask;
-
- current_tick = TickCount ();
- target_tick = current_tick + sleep_time;
-
- if (er_buf.what == nullEvent)
- while (!WaitNextEvent (event_mask, &er_buf,
- target_tick - current_tick, mouse_region))
- {
- current_tick = TickCount ();
- if (target_tick <= current_tick)
- return false;
- }
-
- *er = er_buf;
- if (dequeue)
- er_buf.what = nullEvent;
- return true;
-}
-#endif /* not TARGET_API_MAC_CARBON */
-
-#if TARGET_API_MAC_CARBON
-OSStatus
-mac_post_mouse_moved_event ()
-{
- EventRef event = NULL;
- OSStatus err;
-
- err = CreateEvent (NULL, kEventClassMouse, kEventMouseMoved, 0,
- kEventAttributeNone, &event);
- if (err == noErr)
- {
- Point mouse_pos;
-
- GetGlobalMouse (&mouse_pos);
- err = SetEventParameter (event, kEventParamMouseLocation, typeQDPoint,
- sizeof (Point), &mouse_pos);
- }
- if (err == noErr)
- {
- UInt32 modifiers = GetCurrentKeyModifiers ();
-
- err = SetEventParameter (event, kEventParamKeyModifiers, typeUInt32,
- sizeof (UInt32), &modifiers);
- }
- if (err == noErr)
- err = PostEventToQueue (GetCurrentEventQueue (), event,
- kEventPriorityStandard);
- if (event)
- ReleaseEvent (event);
-
- return err;
-}
-#endif
-
-#ifdef MAC_OSX
-/* Run the current run loop in the default mode until some input
- happens or TIMEOUT seconds passes unless it is negative. Return
- true if timeout occurs first. */
-
-Boolean
-mac_run_loop_run_once (timeout)
- EventTimeout timeout;
-{
-#if USE_CG_DRAWING
- mac_prepare_for_quickdraw (NULL);
-#endif
- return (CFRunLoopRunInMode (kCFRunLoopDefaultMode,
- timeout >= 0 ? timeout : 100000, true)
- == kCFRunLoopRunTimedOut);
-}
-#endif
-
-/* Emacs calls this whenever it wants to read an input event from the
- user. */
-
-int
-XTread_socket (sd, expected, hold_quit)
- int sd, expected;
- struct input_event *hold_quit;
-{
- struct input_event inev;
- int count = 0;
-#if TARGET_API_MAC_CARBON
- EventRef eventRef;
- EventTargetRef toolbox_dispatcher;
-#endif
- EventRecord er;
- struct mac_display_info *dpyinfo = &one_mac_display_info;
-
- if (interrupt_input_blocked)
- {
- interrupt_input_pending = 1;
- return -1;
- }
-
- interrupt_input_pending = 0;
- BLOCK_INPUT;
-
- /* So people can tell when we have read the available input. */
- input_signal_count++;
-
- ++handling_signal;
-
-#if TARGET_API_MAC_CARBON
- toolbox_dispatcher = GetEventDispatcherTarget ();
-
- while (
-#if USE_CG_DRAWING
- mac_prepare_for_quickdraw (NULL),
-#endif
- !ReceiveNextEvent (0, NULL, kEventDurationNoWait,
- kEventRemoveFromQueue, &eventRef))
-#else /* !TARGET_API_MAC_CARBON */
- while (mac_wait_next_event (&er, 0, true))
-#endif /* !TARGET_API_MAC_CARBON */
- {
- int do_help = 0;
- struct frame *f;
- unsigned long timestamp;
-
- EVENT_INIT (inev);
- inev.kind = NO_EVENT;
- inev.arg = Qnil;
-
-#if TARGET_API_MAC_CARBON
- timestamp = GetEventTime (eventRef) / kEventDurationMillisecond;
-
- if (!mac_convert_event_ref (eventRef, &er))
- goto OTHER;
-#else /* !TARGET_API_MAC_CARBON */
- timestamp = er.when * (1000 / 60); /* ticks to milliseconds */
-#endif /* !TARGET_API_MAC_CARBON */
-
- switch (er.what)
- {
- case mouseDown:
- case mouseUp:
- {
- WindowRef window_ptr;
- ControlPartCode part_code;
- int tool_bar_p = 0;
-
-#if TARGET_API_MAC_CARBON
- OSStatus err;
-
- /* This is needed to send mouse events like aqua window
- buttons to the correct handler. */
- read_socket_inev = &inev;
- err = SendEventToEventTarget (eventRef, toolbox_dispatcher);
- read_socket_inev = NULL;
- if (err != eventNotHandledErr)
- break;
-#endif
- last_mouse_glyph_frame = 0;
-
- if (dpyinfo->grabbed && last_mouse_frame
- && FRAME_LIVE_P (last_mouse_frame))
- {
- window_ptr = FRAME_MAC_WINDOW (last_mouse_frame);
- part_code = inContent;
- }
- else
- {
- part_code = FindWindow (er.where, &window_ptr);
- if (tip_window && window_ptr == tip_window)
- {
- HideWindow (tip_window);
- part_code = FindWindow (er.where, &window_ptr);
- }
- }
-
- if (er.what != mouseDown
- && (part_code != inContent || dpyinfo->grabbed == 0))
- break;
-
- switch (part_code)
- {
- case inMenuBar:
- f = mac_focus_frame (dpyinfo);
- saved_menu_event_location = er.where;
- inev.kind = MENU_BAR_ACTIVATE_EVENT;
- XSETFRAME (inev.frame_or_window, f);
- break;
-
- case inContent:
- if (
-#if TARGET_API_MAC_CARBON
- FrontNonFloatingWindow ()
-#else
- FrontWindow ()
-#endif
- != window_ptr
- || (mac_window_to_frame (window_ptr)
- != dpyinfo->x_focus_frame))
- SelectWindow (window_ptr);
- else
- {
- ControlPartCode control_part_code;
- ControlRef ch;
- Point mouse_loc;
-#ifdef MAC_OSX
- ControlKind control_kind;
-#endif
-
- f = mac_window_to_frame (window_ptr);
- /* convert to local coordinates of new window */
- mouse_loc.h = (er.where.h
- - (f->left_pos
- + FRAME_OUTER_TO_INNER_DIFF_X (f)));
- mouse_loc.v = (er.where.v
- - (f->top_pos
- + FRAME_OUTER_TO_INNER_DIFF_Y (f)));
-#if TARGET_API_MAC_CARBON
- ch = FindControlUnderMouse (mouse_loc, window_ptr,
- &control_part_code);
-#ifdef MAC_OSX
- if (ch)
- GetControlKind (ch, &control_kind);
-#endif
-#else
- control_part_code = FindControl (mouse_loc, window_ptr,
- &ch);
-#endif
-
-#if TARGET_API_MAC_CARBON
- inev.code = mac_get_mouse_btn (eventRef);
- inev.modifiers = mac_event_to_emacs_modifiers (eventRef);
-#else
- inev.code = mac_get_emulated_btn (er.modifiers);
- inev.modifiers = mac_to_emacs_modifiers (er.modifiers, 0);
-#endif
- XSETINT (inev.x, mouse_loc.h);
- XSETINT (inev.y, mouse_loc.v);
-
- if ((dpyinfo->grabbed && tracked_scroll_bar)
- || (ch != 0
-#ifndef USE_TOOLKIT_SCROLL_BARS
- /* control_part_code becomes kControlNoPart if
- a progress indicator is clicked. */
- && control_part_code != kControlNoPart
-#else /* USE_TOOLKIT_SCROLL_BARS */
-#ifdef MAC_OSX
- && control_kind.kind == kControlKindScrollBar
-#endif /* MAC_OSX */
-#endif /* USE_TOOLKIT_SCROLL_BARS */
- ))
- {
- struct scroll_bar *bar;
-
- if (dpyinfo->grabbed && tracked_scroll_bar)
- {
- bar = tracked_scroll_bar;
-#ifndef USE_TOOLKIT_SCROLL_BARS
- control_part_code = kControlIndicatorPart;
-#endif
- }
- else
- bar = (struct scroll_bar *) GetControlReference (ch);
-#ifdef USE_TOOLKIT_SCROLL_BARS
- /* Make the "Ctrl-Mouse-2 splits window" work
- for toolkit scroll bars. */
- if (inev.modifiers & ctrl_modifier)
- x_scroll_bar_handle_click (bar, control_part_code,
- &er, &inev);
- else if (er.what == mouseDown)
- x_scroll_bar_handle_press (bar, control_part_code,
- mouse_loc, &inev);
- else
- x_scroll_bar_handle_release (bar, &inev);
-#else /* not USE_TOOLKIT_SCROLL_BARS */
- x_scroll_bar_handle_click (bar, control_part_code,
- &er, &inev);
- if (er.what == mouseDown
- && control_part_code == kControlIndicatorPart)
- tracked_scroll_bar = bar;
- else
- tracked_scroll_bar = NULL;
-#endif /* not USE_TOOLKIT_SCROLL_BARS */
- }
- else
- {
- Lisp_Object window;
- int x = mouse_loc.h;
- int y = mouse_loc.v;
-
- window = window_from_coordinates (f, x, y, 0, 0, 0, 1);
- if (EQ (window, f->tool_bar_window))
- {
- if (er.what == mouseDown)
- handle_tool_bar_click (f, x, y, 1, 0);
- else
- handle_tool_bar_click (f, x, y, 0,
- inev.modifiers);
- tool_bar_p = 1;
- }
- else
- {
- XSETFRAME (inev.frame_or_window, f);
- inev.kind = MOUSE_CLICK_EVENT;
- }
- }
-
- if (er.what == mouseDown)
- {
- dpyinfo->grabbed |= (1 << inev.code);
- last_mouse_frame = f;
-
- if (!tool_bar_p)
- last_tool_bar_item = -1;
- }
- else
- {
- if ((dpyinfo->grabbed & (1 << inev.code)) == 0)
- /* If a button is released though it was not
- previously pressed, that would be because
- of multi-button emulation. */
- dpyinfo->grabbed = 0;
- else
- dpyinfo->grabbed &= ~(1 << inev.code);
- }
-
- /* Ignore any mouse motion that happened before
- this event; any subsequent mouse-movement Emacs
- events should reflect only motion after the
- ButtonPress. */
- if (f != 0)
- f->mouse_moved = 0;
-
-#ifdef USE_TOOLKIT_SCROLL_BARS
- if (inev.kind == MOUSE_CLICK_EVENT
- || (inev.kind == SCROLL_BAR_CLICK_EVENT
- && (inev.modifiers & ctrl_modifier)))
-#endif
- switch (er.what)
- {
- case mouseDown:
- inev.modifiers |= down_modifier;
- break;
- case mouseUp:
- inev.modifiers |= up_modifier;
- break;
- }
- }
- break;
-
- case inDrag:
-#if TARGET_API_MAC_CARBON
- case inProxyIcon:
- if (IsWindowPathSelectClick (window_ptr, &er))
- {
- WindowPathSelect (window_ptr, NULL, NULL);
- break;
- }
- if (part_code == inProxyIcon
- && (TrackWindowProxyDrag (window_ptr, er.where)
- != errUserWantsToDragWindow))
- break;
- DragWindow (window_ptr, er.where, NULL);
-#else /* not TARGET_API_MAC_CARBON */
- DragWindow (window_ptr, er.where, &qd.screenBits.bounds);
- /* Update the frame parameters. */
- {
- struct frame *f = mac_window_to_frame (window_ptr);
-
- if (f && !f->async_iconified)
- mac_handle_origin_change (f);
- }
-#endif /* not TARGET_API_MAC_CARBON */
- break;
-
- case inGoAway:
- if (TrackGoAway (window_ptr, er.where))
- {
- inev.kind = DELETE_WINDOW_EVENT;
- XSETFRAME (inev.frame_or_window,
- mac_window_to_frame (window_ptr));
- }
- break;
-
- /* window resize handling added --ben */
- case inGrow:
- do_grow_window (window_ptr, &er);
- break;
-
- /* window zoom handling added --ben */
- case inZoomIn:
- case inZoomOut:
- if (TrackBox (window_ptr, er.where, part_code))
- do_zoom_window (window_ptr, part_code);
- break;
-
-#if USE_MAC_TOOLBAR
- case inStructure:
- {
- OSStatus err;
- HIViewRef ch;
-
- if (FrontNonFloatingWindow () != window_ptr)
- SelectWindow (window_ptr);
-
- err = HIViewGetViewForMouseEvent (HIViewGetRoot (window_ptr),
- eventRef, &ch);
- /* This doesn't work on Mac OS X 10.2. */
- if (err == noErr)
- HIViewClick (ch, eventRef);
- }
- break;
-#endif /* USE_MAC_TOOLBAR */
-
- default:
- break;
- }
- }
- break;
-
-#if !TARGET_API_MAC_CARBON
- case updateEvt:
- do_window_update ((WindowRef) er.message);
- break;
-#endif
-
- case osEvt:
-#if TARGET_API_MAC_CARBON
- if (SendEventToEventTarget (eventRef, toolbox_dispatcher)
- != eventNotHandledErr)
- break;
-#endif
- switch ((er.message >> 24) & 0x000000FF)
- {
-#if USE_MAC_TSM
- case suspendResumeMessage:
- if (er.message & resumeFlag)
- mac_tsm_resume ();
- else
- mac_tsm_suspend ();
- break;
-#endif
-
- case mouseMovedMessage:
-#if !TARGET_API_MAC_CARBON
- SetRectRgn (mouse_region, er.where.h, er.where.v,
- er.where.h + 1, er.where.v + 1);
-#endif
- previous_help_echo_string = help_echo_string;
- help_echo_string = Qnil;
-
- if (dpyinfo->grabbed && last_mouse_frame
- && FRAME_LIVE_P (last_mouse_frame))
- f = last_mouse_frame;
- else
- f = dpyinfo->x_focus_frame;
-
- if (dpyinfo->mouse_face_hidden)
- {
- dpyinfo->mouse_face_hidden = 0;
- clear_mouse_face (dpyinfo);
- }
-
- if (f)
- {
- WindowRef wp = FRAME_MAC_WINDOW (f);
- Point mouse_pos;
-
- mouse_pos.h = (er.where.h
- - (f->left_pos
- + FRAME_OUTER_TO_INNER_DIFF_X (f)));
- mouse_pos.v = (er.where.v
- - (f->top_pos
- + FRAME_OUTER_TO_INNER_DIFF_Y (f)));
- if (dpyinfo->grabbed && tracked_scroll_bar)
-#ifdef USE_TOOLKIT_SCROLL_BARS
- x_scroll_bar_handle_drag (wp, tracked_scroll_bar,
- mouse_pos, &inev);
-#else /* not USE_TOOLKIT_SCROLL_BARS */
- x_scroll_bar_note_movement (tracked_scroll_bar,
- mouse_pos.v
- - XINT
(tracked_scroll_bar->top),
- er.when * (1000 / 60));
-#endif /* not USE_TOOLKIT_SCROLL_BARS */
- else
- {
- /* Generate SELECT_WINDOW_EVENTs when needed. */
- if (!NILP (Vmouse_autoselect_window))
- {
- Lisp_Object window;
-
- window = window_from_coordinates (f,
- mouse_pos.h,
- mouse_pos.v,
- 0, 0, 0, 0);
-
- /* Window will be selected only when it is
- not selected now and last mouse movement
- event was not in it. Minibuffer window
- will be selected only when it is active. */
- if (WINDOWP (window)
- && !EQ (window, last_window)
- && !EQ (window, selected_window)
- /* For click-to-focus window managers
- create event iff we don't leave the
- selected frame. */
- && (focus_follows_mouse
- || (EQ (XWINDOW (window)->frame,
- XWINDOW (selected_window)->frame))))
- {
- inev.kind = SELECT_WINDOW_EVENT;
- inev.frame_or_window = window;
- }
-
- last_window=window;
- }
- if (!note_mouse_movement (f, &mouse_pos))
- help_echo_string = previous_help_echo_string;
-#if USE_MAC_TOOLBAR
- else
- mac_tool_bar_note_mouse_movement (f, eventRef);
-#endif
- }
- }
-
- /* If the contents of the global variable
- help_echo_string has changed, generate a
- HELP_EVENT. */
- if (!NILP (help_echo_string) || !NILP (previous_help_echo_string))
- do_help = 1;
- break;
- }
- break;
-
- case activateEvt:
- {
- WindowRef window_ptr = (WindowRef) er.message;
- OSErr err;
- ControlRef root_control;
-
- if (window_ptr == tip_window)
- {
- HideWindow (tip_window);
- break;
- }
-
- if (!is_emacs_window (window_ptr))
- goto OTHER;
-
- f = mac_window_to_frame (window_ptr);
-
- if ((er.modifiers & activeFlag) != 0)
- {
- /* A window has been activated */
- Point mouse_loc;
-
- err = GetRootControl (FRAME_MAC_WINDOW (f), &root_control);
- if (err == noErr)
- ActivateControl (root_control);
-
- x_detect_focus_change (dpyinfo, &er, &inev);
-
- mouse_loc.h = (er.where.h
- - (f->left_pos
- + FRAME_OUTER_TO_INNER_DIFF_X (f)));
- mouse_loc.v = (er.where.v
- - (f->top_pos
- + FRAME_OUTER_TO_INNER_DIFF_Y (f)));
- /* Window-activated event counts as mouse movement,
- so update things that depend on mouse position. */
- note_mouse_movement (f, &mouse_loc);
- }
- else
- {
- /* A window has been deactivated */
- err = GetRootControl (FRAME_MAC_WINDOW (f), &root_control);
- if (err == noErr)
- DeactivateControl (root_control);
-
-#ifdef USE_TOOLKIT_SCROLL_BARS
- if (dpyinfo->grabbed && tracked_scroll_bar)
- {
- struct input_event event;
-
- EVENT_INIT (event);
- event.kind = NO_EVENT;
- x_scroll_bar_handle_release (tracked_scroll_bar, &event);
- if (event.kind != NO_EVENT)
- {
- event.timestamp = timestamp;
- kbd_buffer_store_event_hold (&event, hold_quit);
- count++;
- }
- }
-#endif
- dpyinfo->grabbed = 0;
-
- x_detect_focus_change (dpyinfo, &er, &inev);
-
- if (f == dpyinfo->mouse_face_mouse_frame)
- {
- /* If we move outside the frame, then we're
- certainly no longer on any text in the
- frame. */
- clear_mouse_face (dpyinfo);
- dpyinfo->mouse_face_mouse_frame = 0;
- }
-
- /* Generate a nil HELP_EVENT to cancel a help-echo.
- Do it only if there's something to cancel.
- Otherwise, the startup message is cleared when the
- mouse leaves the frame. */
- if (any_help_event_p)
- do_help = -1;
- }
- }
- break;
-
- case keyDown:
- case keyUp:
- case autoKey:
- ObscureCursor ();
-
- f = mac_focus_frame (dpyinfo);
- XSETFRAME (inev.frame_or_window, f);
-
- /* If mouse-highlight is an integer, input clears out mouse
- highlighting. */
- if (!dpyinfo->mouse_face_hidden && INTEGERP (Vmouse_highlight)
- && !EQ (f->tool_bar_window, dpyinfo->mouse_face_window))
- {
- clear_mouse_face (dpyinfo);
- dpyinfo->mouse_face_hidden = 1;
- }
-
- {
- UInt32 modifiers = er.modifiers, mapped_modifiers;
- UInt32 key_code = (er.message & keyCodeMask) >> 8;
-
-#ifdef MAC_OSX
- GetEventParameter (eventRef, kEventParamKeyModifiers,
- typeUInt32, NULL,
- sizeof (UInt32), NULL, &modifiers);
-#endif
- mapped_modifiers = mac_mapped_modifiers (modifiers, key_code);
-
-#if TARGET_API_MAC_CARBON
- if (!(mapped_modifiers
- & ~(mac_pass_command_to_system ? cmdKey : 0)
- & ~(mac_pass_control_to_system ? controlKey : 0)))
- goto OTHER;
- else
-#endif
- if (er.what != keyUp)
- do_keystroke (er.what, er.message & charCodeMask,
- key_code, modifiers, timestamp, &inev);
- }
- break;
-
- case kHighLevelEvent:
- AEProcessAppleEvent (&er);
- break;
-
- default:
- OTHER:
-#if TARGET_API_MAC_CARBON
- {
- OSStatus err;
-
- read_socket_inev = &inev;
- err = SendEventToEventTarget (eventRef, toolbox_dispatcher);
- read_socket_inev = NULL;
- }
-#endif
- break;
- }
-#if TARGET_API_MAC_CARBON
- ReleaseEvent (eventRef);
-#endif
-
- if (inev.kind != NO_EVENT)
- {
- inev.timestamp = timestamp;
- kbd_buffer_store_event_hold (&inev, hold_quit);
- count++;
- }
-
- if (do_help
- && !(hold_quit && hold_quit->kind != NO_EVENT))
- {
- Lisp_Object frame;
-
- if (f)
- XSETFRAME (frame, f);
- else
- frame = Qnil;
-
- if (do_help > 0)
- {
- any_help_event_p = 1;
- gen_help_event (help_echo_string, frame, help_echo_window,
- help_echo_object, help_echo_pos);
- }
- else
- {
- help_echo_string = Qnil;
- gen_help_event (Qnil, frame, Qnil, Qnil, 0);
- }
- count++;
- }
- }
-
- /* If the focus was just given to an autoraising frame,
- raise it now. */
- /* ??? This ought to be able to handle more than one such frame. */
- if (pending_autoraise_frame)
- {
- x_raise_frame (pending_autoraise_frame);
- pending_autoraise_frame = 0;
- }
-
- if (mac_screen_config_changed)
- {
- mac_get_screen_info (dpyinfo);
- mac_screen_config_changed = 0;
- }
-
-#if !TARGET_API_MAC_CARBON
- /* Check which frames are still visible. We do this here because
- there doesn't seem to be any direct notification from the Window
- Manager that the visibility of a window has changed (at least,
- not in all cases). */
- {
- Lisp_Object tail, frame;
-
- FOR_EACH_FRAME (tail, frame)
- {
- struct frame *f = XFRAME (frame);
-
- /* The tooltip has been drawn already. Avoid the
- SET_FRAME_GARBAGED in mac_handle_visibility_change. */
- if (EQ (frame, tip_frame))
- continue;
-
- if (FRAME_MAC_P (f))
- mac_handle_visibility_change (f);
- }
- }
-#endif
-
- --handling_signal;
- UNBLOCK_INPUT;
- return count;
-}
-
-
-/***********************************************************************
- Busy cursor
- ***********************************************************************/
-
-#if TARGET_API_MAC_CARBON
-/* Show the spinning progress indicator for the frame F. Create it if
- it doesn't exist yet. */
-
-void
-mac_show_hourglass (f)
- struct frame *f;
-{
-#if USE_CG_DRAWING
- mac_prepare_for_quickdraw (f);
-#endif
- if (!f->output_data.mac->hourglass_control)
- {
- Window w = FRAME_MAC_WINDOW (f);
- Rect r;
- ControlRef c;
-
- GetWindowPortBounds (w, &r);
- r.left = r.right - HOURGLASS_WIDTH;
- r.bottom = r.top + HOURGLASS_HEIGHT;
- if (CreateChasingArrowsControl (w, &r, &c) == noErr)
- f->output_data.mac->hourglass_control = c;
- }
-
- if (f->output_data.mac->hourglass_control)
- ShowControl (f->output_data.mac->hourglass_control);
-}
-
-/* Hide the spinning progress indicator for the frame F. Do nothing
- it doesn't exist yet. */
-
-void
-mac_hide_hourglass (f)
- struct frame *f;
-{
- if (f->output_data.mac->hourglass_control)
- {
-#if USE_CG_DRAWING
- mac_prepare_for_quickdraw (f);
-#endif
- HideControl (f->output_data.mac->hourglass_control);
- }
-}
-
-/* Reposition the spinning progress indicator for the frame F. Do
- nothing it doesn't exist yet. */
-
-void
-mac_reposition_hourglass (f)
- struct frame *f;
-{
- if (f->output_data.mac->hourglass_control)
- {
-#if USE_CG_DRAWING
- mac_prepare_for_quickdraw (f);
-#endif
- MoveControl (f->output_data.mac->hourglass_control,
- FRAME_PIXEL_WIDTH (f) - HOURGLASS_WIDTH, 0);
- }
-}
-#endif /* TARGET_API_MAC_CARBON */
-
-
-/***********************************************************************
- File selection dialog
- ***********************************************************************/
-
-#if TARGET_API_MAC_CARBON
-extern Lisp_Object Qfile_name_history;
-
-static pascal void mac_nav_event_callback P_ ((NavEventCallbackMessage,
- NavCBRecPtr, void *));
-
-/* The actual implementation of Fx_file_dialog. */
-
-Lisp_Object
-mac_file_dialog (prompt, dir, default_filename, mustmatch, only_dir_p)
- Lisp_Object prompt, dir, default_filename, mustmatch, only_dir_p;
-{
- Lisp_Object file = Qnil;
- int count = SPECPDL_INDEX ();
- struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5, gcpro6;
- char filename[MAXPATHLEN];
- static NavEventUPP mac_nav_event_callbackUPP = NULL;
-
- check_mac ();
-
- GCPRO6 (prompt, dir, default_filename, mustmatch, file, only_dir_p);
- CHECK_STRING (prompt);
- CHECK_STRING (dir);
-
- /* Create the dialog with PROMPT as title, using DIR as initial
- directory and using "*" as pattern. */
- dir = Fexpand_file_name (dir, Qnil);
-
- {
- OSStatus status;
- NavDialogCreationOptions options;
- NavDialogRef dialogRef;
- NavTypeListHandle fileTypes = NULL;
- NavUserAction userAction;
- CFStringRef message=NULL, saveName = NULL;
-
- BLOCK_INPUT;
- /* No need for a callback function because we are modal */
- NavGetDefaultDialogCreationOptions(&options);
- options.modality = kWindowModalityAppModal;
- options.location.h = options.location.v = -1;
- options.optionFlags = kNavDefaultNavDlogOptions;
- options.optionFlags |= kNavAllFilesInPopup; /* All files allowed */
- options.optionFlags |= kNavSelectAllReadableItem;
- options.optionFlags &= ~kNavAllowMultipleFiles;
- if (!NILP(prompt))
- {
- message = cfstring_create_with_string (prompt);
- options.message = message;
- }
- /* Don't set the application, let it use default.
- options.clientName = CFSTR ("Emacs");
- */
-
- if (mac_nav_event_callbackUPP == NULL)
- mac_nav_event_callbackUPP = NewNavEventUPP (mac_nav_event_callback);
-
- if (!NILP (only_dir_p))
- status = NavCreateChooseFolderDialog(&options, mac_nav_event_callbackUPP,
- NULL, NULL, &dialogRef);
- else if (NILP (mustmatch))
- {
- /* This is a save dialog */
- options.optionFlags |= kNavDontConfirmReplacement;
- options.actionButtonLabel = CFSTR ("Ok");
- options.windowTitle = CFSTR ("Enter name");
-
- if (STRINGP (default_filename))
- {
- Lisp_Object utf8 = ENCODE_UTF_8 (default_filename);
- char *begPtr = SDATA(utf8);
- char *filePtr = begPtr + SBYTES(utf8);
- while (filePtr != begPtr && !IS_DIRECTORY_SEP(filePtr[-1]))
- filePtr--;
- saveName = cfstring_create_with_utf8_cstring (filePtr);
- options.saveFileName = saveName;
- options.optionFlags |= kNavSelectDefaultLocation;
- }
- status = NavCreatePutFileDialog(&options,
- 'TEXT', kNavGenericSignature,
- mac_nav_event_callbackUPP, NULL,
- &dialogRef);
- }
- else
- {
- /* This is an open dialog*/
- status = NavCreateChooseFileDialog(&options, fileTypes,
- mac_nav_event_callbackUPP, NULL,
- NULL, NULL, &dialogRef);
- }
-
- /* Set the default location and continue*/
- if (status == noErr)
- {
- Lisp_Object encoded_dir = ENCODE_FILE (dir);
- AEDesc defLocAed;
-
- status = AECreateDesc (TYPE_FILE_NAME, SDATA (encoded_dir),
- SBYTES (encoded_dir), &defLocAed);
- if (status == noErr)
- {
- NavCustomControl(dialogRef, kNavCtlSetLocation, (void*) &defLocAed);
- AEDisposeDesc(&defLocAed);
- }
- status = NavDialogRun(dialogRef);
- }
-
- if (saveName) CFRelease(saveName);
- if (message) CFRelease(message);
-
- if (status == noErr) {
- userAction = NavDialogGetUserAction(dialogRef);
- switch (userAction)
- {
- case kNavUserActionNone:
- case kNavUserActionCancel:
- break; /* Treat cancel like C-g */
- case kNavUserActionOpen:
- case kNavUserActionChoose:
- case kNavUserActionSaveAs:
- {
- NavReplyRecord reply;
- Size len;
-
- status = NavDialogGetReply(dialogRef, &reply);
- if (status != noErr)
- break;
- status = AEGetNthPtr (&reply.selection, 1, TYPE_FILE_NAME,
- NULL, NULL, filename,
- sizeof (filename) - 1, &len);
- if (status == noErr)
- {
- len = min (len, sizeof (filename) - 1);
- filename[len] = '\0';
- if (reply.saveFileName)
- {
- /* If it was a saved file, we need to add the file name */
- if (len && len < sizeof (filename) - 1
- && filename[len-1] != '/')
- filename[len++] = '/';
- CFStringGetCString(reply.saveFileName, filename+len,
- sizeof (filename) - len,
-#ifdef MAC_OSX
- kCFStringEncodingUTF8
-#else
- CFStringGetSystemEncoding ()
-#endif
- );
- }
- file = DECODE_FILE (make_unibyte_string (filename,
- strlen (filename)));
- }
- NavDisposeReply(&reply);
- }
- break;
- }
- NavDialogDispose(dialogRef);
- UNBLOCK_INPUT;
- }
- else {
- UNBLOCK_INPUT;
- /* Fall back on minibuffer if there was a problem */
- file = Fcompleting_read (prompt, intern ("read-file-name-internal"),
- dir, mustmatch, dir, Qfile_name_history,
- default_filename, Qnil);
- }
- }
-
- UNGCPRO;
-
- /* Make "Cancel" equivalent to C-g. */
- if (NILP (file))
- Fsignal (Qquit, Qnil);
-
- return unbind_to (count, file);
-}
-
-/* Need to register some event callback function for enabling drag and
- drop in Navigation Service dialogs. */
-static pascal void
-mac_nav_event_callback (selector, parms, data)
- NavEventCallbackMessage selector;
- NavCBRecPtr parms;
- void *data;
-{
-}
-#endif
-
-
-/************************************************************************
- Menu
- ************************************************************************/
-
-#if !TARGET_API_MAC_CARBON
-#include <MacTypes.h>
-#include <Menus.h>
-#include <Quickdraw.h>
-#include <ToolUtils.h>
-#include <Fonts.h>
-#include <Controls.h>
-#include <Windows.h>
-#include <Events.h>
-#if defined (__MRC__) || (__MSL__ >= 0x6000)
-#include <ControlDefinitions.h>
-#endif
-#endif /* not TARGET_API_MAC_CARBON */
-
-extern int menu_item_selection;
-extern int popup_activated_flag;
-extern int name_is_separator P_ ((const char *));
-extern void find_and_call_menu_selection P_ ((FRAME_PTR, int, Lisp_Object,
- void *));
-extern void set_frame_menubar P_ ((FRAME_PTR, int, int));
-
-enum mac_menu_kind { /* Menu ID range */
- MAC_MENU_APPLE, /* 0 (Reserved by Apple) */
- MAC_MENU_MENU_BAR, /* 1 .. 233 */
- MAC_MENU_M_APPLE, /* 234 (== M_APPLE) */
- MAC_MENU_POPUP, /* 235 */
- MAC_MENU_DRIVER, /* 236 .. 255 (Reserved) */
- MAC_MENU_MENU_BAR_SUB, /* 256 .. 16383 */
- MAC_MENU_POPUP_SUB, /* 16384 .. 32767 */
- MAC_MENU_END /* 32768 */
-};
-
-static const int min_menu_id[] = {0, 1, 234, 235, 236, 256, 16384, 32768};
-
-static int fill_menu P_ ((MenuRef, widget_value *, enum mac_menu_kind, int));
-static void dispose_menus P_ ((enum mac_menu_kind, int));
-
-#if !TARGET_API_MAC_CARBON
-static void
-do_apple_menu (SInt16 menu_item)
-{
- Str255 item_name;
- SInt16 da_driver_refnum;
-
- if (menu_item == I_ABOUT)
- NoteAlert (ABOUT_ALERT_ID, NULL);
- else
- {
- GetMenuItemText (GetMenuRef (M_APPLE), menu_item, item_name);
- da_driver_refnum = OpenDeskAcc (item_name);
- }
-}
-#endif /* !TARGET_API_MAC_CARBON */
-
-/* Activate the menu bar of frame F.
- This is called from keyboard.c when it gets the
- MENU_BAR_ACTIVATE_EVENT out of the Emacs event queue.
-
- To activate the menu bar, we use the button-press event location
- that was saved in saved_menu_event_location.
-
- But first we recompute the menu bar contents (the whole tree).
-
- The reason for saving the button event until here, instead of
- passing it to the toolkit right away, is that we can safely
- execute Lisp code. */
-
-void
-x_activate_menubar (f)
- FRAME_PTR f;
-{
- SInt32 menu_choice;
- SInt16 menu_id, menu_item;
-
- set_frame_menubar (f, 0, 1);
- BLOCK_INPUT;
-
- popup_activated_flag = 1;
- menu_choice = MenuSelect (saved_menu_event_location);
- popup_activated_flag = 0;
- menu_id = HiWord (menu_choice);
- menu_item = LoWord (menu_choice);
-
-#if !TARGET_API_MAC_CARBON
- if (menu_id == min_menu_id[MAC_MENU_M_APPLE])
- do_apple_menu (menu_item);
- else
-#endif
- if (menu_id)
- {
- MenuRef menu = GetMenuRef (menu_id);
-
- if (menu)
- {
- UInt32 refcon;
-
- GetMenuItemRefCon (menu, menu_item, &refcon);
- find_and_call_menu_selection (f, f->menu_bar_items_used,
- f->menu_bar_vector, (void *) refcon);
- }
- }
-
- HiliteMenu (0);
-
- UNBLOCK_INPUT;
-}
-
-#if TARGET_API_MAC_CARBON
-extern Lisp_Object Vshow_help_function;
-
-static Lisp_Object
-restore_show_help_function (old_show_help_function)
- Lisp_Object old_show_help_function;
-{
- Vshow_help_function = old_show_help_function;
-
- return Qnil;
-}
-
-static pascal OSStatus
-menu_target_item_handler (next_handler, event, data)
- EventHandlerCallRef next_handler;
- EventRef event;
- void *data;
-{
- OSStatus err;
- MenuRef menu;
- MenuItemIndex menu_item;
- Lisp_Object help;
- GrafPtr port;
- int specpdl_count = SPECPDL_INDEX ();
-
- /* Don't be bothered with the overflowed toolbar items menu. */
- if (!popup_activated ())
- return eventNotHandledErr;
-
- err = GetEventParameter (event, kEventParamDirectObject, typeMenuRef,
- NULL, sizeof (MenuRef), NULL, &menu);
- if (err == noErr)
- err = GetEventParameter (event, kEventParamMenuItemIndex,
- typeMenuItemIndex, NULL,
- sizeof (MenuItemIndex), NULL, &menu_item);
- if (err == noErr)
- err = GetMenuItemProperty (menu, menu_item,
- MAC_EMACS_CREATOR_CODE, 'help',
- sizeof (Lisp_Object), NULL, &help);
- if (err != noErr)
- help = Qnil;
-
- /* Temporarily bind Vshow_help_function to Qnil because we don't
- want tooltips during menu tracking. */
- record_unwind_protect (restore_show_help_function, Vshow_help_function);
- Vshow_help_function = Qnil;
- GetPort (&port);
- show_help_echo (help, Qnil, Qnil, Qnil, 1);
- SetPort (port);
- unbind_to (specpdl_count, Qnil);
-
- return err == noErr ? noErr : eventNotHandledErr;
-}
-
-/* Showing help echo string during menu tracking. */
-
-static OSStatus
-install_menu_target_item_handler ()
-{
- static const EventTypeSpec specs[] =
- {{kEventClassMenu, kEventMenuTargetItem}};
-
- return InstallApplicationEventHandler (NewEventHandlerUPP
- (menu_target_item_handler),
- GetEventTypeCount (specs),
- specs, NULL, NULL);
-}
-#endif /* TARGET_API_MAC_CARBON */
-
-/* Event handler function that pops down a menu on C-g. We can only pop
- down menus if CancelMenuTracking is present (OSX 10.3 or later). */
-
-#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030
-static pascal OSStatus
-menu_quit_handler (nextHandler, theEvent, userData)
- EventHandlerCallRef nextHandler;
- EventRef theEvent;
- void* userData;
-{
- OSStatus err;
- UInt32 keyCode;
- UInt32 keyModifiers;
-
- err = GetEventParameter (theEvent, kEventParamKeyCode,
- typeUInt32, NULL, sizeof(UInt32), NULL, &keyCode);
-
- if (err == noErr)
- err = GetEventParameter (theEvent, kEventParamKeyModifiers,
- typeUInt32, NULL, sizeof(UInt32),
- NULL, &keyModifiers);
-
- if (err == noErr && mac_quit_char_key_p (keyModifiers, keyCode))
- {
- MenuRef menu = userData != 0
- ? (MenuRef)userData : AcquireRootMenu ();
-
- CancelMenuTracking (menu, true, 0);
- if (!userData) ReleaseMenu (menu);
- return noErr;
- }
-
- return CallNextEventHandler (nextHandler, theEvent);
-}
-#endif /* MAC_OS_X_VERSION_MAX_ALLOWED >= 1030 */
-
-/* Add event handler to all menus that belong to KIND so we can detect
- C-g. ROOT_MENU is the root menu of the tracking session to dismiss
- when C-g is detected. NULL means the menu bar. If
- CancelMenuTracking isn't available, do nothing. */
-
-static void
-install_menu_quit_handler (kind, root_menu)
- enum mac_menu_kind kind;
- MenuRef root_menu;
-{
-#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030
- static const EventTypeSpec typesList[] =
- {{kEventClassKeyboard, kEventRawKeyDown}};
- int id;
-
-#if MAC_OS_X_VERSION_MIN_REQUIRED == 1020
- if (CancelMenuTracking == NULL)
- return;
-#endif
- for (id = min_menu_id[kind]; id < min_menu_id[kind + 1]; id++)
- {
- MenuRef menu = GetMenuRef (id);
-
- if (menu == NULL)
- break;
- InstallMenuEventHandler (menu, menu_quit_handler,
- GetEventTypeCount (typesList),
- typesList, root_menu, NULL);
- }
-#endif /* MAC_OS_X_VERSION_MAX_ALLOWED >= 1030 */
-}
-
-static Lisp_Object
-pop_down_menu (arg)
- Lisp_Object arg;
-{
- struct Lisp_Save_Value *p = XSAVE_VALUE (arg);
- FRAME_PTR f = p->pointer;
- MenuRef menu = GetMenuRef (min_menu_id[MAC_MENU_POPUP]);
-
- BLOCK_INPUT;
-
- /* Must reset this manually because the button release event is not
- passed to Emacs event loop. */
- FRAME_MAC_DISPLAY_INFO (f)->grabbed = 0;
-
- /* delete all menus */
- dispose_menus (MAC_MENU_POPUP_SUB, 0);
- DeleteMenu (min_menu_id[MAC_MENU_POPUP]);
- DisposeMenu (menu);
-
- UNBLOCK_INPUT;
-
- return Qnil;
-}
-
-/* Pop up the menu for frame F defined by FIRST_WV at X/Y and loop
- until the menu pops down. Return the selection. */
-
-void
-create_and_show_popup_menu (f, first_wv, x, y, for_click)
- FRAME_PTR f;
- widget_value *first_wv;
- int x;
- int y;
- int for_click;
-{
- int result = 0;
- MenuRef menu = NewMenu (min_menu_id[MAC_MENU_POPUP], "\p");
- int menu_item_choice;
- int specpdl_count = SPECPDL_INDEX ();
-
- InsertMenu (menu, -1);
- fill_menu (menu, first_wv->contents, MAC_MENU_POPUP_SUB,
- min_menu_id[MAC_MENU_POPUP_SUB]);
-
- /* Add event handler so we can detect C-g. */
- install_menu_quit_handler (MAC_MENU_POPUP, menu);
- install_menu_quit_handler (MAC_MENU_POPUP_SUB, menu);
-
- record_unwind_protect (pop_down_menu, make_save_value (f, 0));
-
- /* Adjust coordinates to be root-window-relative. */
- x += f->left_pos + FRAME_OUTER_TO_INNER_DIFF_X (f);
- y += f->top_pos + FRAME_OUTER_TO_INNER_DIFF_Y (f);
-
- /* Display the menu. */
- popup_activated_flag = 1;
- menu_item_choice = PopUpMenuSelect (menu, y, x, 0);
- popup_activated_flag = 0;
-
- /* Get the refcon to find the correct item */
- if (menu_item_choice)
- {
- MenuRef sel_menu = GetMenuRef (HiWord (menu_item_choice));
-
- if (sel_menu)
- GetMenuItemRefCon (sel_menu, LoWord (menu_item_choice),
- (UInt32 *) &result);
- }
-
- unbind_to (specpdl_count, Qnil);
-
- menu_item_selection = result;
-}
-
-static void
-add_menu_item (menu, pos, wv)
- MenuRef menu;
- int pos;
- widget_value *wv;
-{
-#if TARGET_API_MAC_CARBON
- CFStringRef item_name;
-#else
- Str255 item_name;
-#endif
-
- if (name_is_separator (wv->name))
- AppendMenu (menu, "\p-");
- else
- {
- AppendMenu (menu, "\pX");
-
-#if TARGET_API_MAC_CARBON
- item_name = cfstring_create_with_utf8_cstring (wv->name);
-
- if (wv->key != NULL)
- {
- CFStringRef name, key;
-
- name = item_name;
- key = cfstring_create_with_utf8_cstring (wv->key);
- item_name = CFStringCreateWithFormat (NULL, NULL, CFSTR ("%@ %@"),
- name, key);
- CFRelease (name);
- CFRelease (key);
- }
-
- SetMenuItemTextWithCFString (menu, pos, item_name);
- CFRelease (item_name);
-
- if (wv->enabled)
- EnableMenuItem (menu, pos);
- else
- DisableMenuItem (menu, pos);
-
- if (STRINGP (wv->help))
- SetMenuItemProperty (menu, pos, MAC_EMACS_CREATOR_CODE, 'help',
- sizeof (Lisp_Object), &wv->help);
-#else /* ! TARGET_API_MAC_CARBON */
- item_name[sizeof (item_name) - 1] = '\0';
- strncpy (item_name, wv->name, sizeof (item_name) - 1);
- if (wv->key != NULL)
- {
- int len = strlen (item_name);
-
- strncpy (item_name + len, " ", sizeof (item_name) - 1 - len);
- len = strlen (item_name);
- strncpy (item_name + len, wv->key, sizeof (item_name) - 1 - len);
- }
- c2pstr (item_name);
- SetMenuItemText (menu, pos, item_name);
-
- if (wv->enabled)
- EnableItem (menu, pos);
- else
- DisableItem (menu, pos);
-#endif /* ! TARGET_API_MAC_CARBON */
-
- /* Draw radio buttons and tickboxes. */
- if (wv->selected && (wv->button_type == BUTTON_TYPE_TOGGLE
- || wv->button_type == BUTTON_TYPE_RADIO))
- SetItemMark (menu, pos, checkMark);
- else
- SetItemMark (menu, pos, noMark);
-
- SetMenuItemRefCon (menu, pos, (UInt32) wv->call_data);
- }
-}
-
-/* Construct native Mac OS menu based on widget_value tree. */
-
-static int
-fill_menu (menu, wv, kind, submenu_id)
- MenuRef menu;
- widget_value *wv;
- enum mac_menu_kind kind;
- int submenu_id;
-{
- int pos;
-
- for (pos = 1; wv != NULL; wv = wv->next, pos++)
- {
- add_menu_item (menu, pos, wv);
- if (wv->contents && submenu_id < min_menu_id[kind + 1])
- {
- MenuRef submenu = NewMenu (submenu_id, "\pX");
-
- InsertMenu (submenu, -1);
-#if TARGET_API_MAC_CARBON
- SetMenuItemHierarchicalMenu (menu, pos, submenu);
-#else
- SetMenuItemHierarchicalID (menu, pos, submenu_id);
-#endif
- submenu_id = fill_menu (submenu, wv->contents, kind, submenu_id + 1);
- }
- }
-
- return submenu_id;
-}
-
-/* Fill menu bar with the items defined by WV. If DEEP_P, consider
- the entire menu trees we supply, rather than just the menu bar item
- names. */
-
-void
-mac_fill_menubar (wv, deep_p)
- widget_value *wv;
- int deep_p;
-{
- int id, submenu_id;
-#if !TARGET_API_MAC_CARBON
- int title_changed_p = 0;
-#endif
-
- /* Clean up the menu bar when filled by the entire menu trees. */
- if (deep_p)
- {
- dispose_menus (MAC_MENU_MENU_BAR, 0);
- dispose_menus (MAC_MENU_MENU_BAR_SUB, 0);
-#if !TARGET_API_MAC_CARBON
- title_changed_p = 1;
-#endif
- }
-
- /* Fill menu bar titles and submenus. Reuse the existing menu bar
- titles as much as possible to minimize redraw (if !deep_p). */
- submenu_id = min_menu_id[MAC_MENU_MENU_BAR_SUB];
- for (id = min_menu_id[MAC_MENU_MENU_BAR];
- wv != NULL && id < min_menu_id[MAC_MENU_MENU_BAR + 1];
- wv = wv->next, id++)
- {
- OSStatus err = noErr;
- MenuRef menu;
-#if TARGET_API_MAC_CARBON
- CFStringRef title;
-
- title = CFStringCreateWithCString (NULL, wv->name,
- kCFStringEncodingMacRoman);
-#else
- Str255 title;
-
- strncpy (title, wv->name, 255);
- title[255] = '\0';
- c2pstr (title);
-#endif
-
- menu = GetMenuRef (id);
- if (menu)
- {
-#if TARGET_API_MAC_CARBON
- CFStringRef old_title;
-
- err = CopyMenuTitleAsCFString (menu, &old_title);
- if (err == noErr)
- {
- if (CFStringCompare (title, old_title, 0) != kCFCompareEqualTo)
- {
-#ifdef MAC_OSX
- if (id + 1 == min_menu_id[MAC_MENU_MENU_BAR + 1]
- || GetMenuRef (id + 1) == NULL)
- {
- /* This is a workaround for Mac OS X 10.5 where
- just calling SetMenuTitleWithCFString fails
- to change the title of the last (Help) menu
- in the menu bar. */
- DeleteMenu (id);
- DisposeMenu (menu);
- menu = NULL;
- }
- else
-#endif /* MAC_OSX */
- err = SetMenuTitleWithCFString (menu, title);
- }
- CFRelease (old_title);
- }
- else
- err = SetMenuTitleWithCFString (menu, title);
-#else /* !TARGET_API_MAC_CARBON */
- if (!EqualString (title, (*menu)->menuData, false, false))
- {
- DeleteMenu (id);
- DisposeMenu (menu);
- menu = NewMenu (id, title);
- InsertMenu (menu, GetMenuRef (id + 1) ? id + 1 : 0);
- title_changed_p = 1;
- }
-#endif /* !TARGET_API_MAC_CARBON */
- }
-
- if (!menu)
- {
-#if TARGET_API_MAC_CARBON
- err = CreateNewMenu (id, 0, &menu);
- if (err == noErr)
- err = SetMenuTitleWithCFString (menu, title);
-#else
- menu = NewMenu (id, title);
-#endif
- if (err == noErr)
- {
- InsertMenu (menu, 0);
-#if !TARGET_API_MAC_CARBON
- title_changed_p = 1;
-#endif
- }
- }
-#if TARGET_API_MAC_CARBON
- CFRelease (title);
-#endif
-
- if (err == noErr)
- if (wv->contents)
- submenu_id = fill_menu (menu, wv->contents, MAC_MENU_MENU_BAR_SUB,
- submenu_id);
- }
-
- if (id < min_menu_id[MAC_MENU_MENU_BAR + 1] && GetMenuRef (id))
- {
- dispose_menus (MAC_MENU_MENU_BAR, id);
-#if !TARGET_API_MAC_CARBON
- title_changed_p = 1;
-#endif
- }
-
-#if !TARGET_API_MAC_CARBON
- if (title_changed_p)
- InvalMenuBar ();
-#endif
-
- /* Add event handler so we can detect C-g. */
- install_menu_quit_handler (MAC_MENU_MENU_BAR, NULL);
- install_menu_quit_handler (MAC_MENU_MENU_BAR_SUB, NULL);
-}
-
-/* Dispose of menus that belong to KIND, and remove them from the menu
- list. ID is the lower bound of menu IDs that will be processed. */
-
-static void
-dispose_menus (kind, id)
- enum mac_menu_kind kind;
- int id;
-{
- for (id = max (id, min_menu_id[kind]); id < min_menu_id[kind + 1]; id++)
- {
- MenuRef menu = GetMenuRef (id);
-
- if (menu == NULL)
- break;
- DeleteMenu (id);
- DisposeMenu (menu);
- }
-}
-
-static void
-init_menu_bar ()
-{
-#ifdef MAC_OSX
- OSStatus err;
- MenuRef menu;
- MenuItemIndex menu_index;
-
- err = GetIndMenuItemWithCommandID (NULL, kHICommandQuit, 1,
- &menu, &menu_index);
- if (err == noErr)
- SetMenuItemCommandKey (menu, menu_index, false, 0);
- EnableMenuCommand (NULL, kHICommandPreferences);
- err = GetIndMenuItemWithCommandID (NULL, kHICommandPreferences, 1,
- &menu, &menu_index);
- if (err == noErr)
- {
- SetMenuItemCommandKey (menu, menu_index, false, 0);
- InsertMenuItemTextWithCFString (menu, NULL,
- 0, kMenuItemAttrSeparator, 0);
- InsertMenuItemTextWithCFString (menu, CFSTR ("About Emacs"),
- 0, 0, kHICommandAbout);
- }
-#else /* !MAC_OSX */
-#if TARGET_API_MAC_CARBON
- SetMenuItemCommandID (GetMenuRef (M_APPLE), I_ABOUT, kHICommandAbout);
-#endif
-#endif
-}
-
-
-/***********************************************************************
- Popup Dialog
- ***********************************************************************/
-
-#if TARGET_API_MAC_CARBON
-#define DIALOG_BUTTON_COMMAND_ID_OFFSET 'Bt\0\0'
-#define DIALOG_BUTTON_COMMAND_ID_P(id) \
- (((id) & ~0xffff) == DIALOG_BUTTON_COMMAND_ID_OFFSET)
-#define DIALOG_BUTTON_COMMAND_ID_VALUE(id) \
- ((id) - DIALOG_BUTTON_COMMAND_ID_OFFSET)
-#define DIALOG_BUTTON_MAKE_COMMAND_ID(value) \
- ((value) + DIALOG_BUTTON_COMMAND_ID_OFFSET)
-
-extern EMACS_TIME timer_check P_ ((int));
-static int quit_dialog_event_loop;
-
-static pascal OSStatus
-mac_handle_dialog_event (next_handler, event, data)
- EventHandlerCallRef next_handler;
- EventRef event;
- void *data;
-{
- OSStatus err, result = eventNotHandledErr;
- WindowRef window = (WindowRef) data;
-
- switch (GetEventClass (event))
- {
- case kEventClassCommand:
- {
- HICommand command;
-
- err = GetEventParameter (event, kEventParamDirectObject,
- typeHICommand, NULL, sizeof (HICommand),
- NULL, &command);
- if (err == noErr)
- if (DIALOG_BUTTON_COMMAND_ID_P (command.commandID))
- {
- SetWRefCon (window, command.commandID);
- quit_dialog_event_loop = 1;
- break;
- }
-
- result = CallNextEventHandler (next_handler, event);
- }
- break;
-
- case kEventClassKeyboard:
- {
- OSStatus result;
- char char_code;
-
- result = CallNextEventHandler (next_handler, event);
- if (result != eventNotHandledErr)
- break;
-
- err = GetEventParameter (event, kEventParamKeyMacCharCodes,
- typeChar, NULL, sizeof (char),
- NULL, &char_code);
- if (err == noErr)
- switch (char_code)
- {
- case kEscapeCharCode:
- quit_dialog_event_loop = 1;
- break;
-
- default:
- {
- UInt32 modifiers, key_code;
-
- err = GetEventParameter (event, kEventParamKeyModifiers,
- typeUInt32, NULL, sizeof (UInt32),
- NULL, &modifiers);
- if (err == noErr)
- err = GetEventParameter (event, kEventParamKeyCode,
- typeUInt32, NULL, sizeof (UInt32),
- NULL, &key_code);
- if (err == noErr)
- if (mac_quit_char_key_p (modifiers, key_code))
- quit_dialog_event_loop = 1;
- }
- break;
- }
- }
- break;
-
- default:
- abort ();
- }
-
- if (quit_dialog_event_loop)
- {
- err = QuitEventLoop (GetCurrentEventLoop ());
- if (err == noErr)
- result = noErr;
- }
-
- return result;
-}
-
-static OSStatus
-install_dialog_event_handler (window)
- WindowRef window;
-{
- static const EventTypeSpec specs[] =
- {{kEventClassCommand, kEventCommandProcess},
- {kEventClassKeyboard, kEventRawKeyDown}};
- static EventHandlerUPP handle_dialog_eventUPP = NULL;
-
- if (handle_dialog_eventUPP == NULL)
- handle_dialog_eventUPP = NewEventHandlerUPP (mac_handle_dialog_event);
- return InstallWindowEventHandler (window, handle_dialog_eventUPP,
- GetEventTypeCount (specs), specs,
- window, NULL);
-}
-
-static Lisp_Object
-pop_down_dialog (arg)
- Lisp_Object arg;
-{
- struct Lisp_Save_Value *p = XSAVE_VALUE (arg);
- WindowRef window = p->pointer;
-
- BLOCK_INPUT;
-
- if (popup_activated_flag)
- EndAppModalStateForWindow (window);
- DisposeWindow (window);
- popup_activated_flag = 0;
-
- UNBLOCK_INPUT;
-
- return Qnil;
-}
-
-/* Pop up the dialog for frame F defined by FIRST_WV and loop until the
- dialog pops down.
- menu_item_selection will be set to the selection. */
-
-void
-create_and_show_dialog (f, first_wv)
- FRAME_PTR f;
- widget_value *first_wv;
-{
- OSStatus err;
- char *dialog_name, *message;
- int nb_buttons, first_group_count, i, result = 0;
- widget_value *wv;
- short buttons_height, text_height, inner_width, inner_height;
- Rect empty_rect, *rects;
- WindowRef window = NULL;
- ControlRef *buttons, default_button = NULL, text;
- int specpdl_count = SPECPDL_INDEX ();
-
- dialog_name = first_wv->name;
- nb_buttons = dialog_name[1] - '0';
- first_group_count = nb_buttons - (dialog_name[4] - '0');
-
- wv = first_wv->contents;
- message = wv->value;
-
- wv = wv->next;
- SetRect (&empty_rect, 0, 0, 0, 0);
-
- /* Create dialog window. */
- err = CreateNewWindow (kMovableModalWindowClass,
- kWindowStandardHandlerAttribute,
- &empty_rect, &window);
- if (err == noErr)
- {
- record_unwind_protect (pop_down_dialog, make_save_value (window, 0));
- err = SetThemeWindowBackground (window,
kThemeBrushMovableModalBackground,
- true);
- }
- if (err == noErr)
- err = SetWindowTitleWithCFString (window, (dialog_name[0] == 'Q'
- ? CFSTR ("Question")
- : CFSTR ("Information")));
-
- /* Create button controls and measure their optimal bounds. */
- if (err == noErr)
- {
- buttons = alloca (sizeof (ControlRef) * nb_buttons);
- rects = alloca (sizeof (Rect) * nb_buttons);
- for (i = 0; i < nb_buttons; i++)
- {
- CFStringRef label = cfstring_create_with_utf8_cstring (wv->value);
-
- if (label == NULL)
- err = memFullErr;
- else
- {
- err = CreatePushButtonControl (window, &empty_rect,
- label, &buttons[i]);
- CFRelease (label);
- }
- if (err == noErr)
- {
- if (!wv->enabled)
- {
-#ifdef MAC_OSX
- err = DisableControl (buttons[i]);
-#else
- err = DeactivateControl (buttons[i]);
-#endif
- }
- else if (default_button == NULL)
- default_button = buttons[i];
- }
- if (err == noErr)
- {
- SInt16 unused;
-
- rects[i] = empty_rect;
- err = GetBestControlRect (buttons[i], &rects[i], &unused);
- }
- if (err == noErr)
- {
- UInt32 command_id;
-
- OffsetRect (&rects[i], -rects[i].left, -rects[i].top);
- if (rects[i].right < DIALOG_BUTTON_MIN_WIDTH)
- rects[i].right = DIALOG_BUTTON_MIN_WIDTH;
- else if (rects[i].right > DIALOG_MAX_INNER_WIDTH)
- rects[i].right = DIALOG_MAX_INNER_WIDTH;
-
- command_id = DIALOG_BUTTON_MAKE_COMMAND_ID ((int) wv->call_data);
- err = SetControlCommandID (buttons[i], command_id);
- }
- if (err != noErr)
- break;
- wv = wv->next;
- }
- }
-
- /* Layout buttons. rects[i] is set relative to the bottom-right
- corner of the inner box. */
- if (err == noErr)
- {
- short bottom, right, max_height, left_align_shift;
-
- inner_width = DIALOG_MIN_INNER_WIDTH;
- bottom = right = max_height = 0;
- for (i = 0; i < nb_buttons; i++)
- {
- if (right - rects[i].right < - inner_width)
- {
- if (i != first_group_count
- && right - rects[i].right >= - DIALOG_MAX_INNER_WIDTH)
- inner_width = - (right - rects[i].right);
- else
- {
- bottom -= max_height + DIALOG_BUTTON_BUTTON_VERTICAL_SPACE;
- right = max_height = 0;
- }
- }
- if (max_height < rects[i].bottom)
- max_height = rects[i].bottom;
- OffsetRect (&rects[i], right - rects[i].right,
- bottom - rects[i].bottom);
- right = rects[i].left - DIALOG_BUTTON_BUTTON_HORIZONTAL_SPACE;
- if (i == first_group_count - 1)
- right -= DIALOG_BUTTON_BUTTON_HORIZONTAL_SPACE;
- }
- buttons_height = - (bottom - max_height);
-
- left_align_shift = - (inner_width + rects[nb_buttons - 1].left);
- for (i = nb_buttons - 1; i >= first_group_count; i--)
- {
- if (bottom != rects[i].bottom)
- {
- left_align_shift = - (inner_width + rects[i].left);
- bottom = rects[i].bottom;
- }
- OffsetRect (&rects[i], left_align_shift, 0);
- }
- }
-
- /* Create a static text control and measure its bounds. */
- if (err == noErr)
- {
- CFStringRef message_string;
- Rect bounds;
-
- message_string = cfstring_create_with_utf8_cstring (message);
- if (message_string == NULL)
- err = memFullErr;
- else
- {
- ControlFontStyleRec text_style;
-
- text_style.flags = 0;
- SetRect (&bounds, 0, 0, inner_width, 0);
- err = CreateStaticTextControl (window, &bounds, message_string,
- &text_style, &text);
- CFRelease (message_string);
- }
- if (err == noErr)
- {
- SInt16 unused;
-
- bounds = empty_rect;
- err = GetBestControlRect (text, &bounds, &unused);
- }
- if (err == noErr)
- {
- text_height = bounds.bottom - bounds.top;
- if (text_height < DIALOG_TEXT_MIN_HEIGHT)
- text_height = DIALOG_TEXT_MIN_HEIGHT;
- }
- }
-
- /* Place buttons. */
- if (err == noErr)
- {
- inner_height = (text_height + DIALOG_TEXT_BUTTONS_VERTICAL_SPACE
- + buttons_height);
-
- for (i = 0; i < nb_buttons; i++)
- {
- OffsetRect (&rects[i], DIALOG_LEFT_MARGIN + inner_width,
- DIALOG_TOP_MARGIN + inner_height);
- SetControlBounds (buttons[i], &rects[i]);
- }
- }
-
- /* Place text. */
- if (err == noErr)
- {
- Rect bounds;
-
- SetRect (&bounds, DIALOG_LEFT_MARGIN, DIALOG_TOP_MARGIN,
- DIALOG_LEFT_MARGIN + inner_width,
- DIALOG_TOP_MARGIN + text_height);
- SetControlBounds (text, &bounds);
- }
-
- /* Create the application icon at the upper-left corner. */
- if (err == noErr)
- {
- ControlButtonContentInfo content;
- ControlRef icon;
- static const ProcessSerialNumber psn = {0, kCurrentProcess};
-#ifdef MAC_OSX
- FSRef app_location;
-#else
- ProcessInfoRec pinfo;
- FSSpec app_spec;
-#endif
- SInt16 unused;
-
- content.contentType = kControlContentIconRef;
-#ifdef MAC_OSX
- err = GetProcessBundleLocation (&psn, &app_location);
- if (err == noErr)
- err = GetIconRefFromFileInfo (&app_location, 0, NULL, 0, NULL,
- kIconServicesNormalUsageFlag,
- &content.u.iconRef, &unused);
-#else
- bzero (&pinfo, sizeof (ProcessInfoRec));
- pinfo.processInfoLength = sizeof (ProcessInfoRec);
- pinfo.processAppSpec = &app_spec;
- err = GetProcessInformation (&psn, &pinfo);
- if (err == noErr)
- err = GetIconRefFromFile (&app_spec, &content.u.iconRef, &unused);
-#endif
- if (err == noErr)
- {
- Rect bounds;
-
- SetRect (&bounds, DIALOG_ICON_LEFT_MARGIN, DIALOG_ICON_TOP_MARGIN,
- DIALOG_ICON_LEFT_MARGIN + DIALOG_ICON_WIDTH,
- DIALOG_ICON_TOP_MARGIN + DIALOG_ICON_HEIGHT);
- err = CreateIconControl (window, &bounds, &content, true, &icon);
- ReleaseIconRef (content.u.iconRef);
- }
- }
-
- /* Show the dialog window and run event loop. */
- if (err == noErr)
- if (default_button)
- err = SetWindowDefaultButton (window, default_button);
- if (err == noErr)
- err = install_dialog_event_handler (window);
- if (err == noErr)
- {
- SizeWindow (window,
- DIALOG_LEFT_MARGIN + inner_width + DIALOG_RIGHT_MARGIN,
- DIALOG_TOP_MARGIN + inner_height + DIALOG_BOTTOM_MARGIN,
- true);
- err = RepositionWindow (window, FRAME_MAC_WINDOW (f),
- kWindowAlertPositionOnParentWindow);
- }
- if (err == noErr)
- {
- SetWRefCon (window, 0);
- ShowWindow (window);
- BringToFront (window);
- popup_activated_flag = 1;
- err = BeginAppModalStateForWindow (window);
- }
- if (err == noErr)
- {
- EventTargetRef toolbox_dispatcher = GetEventDispatcherTarget ();
-
- quit_dialog_event_loop = 0;
- while (1)
- {
- EMACS_TIME next_time = timer_check (1);
- long secs = EMACS_SECS (next_time);
- long usecs = EMACS_USECS (next_time);
- EventTimeout timeout;
- EventRef event;
-
- if (secs < 0 || (secs == 0 && usecs == 0))
- {
- /* Sometimes timer_check returns -1 (no timers) even if
- there are timers. So do a timeout anyway. */
- secs = 1;
- usecs = 0;
- }
-
- timeout = (secs * kEventDurationSecond
- + usecs * kEventDurationMicrosecond);
- err = ReceiveNextEvent (0, NULL, timeout, kEventRemoveFromQueue,
- &event);
- if (err == noErr)
- {
- SendEventToEventTarget (event, toolbox_dispatcher);
- ReleaseEvent (event);
- }
-#if 0 /* defined (MAC_OSX) */
- else if (err != eventLoopTimedOutErr)
- {
- if (err == eventLoopQuitErr)
- err = noErr;
- break;
- }
-#else
- /* The return value of ReceiveNextEvent seems to be
- unreliable. Use our own global variable instead. */
- if (quit_dialog_event_loop)
- {
- err = noErr;
- break;
- }
-#endif
- }
- }
- if (err == noErr)
- {
- UInt32 command_id = GetWRefCon (window);
-
- if (DIALOG_BUTTON_COMMAND_ID_P (command_id))
- result = DIALOG_BUTTON_COMMAND_ID_VALUE (command_id);
- }
-
- unbind_to (specpdl_count, Qnil);
-
- menu_item_selection = result;
-}
-#else /* not TARGET_API_MAC_CARBON */
-#define DIALOG_WINDOW_RESOURCE 130
-
-int
-mac_dialog (widget_value *wv)
-{
- char *dialog_name;
- char *prompt;
- char **button_labels;
- UInt32 *ref_cons;
- int nb_buttons;
- int left_count;
- int i;
- int dialog_width;
- Rect rect;
- WindowRef window_ptr;
- ControlRef ch;
- int left;
- EventRecord event_record;
- SInt16 part_code;
- int control_part_code;
- Point mouse;
-
- dialog_name = wv->name;
- nb_buttons = dialog_name[1] - '0';
- left_count = nb_buttons - (dialog_name[4] - '0');
- button_labels = (char **) alloca (sizeof (char *) * nb_buttons);
- ref_cons = (UInt32 *) alloca (sizeof (UInt32) * nb_buttons);
-
- wv = wv->contents;
- prompt = (char *) alloca (strlen (wv->value) + 1);
- strcpy (prompt, wv->value);
- c2pstr (prompt);
-
- wv = wv->next;
- for (i = 0; i < nb_buttons; i++)
- {
- button_labels[i] = wv->value;
- button_labels[i] = (char *) alloca (strlen (wv->value) + 1);
- strcpy (button_labels[i], wv->value);
- c2pstr (button_labels[i]);
- ref_cons[i] = (UInt32) wv->call_data;
- wv = wv->next;
- }
-
- window_ptr = GetNewCWindow (DIALOG_WINDOW_RESOURCE, NULL, (WindowRef) -1);
-
- SetPortWindowPort (window_ptr);
-
- TextFont (0);
- /* Left and right margins in the dialog are 13 pixels each.*/
- dialog_width = 14;
- /* Calculate width of dialog box: 8 pixels on each side of the text
- label in each button, 12 pixels between buttons. */
- for (i = 0; i < nb_buttons; i++)
- dialog_width += StringWidth (button_labels[i]) + 16 + 12;
-
- if (left_count != 0 && nb_buttons - left_count != 0)
- dialog_width += 12;
-
- dialog_width = max (dialog_width, StringWidth (prompt) + 26);
-
- SizeWindow (window_ptr, dialog_width, 78, 0);
- ShowWindow (window_ptr);
-
- SetPortWindowPort (window_ptr);
-
- TextFont (0);
-
- MoveTo (13, 29);
- DrawString (prompt);
-
- left = 13;
- for (i = 0; i < nb_buttons; i++)
- {
- int button_width = StringWidth (button_labels[i]) + 16;
- SetRect (&rect, left, 45, left + button_width, 65);
- ch = NewControl (window_ptr, &rect, button_labels[i], 1, 0, 0, 0,
- kControlPushButtonProc, ref_cons[i]);
- left += button_width + 12;
- if (i == left_count - 1)
- left += 12;
- }
-
- i = 0;
- while (!i)
- {
- if (WaitNextEvent (mDownMask, &event_record, 10, NULL))
- if (event_record.what == mouseDown)
- {
- part_code = FindWindow (event_record.where, &window_ptr);
- if (part_code == inContent)
- {
- mouse = event_record.where;
- GlobalToLocal (&mouse);
- control_part_code = FindControl (mouse, window_ptr, &ch);
- if (control_part_code == kControlButtonPart)
- if (TrackControl (ch, mouse, NULL))
- i = GetControlReference (ch);
- }
- }
- }
-
- DisposeWindow (window_ptr);
-
- return i;
-}
-#endif /* not TARGET_API_MAC_CARBON */
-
-
-/***********************************************************************
- Selection support
-***********************************************************************/
-
-#if !TARGET_API_MAC_CARBON
-#include <Scrap.h>
-#include <Endian.h>
-#endif
-
-extern Lisp_Object Vselection_converter_alist;
-extern Lisp_Object Qmac_scrap_name, Qmac_ostype;
-
-static ScrapFlavorType get_flavor_type_from_symbol P_ ((Lisp_Object,
- Selection));
-
-/* Get a reference to the selection corresponding to the symbol SYM.
- The reference is set to *SEL, and it becomes NULL if there's no
- corresponding selection. Clear the selection if CLEAR_P is
- non-zero. */
-
-OSStatus
-mac_get_selection_from_symbol (sym, clear_p, sel)
- Lisp_Object sym;
- int clear_p;
- Selection *sel;
-{
- OSStatus err = noErr;
- Lisp_Object str = Fget (sym, Qmac_scrap_name);
-
- if (!STRINGP (str))
- *sel = NULL;
- else
- {
-#if TARGET_API_MAC_CARBON
-#ifdef MAC_OSX
- CFStringRef scrap_name = cfstring_create_with_string (str);
- OptionBits options = (clear_p ? kScrapClearNamedScrap
- : kScrapGetNamedScrap);
-
- err = GetScrapByName (scrap_name, options, sel);
- CFRelease (scrap_name);
-#else /* !MAC_OSX */
- if (clear_p)
- err = ClearCurrentScrap ();
- if (err == noErr)
- err = GetCurrentScrap (sel);
-#endif /* !MAC_OSX */
-#else /* !TARGET_API_MAC_CARBON */
- if (clear_p)
- err = ZeroScrap ();
- if (err == noErr)
- *sel = 1;
-#endif /* !TARGET_API_MAC_CARBON */
- }
-
- return err;
-}
-
-/* Get a scrap flavor type from the symbol SYM. Return 0 if no
- corresponding flavor type. If SEL is non-zero, the return value is
- non-zero only when the SEL has the flavor type. */
-
-static ScrapFlavorType
-get_flavor_type_from_symbol (sym, sel)
- Lisp_Object sym;
- Selection sel;
-{
- Lisp_Object str = Fget (sym, Qmac_ostype);
- ScrapFlavorType flavor_type;
-
- if (STRINGP (str) && SBYTES (str) == 4)
- flavor_type = EndianU32_BtoN (*((UInt32 *) SDATA (str)));
- else
- flavor_type = 0;
-
- if (flavor_type && sel)
- {
-#if TARGET_API_MAC_CARBON
- OSStatus err;
- ScrapFlavorFlags flags;
-
- err = GetScrapFlavorFlags (sel, flavor_type, &flags);
- if (err != noErr)
- flavor_type = 0;
-#else /* !TARGET_API_MAC_CARBON */
- SInt32 size, offset;
-
- size = GetScrap (NULL, flavor_type, &offset);
- if (size < 0)
- flavor_type = 0;
-#endif /* !TARGET_API_MAC_CARBON */
- }
-
- return flavor_type;
-}
-
-/* Check if the symbol SYM has a corresponding selection target type. */
-
-int
-mac_valid_selection_target_p (sym)
- Lisp_Object sym;
-{
- return get_flavor_type_from_symbol (sym, 0) != 0;
-}
-
-/* Clear the selection whose reference is *SEL. */
-
-OSStatus
-mac_clear_selection (sel)
- Selection *sel;
-{
-#if TARGET_API_MAC_CARBON
-#ifdef MAC_OSX
- return ClearScrap (sel);
-#else
- OSStatus err;
-
- err = ClearCurrentScrap ();
- if (err == noErr)
- err = GetCurrentScrap (sel);
- return err;
-#endif
-#else /* !TARGET_API_MAC_CARBON */
- return ZeroScrap ();
-#endif /* !TARGET_API_MAC_CARBON */
-}
-
-/* Get ownership information for SEL. Emacs can detect a change of
- the ownership by comparing saved and current values of the
- ownership information. */
-
-Lisp_Object
-mac_get_selection_ownership_info (sel)
- Selection sel;
-{
-#if TARGET_API_MAC_CARBON
- return long_to_cons ((unsigned long) sel);
-#else /* !TARGET_API_MAC_CARBON */
- ScrapStuffPtr scrap_info = InfoScrap ();
-
- return make_number (scrap_info->scrapCount);
-#endif /* !TARGET_API_MAC_CARBON */
-}
-
-/* Return non-zero if VALUE is a valid selection value for TARGET. */
-
-int
-mac_valid_selection_value_p (value, target)
- Lisp_Object value, target;
-{
- return STRINGP (value);
-}
-
-/* Put Lisp object VALUE to the selection SEL. The target type is
- specified by TARGET. */
-
-OSStatus
-mac_put_selection_value (sel, target, value)
- Selection sel;
- Lisp_Object target, value;
-{
- ScrapFlavorType flavor_type = get_flavor_type_from_symbol (target, 0);
-
- if (flavor_type == 0 || !STRINGP (value))
- return noTypeErr;
-
-#if TARGET_API_MAC_CARBON
- return PutScrapFlavor (sel, flavor_type, kScrapFlavorMaskNone,
- SBYTES (value), SDATA (value));
-#else /* !TARGET_API_MAC_CARBON */
- return PutScrap (SBYTES (value), flavor_type, SDATA (value));
-#endif /* !TARGET_API_MAC_CARBON */
-}
-
-/* Check if data for the target type TARGET is available in SEL. */
-
-int
-mac_selection_has_target_p (sel, target)
- Selection sel;
- Lisp_Object target;
-{
- return get_flavor_type_from_symbol (target, sel) != 0;
-}
-
-/* Get data for the target type TARGET from SEL and create a Lisp
- string. Return nil if failed to get data. */
-
-Lisp_Object
-mac_get_selection_value (sel, target)
- Selection sel;
- Lisp_Object target;
-{
- OSStatus err;
- Lisp_Object result = Qnil;
- ScrapFlavorType flavor_type = get_flavor_type_from_symbol (target, sel);
-#if TARGET_API_MAC_CARBON
- Size size;
-
- if (flavor_type)
- {
- err = GetScrapFlavorSize (sel, flavor_type, &size);
- if (err == noErr)
- {
- do
- {
- result = make_uninit_string (size);
- err = GetScrapFlavorData (sel, flavor_type,
- &size, SDATA (result));
- if (err != noErr)
- result = Qnil;
- else if (size < SBYTES (result))
- result = make_unibyte_string (SDATA (result), size);
- }
- while (STRINGP (result) && size > SBYTES (result));
- }
- }
-#else
- Handle handle;
- SInt32 size, offset;
-
- if (flavor_type)
- size = GetScrap (NULL, flavor_type, &offset);
- if (size >= 0)
- {
- handle = NewHandle (size);
- HLock (handle);
- size = GetScrap (handle, flavor_type, &offset);
- if (size >= 0)
- result = make_unibyte_string (*handle, size);
- DisposeHandle (handle);
- }
-#endif
-
- return result;
-}
-
-/* Get the list of target types in SEL. The return value is a list of
- target type symbols possibly followed by scrap flavor type
- strings. */
-
-Lisp_Object
-mac_get_selection_target_list (sel)
- Selection sel;
-{
- Lisp_Object result = Qnil, rest, target;
-#if TARGET_API_MAC_CARBON
- OSStatus err;
- UInt32 count, i, type;
- ScrapFlavorInfo *flavor_info = NULL;
- Lisp_Object strings = Qnil;
-
- err = GetScrapFlavorCount (sel, &count);
- if (err == noErr)
- flavor_info = xmalloc (sizeof (ScrapFlavorInfo) * count);
- err = GetScrapFlavorInfoList (sel, &count, flavor_info);
- if (err != noErr)
- {
- xfree (flavor_info);
- flavor_info = NULL;
- }
- if (flavor_info == NULL)
- count = 0;
-#endif
- for (rest = Vselection_converter_alist; CONSP (rest); rest = XCDR (rest))
- {
- ScrapFlavorType flavor_type = 0;
-
- if (CONSP (XCAR (rest))
- && (target = XCAR (XCAR (rest)),
- SYMBOLP (target))
- && (flavor_type = get_flavor_type_from_symbol (target, sel)))
- {
- result = Fcons (target, result);
-#if TARGET_API_MAC_CARBON
- for (i = 0; i < count; i++)
- if (flavor_info[i].flavorType == flavor_type)
- {
- flavor_info[i].flavorType = 0;
- break;
- }
-#endif
- }
- }
-#if TARGET_API_MAC_CARBON
- if (flavor_info)
- {
- for (i = 0; i < count; i++)
- if (flavor_info[i].flavorType)
- {
- type = EndianU32_NtoB (flavor_info[i].flavorType);
- strings = Fcons (make_unibyte_string ((char *) &type, 4), strings);
- }
- result = nconc2 (result, strings);
- xfree (flavor_info);
- }
-#endif
-
- return result;
-}
-
-
-/***********************************************************************
- Apple event support
-***********************************************************************/
-
-extern pascal OSErr mac_handle_apple_event P_ ((const AppleEvent *,
- AppleEvent *, SInt32));
-extern void cleanup_all_suspended_apple_events P_ ((void));
-
-void
-init_apple_event_handler ()
-{
- OSErr err;
- long result;
-
- /* Make sure we have Apple events before starting. */
- err = Gestalt (gestaltAppleEventsAttr, &result);
- if (err != noErr)
- abort ();
-
- if (!(result & (1 << gestaltAppleEventsPresent)))
- abort ();
-
- err = AEInstallEventHandler (typeWildCard, typeWildCard,
-#if TARGET_API_MAC_CARBON
- NewAEEventHandlerUPP (mac_handle_apple_event),
-#else
- NewAEEventHandlerProc (mac_handle_apple_event),
-#endif
- 0L, false);
- if (err != noErr)
- abort ();
-
- atexit (cleanup_all_suspended_apple_events);
-}
-
-
-/***********************************************************************
- Drag and drop support
-***********************************************************************/
-
-#if TARGET_API_MAC_CARBON
-extern Lisp_Object Vmac_dnd_known_types;
-
-static pascal OSErr mac_do_track_drag P_ ((DragTrackingMessage, WindowRef,
- void *, DragRef));
-static pascal OSErr mac_do_receive_drag P_ ((WindowRef, void *, DragRef));
-static DragTrackingHandlerUPP mac_do_track_dragUPP = NULL;
-static DragReceiveHandlerUPP mac_do_receive_dragUPP = NULL;
-
-static OSErr
-create_apple_event_from_drag_ref (drag, num_types, types, result)
- DragRef drag;
- UInt32 num_types;
- const FlavorType *types;
- AppleEvent *result;
-{
- OSErr err;
- UInt16 num_items;
- AppleEvent items;
- long index;
- char *buf = NULL;
-
- err = CountDragItems (drag, &num_items);
- if (err != noErr)
- return err;
- err = AECreateList (NULL, 0, false, &items);
- if (err != noErr)
- return err;
-
- for (index = 1; index <= num_items; index++)
- {
- ItemReference item;
- DescType desc_type = typeNull;
- Size size;
-
- err = GetDragItemReferenceNumber (drag, index, &item);
- if (err == noErr)
- {
- int i;
-
- for (i = 0; i < num_types; i++)
- {
- err = GetFlavorDataSize (drag, item, types[i], &size);
- if (err == noErr)
- {
- buf = xrealloc (buf, size);
- err = GetFlavorData (drag, item, types[i], buf, &size, 0);
- }
- if (err == noErr)
- {
- desc_type = types[i];
- break;
- }
- }
- }
- err = AEPutPtr (&items, index, desc_type,
- desc_type != typeNull ? buf : NULL,
- desc_type != typeNull ? size : 0);
- if (err != noErr)
- break;
- }
- xfree (buf);
-
- if (err == noErr)
- {
- err = create_apple_event (0, 0, result); /* Dummy class and ID. */
- if (err == noErr)
- err = AEPutParamDesc (result, keyDirectObject, &items);
- if (err != noErr)
- AEDisposeDesc (result);
- }
-
- AEDisposeDesc (&items);
-
- return err;
-}
-
-static void
-mac_store_drag_event (window, mouse_pos, modifiers, desc)
- WindowRef window;
- Point mouse_pos;
- SInt16 modifiers;
- const AEDesc *desc;
-{
- struct input_event buf;
-
- EVENT_INIT (buf);
-
- buf.kind = DRAG_N_DROP_EVENT;
- buf.modifiers = mac_to_emacs_modifiers (modifiers, 0);
- buf.timestamp = TickCount () * (1000 / 60);
- XSETINT (buf.x, mouse_pos.h);
- XSETINT (buf.y, mouse_pos.v);
- XSETFRAME (buf.frame_or_window, mac_window_to_frame (window));
- buf.arg = mac_aedesc_to_lisp (desc);
- kbd_buffer_store_event (&buf);
-}
-
-static pascal OSErr
-mac_do_track_drag (message, window, refcon, drag)
- DragTrackingMessage message;
- WindowRef window;
- void *refcon;
- DragRef drag;
-{
- OSErr err = noErr;
- static int can_accept;
- UInt16 num_items, index;
-
- if (GetFrontWindowOfClass (kMovableModalWindowClass, false))
- return dragNotAcceptedErr;
-
- switch (message)
- {
- case kDragTrackingEnterHandler:
- err = CountDragItems (drag, &num_items);
- if (err != noErr)
- break;
- can_accept = 0;
- for (index = 1; index <= num_items; index++)
- {
- ItemReference item;
- FlavorFlags flags;
- Lisp_Object rest;
-
- err = GetDragItemReferenceNumber (drag, index, &item);
- if (err != noErr)
- continue;
- for (rest = Vmac_dnd_known_types; CONSP (rest); rest = XCDR (rest))
- {
- Lisp_Object str;
- FlavorType type;
-
- str = XCAR (rest);
- if (!(STRINGP (str) && SBYTES (str) == 4))
- continue;
- type = EndianU32_BtoN (*((UInt32 *) SDATA (str)));
-
- err = GetFlavorFlags (drag, item, type, &flags);
- if (err == noErr)
- {
- can_accept = 1;
- break;
- }
- }
- }
- break;
-
- case kDragTrackingEnterWindow:
- if (can_accept)
- {
- RgnHandle hilite_rgn = NewRgn ();
-
- if (hilite_rgn)
- {
- Rect r;
-
- GetWindowPortBounds (window, &r);
- OffsetRect (&r, -r.left, -r.top);
- RectRgn (hilite_rgn, &r);
- ShowDragHilite (drag, hilite_rgn, true);
- DisposeRgn (hilite_rgn);
- }
- SetThemeCursor (kThemeCopyArrowCursor);
- }
- break;
-
- case kDragTrackingInWindow:
- break;
-
- case kDragTrackingLeaveWindow:
- if (can_accept)
- {
- HideDragHilite (drag);
- SetThemeCursor (kThemeArrowCursor);
- }
- break;
-
- case kDragTrackingLeaveHandler:
- break;
- }
-
- if (err != noErr)
- return dragNotAcceptedErr;
- return noErr;
-}
-
-static pascal OSErr
-mac_do_receive_drag (window, refcon, drag)
- WindowRef window;
- void *refcon;
- DragRef drag;
-{
- OSErr err;
- int num_types, i;
- Lisp_Object rest, str;
- FlavorType *types;
- AppleEvent apple_event;
- Point mouse_pos;
- SInt16 modifiers;
-
- if (GetFrontWindowOfClass (kMovableModalWindowClass, false))
- return dragNotAcceptedErr;
-
- num_types = 0;
- for (rest = Vmac_dnd_known_types; CONSP (rest); rest = XCDR (rest))
- {
- str = XCAR (rest);
- if (STRINGP (str) && SBYTES (str) == 4)
- num_types++;
- }
-
- types = xmalloc (sizeof (FlavorType) * num_types);
- i = 0;
- for (rest = Vmac_dnd_known_types; CONSP (rest); rest = XCDR (rest))
- {
- str = XCAR (rest);
- if (STRINGP (str) && SBYTES (str) == 4)
- types[i++] = EndianU32_BtoN (*((UInt32 *) SDATA (str)));
- }
-
- err = create_apple_event_from_drag_ref (drag, num_types, types,
- &apple_event);
- xfree (types);
-
- if (err == noErr)
- err = GetDragMouse (drag, &mouse_pos, NULL);
- if (err == noErr)
- {
- GlobalToLocal (&mouse_pos);
- err = GetDragModifiers (drag, NULL, NULL, &modifiers);
- }
- if (err == noErr)
- {
- UInt32 key_modifiers = modifiers;
-
- err = AEPutParamPtr (&apple_event, kEventParamKeyModifiers,
- typeUInt32, &key_modifiers, sizeof (UInt32));
- }
-
- if (err == noErr)
- {
- mac_store_drag_event (window, mouse_pos, 0, &apple_event);
- AEDisposeDesc (&apple_event);
- mac_wakeup_from_rne ();
- return noErr;
- }
- else
- return dragNotAcceptedErr;
-}
-#endif /* TARGET_API_MAC_CARBON */
-
-static OSErr
-install_drag_handler (window)
- WindowRef window;
-{
- OSErr err = noErr;
-
-#if TARGET_API_MAC_CARBON
- if (mac_do_track_dragUPP == NULL)
- mac_do_track_dragUPP = NewDragTrackingHandlerUPP (mac_do_track_drag);
- if (mac_do_receive_dragUPP == NULL)
- mac_do_receive_dragUPP = NewDragReceiveHandlerUPP (mac_do_receive_drag);
-
- err = InstallTrackingHandler (mac_do_track_dragUPP, window, NULL);
- if (err == noErr)
- err = InstallReceiveHandler (mac_do_receive_dragUPP, window, NULL);
-#endif
-
- return err;
-}
-
-static void
-remove_drag_handler (window)
- WindowRef window;
-{
-#if TARGET_API_MAC_CARBON
- if (mac_do_track_dragUPP)
- RemoveTrackingHandler (mac_do_track_dragUPP, window);
- if (mac_do_receive_dragUPP)
- RemoveReceiveHandler (mac_do_receive_dragUPP, window);
-#endif
-}
-
-#if TARGET_API_MAC_CARBON
-/* Return default value for mac-dnd-known-types. */
-
-Lisp_Object
-mac_dnd_default_known_types ()
-{
- Lisp_Object result = list4 (build_string ("hfs "), build_string ("utxt"),
- build_string ("TEXT"), build_string ("TIFF"));
-
-#ifdef MAC_OSX
- result = Fcons (build_string ("furl"), result);
-#endif
-
- return result;
-}
-#endif
-
-
-/***********************************************************************
- Services menu support
-***********************************************************************/
-
-#ifdef MAC_OSX
-extern Lisp_Object Qservice, Qpaste, Qperform;
-extern Lisp_Object Vmac_service_selection;
-
-static OSStatus
-mac_store_service_event (event)
- EventRef event;
-{
- OSStatus err;
- Lisp_Object id_key;
- int num_params;
- const EventParamName *names;
- const EventParamType *types;
- static const EventParamName names_pfm[] =
- {kEventParamServiceMessageName, kEventParamServiceUserData};
- static const EventParamType types_pfm[] =
- {typeCFStringRef, typeCFStringRef};
-
- switch (GetEventKind (event))
- {
- case kEventServicePaste:
- id_key = Qpaste;
- num_params = 0;
- names = NULL;
- types = NULL;
- break;
-
- case kEventServicePerform:
- id_key = Qperform;
- num_params = sizeof (names_pfm) / sizeof (names_pfm[0]);
- names = names_pfm;
- types = types_pfm;
- break;
-
- default:
- abort ();
- }
-
- err = mac_store_event_ref_as_apple_event (0, 0, Qservice, id_key,
- event, num_params,
- names, types);
-
- return err;
-}
-
-static OSStatus
-copy_scrap_flavor_data (from_scrap, to_scrap, flavor_type)
- ScrapRef from_scrap, to_scrap;
- ScrapFlavorType flavor_type;
-{
- OSStatus err;
- Size size, size_allocated;
- char *buf = NULL;
-
- err = GetScrapFlavorSize (from_scrap, flavor_type, &size);
- if (err == noErr)
- buf = xmalloc (size);
- while (buf)
- {
- size_allocated = size;
- err = GetScrapFlavorData (from_scrap, flavor_type, &size, buf);
- if (err != noErr)
- {
- xfree (buf);
- buf = NULL;
- }
- else if (size_allocated < size)
- buf = xrealloc (buf, size);
- else
- break;
- }
- if (err == noErr)
- {
- if (buf == NULL)
- err = memFullErr;
- else
- {
- err = PutScrapFlavor (to_scrap, flavor_type, kScrapFlavorMaskNone,
- size, buf);
- xfree (buf);
- }
- }
-
- return err;
-}
-
-static OSStatus
-mac_handle_service_event (call_ref, event, data)
- EventHandlerCallRef call_ref;
- EventRef event;
- void *data;
-{
- OSStatus err = noErr;
- ScrapRef cur_scrap, specific_scrap;
- UInt32 event_kind = GetEventKind (event);
- CFMutableArrayRef copy_types, paste_types;
- CFStringRef type;
- Lisp_Object rest;
- ScrapFlavorType flavor_type;
-
- /* Check if Vmac_service_selection is a valid selection that has a
- corresponding scrap. */
- if (!SYMBOLP (Vmac_service_selection))
- err = eventNotHandledErr;
- else
- err = mac_get_selection_from_symbol (Vmac_service_selection, 0,
&cur_scrap);
- if (!(err == noErr && cur_scrap))
- return eventNotHandledErr;
-
- switch (event_kind)
- {
- case kEventServiceGetTypes:
- /* Set paste types. */
- err = GetEventParameter (event, kEventParamServicePasteTypes,
- typeCFMutableArrayRef, NULL,
- sizeof (CFMutableArrayRef), NULL,
- &paste_types);
- if (err != noErr)
- break;
-
- for (rest = Vselection_converter_alist; CONSP (rest);
- rest = XCDR (rest))
- if (CONSP (XCAR (rest)) && SYMBOLP (XCAR (XCAR (rest)))
- && (flavor_type =
- get_flavor_type_from_symbol (XCAR (XCAR (rest)), 0)))
- {
- type = CreateTypeStringWithOSType (flavor_type);
- if (type)
- {
- CFArrayAppendValue (paste_types, type);
- CFRelease (type);
- }
- }
-
- /* Set copy types. */
- err = GetEventParameter (event, kEventParamServiceCopyTypes,
- typeCFMutableArrayRef, NULL,
- sizeof (CFMutableArrayRef), NULL,
- ©_types);
- if (err != noErr)
- break;
-
- if (NILP (Fx_selection_owner_p (Vmac_service_selection)))
- break;
- else
- goto copy_all_flavors;
-
- case kEventServiceCopy:
- err = GetEventParameter (event, kEventParamScrapRef,
- typeScrapRef, NULL,
- sizeof (ScrapRef), NULL, &specific_scrap);
- if (err != noErr
- || NILP (Fx_selection_owner_p (Vmac_service_selection)))
- {
- err = eventNotHandledErr;
- break;
- }
-
- copy_all_flavors:
- {
- UInt32 count, i;
- ScrapFlavorInfo *flavor_info = NULL;
- ScrapFlavorFlags flags;
-
- err = GetScrapFlavorCount (cur_scrap, &count);
- if (err == noErr)
- flavor_info = xmalloc (sizeof (ScrapFlavorInfo) * count);
- err = GetScrapFlavorInfoList (cur_scrap, &count, flavor_info);
- if (err != noErr)
- {
- xfree (flavor_info);
- flavor_info = NULL;
- }
- if (flavor_info == NULL)
- break;
-
- for (i = 0; i < count; i++)
- {
- flavor_type = flavor_info[i].flavorType;
- err = GetScrapFlavorFlags (cur_scrap, flavor_type, &flags);
- if (err == noErr && !(flags & kScrapFlavorMaskSenderOnly))
- {
- if (event_kind == kEventServiceCopy)
- err = copy_scrap_flavor_data (cur_scrap, specific_scrap,
- flavor_type);
- else /* event_kind == kEventServiceGetTypes */
- {
- type = CreateTypeStringWithOSType (flavor_type);
- if (type)
- {
- CFArrayAppendValue (copy_types, type);
- CFRelease (type);
- }
- }
- }
- }
- xfree (flavor_info);
- }
- break;
-
- case kEventServicePaste:
- case kEventServicePerform:
- {
- int data_exists_p = 0;
-
- err = GetEventParameter (event, kEventParamScrapRef, typeScrapRef,
- NULL, sizeof (ScrapRef), NULL,
- &specific_scrap);
- if (err == noErr)
- err = mac_clear_selection (&cur_scrap);
- if (err == noErr)
- for (rest = Vselection_converter_alist; CONSP (rest);
- rest = XCDR (rest))
- {
- if (! (CONSP (XCAR (rest)) && SYMBOLP (XCAR (XCAR (rest)))))
- continue;
- flavor_type = get_flavor_type_from_symbol (XCAR (XCAR (rest)),
- specific_scrap);
- if (flavor_type == 0)
- continue;
- err = copy_scrap_flavor_data (specific_scrap, cur_scrap,
- flavor_type);
- if (err == noErr)
- data_exists_p = 1;
- }
- if (!data_exists_p)
- err = eventNotHandledErr;
- else
- err = mac_store_service_event (event);
- }
- break;
- }
-
- if (err != noErr)
- err = eventNotHandledErr;
- return err;
-}
-
-static OSStatus
-install_service_handler ()
-{
- static const EventTypeSpec specs[] =
- {{kEventClassService, kEventServiceGetTypes},
- {kEventClassService, kEventServiceCopy},
- {kEventClassService, kEventServicePaste},
- {kEventClassService, kEventServicePerform}};
-
- return InstallApplicationEventHandler (NewEventHandlerUPP
- (mac_handle_service_event),
- GetEventTypeCount (specs),
- specs, NULL, NULL);
-}
-#endif /* MAC_OSX */
-
-
-/***********************************************************************
- Initialization
- ***********************************************************************/
-
-void
-mac_toolbox_initialize ()
-{
- any_help_event_p = 0;
-
- init_menu_bar ();
-
-#ifdef MAC_OSX
- init_apple_event_handler ();
-#endif
-#if USE_MAC_TSM
- init_tsm ();
-#endif
-}
-
-/* arch-tag: 71a597a8-6e9f-47b0-8b89-5a5ae3e16516
- (do not change this comment) */
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to src/mactoolbox.c,
Dan Nicolaescu <=