stop uninit warning in ButtonControl

mohawk2 · mohawk2 · commit 299768e80588 · 2026-01-03T19:39:06.000Z
diff --git a/lib/PDL/Graphics/TriD/ButtonControl.pm b/lib/PDL/Graphics/TriD/ButtonControl.pm
@@ -93,7 +93,7 @@ sub ButtonPress{
 #
 # 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//0);
 
 #  print "$x $y ",$this->{Win}{X0}," ",$this->{Win}{Y0}," ",$this->{Win}{W}," ",$this->{Win}{H},"\n";
 

Original file line number	Diff line number	Diff line change
`@@ -93,7 +93,7 @@ sub ButtonPress{`
`93`	`93`	`#`
`94`	`94`	`# GL (0,0) point is Lower left X and Tk is upper left.`
`95`	`95`	`#`
`96`		`- $y = $PDL::Graphics::TriD::current_window->{Height}-$y;`
	`96`	`+ $y = $PDL::Graphics::TriD::current_window->{Height}-($y//0);`
`97`	`97`
`98`	`98`	`# print "$x $y ",$this->{Win}{X0}," ",$this->{Win}{Y0}," ",$this->{Win}{W}," ",$this->{Win}{H},"\n";`
`99`	`99`