Re: Perl/TK: how to set defaults for the whole script?

in reply to Perl/TK: how to set defaults for the whole script?

You do not have to type the whole thing every time, just keep it in a variable:

my %Scale_defaults = (
        -width        => 10,
        -length       => 200,
        -sliderlength => 16,
        -orient       => 'horizontal',
        -borderwidth  => 1,
        -cursor       => 'hand2',
        -showvalue    => 0
    );

# ...

my $s = $mainwindow->Scale(%Scale_defaults,
                           -showvalue => 1); # override a default
[download]

If even this is not enough, you can subclass Scale and instantiate objects of the new class instead.

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

In Section Seekers of Perl Wisdom