procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Signal error upon setting unsupported tool bar position

Browse source 
* src/haikufns.c (haiku_set_tool_bar_position): New function.
Port non-GTK code from X.
(haiku_frame_parm_handlers): Add new function.
This commit is contained in:
Po Lu 2023-06-20 02:13:41 +00:00
parent 1e13610b75
commit 8806bbbf2c
1 changed files with 17 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
src/haikufns.c
View file

@ -258,6 +258,22 @@ haiku_set_tool_bar_lines (struct frame *f, Lisp_Object value, Lisp_Object oldval
haiku_change_tool_bar_height (f, nlines * FRAME_LINE_HEIGHT (f));
}
static void
haiku_set_tool_bar_position (struct frame *f,
Lisp_Object new_value,
Lisp_Object old_value)
{
Lisp_Object choice = list4 (Qleft, Qright, Qtop, Qbottom);
if (!NILP (Fmemq (new_value, choice)))
{
if (!EQ (new_value, Qtop))
error ("The only supported tool bar position is top");
}
else
wrong_choice (choice, new_value);
}
static void
haiku_set_tab_bar_lines (struct frame *f, Lisp_Object value, Lisp_Object oldval)
{
@ -3136,7 +3152,7 @@ frame_parm_handler haiku_frame_parm_handlers[] =
gui_set_font_backend,
gui_set_alpha,
haiku_set_sticky,
NULL, /* set tool bar pos */
haiku_set_tool_bar_position,
haiku_set_inhibit_double_buffering,
haiku_set_undecorated,
haiku_set_parent_frame,