RE: Re: [wxperl-users] Wx::DropTarget -> OnDragOver

[Mattia B. <mb...@ds...>]

> sorry for the delay, had to do other stuff.
> hope you still remember.
Yes

> i worked so long on my explanation, but looks like it was still not
> clear enough. well, here with a code example:
Well, it was clear enough ( for me ), I just can't reproduce that:

  my( $this, $x, $y, $desired ) = @_;
  my $tree = $this->{TREE};

  print $desired,"\n";

prints 3 when no key is pressed, and 2 when CTRL is pressed 
( BTW, wxDragNone == 1 )

> sub OnDragOver
> {
> 	my ($this, $x, $y, $ret) = @_;
> 
> 	if($ret == wxDragNone)    { print "wxDragNone\n"; }
> 	elsif($ret == wxDragCopy) { print "wxDragCopy\n"; }
> 	elsif($ret == wxDragMove) { print "wxDragMove\n"; }
> 	else                      { print "strainge!!\n"; }
> }
> 
> i always get wxDragNone.
> doesn't matter wich state the SHIFT or CONTROL keys have.
Does not happen for me...

> i expect different returns.
> but don't know what i should get at which key states. (????)
> 
> so i asked for an explanation why i always get wxDragNone (mistake
> from my side?)  and how i can get if the CONTROL key is pressed
> (because i only have to differentiate between copy and move...)
> 
> greetings&hope this time it's clearer
I hope this time *my* answer is clearer...

You are using the wxPerl beta in Win2k ( or was it 98? ), right?

Regards
Mattia