NAME Tie::Wx::Widget - implicit access value of a Wx widget SYNOPSIS use Tie::Wx::Widget; tie $tiedwidget, Tie::Wx::Widget, $widget; $tiedwidget = 7; # instead of $widgetref->SetValue(7); say $tiedwidget; # instead of say $widgetref->GetValue; untie $tiedwidget; # now $tiedwidget is a normal scalar again (not required) CALLBACKS Often are the widget values coupled with each other. For instance in App::Spirograph is a slider, which max value is the value of another slider. Once you know this, why keep track of it and change the range by hand any given time? tie $tslider, Tie::Wx::Widget, $slider, sub { $[0]->SetValue($[1]); $subslider->SetRange(1, $[1]) }; The first parameter to the callback is always the Wx object reference, the assign-callback gets also a second with the assigned value. Own callbacks replace the the ones, generated by default. The complete parameter list is is: tie $tw, Tie::Wx::Widget, $widget, [&$do_when_assign, &$do_when_retrieve]; Yes, its also doable with events, but thats also more syntax than this. Plus, its a different event for many widgets, why remember this? Plus, a tied widget still gives you the freedom to change the value under the radar. See section "INTERNALS" for more. WARNINGS Your program will "die", if you don't provide a proper Wx widget, that has a GetValue and SetValue method, or the callbacks are no coderef. Unless you init with: use Tie::Wx::Widget 'warn_mode'; or do later: Tie::Wx::Widget::warn_mode(); Then will be called "warn" instead of "die". But you can switch anytime back with: Tie::Wx::Widget::die_mode(); Wich has only effect for all variables tied afterwards. Because if the Wx ref is not good, there will be no tying anyway. 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() ACKNOWLEDGEMENTS This was solely my idea before Linuxtag 2011. Started as a slide for my talk there. AUTHOR Herbert Breunung, "" LICENSE AND COPYRIGHT Copyright 2011-2022 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.