'\" .UL arg1 arg2
'\" Print arg1 underlined, then print arg2 normally.
'\"
-'\" RCS: @(#) $Id: man.macros,v 1.3 2001/02/17 07:46:19 ghowlett Exp $
+'\" RCS: @(#) $Id: man.macros,v 1.1.1.1 2009/05/09 16:27:42 pcmacdon Exp $
'\"
'\" # Set up traps and other miscellaneous stuff for Tcl/Tk man pages.
.if t .wh -1.3i ^B
.de UL
\\$1\l'|0\(ul'\\$2
..
-.TH drag&drop n 2.4 BLT "BLT Built-In Commands"
+.TH drag&drop n 2.5 BLT "BLT Built-In Commands"
.BS
'\" Note: do not modify the .SH NAME line immediately below!
.SH NAME
.sp
.nf
.RS
-\f(CWbind \fIwin\fP <ButtonPress-\fIn\fP> {drag&drop drag %W %X %Y}
-\f(CWbind \fIwin\fP <B\fIn\fP-Motion> {drag&drop drag %W %X %Y}
-\f(CWbind \fIwin\fP <ButtonRelease-\fIn\fP> {drag&drop drop %W %X %Y}\fR
+\fBbind \fIwin\fP <ButtonPress-\fIn\fP> {drag&drop drag %W %X %Y}
+\fBbind \fIwin\fP <B\fIn\fP-Motion> {drag&drop drag %W %X %Y}
+\fBbind \fIwin\fP <ButtonRelease-\fIn\fP> {drag&drop drop %W %X %Y}\fR
.RE
.fi
.sp
.sp
.nf
.RS
-\f(CWproc package_list_item {lbox token} {
+\fBproc package_list_item {lbox token} {
set xy [drag&drop location]
set y [expr [lindex $xy 1]-[winfo rooty $lbox]]
.sp
.nf
.RS
-\f(CWdrag&drop source .foo
+\fBdrag&drop source .foo
set win [drag&drop token .foo]
label $win.label -text "Data"