yes, i'm using win98 and the wxPerl beta 4.
looks like one of them has a bug.
right now i've no way to test it on another platform
(win2000 or linux)
if win98 has a bug, i've to programm this feature myself, so, how can
i get if the CONTROL key is pressed?
then i can set the $desired myself.
greeting
Marco
>> 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
|
