Tk Source Code: Artifact [de40ee10]

Artifact de40ee1061a9372fbf6ca9eadf151d1c024a42ef:

Attachment "popup.tcl" to ticket [869305ff] added by trott13 2004-01-02 20:58:15.


bind . <Button-1> {tk_popup .m %X %Y}
bind . <ButtonRelease-1> {set m "%W %T release"}
bind . <B1-Motion> {set m "%W %T motion"}

menu .m -tearoff 0

foreach i {0 1 2 3 4 5 6 7 8 9} {
    .m add radiobutton -indicatoron 0 \
		-underline 0 -label $i
}

label .l -textvariable m
pack .l

wm geometry . 300x300