(glib:glib-error (condition)
(make-instance 'message-dialog
:message-type :error :visible t
:text "<b>Failed to load an image</b>"
:secondary-text (glib:gerror-message condition)
(glib:glib-error (condition)
(make-instance 'message-dialog
:message-type :error :visible t
:text "<b>Failed to load an image</b>"
:secondary-text (glib:gerror-message condition)