1
drag_data_received <- function(widget, drag_context, x, y, data, info, time)
3
if ((data[["length"]] >= 0) && (data[["format"]] == 8)) {
4
if (drag_context[["action"]] == "ask") {
5
dialog <- gtkMessageDialog(NULL, c("modal", "destroy-with-parent"),
6
"info", "yes-no", "Move the data ?")
7
response <- dialog$run()
10
gtkDragFinish(drag_context, TRUE, response == "yes", time)
12
} else gtkDragFinish(drag_context, FALSE, FALSE, time)