Mercurial > emacs
diff src/xfaces.c @ 32752:923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
2000-10-23 Andrew Choi <akochoi@i-cable.com>
* dispextern.h [macintosh]: Include macgui.h instead of macterm.h.
* dispnew.c [macintosh]: Include macterm.h.
(init_display) [macintosh]: initialization for window system.
* emacs.c (main) [macintosh]: Call syms_of_textprop,
syms_of_macfns, syms_of_ccl, syms_of_fontset, syms_of_xterm,
syms_of_search, x_term_init, and init_keyboard before calling
init_window_once. Also, call syms_of_xmenu.
* fontset.c (syms_of_fontset) [macintosh]: Set ASCII font of
default fontset to Monaco.
* frame.c [macintosh]: Include macterm.h. Remove declarations of
NewMacWindow and DisposeMacWindow.
(make_terminal_frame) [macintosh]: Call make_mac_terminal_frame
instead of calling NewMacWindow and setting fields of
f->output_data.mac directly. Call init_frame_faces.
(Fdelete_frame) [macintosh]: Remove unused code.
(Fmodify_frame_parameters) [macintosh]: Call
x_set_frame_parameters instead of mac_set_frame_parameters.
* frame.h [macintosh]: Define menu_bar_lines field in struct
frame. Define FRAME_EXTERNAL_MENU_BAR macro.
* keyboard.c [macintosh]: Include macterm.h.
(kbd_buffer_get_event) [macintosh]: Generate delete_window_event
and menu_bar_activate_event type events as for X and NT.
(make_lispy_event) [macintosh]: Construct lisp events of type
MENU_BAR_EVENT as for X and NT.
* sysdep.c [macintosh]: Remove declaration for sys_signal.
Include stdlib.h. Remove definition of Vx_bitmap_file_path.
(sys_subshell) [macintosh]: Remove definition entirely.
(init_sys_modes) [macintosh]: Do not initialize Vwindow_system and
Vwindow_system_version here. Remove initialization of
Vx_bitmap_file_path.
(read_input_waiting): Correct the number of parameters passed to
read_socket_hook.
Move all Macintosh functions to mac/mac.c.
* term.c [macintosh]: Include macterm.h.
* window.c [macintosh]: Include macterm.h.
* xdisp.c [macintosh]: Include macterm.h. Declare
set_frame_menubar and pending_menu_activation.
(echo_area_display) [macintosh]: Do not return if terminal frame
is the selected frame.
(update_menu_bar) [macintosh]: Check FRAME_EXTERNAL_MENU_BAR (f).
Allow only the selected frame to set menu bar.
(redisplay_window) [macintosh]: Obtain menu bar to redisplay by
calling FRAME_EXTERNAL_MENU_BAR (f).
(display_menu_bar) [macintosh]: Check FRAME_MAC_P (f).
* xfaces.c [macintosh]: Include macterm.h. Define x_display_info
and check_x. Declare XCreateGC. Define x_create_gc and
x_free_gc. Initialize font_sort_order.
(x_face_list_fonts) [macintosh]: Use the same code as WINDOWSNT,
but call x_list_fonts instead of w32_list_fonts.
(Finternal_face_x_get_resource) [macintosh]: Do not call
display_x_get_resource.
(prepare_face_for_display) [macintosh]: Set xgcv.font.
(realize_x_face) [macintosh]: Load the font if it is specified in
ATTRS.
(syms_of_xfaces) [macintosh]: Initialize Vscalable_fonts_allowed
to Qt.
* cus-edit.el (custom-button-face): Use 3D look for mac.
(custom-button-pressed-face): Likewise.
* faces.el (set-face-attributes-from-resources): Handle mac frames
in the same way as x and w32 frames.
(face-valid-attribute-values): Likewise.
(read-face-attribute): Likewise.
(defined-colors): Likewise.
(color-defined-p): Likewise.
(color-values): Likewise.
(display-grayscale-p): Likewise.
(face-set-after-frame-default): Likewise.
(mode-line): Same default face as for x and w32.
(tool-bar): Likewise.
* frame.el: Remove call to frame-notice-user-settings at end of
the file.
* info.el (Info-fontify-node): make underlines invisible for mac
as for x, pc, and w32 frame types.
* term/mac-win.el: New file.
author | Andrew Choi <akochoi@shaw.ca> |
---|---|
date | Sun, 22 Oct 2000 16:50:16 +0000 |
parents | 01156edaa3f9 |
children | ca31e3965686 |
line wrap: on
line diff
--- a/src/xfaces.c Sun Oct 22 16:29:14 2000 +0000 +++ b/src/xfaces.c Sun Oct 22 16:50:16 2000 +0000 @@ -218,6 +218,33 @@ #define FONT_WIDTH FONT_MAX_WIDTH #endif /* WINDOWSNT */ +#ifdef macintosh +#include "macterm.h" +#define x_display_info mac_display_info +#define check_x check_mac + +extern XGCValues *XCreateGC (void *, WindowPtr, unsigned long, XGCValues *); + +static INLINE GC +x_create_gc (f, mask, xgcv) + struct frame *f; + unsigned long mask; + XGCValues *xgcv; +{ + GC gc; + gc = XCreateGC (FRAME_MAC_DISPLAY (f), FRAME_MAC_WINDOW (f), mask, xgcv); + return gc; +} + +static INLINE void +x_free_gc (f, gc) + struct frame *f; + GC gc; +{ + XFreeGC (FRAME_MAC_DISPLAY (f), gc); +} +#endif + #include "buffer.h" #include "dispextern.h" #include "blockinput.h" @@ -1304,7 +1331,6 @@ #endif #ifdef macintosh else if (FRAME_MAC_P (f)) - /* FIXME: mac_defined_color doesn't exist! */ return mac_defined_color (f, color_name, color_def, alloc); #endif else @@ -1800,8 +1826,11 @@ font height, then for weight, then for slant.' This variable can be set via set-face-font-sort-order. */ +#ifdef macintosh +static int font_sort_order[4] = { XLFD_SWIDTH, XLFD_POINT_SIZE, XLFD_WEIGHT, XLFD_SLANT }; +#else static int font_sort_order[4]; - +#endif /* Look up FONT.fields[FIELD_INDEX] in TABLE which has DIM entries. TABLE must be sorted by TABLE[i]->name in ascending order. Value @@ -2242,7 +2271,7 @@ names = XListFonts (dpy, pattern, nfonts, &n); UNBLOCK_INPUT; #endif /* HAVE_X_WINDOWS */ -#ifdef WINDOWSNT +#if defined (WINDOWSNT) || defined (macintosh) /* NTEMACS_TODO : currently this uses w32_list_fonts, but it may be better to do it the other way around. */ Lisp_Object lfonts; @@ -2255,7 +2284,11 @@ /* Get the list of fonts matching PATTERN. */ BLOCK_INPUT; +#ifdef WINDOWSNT lfonts = w32_list_fonts (f, lpattern, 0, nfonts); +#else /* macintosh */ + lfonts = x_list_fonts (f, lpattern, 0, nfonts); +#endif UNBLOCK_INPUT; /* Count fonts returned */ @@ -2273,7 +2306,7 @@ names[i] = XSTRING (XCAR (tem))->data; tem = XCDR (tem); } -#endif /* WINDOWSNT */ +#endif /* defined (WINDOWSNT) || defined (macintosh) */ if (names) { @@ -4121,6 +4154,7 @@ { Lisp_Object value = Qnil; #ifndef WINDOWSNT +#ifndef macintosh CHECK_STRING (resource, 0); CHECK_STRING (class, 1); CHECK_LIVE_FRAME (frame, 2); @@ -4128,6 +4162,7 @@ value = display_x_get_resource (FRAME_X_DISPLAY_INFO (XFRAME (frame)), resource, class, Qnil, Qnil); UNBLOCK_INPUT; +#endif /* not macintosh */ #endif /* not WINDOWSNT */ return value; } @@ -4873,6 +4908,9 @@ #ifdef WINDOWSNT xgcv.font = face->font; #endif +#ifdef macintosh + xgcv.font = face->font; +#endif mask |= GCFont; } @@ -6181,6 +6219,18 @@ fontset = default_face->fontset; face->fontset = make_fontset_for_ascii_face (f, fontset); face->font = NULL; /* to force realize_face to load font */ + +#ifdef macintosh + /* Load the font if it is specified in ATTRS. This fixes + changing frame font on the Mac. */ + if (STRINGP (attrs[LFACE_FONT_INDEX])) + { + struct font_info *font_info = + FS_LOAD_FONT (f, 0, XSTRING (attrs[LFACE_FONT_INDEX])->data, -1); + if (font_info) + face->font = font_info->font; + } +#endif } /* Load colors, and set remaining attributes. */ @@ -7037,7 +7087,7 @@ A value of t means allow any scalable font.\n\ Otherwise, value must be a list of regular expressions. A font may be\n\ scaled if its name matches a regular expression in the list."); -#ifdef WINDOWSNT +#if defined (WINDOWSNT) || defined (macintosh) /* Windows uses mainly truetype fonts, so disallowing scalable fonts by default limits the fonts available severely. */ Vscalable_fonts_allowed = Qt;