Beefy Boxes and Bandwidth Generously Provided by pair Networks DiBona
Problems? Is your data what you think it is?
 
PerlMonks  

Re: Use your mouse wheel as a dynamometer

by zentara (Archbishop)
on Sep 28, 2011 at 17:21 UTC ( #928373=note: print w/ replies, xml ) Need Help??


in reply to Use your mouse wheel as a dynamometer

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.


I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh


Comment on Re: Use your mouse wheel as a dynamometer
Download Code
Re^2: Use your mouse wheel as a dynamometer
by coderama (Novice) on Sep 29, 2011 at 11:49 UTC
    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.
      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.


      I'm not really a human, but I play one on earth.
      Old Perl Programmer Haiku ................... flash japh

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://928373]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (7)
As of 2014-04-16 04:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (413 votes), past polls