Tcl Library Source Code

Artifact 5f62fa658f9d1714ce6c865b4a5f5c895621766509348e308e785875bf121bc8:

Attachment "dndtest.rb" to ticket [4ff12e3abd] added by kevin_walzer 2018-05-18 01:54:21.

---

require 'tk'
require 'tkextlib/tkDND'

Tk::TkDND::DND

label = TkLabel.new{
	text "Hello, World!"
	dnd_bindtarget('text/uri-list', '<Drop>'){|event|
		p event
	}
        pack
}

Tk.mainloop