RE: Drag and Drop in Tkx

> Here's a new thread with a suggestion to include the results 
> in the Tkx
> documentation (following an earlier thread on documentation issues).
> How do we do drag and drop in Tkx? Does anyone have a simple 
> script that
> demonstrates this for, say, a listbox widget that allows 
> dropping in file
> names from folders on the desktop (in Windows, Mac, and 
> Linux)? Or, a text
> widget that allows dropping in the contents of files from a 
> simple text
> file.

I have no Tkx usage, but I'll share my more generic Tcl.pm way.

For intra-application DND, you need to use widgets that support that.
For example, BWidgets support this, so may be we could easily develop a Tkx example with BWidgets DND.

In my applications I use another way.

I use tkdnd http://wiki.tcl.tk/2768, which allows me dropping items from external applications.

It happened this way that I am using two ways of doing DND in my applications, both ways based on the same engine under the hood.

The newer way, which I currently prefer, involves some pure-tcl code, which I mostly copy-pasted from eslewhere..
Here is pure-tcl code that I feed to tcl/tk:

package require tkdnd

#the line below is just creating a widget - no "dnd" consideration
pack [entry .frTop1.current_dir -textvariable ptclv_current_dir] -side left -fill x -expand 1

# and this actually makes DND work
tkdnd::drop_target register .frTop1.current_dir *
bind .frTop1.current_dir <<Drop:DND_Files>> {
    set ptclv_current_dir [lindex %D 0]
    ptcl_refresh
}
.......
EOF

Then I even do not bother about widget .frTop1.current_dir - it has DND, binded to variable so I do not even expose widget itself to my perl program.
I do expose other widgets, however.

This approach will suit for Tkx module as well - it is front-end syntax agnostic.

Another, elder way, which I do not prefer anymore, uses Tcl::Tk syntax, and technically it is absolytely the same.

    $interp->packageRequire('tkdnd','2.0');

    my $w_curdir = $frame->Entry(-textvariable=>\$var)->pack(-side=>'left',-expand=>1,-fill=>'x');
    $interp->tkdnd__drop_target(register => $w_curdir, "*");
    $w_curdir->bind('<<Drop:DND_Files>>', \\'D', sub {
	    my (undef,undef,undef,$data) = @_;
	    ($$cwd_r) = $interp->SplitList($data);
	});

> Even in Tcl, this seems to be a poorly documented issue.

Things are not that bad if you know where to search :)

BWidgets is well-documented, so if you need inter-app DND, then it will suffice.

Usually Jeff tell us about which packages are poorly supported and which are not, and IIRC he said BWidgets are o-kay to use :)

BR,
Vadim.