Mercurial > emacs
diff src/xterm.c @ 429:10b1795f3ae9
*** empty log message ***
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Fri, 08 Nov 1991 01:52:59 +0000 |
parents | a60eafebd43f |
children | 8c615e453683 |
line wrap: on
line diff
--- a/src/xterm.c Wed Nov 06 16:05:22 1991 +0000 +++ b/src/xterm.c Fri Nov 08 01:52:59 1991 +0000 @@ -252,8 +252,6 @@ extern int errno; -extern Lisp_Object Vglobal_minibuffer_screen; - extern Display *XOpenDisplay (); extern Window XCreateWindow (); @@ -296,7 +294,6 @@ #ifndef HAVE_X11 dumpqueue (); #endif - x_display_cursor (s, 0); UNBLOCK_INPUT; } @@ -564,16 +561,18 @@ curs_y = s->cursor_y; } - /* Clear the cursor if it appears on this line. */ - if (curs_y == s->cursor_y) - x_display_cursor (s, 0); - dumpglyphs (s, (curs_x * FONT_WIDTH (s->display.x->font) + s->display.x->internal_border_width), (curs_y * FONT_HEIGHT (s->display.x->font) + s->display.x->internal_border_width), start, len, highlight, s->display.x->font); + + /* If we drew on top of the cursor, note that it is turned off. */ + if (curs_y == s->phys_cursor_y + && curs_x <= s->phys_cursor_x + && curs_x + len > s->phys_cursor_x) + s->phys_cursor_x = -1; if (updating_screen == 0) { @@ -611,9 +610,11 @@ BLOCK_INPUT; - /* Clear the cursor if it appears on this line. */ - if (curs_y == s->cursor_y) - x_display_cursor (s, 0); + /* Notice if the cursor will be cleared by this operation. */ + if (curs_y == s->phys_cursor_y + && curs_x <= s->phys_cursor_x + && s->phys_cursor_x < first_unused) + s->phys_cursor_x = -1; #ifdef HAVE_X11 XClearArea (x_current_display, s->display.x->window_desc, @@ -949,7 +950,7 @@ if (updating_screen == 0) abort (); - /* Clear the cursor. */ + /* Hide the cursor. */ x_display_cursor (updating_screen, 0); XTcursor_to (vpos, 0); @@ -1103,7 +1104,7 @@ if (XTYPE (screen) != Lisp_Screen) continue; s = XSCREEN (screen); - if (s->output_method != output_x_window) + if (! SCREEN_IS_X (s)) continue; if (!s->visible) continue; @@ -1302,7 +1303,6 @@ /* Part of the screen the mouse is in. */ extern Lisp_Object Vmouse_screen_part; -extern void pixel_to_glyph_translation (); extern int buffer_posn_from_coords (); /* Symbols from xfns.c to denote the different parts of a window. */ @@ -1397,39 +1397,51 @@ } #endif -/* Given a pixel position (pix_x, pix_y) on the screen s, return - character co-ordinates in (*x, *y). */ -void -pixel_to_glyph_translation (s, pix_x, pix_y, x, y) + +/* Mouse clicks and mouse movement. Rah. */ +#ifdef HAVE_X11 + +/* Given a pixel position (PIX_X, PIX_Y) on the screen S, return + glyph co-ordinates in (*X, *Y). Set *BOUNDS to the rectangle + that the glyph at X, Y occupies, if BOUNDS != 0. */ +static void +pixel_to_glyph_coords (s, pix_x, pix_y, x, y, bounds) SCREEN_PTR s; register unsigned int pix_x, pix_y; register int *x, *y; + XRectangle *bounds; { - register struct screen_glyphs *s_glyphs = SCREEN_CURRENT_GLYPHS (s); - register int line = SCREEN_HEIGHT (s) - 1; int ibw = s->display.x->internal_border_width; + int width, height; + FONT_TYPE *font = s->display.x->font; + + width = FONT_WIDTH (font); + height = FONT_HEIGHT (font); /* What line is it on? */ - line = SCREEN_HEIGHT (s) - 1; - while (s_glyphs->top_left_y[line] > pix_y) - line--; - *y = line; - - /* Horizontally, is it in the border? */ + if (pix_y < ibw) + *y = 0; + else if (pix_y > s->display.x->pixel_height - ibw) + *y = SCREEN_HEIGHT (s) - 1; + else + *y = (pix_y - ibw) / height; + + /* And what column? */ if (pix_x < ibw) *x = 0; - - /* If it's off the right edge, clip it. */ else if (pix_x > s->display.x->pixel_width - ibw) *x = SCREEN_WIDTH (s) - 1; - - /* It's in the midst of the screen; assume all the characters are - the same width, and figure the column. */ else - *x = (pix_x - ibw) / FONT_WIDTH (s->display.x->font); + *x = (pix_x - ibw) / width; + + if (bounds) + { + bounds->width = width; + bounds->height = height; + bounds->x = ibw + (*x * width); + bounds->y = ibw + (*y * height); + } } - -#ifdef HAVE_X11 /* Any buttons grabbed. */ unsigned int x_mouse_grabbed; @@ -1470,6 +1482,7 @@ otherwise. */ result->kind = no_event; XSET (result->code, Lisp_Int, event->button); + XSET (result->timestamp, Lisp_Int, event->time); result->modifiers = (x_convert_modifiers (event->state) | (event->type == ButtonRelease ? up_modifier : 0)); XSET (result->timestamp, Lisp_Int, (event->time & 0x7fffff)); @@ -1479,11 +1492,11 @@ { if (! x_mouse_grabbed) Vmouse_depressed = Qt; - x_mouse_grabbed |= event->button; + x_mouse_grabbed |= (1 << event->button); } else if (event->type == ButtonRelease) { - x_mouse_grabbed &= ~(event->button); + x_mouse_grabbed &= ~(1 << event->button); if (!x_mouse_grabbed) Vmouse_depressed = Qnil; } @@ -1509,10 +1522,7 @@ { int row, column; - pixel_to_glyph_translation (s, - event->x, event->y, - &column, &row); - + pixel_to_glyph_coords (s, event->x, event->y, &column, &row, NULL); result->kind = mouse_click; result->x = column; result->y = row; @@ -1521,6 +1531,135 @@ } +/* Mouse movement. Rah. + + In order to avoid asking for motion events and then throwing most + of them away or busy-polling the server for mouse positions, we ask + the server for pointer motion hints. This means that we get only + one event per group of mouse movements. "Groups" are delimited by + other kinds of events (focus changes and button clicks, for + example), or by XQueryPointer calls; when one of these happens, we + get another MotionNotify event the next time the mouse moves. This + is at least as efficient than getting motion events when mouse + tracking is on, and I suspect only negligibly worse when tracking + is off. + + The silly O'Reilly & Associates Nutshell guides barely document + pointer motion hints at all (I think you have to infer how they + work from an example), and the description of XQueryPointer doesn't + mention that calling it causes you to get another motion hint from + the server, which is very important. */ + +/* Where the mouse was last time we reported a mouse event. */ +static SCREEN_PTR last_mouse_screen; +static XRectangle last_mouse_glyph; + +/* Function to report a mouse movement to the mainstream Emacs code. + The input handler calls this. + + We have received a mouse movement event, which is given in *event. + If the mouse is over a different glyph than it was last time, tell + the mainstream emacs code by setting mouse_moved. If not, ask for + another motion event, so we can check again the next time it moves. */ +static void +note_mouse_position (screen, event) + SCREEN_PTR screen; + XMotionEvent *event; + +{ + /* Has the mouse moved off the glyph it was on at the last sighting? */ + if (event->x < last_mouse_glyph.x + || event->x >= last_mouse_glyph.x + last_mouse_glyph.width + || event->y < last_mouse_glyph.y + || event->y >= last_mouse_glyph.y + last_mouse_glyph.height) + mouse_moved = 1; + else + { + /* It's on the same glyph. Call XQueryPointer so we'll get an + event the next time the mouse moves and we can see if it's + *still* on the same glyph. */ + int dummy; + + XQueryPointer (event->display, event->window, + (Window *) &dummy, (Window *) &dummy, + &dummy, &dummy, &dummy, &dummy, + (unsigned int *) &dummy); + } +} + +/* Return the current position of the mouse. + + This clears the mouse_moved flag, so we can wait for the next mouse + position. This also calls XQueryPointer, which will cause the + server to give us another MotionNotify when the mouse moves again. + */ + +static void +XTmouse_position (s, x, y, time) + SCREEN_PTR *s; + Lisp_Object *x, *y; + Lisp_Object *time; +{ + int ix, iy, dummy; + Display *d = x_current_display; + Window guess, root, child; + + BLOCK_INPUT; + + /* I would like to have an X function that just told me the + innermost window containing the mouse. + + /* There doesn't seem to be any way to just get the innermost window + containing the pointer, no matter what X screen it's on; you have + to guess a window, and then X will tell you which one of that + window's children it's in. If the pointer isn't in any of that + window's children, it gives you a root window that contains it. + + So we start with the selected screen's window and chase down + branches under the guidance of XQueryPointer until we hit a leaf + (all of the Emacs windows we care about are leaf windows). If at + any time XQueryPointer returns false, that means that the current + window does not contain the pointer any more (perhaps it moved), + so we start with the root window XQueryPointer has given us and + start again. */ + + guess = selected_screen->display.x->window_desc; + for (;;) + if (XQueryPointer (d, guess, &root, &child, + &dummy, &dummy, &ix, &iy, (unsigned int *) &dummy)) + { + if (child == None) + /* Guess is a leaf window, and it contains the pointer. */ + break; + else + guess = child; + } + else + /* When XQueryPointer returns False, the pointer isn't in guess + anymore, but root is the root window of the screen we should + try instead. */ + guess = root; + + *s = last_mouse_screen = x_window_to_screen (guess); + if (! *s) + *x = *y = Qnil; + else + { + pixel_to_glyph_coords (*s, ix, iy, &ix, &iy, &last_mouse_glyph); + XSET (*x, Lisp_Int, ix); + XSET (*y, Lisp_Int, iy); + } + + mouse_moved = 0; + + /* I don't know how to find the time for the last movement; it seems + like XQueryPointer ought to return it, but it doesn't. */ + *time = Qnil; + + UNBLOCK_INPUT; +} + + static char *events[] = { "0: ERROR!", @@ -1813,9 +1952,10 @@ || IsFunctionKey (keysym)) /* 0xffbe <= x < 0xffe1 */ { bufp->kind = non_ascii_keystroke; - bufp->code = (unsigned) keysym - 0xff50; + XSET (bufp->code, Lisp_Int, (unsigned) keysym - 0xff50); bufp->screen = XSCREEN (SCREEN_FOCUS_SCREEN (s)); bufp->modifiers = x_convert_modifiers (event.xkey.state); + XSET (bufp->timestamp, Lisp_Int, event.xkey.time); bufp++; count++; numchars--; @@ -1831,6 +1971,7 @@ bufp->kind = ascii_keystroke; bufp->screen = XSCREEN (SCREEN_FOCUS_SCREEN (s)); XSET (bufp->code, Lisp_Int, *copy_buffer); + XSET (bufp->timestamp, Lisp_Int, event.xkey.time); bufp++; } else @@ -1838,6 +1979,7 @@ { bufp->kind = ascii_keystroke; XSET (bufp->code, Lisp_Int, copy_buffer[i]); + XSET (bufp->timestamp, Lisp_Int, event.xkey.time); bufp->screen = XSCREEN (SCREEN_FOCUS_SCREEN (s)); bufp++; } @@ -1886,6 +2028,7 @@ { bufp->kind = ascii_keystroke; XSET (bufp->code, Lisp_Int, where_mapping[i]); + XSET (bufp->time, Lisp_Int, event.xkey.time); bufp->screen = XSCREEN (SCREEN_FOCUS_SCREEN (s)); bufp++; } @@ -2017,15 +2160,7 @@ { s = x_window_to_screen (event.xmotion.window); if (s) - { - int row, column; - - pixel_to_glyph_translation (s, - event.xmotion.x, event.xmotion.y, - &column, &row); - - note_mouse_position (s, column, row, event.xmotion.time); - } + note_mouse_position (s, &event.xmotion); #if 0 else if ((s = x_window_to_scrollbar (event.xmotion.window, &part, &prefix))) @@ -2052,27 +2187,23 @@ - s->display.x->h_scrollbar_height) / FONT_HEIGHT (s->display.x->font)); - if (columns != s->width || rows != s->height) + /* Even if the number of character rows and columns has + not changed, the font size may have changed, so we need + to check the pixel dimensions as well. */ + if (columns != s->width + || rows != s->height + || event.xconfigure.width != s->display.x->pixel_width + || event.xconfigure.height != s->display.x->pixel_height) { - XEvent ignored_event; - change_screen_size (s, rows, columns, 0); x_resize_scrollbars (s); SET_SCREEN_GARBAGED (s); -#if 0 - dumprectangle (s, 0, 0, PIXEL_WIDTH (s), PIXEL_HEIGHT (s)); - /* Throw away the exposures generated by this reconfigure. */ - while (XCheckWindowEvent (x_current_display, - event.xconfigure.window, - ExposureMask, &ignored_event) - == True); -#endif } + s->display.x->pixel_width = event.xconfigure.width; + s->display.x->pixel_height = event.xconfigure.height; s->display.x->left_pos = event.xconfigure.x; s->display.x->top_pos = event.xconfigure.y; - s->display.x->pixel_width = event.xconfigure.width; - s->display.x->pixel_height = event.xconfigure.height; break; } @@ -2138,11 +2269,13 @@ bufp->kind = ascii_keystroke; bufp->code = (char) 'X' & 037; /* C-x */ bufp->screen = XSCREEN (SCREEN_FOCUS_SCREEN (s)); + XSET (bufp->time, Lisp_Int, event.xkey.time); bufp++; bufp->kind = ascii_keystroke; bufp->code = (char) 0; /* C-@ */ bufp->screen = XSCREEN (SCREEN_FOCUS_SCREEN (s)); + XSET (bufp->time, Lisp_Int, event.xkey.time); bufp++; count += 2; @@ -2263,37 +2396,6 @@ } #endif /* HAVE_X11 */ -static int -XTmouse_tracking_enable (enable) - int enable; -{ - Lisp_Object tail; - - /* Go through the list of screens and turn on/off mouse tracking for - each of them. */ - for (tail = Vscreen_list; CONSP (tail); tail = XCONS (tail)->cdr) - { - if (XTYPE (XCONS (tail)->car) != Lisp_Screen) - abort (); - if (XSCREEN (XCONS (tail)->car)->output_method == output_x_window) - XSelectInput (x_current_display, - XSCREEN (XCONS (tail)->car)->display.x->window_desc, - (enable - ? (STANDARD_EVENT_SET - | PointerMotionMask - | ButtonReleaseMask) - : STANDARD_EVENT_SET)); - } -} - - -static Lisp_Object -XTmouse_position () -{ - -} - - /* Draw a hollow box cursor. Don't change the inside of the box. */ @@ -2367,6 +2469,7 @@ s->phys_cursor_x = -1; } +static void x_display_bar_cursor (s, on) struct screen *s; int on; @@ -2416,54 +2519,23 @@ } -/* Redraw the glyph at ROW, COLUMN on screen S, in the style HIGHLIGHT. - If there is no character there, erase the area. HIGHLIGHT is as - defined for dumpglyphs. */ +/* Redraw the glyph at ROW, COLUMN on screen S, in the style + HIGHLIGHT. HIGHLIGHT is as defined for dumpglyphs. Return the + glyph drawn. */ static void -x_draw_single_glyph (s, row, column, highlight) +x_draw_single_glyph (s, row, column, glyph, highlight) struct screen *s; int row, column; + GLYPH glyph; int highlight; { - register struct screen_glyphs *current_screen = SCREEN_CURRENT_GLYPHS (s); - - /* If there is supposed to be a character there, redraw it - in that line's normal video. */ - if (current_screen->enable[row] - && column < current_screen->used[row]) - dumpglyphs (s, - (column * FONT_WIDTH (s->display.x->font) - + s->display.x->internal_border_width), - (row * FONT_HEIGHT (s->display.x->font) - + s->display.x->internal_border_width), - ¤t_screen->glyphs[row][column], - 1, highlight, s->display.x->font); - else - { -#ifdef HAVE_X11 - static GLYPH a_space_glyph = SPACEGLYPH; - dumpglyphs (s, - (column * FONT_WIDTH (s->display.x->font) - + s->display.x->internal_border_width), - (row * FONT_HEIGHT (s->display.x->font) - + s->display.x->internal_border_width), - &a_space_glyph, 1, highlight, s->display.x->font); -#else - XPixSet (s->display.x->window_desc, - (column * FONT_WIDTH (s->display.x->font) - + s->display.x->internal_border_width), - (row * FONT_HEIGHT (s->display.x->font) - + s->display.x->internal_border_width), - FONT_WIDTH (s->display.x->font), - FONT_HEIGHT (s->display.x->font), - (highlight == 0 - ? s->display.x->background_pixel - : (highlight == 1 - ? s->display.x->foreground_pixel - : s->display.x->cursor_pixel))); -#endif /* HAVE_X11 */ - } + dumpglyphs (s, + (column * FONT_WIDTH (s->display.x->font) + + s->display.x->internal_border_width), + (row * FONT_HEIGHT (s->display.x->font) + + s->display.x->internal_border_width), + &glyph, 1, highlight, s->display.x->font); } /* Turn the displayed cursor of screen S on or off according to ON. @@ -2475,11 +2547,12 @@ struct screen *s; int on; { + struct screen_glyphs *current_glyphs = SCREEN_CURRENT_GLYPHS (s); + if (! s->visible) return; /* If cursor is off and we want it off, return quickly. */ - if (!on && s->phys_cursor_x < 0) return; @@ -2496,9 +2569,8 @@ { /* Erase the cursor by redrawing the character underneath it. */ x_draw_single_glyph (s, s->phys_cursor_y, s->phys_cursor_x, - (SCREEN_CURRENT_GLYPHS (s) - ->highlight[s->phys_cursor_y])); - + s->phys_cursor_glyph, + current_glyphs->highlight[s->phys_cursor_y]); s->phys_cursor_x = -1; } @@ -2510,6 +2582,11 @@ || (s->display.x->text_cursor_kind != filled_box_cursor && s == x_highlight_screen))) { + s->phys_cursor_glyph + = ((current_glyphs->enable[s->cursor_y] + && s->cursor_x < current_glyphs->used[s->cursor_y]) + ? current_glyphs->glyphs[s->cursor_y][s->cursor_x] + : SPACEGLYPH); if (s != x_highlight_screen) { x_draw_box (s); @@ -2517,7 +2594,8 @@ } else { - x_draw_single_glyph (s, s->cursor_y, s->cursor_x, 2); + x_draw_single_glyph (s, s->cursor_y, s->cursor_x, + s->phys_cursor_glyph, 2); s->display.x->text_cursor_kind = filled_box_cursor; } @@ -2952,7 +3030,7 @@ if (n_matching_fonts == 0) return 1; - /* See if we've already loaded this font. */ + /* See if we've already loaded a matching font. */ { int i, j; @@ -2969,10 +3047,8 @@ /* If we have, just return it from the table. */ if (already_loaded) - { - s->display.x->font = x_font_table[already_loaded]; - } - + s->display.x->font = x_font_table[already_loaded]; + /* Otherwise, load the font and add it to the table. */ else { @@ -2993,7 +3069,7 @@ /* Do we need to grow the table? */ else if (n_fonts >= x_font_table_size) { - x_font_table_size <<= 1; + x_font_table_size *= 2; x_font_table = (XFontStruct **) xrealloc (x_font_table, (x_font_table_size @@ -3224,40 +3300,34 @@ { int mask; - if (s->visible) + BLOCK_INPUT; + + if (! SCREEN_VISIBLE_P (s)) { - BLOCK_INPUT; - XRaiseWindow (XDISPLAY s->display.x->window_desc); - XFlushQueue (); - UNBLOCK_INPUT; - return; - } - - BLOCK_INPUT; #ifdef HAVE_X11 - - if (! EQ (Vx_no_window_manager, Qt)) - x_wm_set_window_state (s, NormalState); - - XMapWindow (XDISPLAY s->display.x->window_desc); - if (s->display.x->v_scrollbar != 0 || s->display.x->h_scrollbar != 0) - XMapSubwindows (x_current_display, s->display.x->window_desc); - + if (! EQ (Vx_no_window_manager, Qt)) + x_wm_set_window_state (s, NormalState); + + XMapWindow (XDISPLAY s->display.x->window_desc); + if (s->display.x->v_scrollbar != 0 || s->display.x->h_scrollbar != 0) + XMapSubwindows (x_current_display, s->display.x->window_desc); #else - XMapWindow (XDISPLAY s->display.x->window_desc); - if (s->display.x->icon_desc != 0) - XUnmapWindow (s->display.x->icon_desc); - - /* Handled by the MapNotify event for X11 */ - s->visible = 1; - s->iconified = 0; - - /* NOTE: this may cause problems for the first screen. */ - XTcursor_to (0, 0); -#endif /* not HAVE_X11 */ + XMapWindow (XDISPLAY s->display.x->window_desc); + if (s->display.x->icon_desc != 0) + XUnmapWindow (s->display.x->icon_desc); + + /* Handled by the MapNotify event for X11 */ + s->visible = 1; + s->iconified = 0; + + /* NOTE: this may cause problems for the first screen. */ + XTcursor_to (0, 0); +#endif /* not HAVE_X11 */ + } XRaiseWindow (XDISPLAY s->display.x->window_desc); XFlushQueue (); + UNBLOCK_INPUT; } @@ -3667,7 +3737,7 @@ cursor_to_hook = XTcursor_to; reassert_line_highlight_hook = XTreassert_line_highlight; screen_rehighlight_hook = XTscreen_rehighlight; - mouse_tracking_enable_hook = XTmouse_tracking_enable; + mouse_position_hook = XTmouse_position; scroll_region_ok = 1; /* we'll scroll partial screens */ char_ins_del_ok = 0; /* just as fast to write the line */