Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 02:47:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

Implement frame cascading on Haiku

Browse source 
* haikufns.c (haiku_create_frame): Cascade frame position with
the focused frame if position is not user or programmer
specified.
This commit is contained in:
Po Lu 2022-03-06 07:13:07 +00:00
parent 200627c255
commit 0adb2d507c
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/haikufns.c
View file

@ -565,7 +565,7 @@ unwind_popup (void)
static Lisp_Object
haiku_create_frame (Lisp_Object parms)
{
struct frame *f;
struct frame *f, *cascade_target;
Lisp_Object frame, tem;
Lisp_Object name;
bool minibuffer_only = false;
@ -575,6 +575,13 @@ haiku_create_frame (Lisp_Object parms)
struct haiku_display_info *dpyinfo = NULL;
struct kboard *kb;
if (x_display_list->focused_frame)
cascade_target = x_display_list->focused_frame;
else if (x_display_list->focus_event_frame)
cascade_target = x_display_list->focus_event_frame;
else
cascade_target = NULL;
parms = Fcopy_alist (parms);
Vx_resource_name = Vinvocation_name;
@ -888,6 +895,9 @@ haiku_create_frame (Lisp_Object parms)
block_input ();
if (window_prompting & (USPosition | PPosition))
haiku_set_offset (f, f->left_pos, f->top_pos, 1);
else if (cascade_target)
haiku_set_offset (f, cascade_target->left_pos + 15,
cascade_target->top_pos + 15, 1);
else
BWindow_center_on_screen (FRAME_HAIKU_WINDOW (f));
unblock_input ();