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

Allow invoking fonts in the Haiku font dialog

Browse source 
* src/haiku_support.cc (MessageReceived): Handle invocations.
(EmacsFontSelectionDialog): Set style panel invocation message.
This commit is contained in:
Po Lu 2022-05-01 02:43:18 +00:00
parent 7dda9835c6
commit ed0de6200d
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/haiku_support.cc
View file

@ -2507,7 +2507,8 @@ class EmacsFontSelectionDialog : public BWindow
}
else if (msg->what == FONT_STYLE_SELECTED)
UpdateForSelectedStyle ();
else if (msg->what == B_OK)
else if (msg->what == B_OK
&& font_style_pane.CurrentSelection () >= 0)
{
rq.cancel = false;
rq.family_idx = font_family_pane.CurrentSelection ();
@ -2545,7 +2546,7 @@ class EmacsFontSelectionDialog : public BWindow
}
EmacsFontSelectionDialog (bool monospace_only)
: BWindow (BRect (0, 0, 300, 300),
: BWindow (BRect (0, 0, 500, 500),
"Select font from list",
B_TITLED_WINDOW_LOOK,
B_NORMAL_WINDOW_FEEL, 0),
@ -2580,8 +2581,8 @@ class EmacsFontSelectionDialog : public BWindow
basic_view.AddChild (&split_view);
basic_view.AddChild (&cancel_button);
basic_view.AddChild (&ok_button);
split_view.AddChild (&font_family_scroller);
split_view.AddChild (&font_style_scroller);
split_view.AddChild (&font_family_scroller, 0.7);
split_view.AddChild (&font_style_scroller, 0.3);
basic_view.SetViewUIColor (B_PANEL_BACKGROUND_COLOR);
@ -2592,6 +2593,8 @@ class EmacsFontSelectionDialog : public BWindow
font_family_pane.SetSelectionMessage (selection);
selection = new BMessage (FONT_STYLE_SELECTED);
font_style_pane.SetSelectionMessage (selection);
selection = new BMessage (B_OK);
font_style_pane.SetInvocationMessage (selection);
comm_port = create_port (1, "font dialog port");