How can I add a new option to a composit ptk widget

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

Hi, I am making a new composit tk widget using tk::tree. I want to add pass an \@A to my new widget, the code is too long. I have used the following statement.

my $TREELEVEL = [ [2], [1,2,3], [5,6,7]];

$self->ConfigSpecs
(
-treelevels         =>  ['METHOD',       qw/treelevels         Treelev
+els/,       $TREELEVEL/ ],
);
[download]

When I run my code I get the following error message:

bad option "-treelevels": must be -after, -anchor, -before, -expand, -
+fill, -in, -ipadx, -ipady, -padx, -pady, or -side
at C:/PRG/Perl/site/lib/Tk/Widget.pm line 1214.
[download]

Any idea on how I can do this.

Regards, smh

Back to Seekers of Perl Wisdom