(defun selection-get (selection-data)
(let ((fmt (gtk-selection-data-get-format selection-data))
(len (gtk-selection-data-get-length selection-data))
(ptr (gtk-selection-data-get-data selection-data)))
(values
(defun selection-get (selection-data)
(let ((fmt (gtk-selection-data-get-format selection-data))
(len (gtk-selection-data-get-length selection-data))
(ptr (gtk-selection-data-get-data selection-data)))
(values