File: bug32.tcl

package info (click to toggle)
tkdnd 2.9.5-0.1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 9,140 kB
  • sloc: tcl: 2,201; ansic: 2,110; cpp: 1,501; objc: 1,202; sh: 856; makefile: 56
file content (11 lines) | stat: -rw-r--r-- 316 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
 
package require tkdnd
pack [label .dragsource -text DragSource -height 5 -relief ridge]

tkdnd::drag_source register .dragsource

proc my_drag_init {types} {
    puts stderr "my_drag_init: {$types}"
    return [list copy DND_Text {Some nice dropped text!}]
}

bind .dragsource <<DragInitCmd>> [list my_drag_init %t]