void mus_midi_init(void)
#endif
{
XEN_DEFINE_PROCEDURE(S_mus_midi_open_read, g_mus_midi_open_read_w, 1, 0, 0, H_mus_midi_open_read);
XEN_DEFINE_PROCEDURE(S_mus_midi_open_write, g_mus_midi_open_write_w, 1, 0, 0, H_mus_midi_open_write);
XEN_DEFINE_PROCEDURE(S_mus_midi_close, g_mus_midi_close_w, 1, 0, 0, H_mus_midi_close);
XEN_DEFINE_PROCEDURE(S_mus_midi_read, g_mus_midi_read_w, 2, 0, 0, H_mus_midi_read);
XEN_DEFINE_PROCEDURE(S_mus_midi_write, g_mus_midi_write_w, 2, 0, 0, H_mus_midi_write);
XEN_DEFINE_PROCEDURE(S_mus_midi_device_name, g_mus_midi_device_name_w, 0, 1, 0, H_mus_midi_device_name);
XEN_DEFINE_PROCEDURE(S_mus_midi_describe, g_mus_midi_describe_w, 0, 0, 0, H_mus_midi_describe);
#if WITH_MODULES
scm_c_export(S_mus_midi_open_read,
S_mus_midi_open_write,
S_mus_midi_close,
S_mus_midi_read,
S_mus_midi_write,
S_mus_midi_device_name,
S_mus_midi_describe,
NULL);
#endif
}
void g_init_gxfind(void)
{
XEN_DEFINE_PROCEDURE(S_find_dialog, g_find_dialog_w, 0, 2, 0, H_find_dialog);
XEN_DEFINE_PROCEDURE("find-dialog-widgets", g_find_dialog_widgets_w, 0, 0, 0, "internal auto-test function");
}
void g_init_gxlistener(void)
{
#if HAVE_SCHEME
#define H_mouse_enter_listener_hook S_mouse_enter_listener_hook " (listener): called when the mouse \
enters the lisp listener pane:\n\
(add-hook! " S_mouse_enter_listener_hook "\n\
(lambda (widget)\n\
(" S_focus_widget " widget)))"
#endif
#if HAVE_RUBY
#define H_mouse_enter_listener_hook S_mouse_enter_listener_hook " (listener): called when the mouse \
enters the lisp listener pane:\n\
$mouse_enter_listener_hook.add-hook!(\"enter\") do |widget|\n\
focus_widget(widget)\n\
end"
#endif
#if HAVE_FORTH
#define H_mouse_enter_listener_hook S_mouse_enter_listener_hook " (listener): called when the mouse \
enters the lisp listener pane:\n\
" S_mouse_enter_listener_hook " lambda: <{ wid }> wid " S_focus_widget " ; add-hook!"
#endif
#define H_mouse_leave_listener_hook S_mouse_leave_listener_hook " (listener): called when the mouse \
leaves the lisp listener pane"
mouse_enter_listener_hook = XEN_DEFINE_HOOK(S_mouse_enter_listener_hook, 1, H_mouse_enter_listener_hook); /* arg = listener_text widget */
mouse_leave_listener_hook = XEN_DEFINE_HOOK(S_mouse_leave_listener_hook, 1, H_mouse_leave_listener_hook); /* arg = listener_text widget */
#if HAVE_SCHEME
#define H_mouse_enter_text_hook S_mouse_enter_text_hook " (widget): called when the mouse enters a text widget:\n\
(add-hook! " S_mouse_enter_text_hook "\n\
(lambda (w)\n\
(" S_focus_widget " w)))"
#endif
#if HAVE_RUBY
#define H_mouse_enter_text_hook S_mouse_enter_text_hook " (widget): called when the mouse enters a text widget:\n\
$mouse_enter_text_hook.add_hook!(\"enter\") do |w|\n\
focus_widget(w)\n\
end"
#endif
#if HAVE_FORTH
#define H_mouse_enter_text_hook S_mouse_enter_text_hook " (widget): called when the mouse enters a text widget:\n\
" S_mouse_enter_text_hook " lambda: <{ wid }> wid " S_focus_widget " ; add-hook!"
#endif
#define H_mouse_leave_text_hook S_mouse_leave_text_hook " (widget): called when the mouse leaves a text widget"
mouse_enter_text_hook = XEN_DEFINE_HOOK(S_mouse_enter_text_hook, 1, H_mouse_enter_text_hook); /* arg = text widget */
mouse_leave_text_hook = XEN_DEFINE_HOOK(S_mouse_leave_text_hook, 1, H_mouse_leave_text_hook); /* arg = text widget */
XEN_DEFINE_PROCEDURE(S_listener_selection, g_listener_selection_w, 0, 0, 0, H_listener_selection);
XEN_DEFINE_PROCEDURE(S_reset_listener_cursor, g_reset_listener_cursor_w, 0, 0, 0, H_reset_listener_cursor);
XEN_DEFINE_PROCEDURE(S_goto_listener_end, g_goto_listener_end_w, 0, 0, 0, H_goto_listener_end);
#define H_listener_click_hook S_listener_click_hook " (pos): called when listener clicked; pos is text pos of click in listener"
listener_click_hook = XEN_DEFINE_HOOK(S_listener_click_hook, 1, H_listener_click_hook); /* arg = pos */
}
void g_init_gxutils(void)
{
XEN_DEFINE_PROCEDURE(S_send_mozilla, g_send_mozilla_w, 1, 0, 0, H_send_mozilla);
XEN_DEFINE_PROCEDURE_WITH_SETTER(S_window_property, g_window_property_w, H_window_property,
S_setB S_window_property, g_set_window_property_w, 2, 0, 3, 0);
}
void g_init_gxregion(void)
{
XEN_DEFINE_PROCEDURE(S_view_regions_dialog, g_view_regions_dialog_w, 0, 0, 0, H_view_regions_dialog);
}
