http://www.perlmonks.org?node_id=1000558

perltux has asked for the wisdom of the Perl Monks concerning the following question:

With Perl/TK how do i change the inbuilt defaults for the whole script?

For example I want all Scale widgets to have the following settings:

-width => '10', -length => '200', -sliderlength => '16', -orient => 'horizontal', -borderwidth => '1', -cursor => 'hand2', -showvalue => '0'

How can I define that once for the whole script, as opposed to defining it each time I build a new Scale widget?