CAMLprim value caml_gp_camera_ref(value cam_val) { CAMLparam1(cam_val); Camera *cam = Camera_val(cam_val); gp_camera_ref(cam); CAMLreturn(Val_unit); }
GnoCamCamera * gnocam_camera_new (Camera *camera, CORBA_Environment *ev) { GnoCamCamera *gc; BonoboStorageCamera *storage; bonobo_return_val_if_fail (camera, NULL, ev); g_message ("Creating storage..."); storage = bonobo_storage_camera_new (camera, "/", Bonobo_Storage_READ | Bonobo_Storage_WRITE, ev); if (BONOBO_EX (ev)) return (NULL); gc = g_object_new (GNOCAM_TYPE_CAMERA, NULL); gc->camera = camera; gp_camera_ref (camera); g_message ("Adding interfaces..."); bonobo_object_add_interface (BONOBO_OBJECT (gc), BONOBO_OBJECT (storage)); gc->priv->event_source = bonobo_event_source_new (); bonobo_object_add_interface (BONOBO_OBJECT (gc), BONOBO_OBJECT (gc->priv->event_source)); return (gc); }
GtkamCamera * gtkam_camera_new (Camera *camera, gboolean multi) { GtkamCamera *c; c = g_object_new (GTKAM_TYPE_CAMERA, NULL); c->camera = camera; gp_camera_ref (camera); c->multi = multi; return (c); }