File: bug34.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 (13 lines) | stat: -rw-r--r-- 259 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
package require tkdnd 2.9.2

menu .menu
.menu add cascade -label MENU
. configure -menu .menu

label .widget -text "LABEL"
pack .widget -expand 1 -fill both

tkdnd::drop_target register .widget *
bind .widget <<DropEnter>> {puts enter}

wm geometry . 300x200