Beispiel #1
0
static void custom_object_finalize (GObject *object) {
  GObjectClass *parent_class;
  CustomObject* custom = (CustomObject*) object;
  parent_class = (GObjectClass*) g_type_class_peek_parent (object);
  ml_global_root_destroy(custom->caml_object);
  (*parent_class->finalize)(object);
}
Beispiel #2
0
static void clipboard_text_received_func (GtkClipboard *clipboard,
                                          const gchar *text,
                                          gpointer data)
{
  value arg = (text != NULL ? ml_some(copy_string(text)) : Val_unit);
  callback_exn (*(value*)data, arg);
  ml_global_root_destroy (data);
}
Beispiel #3
0
static void clipboard_received_func (GtkClipboard *clipboard,
                                     GtkSelectionData *selection_data,
                                     gpointer data)
{
  value arg = Val_pointer (selection_data);
  callback_exn (*(value*)data, arg);
  ml_global_root_destroy (data);
}