Re: Use your mouse wheel as a dynamometer

[zentara]

Dosn't work on linux, $mw->bind('<MouseWheel>' => \&mph ); dosn't connect.

I added

$mw->bind('<MouseWheel>' => \&mph );
# for linux to work add
$mw->bind('<4>' => \&mph );
$mw->bind('<5>' => \&mph );

You should also use warnings; and use strict;

You might find Simple Tk Gauge interesting.

[coderama]

I do use warnings and strict, but once I have no errors i like to remove them to reduce memory. I added your comments to the original code.

[zentara]

I do use warnings and strict, but once I have no errors i like to remove them to reduce memory.

Picky Hat on:

I don't see how you could have used warnings and strict during development of this script, as you have too many variables with undeclared scope, as seen when you put warnings and strict back in. Unless you tell me you removed all the "my" declarations, to save memory, I just don't believe your assertion.

So now that you added warnings and strict to your code block, it throws errors in the sub mph{} and sub arrPush{}. Maybe you ought to take warnings and strict out? :-) heh heh heh

In that train of thought, what memory savings do you get by removing them? The millisecond you gain at program startup is far overwhelmed by the problems you have in your variables.

Sorry to be picky about this, but sloppy code is harder to troubleshoot, which I needed to do to get the binding working for linux.