Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re^3: Tk::Scale, how to avoid callback when displayed?

by golux (Pilgrim)
on Dec 25, 2012 at 18:59 UTC ( #1010284=note: print w/ replies, xml ) Need Help??


in reply to Re^2: Tk::Scale, how to avoid callback when displayed?
in thread Tk::Scale, how to avoid callback when displayed?

Hi perltux,

Would it be satisfactory to simply ignore the first call?

Using the example Khen1950fx gave (and fixing the scoping issue with $s) you could do it like this:

#!/usr/bin/perl use strict; use warnings; use Tk; my $top = MainWindow->new(); $top->title("scale tests"); my $f = $top->Frame( -relief => 'ridge', -borderwidth => 3, ); my $s; $s = $top->Scale( "-orient" => "horizontal", "-length" => 300, "-from" => 0, "-to" => 250, "-tickinterval" => 25, "-command" => sub { use feature 'state'; state $ncalls++ or return; printf "Callback: Scale(%d)\n", $_[0]; $f->configure( '-width' => $s->get ) } ); $s->pack(-side => 'left', -fill => 'y'); $f->pack(-side => 'right', -fill => 'y'); Tk::MainLoop;
say  substr+lc crypt(qw $i3 SI$),4,5


Comment on Re^3: Tk::Scale, how to avoid callback when displayed?
Download Code
Re^4: Tk::Scale, how to avoid callback when displayed?
by perltux (Beadle) on Dec 26, 2012 at 01:13 UTC
    Thanks that could be a viable workaround, I will look into it.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (2)
As of 2014-09-22 23:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (208 votes), past polls