/*
* Initializes the GbWidget structure.
* I've placed this at the end of the file so we don't have to include
* declarations of all the functions.
*/
GbWidget*
gb_input_dialog_init ()
{
/* Initialise the GTK type */
volatile GtkType type;
type = gtk_input_dialog_get_type();
/* Initialize the GbWidget structure */
gb_widget_init_struct(&gbwidget);
/* Fill in the pixmap struct & tooltip */
gbwidget.pixmap_struct = inputdialog_xpm;
gbwidget.tooltip = _("Input Dialog");
/* Fill in any functions that this GbWidget has */
gbwidget.gb_widget_new = gb_input_dialog_new;
gbwidget.gb_widget_get_child = gb_input_dialog_get_child;
gbwidget.gb_widget_create_properties = gb_input_dialog_create_properties;
gbwidget.gb_widget_get_properties = gb_input_dialog_get_properties;
gbwidget.gb_widget_set_properties = gb_input_dialog_set_properties;
gbwidget.gb_widget_write_source = gb_input_dialog_write_source;
gbwidget.gb_widget_destroy = gb_window_destroy;
/*
gbwidget.gb_widget_create_popup_menu = gb_input_dialog_create_popup_menu;
*/
return &gbwidget;
}
CAMLprim value ml_gtkwindow_init(value unit)
{
/* Since these are declared const, must force gcc to call them! */
GType t =
gtk_message_dialog_get_type() +
gtk_input_dialog_get_type() +
gtk_color_selection_dialog_get_type() +
gtk_file_selection_get_type() +
gtk_font_selection_dialog_get_type()
#ifndef _WIN32
+ gtk_plug_get_type()
+ gtk_socket_get_type()
#endif
;
return Val_GType(t);
}
