Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

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

by choroba (Abbot)
on Oct 24, 2012 at 07:43 UTC ( #1000563=note: print w/ replies, xml ) Need Help??


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.
لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ


Comment on Re: Perl/TK: how to set defaults for the whole script?
Download Code
Re^2: Perl/TK: how to set defaults for the whole script?
by perltux (Beadle) on Oct 24, 2012 at 09:08 UTC
    Thanks, that sounds like a good solution to me!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1000563]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (7)
As of 2014-07-11 21:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (235 votes), past polls