Tie-Wx-Widget


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

VERSION

0.9

USAGE

	use Tie::Wx::Widget;

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

	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.
Unless you init with

	use Tie::Wx::Widget 'warn';

	or do later:

	Tie::Wx::Widget::warn();

Then will be called warn instead of die. 
But you can switch anytime back with:

	Tie::Wx::Widget::die();

Wich has only effect for all variables afterwards.
Because if the Wx ref is not good there will be no tying anyway.


INSTALLATION

To install this module, run the following commands:

	perl Makefile.PL
	make
	make test
	make install

INTERNALS

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

	# now you even can:
	$tieobject->FETCH()
	# aka:
	$tieobject->{'widget'}->GetValue;
	# or do any other method on the wx object
	$tieobject->{'w'}->Show(0);
	# works too  (hides the widget)
	$tieobject->STORE(7);

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

SUPPORT AND DOCUMENTATION

After installing, you can find documentation for this module with the
perldoc command.

    perldoc Tie::Wx::Widget

You can also look for information at:

    RT, CPAN's request tracker (report bugs here)
        http://rt.cpan.org/NoAuth/Bugs.html?Dist=Tie-Wx-Widget

    AnnoCPAN, Annotated CPAN documentation
        http://annocpan.org/dist/Tie-Wx-Widget

    CPAN Ratings
        http://cpanratings.perl.org/d/Tie-Wx-Widget

    Search CPAN
        http://search.cpan.org/dist/Tie-Wx-Widget/

	Source Repository:

		http://bitbucket.org/lichtkind/tie-wx-widget

LICENSE AND COPYRIGHT

Copyright (C) 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.

