"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Graphics/TriD/TriD/ButtonControl.pm" between
PDL-2.077.tar.gz and PDL-2.078.tar.gz

About: PDL (Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).

ButtonControl.pm  (PDL-2.077):ButtonControl.pm  (PDL-2.078)
skipping to change at line 75 skipping to change at line 75
=head2 ButtonRelease =head2 ButtonRelease
=for ref =for ref
A do nothing function to prevent errors if not defined in a subclass A do nothing function to prevent errors if not defined in a subclass
=cut =cut
sub ButtonRelease{ sub ButtonRelease{
my ($this,$x,$y) = @_; my ($this,$x,$y) = @_;
$this->{Win}{Active} = 0;
print "ButtonRelease @_\n" if $PDL::Graphics::TriD::verbose; print "ButtonRelease @_\n" if $PDL::Graphics::TriD::verbose;
$this->{Win}{Active} = 0;
} }
=head2 ButtonPress =head2 ButtonPress
=for ref =for ref
Activates the viewport the mouse is inside when pressed Activates the viewport the mouse is inside when pressed
=cut =cut
$PDL::Graphics::TriD::current_window = $PDL::Graphics::TriD::current_window; # w arnings $PDL::Graphics::TriD::current_window = $PDL::Graphics::TriD::current_window; # w arnings
sub ButtonPress{ sub ButtonPress{
my ($this,$x,$y) = @_; my ($this,$x,$y) = @_;
print "ButtonPress @_ ",ref($this->{Win}),"\n" if $PDL::Graphics::TriD::verbos e;
# #
# GL (0,0) point is Lower left X and Tk is upper left. # GL (0,0) point is Lower left X and Tk is upper left.
# #
$y = $PDL::Graphics::TriD::current_window->{Height}-$y; $y = $PDL::Graphics::TriD::current_window->{Height}-$y;
# print "$x $y ",$this->{Win}{X0}," ",$this->{Win}{Y0}," ",$this->{Win}{W}," ", $this->{Win}{H},"\n"; # print "$x $y ",$this->{Win}{X0}," ",$this->{Win}{Y0}," ",$this->{Win}{W}," ", $this->{Win}{H},"\n";
if($this->{Win}{X0} <= $x && $this->{Win}{X0}+$this->{Win}{W}>=$x if($this->{Win}{X0} <= $x && $this->{Win}{X0}+$this->{Win}{W}>=$x
&& $this->{Win}{Y0} <= $y && $this->{Win}{Y0}+$this->{Win}{H}>=$y ){ && $this->{Win}{Y0} <= $y && $this->{Win}{Y0}+$this->{Win}{H}>=$y ){
$this->{Win}{Active} = 1; $this->{Win}{Active} = 1;
} }
print "ButtonPress @_ ",ref($this->{Win}),"\n" if $PDL::Graphics::TriD::verbos e;
} }
=head2 set_wh =head2 set_wh
=for ref =for ref
Define the width and Height of the window for button control Define the width and Height of the window for button control
=cut =cut
 End of changes. 4 change blocks. 
2 lines changed or deleted 2 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)