NAME

Tkx::MegaConfig - handle configuration options for megawidgets

SYNOPSIS

  package Foo;
  use base qw(Tkx::widget Tkx::MegaConfig);

  __PACKAGE__->_Mega("foo");
  __PACKAGE__->_Config(
      -option  => [$where, $dbName, $dbClass, $default],
  );

DESCRIPTION

The Tkx::MegaConfig class provide implementations of m_configure() and m_cget() that can handle configuration options for megawidgets. How these methods behave is set up by calling the _Config() class method. The _Config() method takes a set option/option spec pairs as argument.

An option argument is either the name of an option with leading '-' or the string 'DEFAULT' if this spec applies to all option with no explict spec.

The spec should be an array reference. The first element of the array ($where) describe how this option is handled. Some $where specs take arguments. If you need to provide argument replace $where with an array reference containg [$where, @args]. The rest specify names and default for the options database, but is currently ignored.

The following $where specs are understood:

.foo

Delegate the given configuration option to the "foo" kid of the mega widget. The name "." can be used to deletegate to the megawidget root itself. An argument can be given to delegate using a different name on the "foo" widget.

METHOD

Call the _config_opt method. For m_cget() no arguments are given, while for m_configure() the new value is passed. An argument can be given to forward to that method instead of _config_opt.

PASSIVE

Store or retrieve option from $self->_data.

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Copyright 2005 ActiveState. All rights reserved.

SEE ALSO

Tkx, Tkx::LabEntry

Inspiration for this module comes from Tk::ConfigSpecs.