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

[choroba]

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

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

[perltux]

Thanks, that sounds like a good solution to me!