Eric Hansen wrote:
Hello, But I still don't see a Double CLick event for TreeView nodes. This is greatly needed.
How about this: #!perl -w use strict; use warnings; use Win32::GUI; my $mw = Win32::GUI::Window->new( -title => "terminate test", -pos => [100,100], -size => [400,300], ); my $tv = $mw->AddTreeView( -size => [100,100], -lines => 1, -rootlines => 1, -buttons => 1, -checkboxes => 0, -onMouseDblClick => \&tvDblClick, ); my $root = $tv->InsertItem( -text => "Parent", -indent => 1, ); $tv->InsertItem( -parent => $root, -text => "Child 1" ); $tv->InsertItem( -parent => $root, -text => "Child 2" ); $mw->Show(); Win32::GUI::Dialog(); exit(0); sub tvDblClick { my ($self, $x, $y) = @_; # x,y in client co-ordinates my $node = $self->HitTest($x,$y); if($node != 0) { my %info = $self->GetItem($node); print "Mouse Dbl Click ($node: $info{-text})\n"; } return; } __END__ Regards, Rob. -- Robert May Win32::GUI, a perl extension for native Win32 applications http://perl-win32-gui.sourceforge.net/