Perl/Tk saves your favourite tools

Main
back: Mega widget -2
next: Atsar encap -3

(Full source of vumeter.pm) For my vumeter to work, I combine a few vu-bars. When a new set of values arrive, I shift the values from each vu-bar to its neighbour on the left. Then I pass the new values to the last vu-bar.

In my implementation, the values method makes use of the values as stored in the internals of th widget. That means that I'm stuck with the configure and cget calls.

With little effort, I can extend the flexibility of my widget, such that I can write:

   $vu1->values($vu2->values);
   $vu2->values($new);

This can be achieved by adding the line:

   $self->{Configure}{-values} = $values;

in the values() method of vu.pm: a forced store.

Mega widget -2

Atsar encap -3

Created by Mark Overmeer with PPresenter on 11 juli 2001.