Perl/Tk saves your favorite tools

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

(Full source of 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:

This can be achieved by adding the line:
   $self->{Configure}{-values} = $values;
in the values() method of a forced store.
Mega widget -2 Atsar encap -3

Created by Mark Overmeer with PPresenter on 22 May 2000.