(signal-connect button 'drag-data-received
#'(lambda (context x y selection target-type time)
(declare (ignore context x y time))
(signal-connect button 'drag-data-received
#'(lambda (context x y selection target-type time)
(declare (ignore context x y time))