How to disable Tk DragDrop console messages?

JamesNC has asked for the wisdom of the Perl Monks concerning the following question:

Win32 Perl 5.8 Tk 800.024
The following code demonstrates drag drop from a remote source. If you drag a file over the text widget and drop, the text box will display the file name.
When the file is dropped, a callback sends a message to the console. I would like to disable that message. Does anyone know how?

use strict;

use Tk;
use Tk::DropSite;

my $mw = tkinit;
my $txt = $mw->Text(-font, ['Lucida Sans Unicode', '8'], -height, 4, -
+width, 60)->pack();
my $drop = $txt->DropSite(-droptypes,'Win32', -dropcommand, [\&dropCmd
+, $txt]);

MainLoop;


sub dropCmd {
    my ($widget, $selection) = @_;
    my $filename = $widget->SelectionGet(-selection => $selection,'STR
+ING');
    if (defined $filename) {
    $widget->insert('end', $filename."\n");
    }
}
[download]

Thanks,
JamesNC

Comment on How to disable Tk DragDrop console messages? Download Code

Replies are listed 'Best First'.

Re: How to disable Tk DragDrop console messages?
by pg (Canon) on Nov 19, 2003 at 07:33 UTC

I think the hope to remove that debug message alone, without modifying source code, is slight.

But I can explain that magic number, 563, showed on the screen. That's a window message id. It is defined as a constant in winuser.h, identifier WM_DROPFILES, value 0x233, which is 563.

It is a windows message being sent to the receiver of the drop action. If you debug your code into a little bit more detail, you will see that the message bothered you shows up, right before entering your dropCmd sub. The sequence makes sense, as once the receiver got notified by receiving that message 563, it then calls your dropCmd sub.

[reply]

Re: How to disable Tk DragDrop console messages?
by doran (Deacon) on Nov 19, 2003 at 05:33 UTC

I'm not sure (yet) what's causing the message, but you can get rid of it by redirecting or closing STDERR. Probably not The Right Answer, but it gets the job done.