diff options
| -rw-r--r-- | src/alloc.c | 10 | ||||
| -rw-r--r-- | src/dispextern.h | 66 | ||||
| -rw-r--r-- | src/dispnew.c | 54 | ||||
| -rw-r--r-- | src/frame.c | 14 | ||||
| -rw-r--r-- | src/frame.h | 26 | ||||
| -rw-r--r-- | src/keyboard.c | 211 | ||||
| -rw-r--r-- | src/lisp.h | 4 | ||||
| -rw-r--r-- | src/termhooks.h | 6 | ||||
| -rw-r--r-- | src/window.c | 36 | ||||
| -rw-r--r-- | src/xfaces.c | 8 | ||||
| -rw-r--r-- | src/xfns.c | 24 | ||||
| -rw-r--r-- | src/xterm.c | 148 |
12 files changed, 304 insertions, 303 deletions
diff --git a/src/alloc.c b/src/alloc.c index 258a610886d..64f9e0ccd2b 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -2247,14 +2247,14 @@ mark_object (argptr) | |||
| 2247 | mark_object (&ptr->buffer_predicate); | 2247 | mark_object (&ptr->buffer_predicate); |
| 2248 | mark_object (&ptr->buffer_list); | 2248 | mark_object (&ptr->buffer_list); |
| 2249 | mark_object (&ptr->menu_bar_window); | 2249 | mark_object (&ptr->menu_bar_window); |
| 2250 | mark_object (&ptr->toolbar_window); | 2250 | mark_object (&ptr->tool_bar_window); |
| 2251 | mark_face_cache (ptr->face_cache); | 2251 | mark_face_cache (ptr->face_cache); |
| 2252 | #ifdef HAVE_WINDOW_SYSTEM | 2252 | #ifdef HAVE_WINDOW_SYSTEM |
| 2253 | mark_image_cache (ptr); | 2253 | mark_image_cache (ptr); |
| 2254 | mark_object (&ptr->desired_toolbar_items); | 2254 | mark_object (&ptr->desired_tool_bar_items); |
| 2255 | mark_object (&ptr->current_toolbar_items); | 2255 | mark_object (&ptr->current_tool_bar_items); |
| 2256 | mark_object (&ptr->desired_toolbar_string); | 2256 | mark_object (&ptr->desired_tool_bar_string); |
| 2257 | mark_object (&ptr->current_toolbar_string); | 2257 | mark_object (&ptr->current_tool_bar_string); |
| 2258 | #endif /* HAVE_WINDOW_SYSTEM */ | 2258 | #endif /* HAVE_WINDOW_SYSTEM */ |
| 2259 | } | 2259 | } |
| 2260 | else if (GC_BOOL_VECTOR_P (obj)) | 2260 | else if (GC_BOOL_VECTOR_P (obj)) |
diff --git a/src/dispextern.h b/src/dispextern.h index 8163fc8ea31..622dc8a806b 100644 --- a/src/dispextern.h +++ b/src/dispextern.h | |||
| @@ -1264,7 +1264,7 @@ enum face_id | |||
| 1264 | { | 1264 | { |
| 1265 | DEFAULT_FACE_ID, | 1265 | DEFAULT_FACE_ID, |
| 1266 | MODE_LINE_FACE_ID, | 1266 | MODE_LINE_FACE_ID, |
| 1267 | TOOLBAR_FACE_ID, | 1267 | TOOL_BAR_FACE_ID, |
| 1268 | BITMAP_AREA_FACE_ID, | 1268 | BITMAP_AREA_FACE_ID, |
| 1269 | TOP_LINE_FACE_ID, | 1269 | TOP_LINE_FACE_ID, |
| 1270 | BASIC_FACE_ID_SENTINEL | 1270 | BASIC_FACE_ID_SENTINEL |
| @@ -1581,7 +1581,7 @@ struct it | |||
| 1581 | unsigned overlay_strings_at_end_processed_p : 1; | 1581 | unsigned overlay_strings_at_end_processed_p : 1; |
| 1582 | 1582 | ||
| 1583 | /* The ID of the default face to use. One of DEFAULT_FACE_ID, | 1583 | /* The ID of the default face to use. One of DEFAULT_FACE_ID, |
| 1584 | MODE_LINE_FACE_ID, or TOOLBAR_FACE_ID, depending on what we | 1584 | MODE_LINE_FACE_ID, or TOOL_BAR_FACE_ID, depending on what we |
| 1585 | are displaying. */ | 1585 | are displaying. */ |
| 1586 | int base_face_id; | 1586 | int base_face_id; |
| 1587 | 1587 | ||
| @@ -1961,69 +1961,69 @@ struct image_cache | |||
| 1961 | 1961 | ||
| 1962 | 1962 | ||
| 1963 | /*********************************************************************** | 1963 | /*********************************************************************** |
| 1964 | Toolbars | 1964 | Tool-bars |
| 1965 | ***********************************************************************/ | 1965 | ***********************************************************************/ |
| 1966 | 1966 | ||
| 1967 | /* Enumeration defining where to find toolbar item information in | 1967 | /* Enumeration defining where to find tool-bar item information in |
| 1968 | toolbar items vectors stored with frames. Each toolbar item | 1968 | tool-bar items vectors stored with frames. Each tool-bar item |
| 1969 | occupies TOOLBAR_ITEM_NSLOTS elements in such a vector. */ | 1969 | occupies TOOL_BAR_ITEM_NSLOTS elements in such a vector. */ |
| 1970 | 1970 | ||
| 1971 | enum toolbar_item_idx | 1971 | enum tool_bar_item_idx |
| 1972 | { | 1972 | { |
| 1973 | /* The key of the toolbar item. Used to remove items when a binding | 1973 | /* The key of the tool-bar item. Used to remove items when a binding |
| 1974 | for `undefined' is found. */ | 1974 | for `undefined' is found. */ |
| 1975 | TOOLBAR_ITEM_KEY, | 1975 | TOOL_BAR_ITEM_KEY, |
| 1976 | 1976 | ||
| 1977 | /* Non-nil if item is enabled. */ | 1977 | /* Non-nil if item is enabled. */ |
| 1978 | TOOLBAR_ITEM_ENABLED_P, | 1978 | TOOL_BAR_ITEM_ENABLED_P, |
| 1979 | 1979 | ||
| 1980 | /* Non-nil if item is selected (pressed). */ | 1980 | /* Non-nil if item is selected (pressed). */ |
| 1981 | TOOLBAR_ITEM_SELECTED_P, | 1981 | TOOL_BAR_ITEM_SELECTED_P, |
| 1982 | 1982 | ||
| 1983 | /* Caption. */ | 1983 | /* Caption. */ |
| 1984 | TOOLBAR_ITEM_CAPTION, | 1984 | TOOL_BAR_ITEM_CAPTION, |
| 1985 | 1985 | ||
| 1986 | /* Image(s) to display. This is either a single image specification | 1986 | /* Image(s) to display. This is either a single image specification |
| 1987 | or a vector of specifications. */ | 1987 | or a vector of specifications. */ |
| 1988 | TOOLBAR_ITEM_IMAGES, | 1988 | TOOL_BAR_ITEM_IMAGES, |
| 1989 | 1989 | ||
| 1990 | /* The binding. */ | 1990 | /* The binding. */ |
| 1991 | TOOLBAR_ITEM_BINDING, | 1991 | TOOL_BAR_ITEM_BINDING, |
| 1992 | 1992 | ||
| 1993 | /* Button type. One of nil, `:radio' or `:toggle'. */ | 1993 | /* Button type. One of nil, `:radio' or `:toggle'. */ |
| 1994 | TOOLBAR_ITEM_TYPE, | 1994 | TOOL_BAR_ITEM_TYPE, |
| 1995 | 1995 | ||
| 1996 | /* Help string. */ | 1996 | /* Help string. */ |
| 1997 | TOOLBAR_ITEM_HELP, | 1997 | TOOL_BAR_ITEM_HELP, |
| 1998 | 1998 | ||
| 1999 | /* Sentinel = number of slots in toolbar_items occupied by one | 1999 | /* Sentinel = number of slots in tool_bar_items occupied by one |
| 2000 | toolbar item. */ | 2000 | tool-bar item. */ |
| 2001 | TOOLBAR_ITEM_NSLOTS | 2001 | TOOL_BAR_ITEM_NSLOTS |
| 2002 | }; | 2002 | }; |
| 2003 | 2003 | ||
| 2004 | 2004 | ||
| 2005 | /* An enumeration for the different images that can be specified | 2005 | /* An enumeration for the different images that can be specified |
| 2006 | for a toolbar item. */ | 2006 | for a tool-bar item. */ |
| 2007 | 2007 | ||
| 2008 | enum toolbar_item_image | 2008 | enum tool_bar_item_image |
| 2009 | { | 2009 | { |
| 2010 | TOOLBAR_IMAGE_ENABLED_SELECTED, | 2010 | TOOL_BAR_IMAGE_ENABLED_SELECTED, |
| 2011 | TOOLBAR_IMAGE_ENABLED_DESELECTED, | 2011 | TOOL_BAR_IMAGE_ENABLED_DESELECTED, |
| 2012 | TOOLBAR_IMAGE_DISABLED_SELECTED, | 2012 | TOOL_BAR_IMAGE_DISABLED_SELECTED, |
| 2013 | TOOLBAR_IMAGE_DISABLED_DESELECTED | 2013 | TOOL_BAR_IMAGE_DISABLED_DESELECTED |
| 2014 | }; | 2014 | }; |
| 2015 | 2015 | ||
| 2016 | /* Non-zero means raise toolbar buttons when the mouse moves over them. */ | 2016 | /* Non-zero means raise tool-bar buttons when the mouse moves over them. */ |
| 2017 | 2017 | ||
| 2018 | extern int auto_raise_toolbar_buttons_p; | 2018 | extern int auto_raise_tool_bar_buttons_p; |
| 2019 | 2019 | ||
| 2020 | /* Margin around toolbar buttons in pixels. */ | 2020 | /* Margin around tool-bar buttons in pixels. */ |
| 2021 | 2021 | ||
| 2022 | extern int toolbar_button_margin; | 2022 | extern int tool_bar_button_margin; |
| 2023 | 2023 | ||
| 2024 | /* Thickness of relief to draw around toolbar buttons. */ | 2024 | /* Thickness of relief to draw around tool-bar buttons. */ |
| 2025 | 2025 | ||
| 2026 | extern int toolbar_button_relief; | 2026 | extern int tool_bar_button_relief; |
| 2027 | 2027 | ||
| 2028 | 2028 | ||
| 2029 | 2029 | ||
| @@ -2060,8 +2060,8 @@ void move_it_vertically P_ ((struct it *, int)); | |||
| 2060 | void move_it_by_lines P_ ((struct it *, int, int)); | 2060 | void move_it_by_lines P_ ((struct it *, int, int)); |
| 2061 | int frame_mode_line_height P_ ((struct frame *)); | 2061 | int frame_mode_line_height P_ ((struct frame *)); |
| 2062 | void highlight_trailing_whitespace P_ ((struct frame *, struct glyph_row *)); | 2062 | void highlight_trailing_whitespace P_ ((struct frame *, struct glyph_row *)); |
| 2063 | int toolbar_item_info P_ ((struct frame *, struct glyph *, int *)); | 2063 | int tool_bar_item_info P_ ((struct frame *, struct glyph *, int *)); |
| 2064 | extern Lisp_Object Qtoolbar; | 2064 | extern Lisp_Object Qtool_bar; |
| 2065 | extern Lisp_Object Vshow_trailing_whitespace; | 2065 | extern Lisp_Object Vshow_trailing_whitespace; |
| 2066 | extern int redisplaying_p; | 2066 | extern int redisplaying_p; |
| 2067 | 2067 | ||
diff --git a/src/dispnew.c b/src/dispnew.c index 169b64e7dbf..b21f5796e01 100644 --- a/src/dispnew.c +++ b/src/dispnew.c | |||
| @@ -885,9 +885,9 @@ clear_current_matrices (f) | |||
| 885 | if (WINDOWP (f->menu_bar_window)) | 885 | if (WINDOWP (f->menu_bar_window)) |
| 886 | clear_glyph_matrix (XWINDOW (f->menu_bar_window)->current_matrix); | 886 | clear_glyph_matrix (XWINDOW (f->menu_bar_window)->current_matrix); |
| 887 | 887 | ||
| 888 | /* Clear the matrix of the toolbar window, if any. */ | 888 | /* Clear the matrix of the tool-bar window, if any. */ |
| 889 | if (WINDOWP (f->toolbar_window)) | 889 | if (WINDOWP (f->tool_bar_window)) |
| 890 | clear_glyph_matrix (XWINDOW (f->toolbar_window)->current_matrix); | 890 | clear_glyph_matrix (XWINDOW (f->tool_bar_window)->current_matrix); |
| 891 | 891 | ||
| 892 | /* Clear current window matrices. */ | 892 | /* Clear current window matrices. */ |
| 893 | xassert (WINDOWP (FRAME_ROOT_WINDOW (f))); | 893 | xassert (WINDOWP (FRAME_ROOT_WINDOW (f))); |
| @@ -907,8 +907,8 @@ clear_desired_matrices (f) | |||
| 907 | if (WINDOWP (f->menu_bar_window)) | 907 | if (WINDOWP (f->menu_bar_window)) |
| 908 | clear_glyph_matrix (XWINDOW (f->menu_bar_window)->desired_matrix); | 908 | clear_glyph_matrix (XWINDOW (f->menu_bar_window)->desired_matrix); |
| 909 | 909 | ||
| 910 | if (WINDOWP (f->toolbar_window)) | 910 | if (WINDOWP (f->tool_bar_window)) |
| 911 | clear_glyph_matrix (XWINDOW (f->toolbar_window)->desired_matrix); | 911 | clear_glyph_matrix (XWINDOW (f->tool_bar_window)->desired_matrix); |
| 912 | 912 | ||
| 913 | /* Do it for window matrices. */ | 913 | /* Do it for window matrices. */ |
| 914 | xassert (WINDOWP (FRAME_ROOT_WINDOW (f))); | 914 | xassert (WINDOWP (FRAME_ROOT_WINDOW (f))); |
| @@ -2076,21 +2076,21 @@ adjust_frame_glyphs_for_window_redisplay (f) | |||
| 2076 | } | 2076 | } |
| 2077 | #endif /* not USE_X_TOOLKIT */ | 2077 | #endif /* not USE_X_TOOLKIT */ |
| 2078 | 2078 | ||
| 2079 | /* Allocate/ reallocate matrices of the toolbar window. If we don't | 2079 | /* Allocate/ reallocate matrices of the tool bar window. If we |
| 2080 | have a toolbar window yet, make one. */ | 2080 | don't have a tool bar window yet, make one. */ |
| 2081 | if (NILP (f->toolbar_window)) | 2081 | if (NILP (f->tool_bar_window)) |
| 2082 | { | 2082 | { |
| 2083 | f->toolbar_window = make_window (); | 2083 | f->tool_bar_window = make_window (); |
| 2084 | w = XWINDOW (f->toolbar_window); | 2084 | w = XWINDOW (f->tool_bar_window); |
| 2085 | XSETFRAME (w->frame, f); | 2085 | XSETFRAME (w->frame, f); |
| 2086 | w->pseudo_window_p = 1; | 2086 | w->pseudo_window_p = 1; |
| 2087 | } | 2087 | } |
| 2088 | else | 2088 | else |
| 2089 | w = XWINDOW (f->toolbar_window); | 2089 | w = XWINDOW (f->tool_bar_window); |
| 2090 | 2090 | ||
| 2091 | XSETFASTINT (w->top, FRAME_MENU_BAR_LINES (f)); | 2091 | XSETFASTINT (w->top, FRAME_MENU_BAR_LINES (f)); |
| 2092 | XSETFASTINT (w->left, 0); | 2092 | XSETFASTINT (w->left, 0); |
| 2093 | XSETFASTINT (w->height, FRAME_TOOLBAR_LINES (f)); | 2093 | XSETFASTINT (w->height, FRAME_TOOL_BAR_LINES (f)); |
| 2094 | XSETFASTINT (w->width, FRAME_WINDOW_WIDTH (f)); | 2094 | XSETFASTINT (w->width, FRAME_WINDOW_WIDTH (f)); |
| 2095 | allocate_matrices_for_window_redisplay (w, ch_dim); | 2095 | allocate_matrices_for_window_redisplay (w, ch_dim); |
| 2096 | } | 2096 | } |
| @@ -2167,14 +2167,14 @@ free_glyphs (f) | |||
| 2167 | f->menu_bar_window = Qnil; | 2167 | f->menu_bar_window = Qnil; |
| 2168 | } | 2168 | } |
| 2169 | 2169 | ||
| 2170 | /* Free the toolbar window and its glyph matrices. */ | 2170 | /* Free the tool bar window and its glyph matrices. */ |
| 2171 | if (!NILP (f->toolbar_window)) | 2171 | if (!NILP (f->tool_bar_window)) |
| 2172 | { | 2172 | { |
| 2173 | struct window *w = XWINDOW (f->toolbar_window); | 2173 | struct window *w = XWINDOW (f->tool_bar_window); |
| 2174 | free_glyph_matrix (w->desired_matrix); | 2174 | free_glyph_matrix (w->desired_matrix); |
| 2175 | free_glyph_matrix (w->current_matrix); | 2175 | free_glyph_matrix (w->current_matrix); |
| 2176 | w->desired_matrix = w->current_matrix = NULL; | 2176 | w->desired_matrix = w->current_matrix = NULL; |
| 2177 | f->toolbar_window = Qnil; | 2177 | f->tool_bar_window = Qnil; |
| 2178 | } | 2178 | } |
| 2179 | 2179 | ||
| 2180 | /* Release frame glyph matrices. Reset fields to zero in | 2180 | /* Release frame glyph matrices. Reset fields to zero in |
| @@ -3352,10 +3352,10 @@ update_frame (f, force_p, inhibit_hairy_id_p) | |||
| 3352 | update_window (XWINDOW (f->menu_bar_window), 1); | 3352 | update_window (XWINDOW (f->menu_bar_window), 1); |
| 3353 | 3353 | ||
| 3354 | /* Update the tool-bar window, if present. */ | 3354 | /* Update the tool-bar window, if present. */ |
| 3355 | if (WINDOWP (f->toolbar_window)) | 3355 | if (WINDOWP (f->tool_bar_window)) |
| 3356 | { | 3356 | { |
| 3357 | Lisp_Object tem; | 3357 | Lisp_Object tem; |
| 3358 | struct window *w = XWINDOW (f->toolbar_window); | 3358 | struct window *w = XWINDOW (f->tool_bar_window); |
| 3359 | 3359 | ||
| 3360 | /* Update tool-bar window. */ | 3360 | /* Update tool-bar window. */ |
| 3361 | if (w->must_be_updated_p) | 3361 | if (w->must_be_updated_p) |
| @@ -3365,16 +3365,16 @@ update_frame (f, force_p, inhibit_hairy_id_p) | |||
| 3365 | 3365 | ||
| 3366 | /* Swap tool-bar strings. We swap because we want to | 3366 | /* Swap tool-bar strings. We swap because we want to |
| 3367 | reuse strings. */ | 3367 | reuse strings. */ |
| 3368 | tem = f->current_toolbar_string; | 3368 | tem = f->current_tool_bar_string; |
| 3369 | f->current_toolbar_string = f->desired_toolbar_string; | 3369 | f->current_tool_bar_string = f->desired_tool_bar_string; |
| 3370 | f->desired_toolbar_string = tem; | 3370 | f->desired_tool_bar_string = tem; |
| 3371 | f->n_current_toolbar_items = f->n_desired_toolbar_items; | 3371 | f->n_current_tool_bar_items = f->n_desired_tool_bar_items; |
| 3372 | 3372 | ||
| 3373 | /* Swap tool-bar items. We swap because we want to | 3373 | /* Swap tool-bar items. We swap because we want to |
| 3374 | reuse vectors. */ | 3374 | reuse vectors. */ |
| 3375 | tem = f->current_toolbar_items; | 3375 | tem = f->current_tool_bar_items; |
| 3376 | f->current_toolbar_items = f->desired_toolbar_items; | 3376 | f->current_tool_bar_items = f->desired_tool_bar_items; |
| 3377 | f->desired_toolbar_items = tem; | 3377 | f->desired_tool_bar_items = tem; |
| 3378 | } | 3378 | } |
| 3379 | } | 3379 | } |
| 3380 | 3380 | ||
| @@ -5336,8 +5336,8 @@ change_frame_size_1 (f, newheight, newwidth, pretend, delay, safe) | |||
| 5336 | if (FRAME_TERMCAP_P (f) && !pretend) | 5336 | if (FRAME_TERMCAP_P (f) && !pretend) |
| 5337 | FrameCols = newwidth; | 5337 | FrameCols = newwidth; |
| 5338 | 5338 | ||
| 5339 | if (WINDOWP (f->toolbar_window)) | 5339 | if (WINDOWP (f->tool_bar_window)) |
| 5340 | XSETFASTINT (XWINDOW (f->toolbar_window)->width, newwidth); | 5340 | XSETFASTINT (XWINDOW (f->tool_bar_window)->width, newwidth); |
| 5341 | } | 5341 | } |
| 5342 | 5342 | ||
| 5343 | FRAME_HEIGHT (f) = newheight; | 5343 | FRAME_HEIGHT (f) = newheight; |
diff --git a/src/frame.c b/src/frame.c index bfd4b2d4919..45cb23b6f22 100644 --- a/src/frame.c +++ b/src/frame.c | |||
| @@ -90,7 +90,7 @@ Lisp_Object Qname; | |||
| 90 | Lisp_Object Qonly; | 90 | Lisp_Object Qonly; |
| 91 | Lisp_Object Qunsplittable; | 91 | Lisp_Object Qunsplittable; |
| 92 | Lisp_Object Qmenu_bar_lines; | 92 | Lisp_Object Qmenu_bar_lines; |
| 93 | Lisp_Object Qtoolbar_lines; | 93 | Lisp_Object Qtool_bar_lines; |
| 94 | Lisp_Object Qwidth; | 94 | Lisp_Object Qwidth; |
| 95 | Lisp_Object Qx; | 95 | Lisp_Object Qx; |
| 96 | Lisp_Object Qw32; | 96 | Lisp_Object Qw32; |
| @@ -128,8 +128,8 @@ syms_of_frame_1 () | |||
| 128 | staticpro (&Qunsplittable); | 128 | staticpro (&Qunsplittable); |
| 129 | Qmenu_bar_lines = intern ("menu-bar-lines"); | 129 | Qmenu_bar_lines = intern ("menu-bar-lines"); |
| 130 | staticpro (&Qmenu_bar_lines); | 130 | staticpro (&Qmenu_bar_lines); |
| 131 | Qtoolbar_lines = intern ("toolbar-lines"); | 131 | Qtool_bar_lines = intern ("tool-bar-lines"); |
| 132 | staticpro (&Qtoolbar_lines); | 132 | staticpro (&Qtool_bar_lines); |
| 133 | Qwidth = intern ("width"); | 133 | Qwidth = intern ("width"); |
| 134 | staticpro (&Qwidth); | 134 | staticpro (&Qwidth); |
| 135 | Qx = intern ("x"); | 135 | Qx = intern ("x"); |
| @@ -329,10 +329,10 @@ make_frame (mini_p) | |||
| 329 | f->namebuf = 0; | 329 | f->namebuf = 0; |
| 330 | f->title = Qnil; | 330 | f->title = Qnil; |
| 331 | f->menu_bar_window = Qnil; | 331 | f->menu_bar_window = Qnil; |
| 332 | f->toolbar_window = Qnil; | 332 | f->tool_bar_window = Qnil; |
| 333 | f->desired_toolbar_items = f->current_toolbar_items = Qnil; | 333 | f->desired_tool_bar_items = f->current_tool_bar_items = Qnil; |
| 334 | f->desired_toolbar_string = f->current_toolbar_string = Qnil; | 334 | f->desired_tool_bar_string = f->current_tool_bar_string = Qnil; |
| 335 | f->n_desired_toolbar_items = f->n_current_toolbar_items = 0; | 335 | f->n_desired_tool_bar_items = f->n_current_tool_bar_items = 0; |
| 336 | 336 | ||
| 337 | root_window = make_window (); | 337 | root_window = make_window (); |
| 338 | if (mini_p) | 338 | if (mini_p) |
diff --git a/src/frame.h b/src/frame.h index 27a5c9715f5..1bbe48f55e6 100644 --- a/src/frame.h +++ b/src/frame.h | |||
| @@ -148,14 +148,14 @@ struct frame | |||
| 148 | toolkit support is available. */ | 148 | toolkit support is available. */ |
| 149 | Lisp_Object menu_bar_window; | 149 | Lisp_Object menu_bar_window; |
| 150 | 150 | ||
| 151 | /* A window used to display the toolbar of a frame. */ | 151 | /* A window used to display the tool-bar of a frame. */ |
| 152 | Lisp_Object toolbar_window; | 152 | Lisp_Object tool_bar_window; |
| 153 | 153 | ||
| 154 | /* Desired and current toolbar items. */ | 154 | /* Desired and current tool-bar items. */ |
| 155 | Lisp_Object desired_toolbar_items, current_toolbar_items; | 155 | Lisp_Object desired_tool_bar_items, current_tool_bar_items; |
| 156 | 156 | ||
| 157 | /* Desired and current contents displayed in toolbar_window. */ | 157 | /* Desired and current contents displayed in tool_bar_window. */ |
| 158 | Lisp_Object desired_toolbar_string, current_toolbar_string; | 158 | Lisp_Object desired_tool_bar_string, current_tool_bar_string; |
| 159 | 159 | ||
| 160 | /* beyond here, there should be no more Lisp_Object components. */ | 160 | /* beyond here, there should be no more Lisp_Object components. */ |
| 161 | 161 | ||
| @@ -176,11 +176,11 @@ struct frame | |||
| 176 | be used for output. */ | 176 | be used for output. */ |
| 177 | unsigned glyphs_initialized_p : 1; | 177 | unsigned glyphs_initialized_p : 1; |
| 178 | 178 | ||
| 179 | /* Margin at the top of the frame. Used to display the toolbar. */ | 179 | /* Margin at the top of the frame. Used to display the tool-bar. */ |
| 180 | int toolbar_lines; | 180 | int tool_bar_lines; |
| 181 | 181 | ||
| 182 | int n_desired_toolbar_items; | 182 | int n_desired_tool_bar_items; |
| 183 | int n_current_toolbar_items; | 183 | int n_current_tool_bar_items; |
| 184 | 184 | ||
| 185 | /* A buffer for decode_mode_line. */ | 185 | /* A buffer for decode_mode_line. */ |
| 186 | char *decode_mode_spec_buffer; | 186 | char *decode_mode_spec_buffer; |
| @@ -412,14 +412,14 @@ typedef struct frame *FRAME_PTR; | |||
| 412 | These lines are counted in FRAME_HEIGHT. */ | 412 | These lines are counted in FRAME_HEIGHT. */ |
| 413 | #define FRAME_MENU_BAR_LINES(f) (f)->menu_bar_lines | 413 | #define FRAME_MENU_BAR_LINES(f) (f)->menu_bar_lines |
| 414 | 414 | ||
| 415 | /* Number of lines of frame F used for the toolbar. */ | 415 | /* Number of lines of frame F used for the tool-bar. */ |
| 416 | 416 | ||
| 417 | #define FRAME_TOOLBAR_LINES(f) (f)->toolbar_lines | 417 | #define FRAME_TOOL_BAR_LINES(f) (f)->tool_bar_lines |
| 418 | 418 | ||
| 419 | /* Lines above the top-most window in frame F. */ | 419 | /* Lines above the top-most window in frame F. */ |
| 420 | 420 | ||
| 421 | #define FRAME_TOP_MARGIN(F) \ | 421 | #define FRAME_TOP_MARGIN(F) \ |
| 422 | (FRAME_MENU_BAR_LINES (F) + FRAME_TOOLBAR_LINES (F)) | 422 | (FRAME_MENU_BAR_LINES (F) + FRAME_TOOL_BAR_LINES (F)) |
| 423 | 423 | ||
| 424 | /* Nonzero if this frame should display a menu bar | 424 | /* Nonzero if this frame should display a menu bar |
| 425 | in a way that does not use any text lines. */ | 425 | in a way that does not use any text lines. */ |
diff --git a/src/keyboard.c b/src/keyboard.c index 93feb45ca88..2dc7af7a8aa 100644 --- a/src/keyboard.c +++ b/src/keyboard.c | |||
| @@ -2101,7 +2101,7 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu) | |||
| 2101 | && !NILP (prev_event) | 2101 | && !NILP (prev_event) |
| 2102 | && EVENT_HAS_PARAMETERS (prev_event) | 2102 | && EVENT_HAS_PARAMETERS (prev_event) |
| 2103 | && !EQ (XCONS (prev_event)->car, Qmenu_bar) | 2103 | && !EQ (XCONS (prev_event)->car, Qmenu_bar) |
| 2104 | && !EQ (XCONS (prev_event)->car, Qtoolbar) | 2104 | && !EQ (XCONS (prev_event)->car, Qtool_bar) |
| 2105 | /* Don't bring up a menu if we already have another event. */ | 2105 | /* Don't bring up a menu if we already have another event. */ |
| 2106 | && NILP (Vunread_command_events) | 2106 | && NILP (Vunread_command_events) |
| 2107 | && unread_command_char < 0) | 2107 | && unread_command_char < 0) |
| @@ -2354,7 +2354,7 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu) | |||
| 2354 | posn = POSN_BUFFER_POSN (EVENT_START (c)); | 2354 | posn = POSN_BUFFER_POSN (EVENT_START (c)); |
| 2355 | /* Handle menu-bar events: | 2355 | /* Handle menu-bar events: |
| 2356 | insert the dummy prefix event `menu-bar'. */ | 2356 | insert the dummy prefix event `menu-bar'. */ |
| 2357 | if (EQ (posn, Qmenu_bar) || EQ (posn, Qtoolbar)) | 2357 | if (EQ (posn, Qmenu_bar) || EQ (posn, Qtool_bar)) |
| 2358 | { | 2358 | { |
| 2359 | /* Change menu-bar to (menu-bar) as the event "position". */ | 2359 | /* Change menu-bar to (menu-bar) as the event "position". */ |
| 2360 | POSN_BUFFER_POSN (EVENT_START (c)) = Fcons (posn, Qnil); | 2360 | POSN_BUFFER_POSN (EVENT_START (c)) = Fcons (posn, Qnil); |
| @@ -3185,9 +3185,9 @@ kbd_buffer_get_event (kbp, used_mouse_menu) | |||
| 3185 | beginning of the menu sequence, and we might as well leave | 3185 | beginning of the menu sequence, and we might as well leave |
| 3186 | that as the `event with parameters' for this selection. */ | 3186 | that as the `event with parameters' for this selection. */ |
| 3187 | if ((event->kind == menu_bar_event | 3187 | if ((event->kind == menu_bar_event |
| 3188 | || event->kind == TOOLBAR_EVENT) | 3188 | || event->kind == TOOL_BAR_EVENT) |
| 3189 | && !(CONSP (obj) && EQ (XCONS (obj)->car, Qmenu_bar)) | 3189 | && !(CONSP (obj) && EQ (XCONS (obj)->car, Qmenu_bar)) |
| 3190 | && !(CONSP (obj) && EQ (XCONS (obj)->car, Qtoolbar)) | 3190 | && !(CONSP (obj) && EQ (XCONS (obj)->car, Qtool_bar)) |
| 3191 | && used_mouse_menu) | 3191 | && used_mouse_menu) |
| 3192 | *used_mouse_menu = 1; | 3192 | *used_mouse_menu = 1; |
| 3193 | #endif | 3193 | #endif |
| @@ -4680,7 +4680,7 @@ make_lispy_event (event) | |||
| 4680 | return XCONS (event->frame_or_window)->cdr; | 4680 | return XCONS (event->frame_or_window)->cdr; |
| 4681 | #endif | 4681 | #endif |
| 4682 | 4682 | ||
| 4683 | case TOOLBAR_EVENT: | 4683 | case TOOL_BAR_EVENT: |
| 4684 | { | 4684 | { |
| 4685 | Lisp_Object key; | 4685 | Lisp_Object key; |
| 4686 | if (!CONSP (event->frame_or_window)) | 4686 | if (!CONSP (event->frame_or_window)) |
| @@ -6378,40 +6378,40 @@ parse_menu_item (item, notreal, inmenubar) | |||
| 6378 | Tool-bars | 6378 | Tool-bars |
| 6379 | ***********************************************************************/ | 6379 | ***********************************************************************/ |
| 6380 | 6380 | ||
| 6381 | /* A vector holding toolbar items while they are parsed in function | 6381 | /* A vector holding tool bar items while they are parsed in function |
| 6382 | toolbar_items runs Each item occupies TOOLBAR_ITEM_NSCLOTS | 6382 | tool_bar_items runs Each item occupies TOOL_BAR_ITEM_NSCLOTS elements |
| 6383 | elements in the vector. */ | 6383 | in the vector. */ |
| 6384 | 6384 | ||
| 6385 | static Lisp_Object toolbar_items_vector; | 6385 | static Lisp_Object tool_bar_items_vector; |
| 6386 | 6386 | ||
| 6387 | /* A vector holding the result of parse_toolbar_item. Layout is like | 6387 | /* A vector holding the result of parse_tool_bar_item. Layout is like |
| 6388 | the one for a single item in toolbar_items_vector. */ | 6388 | the one for a single item in tool_bar_items_vector. */ |
| 6389 | 6389 | ||
| 6390 | static Lisp_Object toolbar_item_properties; | 6390 | static Lisp_Object tool_bar_item_properties; |
| 6391 | 6391 | ||
| 6392 | /* Next free index in toolbar_items_vector. */ | 6392 | /* Next free index in tool_bar_items_vector. */ |
| 6393 | 6393 | ||
| 6394 | static int ntoolbar_items; | 6394 | static int ntool_bar_items; |
| 6395 | 6395 | ||
| 6396 | /* The symbols `toolbar', `toolbar-item', and `:image'. */ | 6396 | /* The symbols `tool-bar', and `:image'. */ |
| 6397 | 6397 | ||
| 6398 | extern Lisp_Object Qtoolbar; | 6398 | extern Lisp_Object Qtool_bar; |
| 6399 | Lisp_Object QCimage; | 6399 | Lisp_Object QCimage; |
| 6400 | 6400 | ||
| 6401 | /* Function prototypes. */ | 6401 | /* Function prototypes. */ |
| 6402 | 6402 | ||
| 6403 | static void init_toolbar_items P_ ((Lisp_Object)); | 6403 | static void init_tool_bar_items P_ ((Lisp_Object)); |
| 6404 | static void process_toolbar_item P_ ((Lisp_Object, Lisp_Object)); | 6404 | static void process_tool_bar_item P_ ((Lisp_Object, Lisp_Object)); |
| 6405 | static int parse_toolbar_item P_ ((Lisp_Object, Lisp_Object)); | 6405 | static int parse_tool_bar_item P_ ((Lisp_Object, Lisp_Object)); |
| 6406 | static void append_toolbar_item P_ ((void)); | 6406 | static void append_tool_bar_item P_ ((void)); |
| 6407 | 6407 | ||
| 6408 | 6408 | ||
| 6409 | /* Return a vector of toolbar items for keymaps currently in effect. | 6409 | /* Return a vector of tool bar items for keymaps currently in effect. |
| 6410 | Reuse vector REUSE if non-nil. Return in *NITEMS the number of | 6410 | Reuse vector REUSE if non-nil. Return in *NITEMS the number of |
| 6411 | toolbar items found. */ | 6411 | tool bar items found. */ |
| 6412 | 6412 | ||
| 6413 | Lisp_Object | 6413 | Lisp_Object |
| 6414 | toolbar_items (reuse, nitems) | 6414 | tool_bar_items (reuse, nitems) |
| 6415 | Lisp_Object reuse; | 6415 | Lisp_Object reuse; |
| 6416 | int *nitems; | 6416 | int *nitems; |
| 6417 | { | 6417 | { |
| @@ -6433,8 +6433,8 @@ toolbar_items (reuse, nitems) | |||
| 6433 | oquit = Vinhibit_quit; | 6433 | oquit = Vinhibit_quit; |
| 6434 | Vinhibit_quit = Qt; | 6434 | Vinhibit_quit = Qt; |
| 6435 | 6435 | ||
| 6436 | /* Initialize toolbar_items_vector and protect it from GC. */ | 6436 | /* Initialize tool_bar_items_vector and protect it from GC. */ |
| 6437 | init_toolbar_items (reuse); | 6437 | init_tool_bar_items (reuse); |
| 6438 | 6438 | ||
| 6439 | /* Build list of keymaps in maps. Set nmaps to the number of maps | 6439 | /* Build list of keymaps in maps. Set nmaps to the number of maps |
| 6440 | to process. */ | 6440 | to process. */ |
| @@ -6467,13 +6467,13 @@ toolbar_items (reuse, nitems) | |||
| 6467 | maps[nmaps++] = current_global_map; | 6467 | maps[nmaps++] = current_global_map; |
| 6468 | 6468 | ||
| 6469 | /* Process maps in reverse order and look up in each map the prefix | 6469 | /* Process maps in reverse order and look up in each map the prefix |
| 6470 | key `toolbar'. */ | 6470 | key `tool-bar'. */ |
| 6471 | for (i = nmaps - 1; i >= 0; --i) | 6471 | for (i = nmaps - 1; i >= 0; --i) |
| 6472 | if (!NILP (maps[i])) | 6472 | if (!NILP (maps[i])) |
| 6473 | { | 6473 | { |
| 6474 | Lisp_Object keymap; | 6474 | Lisp_Object keymap; |
| 6475 | 6475 | ||
| 6476 | keymap = get_keyelt (access_keymap (maps[i], Qtoolbar, 1, 1), 0); | 6476 | keymap = get_keyelt (access_keymap (maps[i], Qtool_bar, 1, 1), 0); |
| 6477 | if (!NILP (Fkeymapp (keymap))) | 6477 | if (!NILP (Fkeymapp (keymap))) |
| 6478 | { | 6478 | { |
| 6479 | Lisp_Object tail; | 6479 | Lisp_Object tail; |
| @@ -6483,28 +6483,28 @@ toolbar_items (reuse, nitems) | |||
| 6483 | { | 6483 | { |
| 6484 | Lisp_Object keydef = XCAR (tail); | 6484 | Lisp_Object keydef = XCAR (tail); |
| 6485 | if (CONSP (keydef)) | 6485 | if (CONSP (keydef)) |
| 6486 | process_toolbar_item (XCAR (keydef), XCDR (keydef)); | 6486 | process_tool_bar_item (XCAR (keydef), XCDR (keydef)); |
| 6487 | } | 6487 | } |
| 6488 | } | 6488 | } |
| 6489 | } | 6489 | } |
| 6490 | 6490 | ||
| 6491 | Vinhibit_quit = oquit; | 6491 | Vinhibit_quit = oquit; |
| 6492 | *nitems = ntoolbar_items / TOOLBAR_ITEM_NSLOTS; | 6492 | *nitems = ntool_bar_items / TOOL_BAR_ITEM_NSLOTS; |
| 6493 | return toolbar_items_vector; | 6493 | return tool_bar_items_vector; |
| 6494 | } | 6494 | } |
| 6495 | 6495 | ||
| 6496 | 6496 | ||
| 6497 | /* Process the definition of KEY which is DEF. */ | 6497 | /* Process the definition of KEY which is DEF. */ |
| 6498 | 6498 | ||
| 6499 | static void | 6499 | static void |
| 6500 | process_toolbar_item (key, def) | 6500 | process_tool_bar_item (key, def) |
| 6501 | Lisp_Object key, def; | 6501 | Lisp_Object key, def; |
| 6502 | { | 6502 | { |
| 6503 | int i; | 6503 | int i; |
| 6504 | extern Lisp_Object Qundefined; | 6504 | extern Lisp_Object Qundefined; |
| 6505 | struct gcpro gcpro1, gcpro2; | 6505 | struct gcpro gcpro1, gcpro2; |
| 6506 | 6506 | ||
| 6507 | /* Protect KEY and DEF from GC because parse_toolbar_item may call | 6507 | /* Protect KEY and DEF from GC because parse_tool_bar_item may call |
| 6508 | eval. */ | 6508 | eval. */ |
| 6509 | GCPRO2 (key, def); | 6509 | GCPRO2 (key, def); |
| 6510 | 6510 | ||
| @@ -6512,32 +6512,32 @@ process_toolbar_item (key, def) | |||
| 6512 | { | 6512 | { |
| 6513 | /* If a map has an explicit `undefined' as definition, | 6513 | /* If a map has an explicit `undefined' as definition, |
| 6514 | discard any previously made item. */ | 6514 | discard any previously made item. */ |
| 6515 | for (i = 0; i < ntoolbar_items; i += TOOLBAR_ITEM_NSLOTS) | 6515 | for (i = 0; i < ntool_bar_items; i += TOOL_BAR_ITEM_NSLOTS) |
| 6516 | { | 6516 | { |
| 6517 | Lisp_Object *v = XVECTOR (toolbar_items_vector)->contents + i; | 6517 | Lisp_Object *v = XVECTOR (tool_bar_items_vector)->contents + i; |
| 6518 | 6518 | ||
| 6519 | if (EQ (key, v[TOOLBAR_ITEM_KEY])) | 6519 | if (EQ (key, v[TOOL_BAR_ITEM_KEY])) |
| 6520 | { | 6520 | { |
| 6521 | if (ntoolbar_items > i + TOOLBAR_ITEM_NSLOTS) | 6521 | if (ntool_bar_items > i + TOOL_BAR_ITEM_NSLOTS) |
| 6522 | bcopy (v + TOOLBAR_ITEM_NSLOTS, v, | 6522 | bcopy (v + TOOL_BAR_ITEM_NSLOTS, v, |
| 6523 | ((ntoolbar_items - i - TOOLBAR_ITEM_NSLOTS) | 6523 | ((ntool_bar_items - i - TOOL_BAR_ITEM_NSLOTS) |
| 6524 | * sizeof (Lisp_Object))); | 6524 | * sizeof (Lisp_Object))); |
| 6525 | ntoolbar_items -= TOOLBAR_ITEM_NSLOTS; | 6525 | ntool_bar_items -= TOOL_BAR_ITEM_NSLOTS; |
| 6526 | break; | 6526 | break; |
| 6527 | } | 6527 | } |
| 6528 | } | 6528 | } |
| 6529 | } | 6529 | } |
| 6530 | else if (parse_toolbar_item (key, def)) | 6530 | else if (parse_tool_bar_item (key, def)) |
| 6531 | /* Append a new toolbar item to toolbar_items_vector. Accept | 6531 | /* Append a new tool bar item to tool_bar_items_vector. Accept |
| 6532 | more than one definition for the same key. */ | 6532 | more than one definition for the same key. */ |
| 6533 | append_toolbar_item (); | 6533 | append_tool_bar_item (); |
| 6534 | 6534 | ||
| 6535 | UNGCPRO; | 6535 | UNGCPRO; |
| 6536 | } | 6536 | } |
| 6537 | 6537 | ||
| 6538 | 6538 | ||
| 6539 | /* Parse a toolbar item specification ITEM for key KEY and return the | 6539 | /* Parse a tool bar item specification ITEM for key KEY and return the |
| 6540 | result in toolbar_item_properties. Value is zero if ITEM is | 6540 | result in tool_bar_item_properties. Value is zero if ITEM is |
| 6541 | invalid. | 6541 | invalid. |
| 6542 | 6542 | ||
| 6543 | ITEM is a list `(menu-item CAPTION BINDING PROPS...)'. | 6543 | ITEM is a list `(menu-item CAPTION BINDING PROPS...)'. |
| @@ -6545,19 +6545,19 @@ process_toolbar_item (key, def) | |||
| 6545 | CAPTION is the caption of the item, If it's not a string, it is | 6545 | CAPTION is the caption of the item, If it's not a string, it is |
| 6546 | evaluated to get a string. | 6546 | evaluated to get a string. |
| 6547 | 6547 | ||
| 6548 | BINDING is the toolbar item's binding. Toolbar items with keymaps | 6548 | BINDING is the tool bar item's binding. Tool-bar items with keymaps |
| 6549 | as binding are currently ignored. | 6549 | as binding are currently ignored. |
| 6550 | 6550 | ||
| 6551 | The following properties are recognized: | 6551 | The following properties are recognized: |
| 6552 | 6552 | ||
| 6553 | - `:enable FORM'. | 6553 | - `:enable FORM'. |
| 6554 | 6554 | ||
| 6555 | FORM is evaluated and specifies whether the toolbar item is enabled | 6555 | FORM is evaluated and specifies whether the tool bar item is |
| 6556 | or disabled. | 6556 | enabled or disabled. |
| 6557 | 6557 | ||
| 6558 | - `:visible FORM' | 6558 | - `:visible FORM' |
| 6559 | 6559 | ||
| 6560 | FORM is evaluated and specifies whether the toolbar item is visible. | 6560 | FORM is evaluated and specifies whether the tool bar item is visible. |
| 6561 | 6561 | ||
| 6562 | - `:filter FUNCTION' | 6562 | - `:filter FUNCTION' |
| 6563 | 6563 | ||
| @@ -6572,18 +6572,18 @@ process_toolbar_item (key, def) | |||
| 6572 | - `:image IMAGES' | 6572 | - `:image IMAGES' |
| 6573 | 6573 | ||
| 6574 | IMAGES is either a single image specification or a vector of four | 6574 | IMAGES is either a single image specification or a vector of four |
| 6575 | image specifications. See enum toolbar_item_images. | 6575 | image specifications. See enum tool_bar_item_images. |
| 6576 | 6576 | ||
| 6577 | - `:help HELP-STRING'. | 6577 | - `:help HELP-STRING'. |
| 6578 | 6578 | ||
| 6579 | Gives a help string to display for the toolbar item. */ | 6579 | Gives a help string to display for the tool bar item. */ |
| 6580 | 6580 | ||
| 6581 | static int | 6581 | static int |
| 6582 | parse_toolbar_item (key, item) | 6582 | parse_tool_bar_item (key, item) |
| 6583 | Lisp_Object key, item; | 6583 | Lisp_Object key, item; |
| 6584 | { | 6584 | { |
| 6585 | /* Access slot with index IDX of vector toolbar_item_properties. */ | 6585 | /* Access slot with index IDX of vector tool_bar_item_properties. */ |
| 6586 | #define PROP(IDX) XVECTOR (toolbar_item_properties)->contents[IDX] | 6586 | #define PROP(IDX) XVECTOR (tool_bar_item_properties)->contents[IDX] |
| 6587 | 6587 | ||
| 6588 | Lisp_Object filter = Qnil; | 6588 | Lisp_Object filter = Qnil; |
| 6589 | Lisp_Object caption; | 6589 | Lisp_Object caption; |
| @@ -6592,9 +6592,9 @@ parse_toolbar_item (key, item) | |||
| 6592 | int i; | 6592 | int i; |
| 6593 | struct gcpro gcpro1; | 6593 | struct gcpro gcpro1; |
| 6594 | 6594 | ||
| 6595 | /* Defininition looks like `(toolbar-item CAPTION BINDING | 6595 | /* Defininition looks like `(tool-bar-item CAPTION BINDING |
| 6596 | PROPS...)'. Rule out items that aren't lists, don't start with | 6596 | PROPS...)'. Rule out items that aren't lists, don't start with |
| 6597 | `toolbar-item' or whose rest following `toolbar-item' is not a | 6597 | `tool-bar-item' or whose rest following `tool-bar-item' is not a |
| 6598 | list. */ | 6598 | list. */ |
| 6599 | if (!CONSP (item) | 6599 | if (!CONSP (item) |
| 6600 | || !EQ (XCAR (item), Qmenu_item) | 6600 | || !EQ (XCAR (item), Qmenu_item) |
| @@ -6602,20 +6602,20 @@ parse_toolbar_item (key, item) | |||
| 6602 | !CONSP (item))) | 6602 | !CONSP (item))) |
| 6603 | return 0; | 6603 | return 0; |
| 6604 | 6604 | ||
| 6605 | /* Create toolbar_item_properties vector if necessary. Reset it to | 6605 | /* Create tool_bar_item_properties vector if necessary. Reset it to |
| 6606 | defaults. */ | 6606 | defaults. */ |
| 6607 | if (VECTORP (toolbar_item_properties)) | 6607 | if (VECTORP (tool_bar_item_properties)) |
| 6608 | { | 6608 | { |
| 6609 | for (i = 0; i < TOOLBAR_ITEM_NSLOTS; ++i) | 6609 | for (i = 0; i < TOOL_BAR_ITEM_NSLOTS; ++i) |
| 6610 | PROP (i) = Qnil; | 6610 | PROP (i) = Qnil; |
| 6611 | } | 6611 | } |
| 6612 | else | 6612 | else |
| 6613 | toolbar_item_properties | 6613 | tool_bar_item_properties |
| 6614 | = Fmake_vector (make_number (TOOLBAR_ITEM_NSLOTS), Qnil); | 6614 | = Fmake_vector (make_number (TOOL_BAR_ITEM_NSLOTS), Qnil); |
| 6615 | 6615 | ||
| 6616 | /* Set defaults. */ | 6616 | /* Set defaults. */ |
| 6617 | PROP (TOOLBAR_ITEM_KEY) = key; | 6617 | PROP (TOOL_BAR_ITEM_KEY) = key; |
| 6618 | PROP (TOOLBAR_ITEM_ENABLED_P) = Qt; | 6618 | PROP (TOOL_BAR_ITEM_ENABLED_P) = Qt; |
| 6619 | 6619 | ||
| 6620 | /* Get the caption of the item. If the caption is not a string, | 6620 | /* Get the caption of the item. If the caption is not a string, |
| 6621 | evaluate it to get a string. If we don't get a string, skip this | 6621 | evaluate it to get a string. If we don't get a string, skip this |
| @@ -6627,7 +6627,7 @@ parse_toolbar_item (key, item) | |||
| 6627 | if (!STRINGP (caption)) | 6627 | if (!STRINGP (caption)) |
| 6628 | return 0; | 6628 | return 0; |
| 6629 | } | 6629 | } |
| 6630 | PROP (TOOLBAR_ITEM_CAPTION) = caption; | 6630 | PROP (TOOL_BAR_ITEM_CAPTION) = caption; |
| 6631 | 6631 | ||
| 6632 | /* Give up if rest following the caption is not a list. */ | 6632 | /* Give up if rest following the caption is not a list. */ |
| 6633 | item = XCDR (item); | 6633 | item = XCDR (item); |
| @@ -6635,7 +6635,7 @@ parse_toolbar_item (key, item) | |||
| 6635 | return 0; | 6635 | return 0; |
| 6636 | 6636 | ||
| 6637 | /* Store the binding. */ | 6637 | /* Store the binding. */ |
| 6638 | PROP (TOOLBAR_ITEM_BINDING) = XCAR (item); | 6638 | PROP (TOOL_BAR_ITEM_BINDING) = XCAR (item); |
| 6639 | item = XCDR (item); | 6639 | item = XCDR (item); |
| 6640 | 6640 | ||
| 6641 | /* Process the rest of the properties. */ | 6641 | /* Process the rest of the properties. */ |
| @@ -6648,7 +6648,7 @@ parse_toolbar_item (key, item) | |||
| 6648 | 6648 | ||
| 6649 | if (EQ (key, QCenable)) | 6649 | if (EQ (key, QCenable)) |
| 6650 | /* `:enable FORM'. */ | 6650 | /* `:enable FORM'. */ |
| 6651 | PROP (TOOLBAR_ITEM_ENABLED_P) = value; | 6651 | PROP (TOOL_BAR_ITEM_ENABLED_P) = value; |
| 6652 | else if (EQ (key, QCvisible)) | 6652 | else if (EQ (key, QCvisible)) |
| 6653 | { | 6653 | { |
| 6654 | /* `:visible FORM'. If got a visible property and that | 6654 | /* `:visible FORM'. If got a visible property and that |
| @@ -6658,7 +6658,7 @@ parse_toolbar_item (key, item) | |||
| 6658 | } | 6658 | } |
| 6659 | else if (EQ (key, QChelp)) | 6659 | else if (EQ (key, QChelp)) |
| 6660 | /* `:help HELP-STRING'. */ | 6660 | /* `:help HELP-STRING'. */ |
| 6661 | PROP (TOOLBAR_ITEM_HELP) = value; | 6661 | PROP (TOOL_BAR_ITEM_HELP) = value; |
| 6662 | else if (EQ (key, QCfilter)) | 6662 | else if (EQ (key, QCfilter)) |
| 6663 | /* ':filter FORM'. */ | 6663 | /* ':filter FORM'. */ |
| 6664 | filter = value; | 6664 | filter = value; |
| @@ -6671,8 +6671,8 @@ parse_toolbar_item (key, item) | |||
| 6671 | selected = XCDR (value); | 6671 | selected = XCDR (value); |
| 6672 | if (EQ (type, QCtoggle) || EQ (type, QCradio)) | 6672 | if (EQ (type, QCtoggle) || EQ (type, QCradio)) |
| 6673 | { | 6673 | { |
| 6674 | PROP (TOOLBAR_ITEM_SELECTED_P) = selected; | 6674 | PROP (TOOL_BAR_ITEM_SELECTED_P) = selected; |
| 6675 | PROP (TOOLBAR_ITEM_TYPE) = type; | 6675 | PROP (TOOL_BAR_ITEM_TYPE) = type; |
| 6676 | } | 6676 | } |
| 6677 | } | 6677 | } |
| 6678 | else if (EQ (key, QCimage) | 6678 | else if (EQ (key, QCimage) |
| @@ -6680,29 +6680,29 @@ parse_toolbar_item (key, item) | |||
| 6680 | || (VECTORP (value) && XVECTOR (value)->size == 4))) | 6680 | || (VECTORP (value) && XVECTOR (value)->size == 4))) |
| 6681 | /* Value is either a single image specification or a vector | 6681 | /* Value is either a single image specification or a vector |
| 6682 | of 4 such specifications for the different buttion states. */ | 6682 | of 4 such specifications for the different buttion states. */ |
| 6683 | PROP (TOOLBAR_ITEM_IMAGES) = value; | 6683 | PROP (TOOL_BAR_ITEM_IMAGES) = value; |
| 6684 | } | 6684 | } |
| 6685 | 6685 | ||
| 6686 | /* If got a filter apply it on binding. */ | 6686 | /* If got a filter apply it on binding. */ |
| 6687 | if (!NILP (filter)) | 6687 | if (!NILP (filter)) |
| 6688 | PROP (TOOLBAR_ITEM_BINDING) | 6688 | PROP (TOOL_BAR_ITEM_BINDING) |
| 6689 | = menu_item_eval_property (list2 (filter, | 6689 | = menu_item_eval_property (list2 (filter, |
| 6690 | list2 (Qquote, | 6690 | list2 (Qquote, |
| 6691 | PROP (TOOLBAR_ITEM_BINDING)))); | 6691 | PROP (TOOL_BAR_ITEM_BINDING)))); |
| 6692 | 6692 | ||
| 6693 | /* See if the binding is a keymap. Give up if it is. */ | 6693 | /* See if the binding is a keymap. Give up if it is. */ |
| 6694 | if (!NILP (get_keymap_1 (PROP (TOOLBAR_ITEM_BINDING), 0, 1))) | 6694 | if (!NILP (get_keymap_1 (PROP (TOOL_BAR_ITEM_BINDING), 0, 1))) |
| 6695 | return 0; | 6695 | return 0; |
| 6696 | 6696 | ||
| 6697 | /* Enable or disable selection of item. */ | 6697 | /* Enable or disable selection of item. */ |
| 6698 | if (!EQ (PROP (TOOLBAR_ITEM_ENABLED_P), Qt)) | 6698 | if (!EQ (PROP (TOOL_BAR_ITEM_ENABLED_P), Qt)) |
| 6699 | PROP (TOOLBAR_ITEM_ENABLED_P) | 6699 | PROP (TOOL_BAR_ITEM_ENABLED_P) |
| 6700 | = menu_item_eval_property (PROP (TOOLBAR_ITEM_ENABLED_P)); | 6700 | = menu_item_eval_property (PROP (TOOL_BAR_ITEM_ENABLED_P)); |
| 6701 | 6701 | ||
| 6702 | /* Handle radio buttons or toggle boxes. */ | 6702 | /* Handle radio buttons or toggle boxes. */ |
| 6703 | if (!NILP (PROP (TOOLBAR_ITEM_SELECTED_P))) | 6703 | if (!NILP (PROP (TOOL_BAR_ITEM_SELECTED_P))) |
| 6704 | PROP (TOOLBAR_ITEM_SELECTED_P) | 6704 | PROP (TOOL_BAR_ITEM_SELECTED_P) |
| 6705 | = menu_item_eval_property (PROP (TOOLBAR_ITEM_SELECTED_P)); | 6705 | = menu_item_eval_property (PROP (TOOL_BAR_ITEM_SELECTED_P)); |
| 6706 | 6706 | ||
| 6707 | return 1; | 6707 | return 1; |
| 6708 | 6708 | ||
| @@ -6710,48 +6710,49 @@ parse_toolbar_item (key, item) | |||
| 6710 | } | 6710 | } |
| 6711 | 6711 | ||
| 6712 | 6712 | ||
| 6713 | /* Initialize Vtoolbar_items. REUSE, if non-nil, is a vector that can | 6713 | /* Initialize tool_bar_items_vector. REUSE, if non-nil, is a vector |
| 6714 | be reused. */ | 6714 | that can be reused. */ |
| 6715 | 6715 | ||
| 6716 | static void | 6716 | static void |
| 6717 | init_toolbar_items (reuse) | 6717 | init_tool_bar_items (reuse) |
| 6718 | Lisp_Object reuse; | 6718 | Lisp_Object reuse; |
| 6719 | { | 6719 | { |
| 6720 | if (VECTORP (reuse)) | 6720 | if (VECTORP (reuse)) |
| 6721 | toolbar_items_vector = reuse; | 6721 | tool_bar_items_vector = reuse; |
| 6722 | else | 6722 | else |
| 6723 | toolbar_items_vector = Fmake_vector (make_number (64), Qnil); | 6723 | tool_bar_items_vector = Fmake_vector (make_number (64), Qnil); |
| 6724 | ntoolbar_items = 0; | 6724 | ntool_bar_items = 0; |
| 6725 | } | 6725 | } |
| 6726 | 6726 | ||
| 6727 | 6727 | ||
| 6728 | /* Append parsed toolbar item properties from toolbar_item_properties */ | 6728 | /* Append parsed tool bar item properties from |
| 6729 | tool_bar_item_properties */ | ||
| 6729 | 6730 | ||
| 6730 | static void | 6731 | static void |
| 6731 | append_toolbar_item () | 6732 | append_tool_bar_item () |
| 6732 | { | 6733 | { |
| 6733 | Lisp_Object *to, *from; | 6734 | Lisp_Object *to, *from; |
| 6734 | 6735 | ||
| 6735 | /* Enlarge toolbar_items_vector if necessary. */ | 6736 | /* Enlarge tool_bar_items_vector if necessary. */ |
| 6736 | if (ntoolbar_items + TOOLBAR_ITEM_NSLOTS | 6737 | if (ntool_bar_items + TOOL_BAR_ITEM_NSLOTS |
| 6737 | >= XVECTOR (toolbar_items_vector)->size) | 6738 | >= XVECTOR (tool_bar_items_vector)->size) |
| 6738 | { | 6739 | { |
| 6739 | Lisp_Object new_vector; | 6740 | Lisp_Object new_vector; |
| 6740 | int old_size = XVECTOR (toolbar_items_vector)->size; | 6741 | int old_size = XVECTOR (tool_bar_items_vector)->size; |
| 6741 | 6742 | ||
| 6742 | new_vector = Fmake_vector (make_number (2 * old_size), Qnil); | 6743 | new_vector = Fmake_vector (make_number (2 * old_size), Qnil); |
| 6743 | bcopy (XVECTOR (toolbar_items_vector)->contents, | 6744 | bcopy (XVECTOR (tool_bar_items_vector)->contents, |
| 6744 | XVECTOR (new_vector)->contents, | 6745 | XVECTOR (new_vector)->contents, |
| 6745 | old_size * sizeof (Lisp_Object)); | 6746 | old_size * sizeof (Lisp_Object)); |
| 6746 | toolbar_items_vector = new_vector; | 6747 | tool_bar_items_vector = new_vector; |
| 6747 | } | 6748 | } |
| 6748 | 6749 | ||
| 6749 | /* Append entries from toolbar_item_properties to the end of | 6750 | /* Append entries from tool_bar_item_properties to the end of |
| 6750 | toolbar_items_vector. */ | 6751 | tool_bar_items_vector. */ |
| 6751 | to = XVECTOR (toolbar_items_vector)->contents + ntoolbar_items; | 6752 | to = XVECTOR (tool_bar_items_vector)->contents + ntool_bar_items; |
| 6752 | from = XVECTOR (toolbar_item_properties)->contents; | 6753 | from = XVECTOR (tool_bar_item_properties)->contents; |
| 6753 | bcopy (from, to, TOOLBAR_ITEM_NSLOTS * sizeof *to); | 6754 | bcopy (from, to, TOOL_BAR_ITEM_NSLOTS * sizeof *to); |
| 6754 | ntoolbar_items += TOOLBAR_ITEM_NSLOTS; | 6755 | ntool_bar_items += TOOL_BAR_ITEM_NSLOTS; |
| 6755 | } | 6756 | } |
| 6756 | 6757 | ||
| 6757 | 6758 | ||
| @@ -6821,7 +6822,7 @@ read_char_x_menu_prompt (nmaps, maps, prev_event, used_mouse_menu) | |||
| 6821 | use a real menu for mouse selection. */ | 6822 | use a real menu for mouse selection. */ |
| 6822 | if (EVENT_HAS_PARAMETERS (prev_event) | 6823 | if (EVENT_HAS_PARAMETERS (prev_event) |
| 6823 | && !EQ (XCONS (prev_event)->car, Qmenu_bar) | 6824 | && !EQ (XCONS (prev_event)->car, Qmenu_bar) |
| 6824 | && !EQ (XCONS (prev_event)->car, Qtoolbar)) | 6825 | && !EQ (XCONS (prev_event)->car, Qtool_bar)) |
| 6825 | { | 6826 | { |
| 6826 | /* Display the menu and get the selection. */ | 6827 | /* Display the menu and get the selection. */ |
| 6827 | Lisp_Object *realmaps | 6828 | Lisp_Object *realmaps |
| @@ -7786,7 +7787,7 @@ read_key_sequence (keybuf, bufsize, prompt, dont_downcase_last, | |||
| 7786 | posn = POSN_BUFFER_POSN (EVENT_START (key)); | 7787 | posn = POSN_BUFFER_POSN (EVENT_START (key)); |
| 7787 | /* Handle menu-bar events: | 7788 | /* Handle menu-bar events: |
| 7788 | insert the dummy prefix event `menu-bar'. */ | 7789 | insert the dummy prefix event `menu-bar'. */ |
| 7789 | if (EQ (posn, Qmenu_bar) || EQ (posn, Qtoolbar)) | 7790 | if (EQ (posn, Qmenu_bar) || EQ (posn, Qtool_bar)) |
| 7790 | { | 7791 | { |
| 7791 | if (t + 1 >= bufsize) | 7792 | if (t + 1 >= bufsize) |
| 7792 | error ("Key sequence too long"); | 7793 | error ("Key sequence too long"); |
| @@ -9520,7 +9521,7 @@ struct event_head head_table[] = { | |||
| 9520 | void | 9521 | void |
| 9521 | syms_of_keyboard () | 9522 | syms_of_keyboard () |
| 9522 | { | 9523 | { |
| 9523 | /* Toolbars. */ | 9524 | /* Tool-bars. */ |
| 9524 | QCimage = intern (":image"); | 9525 | QCimage = intern (":image"); |
| 9525 | staticpro (&QCimage); | 9526 | staticpro (&QCimage); |
| 9526 | 9527 | ||
| @@ -9530,10 +9531,10 @@ syms_of_keyboard () | |||
| 9530 | staticpro (&item_properties); | 9531 | staticpro (&item_properties); |
| 9531 | item_properties = Qnil; | 9532 | item_properties = Qnil; |
| 9532 | 9533 | ||
| 9533 | staticpro (&toolbar_item_properties); | 9534 | staticpro (&tool_bar_item_properties); |
| 9534 | toolbar_item_properties = Qnil; | 9535 | tool_bar_item_properties = Qnil; |
| 9535 | staticpro (&toolbar_items_vector); | 9536 | staticpro (&tool_bar_items_vector); |
| 9536 | toolbar_items_vector = Qnil; | 9537 | tool_bar_items_vector = Qnil; |
| 9537 | 9538 | ||
| 9538 | staticpro (&real_this_command); | 9539 | staticpro (&real_this_command); |
| 9539 | real_this_command = Qnil; | 9540 | real_this_command = Qnil; |
diff --git a/src/lisp.h b/src/lisp.h index af764661045..c5810228a17 100644 --- a/src/lisp.h +++ b/src/lisp.h | |||
| @@ -2357,7 +2357,7 @@ EXFUN (Frecursive_edit, 0); | |||
| 2357 | EXFUN (Fcommand_execute, 4); | 2357 | EXFUN (Fcommand_execute, 4); |
| 2358 | EXFUN (Finput_pending_p, 0); | 2358 | EXFUN (Finput_pending_p, 0); |
| 2359 | extern Lisp_Object menu_bar_items P_ ((Lisp_Object)); | 2359 | extern Lisp_Object menu_bar_items P_ ((Lisp_Object)); |
| 2360 | extern Lisp_Object toolbar_items P_ ((Lisp_Object, int *)); | 2360 | extern Lisp_Object tool_bar_items P_ ((Lisp_Object, int *)); |
| 2361 | extern Lisp_Object Qvertical_scroll_bar; | 2361 | extern Lisp_Object Qvertical_scroll_bar; |
| 2362 | extern void discard_mouse_events (); | 2362 | extern void discard_mouse_events (); |
| 2363 | EXFUN (Fevent_convert_list, 1); | 2363 | EXFUN (Fevent_convert_list, 1); |
| @@ -2639,7 +2639,7 @@ extern void syms_of_xfaces P_ ((void)); | |||
| 2639 | 2639 | ||
| 2640 | #ifdef HAVE_X_WINDOWS | 2640 | #ifdef HAVE_X_WINDOWS |
| 2641 | /* Defined in xfns.c */ | 2641 | /* Defined in xfns.c */ |
| 2642 | extern void x_set_toolbar_lines P_ ((struct frame *, Lisp_Object, Lisp_Object)); | 2642 | extern void x_set_tool_bar_lines P_ ((struct frame *, Lisp_Object, Lisp_Object)); |
| 2643 | extern void syms_of_xfns P_ ((void)); | 2643 | extern void syms_of_xfns P_ ((void)); |
| 2644 | #endif | 2644 | #endif |
| 2645 | 2645 | ||
diff --git a/src/termhooks.h b/src/termhooks.h index 3f7fcd5bc4f..3cbc6dc2c05 100644 --- a/src/termhooks.h +++ b/src/termhooks.h | |||
| @@ -307,13 +307,13 @@ enum event_kind | |||
| 307 | .code is a number identifying it, | 307 | .code is a number identifying it, |
| 308 | index into lispy_user_signals. */ | 308 | index into lispy_user_signals. */ |
| 309 | 309 | ||
| 310 | /* Currently only returned when the mouse enters a toolbar item that | 310 | /* Currently only returned when the mouse enters a tool-bar item that |
| 311 | has a help string. Member frame_or_window of the input_event is | 311 | has a help string. Member frame_or_window of the input_event is |
| 312 | a cons cell whose car is the toolbar's frame and whose cdr is the | 312 | a cons cell whose car is the tool-bar's frame and whose cdr is the |
| 313 | help string. */ | 313 | help string. */ |
| 314 | HELP_EVENT, | 314 | HELP_EVENT, |
| 315 | 315 | ||
| 316 | TOOLBAR_EVENT | 316 | TOOL_BAR_EVENT |
| 317 | }; | 317 | }; |
| 318 | 318 | ||
| 319 | /* If a struct input_event has a kind which is selection_request_event | 319 | /* If a struct input_event has a kind which is selection_request_event |
diff --git a/src/window.c b/src/window.c index e5cb271642d..6bef8fe928b 100644 --- a/src/window.c +++ b/src/window.c | |||
| @@ -581,14 +581,14 @@ If they are on the border between WINDOW and its right sibling,\n\ | |||
| 581 | set *PART to 1; if it is on the separating line between the window | 581 | set *PART to 1; if it is on the separating line between the window |
| 582 | and its right sibling, set it to 2; otherwise set it to 0. If | 582 | and its right sibling, set it to 2; otherwise set it to 0. If |
| 583 | there is no window under X, Y return nil and leave *PART | 583 | there is no window under X, Y return nil and leave *PART |
| 584 | unmodified. TOOLBAR_P non-zero means detect toolbar windows. */ | 584 | unmodified. TOOL_BAR_P non-zero means detect tool-bar windows. */ |
| 585 | 585 | ||
| 586 | Lisp_Object | 586 | Lisp_Object |
| 587 | window_from_coordinates (frame, x, y, part, toolbar_p) | 587 | window_from_coordinates (frame, x, y, part, tool_bar_p) |
| 588 | FRAME_PTR frame; | 588 | FRAME_PTR frame; |
| 589 | int x, y; | 589 | int x, y; |
| 590 | int *part; | 590 | int *part; |
| 591 | int toolbar_p; | 591 | int tool_bar_p; |
| 592 | { | 592 | { |
| 593 | register Lisp_Object tem, first; | 593 | register Lisp_Object tem, first; |
| 594 | int found; | 594 | int found; |
| @@ -609,14 +609,14 @@ window_from_coordinates (frame, x, y, part, toolbar_p) | |||
| 609 | } | 609 | } |
| 610 | while (!EQ (tem, first)); | 610 | while (!EQ (tem, first)); |
| 611 | 611 | ||
| 612 | /* See if it's in the toolbar window, if a toolbar exists. */ | 612 | /* See if it's in the tool bar window, if a tool bar exists. */ |
| 613 | if (toolbar_p | 613 | if (tool_bar_p |
| 614 | && WINDOWP (frame->toolbar_window) | 614 | && WINDOWP (frame->tool_bar_window) |
| 615 | && XFASTINT (XWINDOW (frame->toolbar_window)->height) | 615 | && XFASTINT (XWINDOW (frame->tool_bar_window)->height) |
| 616 | && coordinates_in_window (XWINDOW (frame->toolbar_window), &x, &y)) | 616 | && coordinates_in_window (XWINDOW (frame->tool_bar_window), &x, &y)) |
| 617 | { | 617 | { |
| 618 | *part = 0; | 618 | *part = 0; |
| 619 | return frame->toolbar_window; | 619 | return frame->tool_bar_window; |
| 620 | } | 620 | } |
| 621 | 621 | ||
| 622 | return Qnil; | 622 | return Qnil; |
| @@ -3976,7 +3976,7 @@ struct save_window_data | |||
| 3976 | EMACS_INT size_from_Lisp_Vector_struct; | 3976 | EMACS_INT size_from_Lisp_Vector_struct; |
| 3977 | struct Lisp_Vector *next_from_Lisp_Vector_struct; | 3977 | struct Lisp_Vector *next_from_Lisp_Vector_struct; |
| 3978 | Lisp_Object frame_width, frame_height, frame_menu_bar_lines; | 3978 | Lisp_Object frame_width, frame_height, frame_menu_bar_lines; |
| 3979 | Lisp_Object frame_toolbar_lines; | 3979 | Lisp_Object frame_tool_bar_lines; |
| 3980 | Lisp_Object selected_frame; | 3980 | Lisp_Object selected_frame; |
| 3981 | Lisp_Object current_window; | 3981 | Lisp_Object current_window; |
| 3982 | Lisp_Object current_buffer; | 3982 | Lisp_Object current_buffer; |
| @@ -4091,7 +4091,7 @@ the return value is nil. Otherwise the value is t.") | |||
| 4091 | int previous_frame_height = FRAME_HEIGHT (f); | 4091 | int previous_frame_height = FRAME_HEIGHT (f); |
| 4092 | int previous_frame_width = FRAME_WIDTH (f); | 4092 | int previous_frame_width = FRAME_WIDTH (f); |
| 4093 | int previous_frame_menu_bar_lines = FRAME_MENU_BAR_LINES (f); | 4093 | int previous_frame_menu_bar_lines = FRAME_MENU_BAR_LINES (f); |
| 4094 | int previous_frame_toolbar_lines = FRAME_TOOLBAR_LINES (f); | 4094 | int previous_frame_tool_bar_lines = FRAME_TOOL_BAR_LINES (f); |
| 4095 | 4095 | ||
| 4096 | /* The mouse highlighting code could get screwed up | 4096 | /* The mouse highlighting code could get screwed up |
| 4097 | if it runs during this. */ | 4097 | if it runs during this. */ |
| @@ -4106,9 +4106,9 @@ the return value is nil. Otherwise the value is t.") | |||
| 4106 | != previous_frame_menu_bar_lines) | 4106 | != previous_frame_menu_bar_lines) |
| 4107 | x_set_menu_bar_lines (f, data->frame_menu_bar_lines, make_number (0)); | 4107 | x_set_menu_bar_lines (f, data->frame_menu_bar_lines, make_number (0)); |
| 4108 | #ifdef HAVE_WINDOW_SYSTEM | 4108 | #ifdef HAVE_WINDOW_SYSTEM |
| 4109 | if (XFASTINT (data->frame_toolbar_lines) | 4109 | if (XFASTINT (data->frame_tool_bar_lines) |
| 4110 | != previous_frame_toolbar_lines) | 4110 | != previous_frame_tool_bar_lines) |
| 4111 | x_set_toolbar_lines (f, data->frame_toolbar_lines, make_number (0)); | 4111 | x_set_tool_bar_lines (f, data->frame_tool_bar_lines, make_number (0)); |
| 4112 | #endif | 4112 | #endif |
| 4113 | #endif | 4113 | #endif |
| 4114 | 4114 | ||
| @@ -4273,9 +4273,9 @@ the return value is nil. Otherwise the value is t.") | |||
| 4273 | x_set_menu_bar_lines (f, make_number (previous_frame_menu_bar_lines), | 4273 | x_set_menu_bar_lines (f, make_number (previous_frame_menu_bar_lines), |
| 4274 | make_number (0)); | 4274 | make_number (0)); |
| 4275 | #ifdef HAVE_WINDOW_SYSTEM | 4275 | #ifdef HAVE_WINDOW_SYSTEM |
| 4276 | if (previous_frame_toolbar_lines != FRAME_TOOLBAR_LINES (f)) | 4276 | if (previous_frame_tool_bar_lines != FRAME_TOOL_BAR_LINES (f)) |
| 4277 | x_set_toolbar_lines (f, make_number (previous_frame_toolbar_lines), | 4277 | x_set_tool_bar_lines (f, make_number (previous_frame_tool_bar_lines), |
| 4278 | make_number (0)); | 4278 | make_number (0)); |
| 4279 | #endif | 4279 | #endif |
| 4280 | #endif | 4280 | #endif |
| 4281 | 4281 | ||
| @@ -4529,7 +4529,7 @@ redirection (see `redirect-frame-focus').") | |||
| 4529 | XSETFASTINT (data->frame_width, FRAME_WIDTH (f)); | 4529 | XSETFASTINT (data->frame_width, FRAME_WIDTH (f)); |
| 4530 | XSETFASTINT (data->frame_height, FRAME_HEIGHT (f)); | 4530 | XSETFASTINT (data->frame_height, FRAME_HEIGHT (f)); |
| 4531 | XSETFASTINT (data->frame_menu_bar_lines, FRAME_MENU_BAR_LINES (f)); | 4531 | XSETFASTINT (data->frame_menu_bar_lines, FRAME_MENU_BAR_LINES (f)); |
| 4532 | XSETFASTINT (data->frame_toolbar_lines, FRAME_TOOLBAR_LINES (f)); | 4532 | XSETFASTINT (data->frame_tool_bar_lines, FRAME_TOOL_BAR_LINES (f)); |
| 4533 | XSETFRAME (data->selected_frame, selected_frame); | 4533 | XSETFRAME (data->selected_frame, selected_frame); |
| 4534 | data->current_window = FRAME_SELECTED_WINDOW (f); | 4534 | data->current_window = FRAME_SELECTED_WINDOW (f); |
| 4535 | XSETBUFFER (data->current_buffer, current_buffer); | 4535 | XSETBUFFER (data->current_buffer, current_buffer); |
diff --git a/src/xfaces.c b/src/xfaces.c index 96ed047cb7c..9efdfb4574e 100644 --- a/src/xfaces.c +++ b/src/xfaces.c | |||
| @@ -280,7 +280,7 @@ Lisp_Object Qx_charset_registry; | |||
| 280 | 280 | ||
| 281 | /* Names of basic faces. */ | 281 | /* Names of basic faces. */ |
| 282 | 282 | ||
| 283 | Lisp_Object Qdefault, Qmodeline, Qtoolbar, Qregion, Qmargin; | 283 | Lisp_Object Qdefault, Qmodeline, Qtool_bar, Qregion, Qmargin; |
| 284 | Lisp_Object Qtop_line; | 284 | Lisp_Object Qtop_line; |
| 285 | 285 | ||
| 286 | /* Default stipple pattern used on monochrome displays. This stipple | 286 | /* Default stipple pattern used on monochrome displays. This stipple |
| @@ -5130,7 +5130,7 @@ realize_basic_faces (f) | |||
| 5130 | if (realize_default_face (f)) | 5130 | if (realize_default_face (f)) |
| 5131 | { | 5131 | { |
| 5132 | realize_named_face (f, Qmodeline, MODE_LINE_FACE_ID); | 5132 | realize_named_face (f, Qmodeline, MODE_LINE_FACE_ID); |
| 5133 | realize_named_face (f, Qtoolbar, TOOLBAR_FACE_ID); | 5133 | realize_named_face (f, Qtool_bar, TOOL_BAR_FACE_ID); |
| 5134 | realize_named_face (f, Qmargin, BITMAP_AREA_FACE_ID); | 5134 | realize_named_face (f, Qmargin, BITMAP_AREA_FACE_ID); |
| 5135 | realize_named_face (f, Qtop_line, TOP_LINE_FACE_ID); | 5135 | realize_named_face (f, Qtop_line, TOP_LINE_FACE_ID); |
| 5136 | success_p = 1; | 5136 | success_p = 1; |
| @@ -6242,8 +6242,8 @@ syms_of_xfaces () | |||
| 6242 | staticpro (&Qdefault); | 6242 | staticpro (&Qdefault); |
| 6243 | Qmodeline = intern ("modeline"); | 6243 | Qmodeline = intern ("modeline"); |
| 6244 | staticpro (&Qmodeline); | 6244 | staticpro (&Qmodeline); |
| 6245 | Qtoolbar = intern ("toolbar"); | 6245 | Qtool_bar = intern ("tool-bar"); |
| 6246 | staticpro (&Qtoolbar); | 6246 | staticpro (&Qtool_bar); |
| 6247 | Qregion = intern ("region"); | 6247 | Qregion = intern ("region"); |
| 6248 | staticpro (&Qregion); | 6248 | staticpro (&Qregion); |
| 6249 | Qmargin = intern ("margin"); | 6249 | Qmargin = intern ("margin"); |
diff --git a/src/xfns.c b/src/xfns.c index edc538f3e3e..449acf0f943 100644 --- a/src/xfns.c +++ b/src/xfns.c | |||
| @@ -20,7 +20,7 @@ the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |||
| 20 | Boston, MA 02111-1307, USA. */ | 20 | Boston, MA 02111-1307, USA. */ |
| 21 | 21 | ||
| 22 | /* Image support (XBM, XPM, PBM, JPEG, TIFF, GIF, PNG, GS). tooltips, | 22 | /* Image support (XBM, XPM, PBM, JPEG, TIFF, GIF, PNG, GS). tooltips, |
| 23 | toolbars, busy-cursor, file selection dialog added by Gerd | 23 | tool-bars, busy-cursor, file selection dialog added by Gerd |
| 24 | Moellmann <gerd@gnu.org>. */ | 24 | Moellmann <gerd@gnu.org>. */ |
| 25 | 25 | ||
| 26 | /* Completely rewritten by Richard Stallman. */ | 26 | /* Completely rewritten by Richard Stallman. */ |
| @@ -259,7 +259,7 @@ Lisp_Object Qscreen_gamma; | |||
| 259 | 259 | ||
| 260 | extern Lisp_Object Qheight, Qminibuffer, Qname, Qonly, Qwidth; | 260 | extern Lisp_Object Qheight, Qminibuffer, Qname, Qonly, Qwidth; |
| 261 | extern Lisp_Object Qunsplittable, Qmenu_bar_lines, Qbuffer_predicate, Qtitle; | 261 | extern Lisp_Object Qunsplittable, Qmenu_bar_lines, Qbuffer_predicate, Qtitle; |
| 262 | extern Lisp_Object Qtoolbar_lines; | 262 | extern Lisp_Object Qtool_bar_lines; |
| 263 | 263 | ||
| 264 | extern Lisp_Object Vwindow_system_version; | 264 | extern Lisp_Object Vwindow_system_version; |
| 265 | 265 | ||
| @@ -769,7 +769,7 @@ void x_set_menu_bar_lines P_ ((struct frame *, Lisp_Object, Lisp_Object)); | |||
| 769 | void x_set_scroll_bar_width P_ ((struct frame *, Lisp_Object, Lisp_Object)); | 769 | void x_set_scroll_bar_width P_ ((struct frame *, Lisp_Object, Lisp_Object)); |
| 770 | void x_set_title P_ ((struct frame *, Lisp_Object, Lisp_Object)); | 770 | void x_set_title P_ ((struct frame *, Lisp_Object, Lisp_Object)); |
| 771 | void x_set_unsplittable P_ ((struct frame *, Lisp_Object, Lisp_Object)); | 771 | void x_set_unsplittable P_ ((struct frame *, Lisp_Object, Lisp_Object)); |
| 772 | void x_set_toolbar_lines P_ ((struct frame *, Lisp_Object, Lisp_Object)); | 772 | void x_set_tool_bar_lines P_ ((struct frame *, Lisp_Object, Lisp_Object)); |
| 773 | void x_set_scroll_bar_foreground P_ ((struct frame *, Lisp_Object, | 773 | void x_set_scroll_bar_foreground P_ ((struct frame *, Lisp_Object, |
| 774 | Lisp_Object)); | 774 | Lisp_Object)); |
| 775 | void x_set_scroll_bar_background P_ ((struct frame *, Lisp_Object, | 775 | void x_set_scroll_bar_background P_ ((struct frame *, Lisp_Object, |
| @@ -803,7 +803,7 @@ static struct x_frame_parm_table x_frame_parms[] = | |||
| 803 | "unsplittable", x_set_unsplittable, | 803 | "unsplittable", x_set_unsplittable, |
| 804 | "vertical-scroll-bars", x_set_vertical_scroll_bars, | 804 | "vertical-scroll-bars", x_set_vertical_scroll_bars, |
| 805 | "visibility", x_set_visibility, | 805 | "visibility", x_set_visibility, |
| 806 | "toolbar-lines", x_set_toolbar_lines, | 806 | "tool-bar-lines", x_set_tool_bar_lines, |
| 807 | "scroll-bar-foreground", x_set_scroll_bar_foreground, | 807 | "scroll-bar-foreground", x_set_scroll_bar_foreground, |
| 808 | "scroll-bar-background", x_set_scroll_bar_background, | 808 | "scroll-bar-background", x_set_scroll_bar_background, |
| 809 | "screen-gamma", x_set_screen_gamma | 809 | "screen-gamma", x_set_screen_gamma |
| @@ -1984,7 +1984,7 @@ x_set_menu_bar_lines (f, value, oldval) | |||
| 1984 | The frame's height doesn't change. */ | 1984 | The frame's height doesn't change. */ |
| 1985 | 1985 | ||
| 1986 | void | 1986 | void |
| 1987 | x_set_toolbar_lines (f, value, oldval) | 1987 | x_set_tool_bar_lines (f, value, oldval) |
| 1988 | struct frame *f; | 1988 | struct frame *f; |
| 1989 | Lisp_Object value, oldval; | 1989 | Lisp_Object value, oldval; |
| 1990 | { | 1990 | { |
| @@ -1999,8 +1999,8 @@ x_set_toolbar_lines (f, value, oldval) | |||
| 1999 | /* Make sure we redisplay all windows in this frame. */ | 1999 | /* Make sure we redisplay all windows in this frame. */ |
| 2000 | ++windows_or_buffers_changed; | 2000 | ++windows_or_buffers_changed; |
| 2001 | 2001 | ||
| 2002 | delta = nlines - FRAME_TOOLBAR_LINES (f); | 2002 | delta = nlines - FRAME_TOOL_BAR_LINES (f); |
| 2003 | FRAME_TOOLBAR_LINES (f) = nlines; | 2003 | FRAME_TOOL_BAR_LINES (f) = nlines; |
| 2004 | x_set_menu_bar_lines_1 (FRAME_ROOT_WINDOW (f), delta); | 2004 | x_set_menu_bar_lines_1 (FRAME_ROOT_WINDOW (f), delta); |
| 2005 | adjust_glyphs (f); | 2005 | adjust_glyphs (f); |
| 2006 | } | 2006 | } |
| @@ -3773,7 +3773,7 @@ This function is an internal primitive--use `make-frame' instead.") | |||
| 3773 | 3773 | ||
| 3774 | x_default_parameter (f, parms, Qmenu_bar_lines, make_number (1), | 3774 | x_default_parameter (f, parms, Qmenu_bar_lines, make_number (1), |
| 3775 | "menuBar", "MenuBar", RES_TYPE_NUMBER); | 3775 | "menuBar", "MenuBar", RES_TYPE_NUMBER); |
| 3776 | x_default_parameter (f, parms, Qtoolbar_lines, make_number (0), | 3776 | x_default_parameter (f, parms, Qtool_bar_lines, make_number (0), |
| 3777 | "toolBar", "ToolBar", RES_TYPE_NUMBER); | 3777 | "toolBar", "ToolBar", RES_TYPE_NUMBER); |
| 3778 | x_default_parameter (f, parms, Qscroll_bar_width, Qnil, | 3778 | x_default_parameter (f, parms, Qscroll_bar_width, Qnil, |
| 3779 | "scrollBarWidth", "ScrollBarWidth", | 3779 | "scrollBarWidth", "ScrollBarWidth", |
| @@ -3807,13 +3807,13 @@ This function is an internal primitive--use `make-frame' instead.") | |||
| 3807 | tem = x_get_arg (dpyinfo, parms, Qunsplittable, 0, 0, RES_TYPE_BOOLEAN); | 3807 | tem = x_get_arg (dpyinfo, parms, Qunsplittable, 0, 0, RES_TYPE_BOOLEAN); |
| 3808 | f->no_split = minibuffer_only || EQ (tem, Qt); | 3808 | f->no_split = minibuffer_only || EQ (tem, Qt); |
| 3809 | 3809 | ||
| 3810 | /* Create the X widget or window. Add the toolbar height to the | 3810 | /* Create the X widget or window. Add the tool-bar height to the |
| 3811 | initial frame height so that the user gets a text display area of | 3811 | initial frame height so that the user gets a text display area of |
| 3812 | the size he specified with -g or via .Xdefaults. Later changes | 3812 | the size he specified with -g or via .Xdefaults. Later changes |
| 3813 | of the toolbar height don't change the frame size. This is done | 3813 | of the tool-bar height don't change the frame size. This is done |
| 3814 | so that users can create tall Emacs frames without having to | 3814 | so that users can create tall Emacs frames without having to |
| 3815 | guess how tall the toolbar will get. */ | 3815 | guess how tall the tool-bar will get. */ |
| 3816 | f->height += FRAME_TOOLBAR_LINES (f); | 3816 | f->height += FRAME_TOOL_BAR_LINES (f); |
| 3817 | 3817 | ||
| 3818 | #ifdef USE_X_TOOLKIT | 3818 | #ifdef USE_X_TOOLKIT |
| 3819 | x_window (f, window_prompting, minibuffer_only); | 3819 | x_window (f, window_prompting, minibuffer_only); |
diff --git a/src/xterm.c b/src/xterm.c index 4c805fc7031..bdc7bfe627e 100644 --- a/src/xterm.c +++ b/src/xterm.c | |||
| @@ -411,8 +411,8 @@ static struct glyph *x_y_to_hpos_vpos P_ ((struct window *, int, int, | |||
| 411 | static void note_mode_line_highlight P_ ((struct window *, int, int)); | 411 | static void note_mode_line_highlight P_ ((struct window *, int, int)); |
| 412 | static void x_check_font P_ ((struct frame *, XFontStruct *)); | 412 | static void x_check_font P_ ((struct frame *, XFontStruct *)); |
| 413 | static void note_mouse_highlight P_ ((struct frame *, int, int)); | 413 | static void note_mouse_highlight P_ ((struct frame *, int, int)); |
| 414 | static void note_toolbar_highlight P_ ((struct frame *f, int, int)); | 414 | static void note_tool_bar_highlight P_ ((struct frame *f, int, int)); |
| 415 | static void x_handle_toolbar_click P_ ((struct frame *, XButtonEvent *)); | 415 | static void x_handle_tool_bar_click P_ ((struct frame *, XButtonEvent *)); |
| 416 | static void show_mouse_face P_ ((struct x_display_info *, | 416 | static void show_mouse_face P_ ((struct x_display_info *, |
| 417 | enum draw_glyphs_face)); | 417 | enum draw_glyphs_face)); |
| 418 | static int x_io_error_quitter P_ ((Display *)); | 418 | static int x_io_error_quitter P_ ((Display *)); |
| @@ -2439,9 +2439,9 @@ x_get_glyph_string_clip_rect (s, r) | |||
| 2439 | else | 2439 | else |
| 2440 | r->y = max (0, s->row->y); | 2440 | r->y = max (0, s->row->y); |
| 2441 | 2441 | ||
| 2442 | /* If drawing a toolbar window, draw it over the internal border | 2442 | /* If drawing a tool-bar window, draw it over the internal border |
| 2443 | at the top of the window. */ | 2443 | at the top of the window. */ |
| 2444 | if (s->w == XWINDOW (s->f->toolbar_window)) | 2444 | if (s->w == XWINDOW (s->f->tool_bar_window)) |
| 2445 | r->y -= s->f->output_data.x->internal_border_width; | 2445 | r->y -= s->f->output_data.x->internal_border_width; |
| 2446 | 2446 | ||
| 2447 | /* If S draws overlapping rows, it's sufficient to use the top and | 2447 | /* If S draws overlapping rows, it's sufficient to use the top and |
| @@ -3464,7 +3464,7 @@ x_draw_image_relief (s) | |||
| 3464 | if (s->hl == DRAW_IMAGE_SUNKEN | 3464 | if (s->hl == DRAW_IMAGE_SUNKEN |
| 3465 | || s->hl == DRAW_IMAGE_RAISED) | 3465 | || s->hl == DRAW_IMAGE_RAISED) |
| 3466 | { | 3466 | { |
| 3467 | thick = toolbar_button_relief > 0 ? toolbar_button_relief : 3; | 3467 | thick = tool_bar_button_relief > 0 ? tool_bar_button_relief : 3; |
| 3468 | raised_p = s->hl == DRAW_IMAGE_RAISED; | 3468 | raised_p = s->hl == DRAW_IMAGE_RAISED; |
| 3469 | } | 3469 | } |
| 3470 | else | 3470 | else |
| @@ -4099,8 +4099,8 @@ x_init_glyph_string (s, char2b, w, row, area, start, hl) | |||
| 4099 | s->height = row->height; | 4099 | s->height = row->height; |
| 4100 | s->y = WINDOW_TO_FRAME_PIXEL_Y (w, row->y); | 4100 | s->y = WINDOW_TO_FRAME_PIXEL_Y (w, row->y); |
| 4101 | 4101 | ||
| 4102 | /* Display the internal border below the toolbar window. */ | 4102 | /* Display the internal border below the tool-bar window. */ |
| 4103 | if (s->w == XWINDOW (s->f->toolbar_window)) | 4103 | if (s->w == XWINDOW (s->f->tool_bar_window)) |
| 4104 | s->y -= s->f->output_data.x->internal_border_width; | 4104 | s->y -= s->f->output_data.x->internal_border_width; |
| 4105 | 4105 | ||
| 4106 | s->ybase = s->y + row->ascent; | 4106 | s->ybase = s->y + row->ascent; |
| @@ -4870,7 +4870,7 @@ XTflash (f) | |||
| 4870 | XFillRectangle (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), gc, | 4870 | XFillRectangle (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), gc, |
| 4871 | flash_left, | 4871 | flash_left, |
| 4872 | (FRAME_INTERNAL_BORDER_WIDTH (f) | 4872 | (FRAME_INTERNAL_BORDER_WIDTH (f) |
| 4873 | + FRAME_TOOLBAR_LINES (f) * CANON_Y_UNIT (f)), | 4873 | + FRAME_TOOL_BAR_LINES (f) * CANON_Y_UNIT (f)), |
| 4874 | width, flash_height); | 4874 | width, flash_height); |
| 4875 | XFillRectangle (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), gc, | 4875 | XFillRectangle (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), gc, |
| 4876 | flash_left, | 4876 | flash_left, |
| @@ -4919,7 +4919,7 @@ XTflash (f) | |||
| 4919 | XFillRectangle (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), gc, | 4919 | XFillRectangle (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), gc, |
| 4920 | flash_left, | 4920 | flash_left, |
| 4921 | (FRAME_INTERNAL_BORDER_WIDTH (f) | 4921 | (FRAME_INTERNAL_BORDER_WIDTH (f) |
| 4922 | + FRAME_TOOLBAR_LINES (f) * CANON_Y_UNIT (f)), | 4922 | + FRAME_TOOL_BAR_LINES (f) * CANON_Y_UNIT (f)), |
| 4923 | width, flash_height); | 4923 | width, flash_height); |
| 4924 | XFillRectangle (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), gc, | 4924 | XFillRectangle (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), gc, |
| 4925 | flash_left, | 4925 | flash_left, |
| @@ -5107,9 +5107,9 @@ expose_frame (f, x, y, w, h) | |||
| 5107 | TRACE ((stderr, "(%d, %d, %d, %d)\n", r.x, r.y, r.width, r.height)); | 5107 | TRACE ((stderr, "(%d, %d, %d, %d)\n", r.x, r.y, r.width, r.height)); |
| 5108 | expose_window_tree (XWINDOW (f->root_window), &r); | 5108 | expose_window_tree (XWINDOW (f->root_window), &r); |
| 5109 | 5109 | ||
| 5110 | if (WINDOWP (f->toolbar_window)) | 5110 | if (WINDOWP (f->tool_bar_window)) |
| 5111 | { | 5111 | { |
| 5112 | struct window *w = XWINDOW (f->toolbar_window); | 5112 | struct window *w = XWINDOW (f->tool_bar_window); |
| 5113 | XRectangle window_rect; | 5113 | XRectangle window_rect; |
| 5114 | XRectangle intersection_rect; | 5114 | XRectangle intersection_rect; |
| 5115 | int window_x, window_y, window_width, window_height; | 5115 | int window_x, window_y, window_width, window_height; |
| @@ -6145,11 +6145,11 @@ note_mouse_highlight (f, x, y) | |||
| 6145 | w = XWINDOW (window); | 6145 | w = XWINDOW (window); |
| 6146 | frame_to_window_pixel_xy (w, &x, &y); | 6146 | frame_to_window_pixel_xy (w, &x, &y); |
| 6147 | 6147 | ||
| 6148 | /* Handle toolbar window differently since it doesn't display a | 6148 | /* Handle tool-bar window differently since it doesn't display a |
| 6149 | buffer. */ | 6149 | buffer. */ |
| 6150 | if (EQ (window, f->toolbar_window)) | 6150 | if (EQ (window, f->tool_bar_window)) |
| 6151 | { | 6151 | { |
| 6152 | note_toolbar_highlight (f, x, y); | 6152 | note_tool_bar_highlight (f, x, y); |
| 6153 | return; | 6153 | return; |
| 6154 | } | 6154 | } |
| 6155 | 6155 | ||
| @@ -6372,37 +6372,37 @@ redo_mouse_highlight () | |||
| 6372 | 6372 | ||
| 6373 | 6373 | ||
| 6374 | /*********************************************************************** | 6374 | /*********************************************************************** |
| 6375 | Toolbars | 6375 | Tool-bars |
| 6376 | ***********************************************************************/ | 6376 | ***********************************************************************/ |
| 6377 | 6377 | ||
| 6378 | static int x_toolbar_item P_ ((struct frame *, int, int, | 6378 | static int x_tool_bar_item P_ ((struct frame *, int, int, |
| 6379 | struct glyph **, int *, int *, int *)); | 6379 | struct glyph **, int *, int *, int *)); |
| 6380 | 6380 | ||
| 6381 | /* Toolbar item index of the item on which a mouse button was pressed | 6381 | /* Tool-bar item index of the item on which a mouse button was pressed |
| 6382 | or -1. */ | 6382 | or -1. */ |
| 6383 | 6383 | ||
| 6384 | static int last_toolbar_item; | 6384 | static int last_tool_bar_item; |
| 6385 | 6385 | ||
| 6386 | 6386 | ||
| 6387 | /* Get information about the toolbar item at position X/Y on frame F. | 6387 | /* Get information about the tool-bar item at position X/Y on frame F. |
| 6388 | Return in *GLYPH a pointer to the glyph of the toolbar item in | 6388 | Return in *GLYPH a pointer to the glyph of the tool-bar item in |
| 6389 | the current matrix of the toolbar window of F, or NULL if not | 6389 | the current matrix of the tool-bar window of F, or NULL if not |
| 6390 | on a toolbar item. Return in *PROP_IDX the index of the toolbar | 6390 | on a tool-bar item. Return in *PROP_IDX the index of the tool-bar |
| 6391 | item in F->current_toolbar_items. Value is | 6391 | item in F->current_tool_bar_items. Value is |
| 6392 | 6392 | ||
| 6393 | -1 if X/Y is not on a toolbar item | 6393 | -1 if X/Y is not on a tool-bar item |
| 6394 | 0 if X/Y is on the same item that was highlighted before. | 6394 | 0 if X/Y is on the same item that was highlighted before. |
| 6395 | 1 otherwise. */ | 6395 | 1 otherwise. */ |
| 6396 | 6396 | ||
| 6397 | static int | 6397 | static int |
| 6398 | x_toolbar_item (f, x, y, glyph, hpos, vpos, prop_idx) | 6398 | x_tool_bar_item (f, x, y, glyph, hpos, vpos, prop_idx) |
| 6399 | struct frame *f; | 6399 | struct frame *f; |
| 6400 | int x, y; | 6400 | int x, y; |
| 6401 | struct glyph **glyph; | 6401 | struct glyph **glyph; |
| 6402 | int *hpos, *vpos, *prop_idx; | 6402 | int *hpos, *vpos, *prop_idx; |
| 6403 | { | 6403 | { |
| 6404 | struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); | 6404 | struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); |
| 6405 | struct window *w = XWINDOW (f->toolbar_window); | 6405 | struct window *w = XWINDOW (f->tool_bar_window); |
| 6406 | int area; | 6406 | int area; |
| 6407 | 6407 | ||
| 6408 | /* Find the glyph under X/Y. */ | 6408 | /* Find the glyph under X/Y. */ |
| @@ -6410,13 +6410,13 @@ x_toolbar_item (f, x, y, glyph, hpos, vpos, prop_idx) | |||
| 6410 | if (*glyph == NULL) | 6410 | if (*glyph == NULL) |
| 6411 | return -1; | 6411 | return -1; |
| 6412 | 6412 | ||
| 6413 | /* Get the start of this toolbar item's properties in | 6413 | /* Get the start of this tool-bar item's properties in |
| 6414 | f->current_toolbar_items. */ | 6414 | f->current_tool_bar_items. */ |
| 6415 | if (!toolbar_item_info (f, *glyph, prop_idx)) | 6415 | if (!tool_bar_item_info (f, *glyph, prop_idx)) |
| 6416 | return -1; | 6416 | return -1; |
| 6417 | 6417 | ||
| 6418 | /* Is mouse on the highlighted item? */ | 6418 | /* Is mouse on the highlighted item? */ |
| 6419 | if (EQ (f->toolbar_window, dpyinfo->mouse_face_window) | 6419 | if (EQ (f->tool_bar_window, dpyinfo->mouse_face_window) |
| 6420 | && *vpos >= dpyinfo->mouse_face_beg_row | 6420 | && *vpos >= dpyinfo->mouse_face_beg_row |
| 6421 | && *vpos <= dpyinfo->mouse_face_end_row | 6421 | && *vpos <= dpyinfo->mouse_face_end_row |
| 6422 | && (*vpos > dpyinfo->mouse_face_beg_row | 6422 | && (*vpos > dpyinfo->mouse_face_beg_row |
| @@ -6430,31 +6430,31 @@ x_toolbar_item (f, x, y, glyph, hpos, vpos, prop_idx) | |||
| 6430 | } | 6430 | } |
| 6431 | 6431 | ||
| 6432 | 6432 | ||
| 6433 | /* Handle mouse button event on the toolbar of frame F, at | 6433 | /* Handle mouse button event on the tool-bar of frame F, at |
| 6434 | frame-relative coordinates X/Y. EVENT_TYPE is either ButtionPress | 6434 | frame-relative coordinates X/Y. EVENT_TYPE is either ButtionPress |
| 6435 | or ButtonRelase. */ | 6435 | or ButtonRelase. */ |
| 6436 | 6436 | ||
| 6437 | static void | 6437 | static void |
| 6438 | x_handle_toolbar_click (f, button_event) | 6438 | x_handle_tool_bar_click (f, button_event) |
| 6439 | struct frame *f; | 6439 | struct frame *f; |
| 6440 | XButtonEvent *button_event; | 6440 | XButtonEvent *button_event; |
| 6441 | { | 6441 | { |
| 6442 | struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); | 6442 | struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); |
| 6443 | struct window *w = XWINDOW (f->toolbar_window); | 6443 | struct window *w = XWINDOW (f->tool_bar_window); |
| 6444 | int hpos, vpos, prop_idx; | 6444 | int hpos, vpos, prop_idx; |
| 6445 | struct glyph *glyph; | 6445 | struct glyph *glyph; |
| 6446 | Lisp_Object enabled_p; | 6446 | Lisp_Object enabled_p; |
| 6447 | int x = button_event->x; | 6447 | int x = button_event->x; |
| 6448 | int y = button_event->y; | 6448 | int y = button_event->y; |
| 6449 | 6449 | ||
| 6450 | /* If not on the highlighted toolbar item, return. */ | 6450 | /* If not on the highlighted tool-bar item, return. */ |
| 6451 | frame_to_window_pixel_xy (w, &x, &y); | 6451 | frame_to_window_pixel_xy (w, &x, &y); |
| 6452 | if (x_toolbar_item (f, x, y, &glyph, &hpos, &vpos, &prop_idx) != 0) | 6452 | if (x_tool_bar_item (f, x, y, &glyph, &hpos, &vpos, &prop_idx) != 0) |
| 6453 | return; | 6453 | return; |
| 6454 | 6454 | ||
| 6455 | /* If item is disabled, do nothing. */ | 6455 | /* If item is disabled, do nothing. */ |
| 6456 | enabled_p = (XVECTOR (f->current_toolbar_items) | 6456 | enabled_p = (XVECTOR (f->current_tool_bar_items) |
| 6457 | ->contents[prop_idx + TOOLBAR_ITEM_ENABLED_P]); | 6457 | ->contents[prop_idx + TOOL_BAR_ITEM_ENABLED_P]); |
| 6458 | if (NILP (enabled_p)) | 6458 | if (NILP (enabled_p)) |
| 6459 | return; | 6459 | return; |
| 6460 | 6460 | ||
| @@ -6463,7 +6463,7 @@ x_handle_toolbar_click (f, button_event) | |||
| 6463 | /* Show item in pressed state. */ | 6463 | /* Show item in pressed state. */ |
| 6464 | show_mouse_face (dpyinfo, DRAW_IMAGE_SUNKEN); | 6464 | show_mouse_face (dpyinfo, DRAW_IMAGE_SUNKEN); |
| 6465 | dpyinfo->mouse_face_image_state = DRAW_IMAGE_SUNKEN; | 6465 | dpyinfo->mouse_face_image_state = DRAW_IMAGE_SUNKEN; |
| 6466 | last_toolbar_item = prop_idx; | 6466 | last_tool_bar_item = prop_idx; |
| 6467 | } | 6467 | } |
| 6468 | else | 6468 | else |
| 6469 | { | 6469 | { |
| @@ -6474,34 +6474,34 @@ x_handle_toolbar_click (f, button_event) | |||
| 6474 | show_mouse_face (dpyinfo, DRAW_IMAGE_RAISED); | 6474 | show_mouse_face (dpyinfo, DRAW_IMAGE_RAISED); |
| 6475 | dpyinfo->mouse_face_image_state = DRAW_IMAGE_RAISED; | 6475 | dpyinfo->mouse_face_image_state = DRAW_IMAGE_RAISED; |
| 6476 | 6476 | ||
| 6477 | key = (XVECTOR (f->current_toolbar_items) | 6477 | key = (XVECTOR (f->current_tool_bar_items) |
| 6478 | ->contents[prop_idx + TOOLBAR_ITEM_KEY]); | 6478 | ->contents[prop_idx + TOOL_BAR_ITEM_KEY]); |
| 6479 | 6479 | ||
| 6480 | XSETFRAME (frame, f); | 6480 | XSETFRAME (frame, f); |
| 6481 | event.kind = TOOLBAR_EVENT; | 6481 | event.kind = TOOL_BAR_EVENT; |
| 6482 | event.frame_or_window = Fcons (frame, Fcons (Qtoolbar, Qnil)); | 6482 | event.frame_or_window = Fcons (frame, Fcons (Qtool_bar, Qnil)); |
| 6483 | kbd_buffer_store_event (&event); | 6483 | kbd_buffer_store_event (&event); |
| 6484 | 6484 | ||
| 6485 | event.kind = TOOLBAR_EVENT; | 6485 | event.kind = TOOL_BAR_EVENT; |
| 6486 | event.frame_or_window = Fcons (frame, key); | 6486 | event.frame_or_window = Fcons (frame, key); |
| 6487 | event.modifiers = x_x_to_emacs_modifiers (FRAME_X_DISPLAY_INFO (f), | 6487 | event.modifiers = x_x_to_emacs_modifiers (FRAME_X_DISPLAY_INFO (f), |
| 6488 | button_event->state); | 6488 | button_event->state); |
| 6489 | kbd_buffer_store_event (&event); | 6489 | kbd_buffer_store_event (&event); |
| 6490 | last_toolbar_item = -1; | 6490 | last_tool_bar_item = -1; |
| 6491 | } | 6491 | } |
| 6492 | } | 6492 | } |
| 6493 | 6493 | ||
| 6494 | 6494 | ||
| 6495 | /* Possibly highlight a toolbar item on frame F when mouse moves to | 6495 | /* Possibly highlight a tool-bar item on frame F when mouse moves to |
| 6496 | toolbar window-relative coordinates X/Y. Called from | 6496 | tool-bar window-relative coordinates X/Y. Called from |
| 6497 | note_mouse_highlight. */ | 6497 | note_mouse_highlight. */ |
| 6498 | 6498 | ||
| 6499 | static void | 6499 | static void |
| 6500 | note_toolbar_highlight (f, x, y) | 6500 | note_tool_bar_highlight (f, x, y) |
| 6501 | struct frame *f; | 6501 | struct frame *f; |
| 6502 | int x, y; | 6502 | int x, y; |
| 6503 | { | 6503 | { |
| 6504 | Lisp_Object window = f->toolbar_window; | 6504 | Lisp_Object window = f->tool_bar_window; |
| 6505 | struct window *w = XWINDOW (window); | 6505 | struct window *w = XWINDOW (window); |
| 6506 | struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); | 6506 | struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); |
| 6507 | int hpos, vpos; | 6507 | int hpos, vpos; |
| @@ -6521,33 +6521,33 @@ note_toolbar_highlight (f, x, y) | |||
| 6521 | return; | 6521 | return; |
| 6522 | } | 6522 | } |
| 6523 | 6523 | ||
| 6524 | rc = x_toolbar_item (f, x, y, &glyph, &hpos, &vpos, &prop_idx); | 6524 | rc = x_tool_bar_item (f, x, y, &glyph, &hpos, &vpos, &prop_idx); |
| 6525 | if (rc < 0) | 6525 | if (rc < 0) |
| 6526 | { | 6526 | { |
| 6527 | /* Not on toolbar item. */ | 6527 | /* Not on tool-bar item. */ |
| 6528 | clear_mouse_face (dpyinfo); | 6528 | clear_mouse_face (dpyinfo); |
| 6529 | return; | 6529 | return; |
| 6530 | } | 6530 | } |
| 6531 | else if (rc == 0) | 6531 | else if (rc == 0) |
| 6532 | /* On same toolbar item as before. */ | 6532 | /* On same tool-bar item as before. */ |
| 6533 | goto set_help_echo; | 6533 | goto set_help_echo; |
| 6534 | 6534 | ||
| 6535 | clear_mouse_face (dpyinfo); | 6535 | clear_mouse_face (dpyinfo); |
| 6536 | 6536 | ||
| 6537 | /* Mouse is down, but on different toolbar item? */ | 6537 | /* Mouse is down, but on different tool-bar item? */ |
| 6538 | mouse_down_p = (dpyinfo->grabbed | 6538 | mouse_down_p = (dpyinfo->grabbed |
| 6539 | && f == last_mouse_frame | 6539 | && f == last_mouse_frame |
| 6540 | && FRAME_LIVE_P (f)); | 6540 | && FRAME_LIVE_P (f)); |
| 6541 | if (mouse_down_p | 6541 | if (mouse_down_p |
| 6542 | && last_toolbar_item != prop_idx) | 6542 | && last_tool_bar_item != prop_idx) |
| 6543 | return; | 6543 | return; |
| 6544 | 6544 | ||
| 6545 | dpyinfo->mouse_face_image_state = DRAW_NORMAL_TEXT; | 6545 | dpyinfo->mouse_face_image_state = DRAW_NORMAL_TEXT; |
| 6546 | draw = mouse_down_p ? DRAW_IMAGE_SUNKEN : DRAW_IMAGE_RAISED; | 6546 | draw = mouse_down_p ? DRAW_IMAGE_SUNKEN : DRAW_IMAGE_RAISED; |
| 6547 | 6547 | ||
| 6548 | /* If toolbar item is not enabled, don't highlight it. */ | 6548 | /* If tool-bar item is not enabled, don't highlight it. */ |
| 6549 | enabled_p = (XVECTOR (f->current_toolbar_items) | 6549 | enabled_p = (XVECTOR (f->current_tool_bar_items) |
| 6550 | ->contents[prop_idx + TOOLBAR_ITEM_ENABLED_P]); | 6550 | ->contents[prop_idx + TOOL_BAR_ITEM_ENABLED_P]); |
| 6551 | if (!NILP (enabled_p)) | 6551 | if (!NILP (enabled_p)) |
| 6552 | { | 6552 | { |
| 6553 | /* Compute the x-position of the glyph. In front and past the | 6553 | /* Compute the x-position of the glyph. In front and past the |
| @@ -6568,7 +6568,7 @@ note_toolbar_highlight (f, x, y) | |||
| 6568 | dpyinfo->mouse_face_end_x = x + glyph->pixel_width; | 6568 | dpyinfo->mouse_face_end_x = x + glyph->pixel_width; |
| 6569 | dpyinfo->mouse_face_end_y = row->y; | 6569 | dpyinfo->mouse_face_end_y = row->y; |
| 6570 | dpyinfo->mouse_face_window = window; | 6570 | dpyinfo->mouse_face_window = window; |
| 6571 | dpyinfo->mouse_face_face_id = TOOLBAR_FACE_ID; | 6571 | dpyinfo->mouse_face_face_id = TOOL_BAR_FACE_ID; |
| 6572 | 6572 | ||
| 6573 | /* Display it as active. */ | 6573 | /* Display it as active. */ |
| 6574 | show_mouse_face (dpyinfo, draw); | 6574 | show_mouse_face (dpyinfo, draw); |
| @@ -6577,13 +6577,13 @@ note_toolbar_highlight (f, x, y) | |||
| 6577 | 6577 | ||
| 6578 | set_help_echo: | 6578 | set_help_echo: |
| 6579 | 6579 | ||
| 6580 | /* Set help_echo to a help string.to display for this toolbar item. | 6580 | /* Set help_echo to a help string.to display for this tool-bar item. |
| 6581 | XTread_socket does the rest. */ | 6581 | XTread_socket does the rest. */ |
| 6582 | help_echo = (XVECTOR (f->current_toolbar_items) | 6582 | help_echo = (XVECTOR (f->current_tool_bar_items) |
| 6583 | ->contents[prop_idx + TOOLBAR_ITEM_HELP]); | 6583 | ->contents[prop_idx + TOOL_BAR_ITEM_HELP]); |
| 6584 | if (!STRINGP (help_echo)) | 6584 | if (!STRINGP (help_echo)) |
| 6585 | help_echo = (XVECTOR (f->current_toolbar_items) | 6585 | help_echo = (XVECTOR (f->current_tool_bar_items) |
| 6586 | ->contents[prop_idx + TOOLBAR_ITEM_CAPTION]); | 6586 | ->contents[prop_idx + TOOL_BAR_ITEM_CAPTION]); |
| 6587 | } | 6587 | } |
| 6588 | 6588 | ||
| 6589 | 6589 | ||
| @@ -9520,7 +9520,7 @@ XTread_socket (sd, bufp, numchars, expected) | |||
| 9520 | /* If we decide we want to generate an event to be seen | 9520 | /* If we decide we want to generate an event to be seen |
| 9521 | by the rest of Emacs, we put it here. */ | 9521 | by the rest of Emacs, we put it here. */ |
| 9522 | struct input_event emacs_event; | 9522 | struct input_event emacs_event; |
| 9523 | int toolbar_p = 0; | 9523 | int tool_bar_p = 0; |
| 9524 | 9524 | ||
| 9525 | emacs_event.kind = no_event; | 9525 | emacs_event.kind = no_event; |
| 9526 | bzero (&compose_status, sizeof (compose_status)); | 9526 | bzero (&compose_status, sizeof (compose_status)); |
| @@ -9534,9 +9534,9 @@ XTread_socket (sd, bufp, numchars, expected) | |||
| 9534 | 9534 | ||
| 9535 | if (f) | 9535 | if (f) |
| 9536 | { | 9536 | { |
| 9537 | /* Is this in the toolbar? */ | 9537 | /* Is this in the tool-bar? */ |
| 9538 | if (WINDOWP (f->toolbar_window) | 9538 | if (WINDOWP (f->tool_bar_window) |
| 9539 | && XFASTINT (XWINDOW (f->toolbar_window)->height)) | 9539 | && XFASTINT (XWINDOW (f->tool_bar_window)->height)) |
| 9540 | { | 9540 | { |
| 9541 | Lisp_Object window; | 9541 | Lisp_Object window; |
| 9542 | int p, x, y; | 9542 | int p, x, y; |
| @@ -9546,14 +9546,14 @@ XTread_socket (sd, bufp, numchars, expected) | |||
| 9546 | 9546 | ||
| 9547 | /* Set x and y. */ | 9547 | /* Set x and y. */ |
| 9548 | window = window_from_coordinates (f, x, y, &p, 1); | 9548 | window = window_from_coordinates (f, x, y, &p, 1); |
| 9549 | if (EQ (window, f->toolbar_window)) | 9549 | if (EQ (window, f->tool_bar_window)) |
| 9550 | { | 9550 | { |
| 9551 | x_handle_toolbar_click (f, &event.xbutton); | 9551 | x_handle_tool_bar_click (f, &event.xbutton); |
| 9552 | toolbar_p = 1; | 9552 | tool_bar_p = 1; |
| 9553 | } | 9553 | } |
| 9554 | } | 9554 | } |
| 9555 | 9555 | ||
| 9556 | if (!toolbar_p) | 9556 | if (!tool_bar_p) |
| 9557 | if (!dpyinfo->x_focus_frame | 9557 | if (!dpyinfo->x_focus_frame |
| 9558 | || f == dpyinfo->x_focus_frame) | 9558 | || f == dpyinfo->x_focus_frame) |
| 9559 | construct_mouse_click (&emacs_event, &event, f); | 9559 | construct_mouse_click (&emacs_event, &event, f); |
| @@ -9580,8 +9580,8 @@ XTread_socket (sd, bufp, numchars, expected) | |||
| 9580 | if (f != 0) | 9580 | if (f != 0) |
| 9581 | f->mouse_moved = 0; | 9581 | f->mouse_moved = 0; |
| 9582 | 9582 | ||
| 9583 | if (!toolbar_p) | 9583 | if (!tool_bar_p) |
| 9584 | last_toolbar_item = -1; | 9584 | last_tool_bar_item = -1; |
| 9585 | if (display_busy_cursor_p) | 9585 | if (display_busy_cursor_p) |
| 9586 | inhibit_busy_cursor = 2; | 9586 | inhibit_busy_cursor = 2; |
| 9587 | } | 9587 | } |
| @@ -12836,7 +12836,7 @@ x_initialize () | |||
| 12836 | baud_rate = 19200; | 12836 | baud_rate = 19200; |
| 12837 | 12837 | ||
| 12838 | x_noop_count = 0; | 12838 | x_noop_count = 0; |
| 12839 | last_toolbar_item = -1; | 12839 | last_tool_bar_item = -1; |
| 12840 | any_help_event_p = 0; | 12840 | any_help_event_p = 0; |
| 12841 | 12841 | ||
| 12842 | /* Try to use interrupt input; if we can't, then start polling. */ | 12842 | /* Try to use interrupt input; if we can't, then start polling. */ |