NAME

Tie::Wx::Widget - get and set the main Value of a Widget with less syntax

SYNOPSIS

use Tie::Wx::Widget;

tie $tiedwidget, Tie::Wx::Widget, $widgetref;

say $tiedwidget;       # instead of say $widgetref->GetValue;

$tiedwidget = 7;       # instead of $widgetref->SetValue(7);

untie $tiedwidget;     # now $tiedwidget is a normal scalar again (not required)

ATTENTION

Your Program will die, if you don't provide a proper reference to a Wx widget, that has a GetValue and SetValue method.

INTERNALS

# how to get a reference to the Tie::Wx::Widget object ?
$tieobjectref = tie $tiedwidget, Tie::Wx::Widget, $widgetref;
$tieobjectref = tied $tiedwidget;

# now you even can:
$tieobjectref->FETCH()
# aka:
$tieobjectref->{'widget'}->GetValue;
# or do any other method on the wx object
$tieobjectref->STORE(7);

# doesn't do anything
$tieobjectref->DESTROY()

BUGS

Please report any bugs or feature requests to bug-tie-wx-widget at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Tie-Wx-Widget. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

perldoc Tie::Wx::Widget

You can also look for information at:

ACKNOWLEDGEMENTS

This was solely my idea.

AUTHOR

Herbert Breunung, <lichtkind at cpan.org>

LICENSE AND COPYRIGHT

Copyright 2011 Herbert Breunung.

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.