[wxperl-users] WxDesigner Strategy

[Robert J. <rj...@se...>]

<P>Folks,<BR>
<BR>
Is anyone else using WxDesigner?<BR>
<BR>
WxDesigner puts the dialogs in a separate file. I can hardcode references in this file:<BR>
<BR>
$main::myLocationText = $item3;<BR>
<BR>
But, I'd rather find a better approach. Is there a way to locate items by ID in WxPerl?<BR>
<BR>
Robert<BR>
<BR>
<BR>
--------------------<BR>
<BR>
Example Code<BR>
<BR>
<BR>
use vars qw($LOGIN_TEXTCTRL); $LOGIN_TEXTCTRL = 10007;<BR>
</P>
<P>sub DataEntryDialog {<BR>
&nbsp;&nbsp;&nbsp; my( $item0 ) = Wx::FlexGridSizer-&gt;new( 0, 1, 0, 0 );<BR>
&nbsp;&nbsp;&nbsp; $item0-&gt;AddGrowableCol( 0 );<BR>
&nbsp;&nbsp;&nbsp; <BR>
&nbsp;&nbsp;&nbsp; my( $item1 ) = Wx::BoxSizer-&gt;new( wxHORIZONTAL );<BR>
&nbsp;&nbsp;&nbsp; <BR>
&nbsp;&nbsp;&nbsp; my( $item2 ) = Wx::StaticText-&gt;new( $_[0], $main::SPREADSHEET_TEXT, "Working Spreadsheet", wxDefaultPosition, wxDefaultSize, 0 );<BR>
&nbsp;&nbsp;&nbsp; $item1-&gt;AddWindow( $item2, 0, wxALIGN_CENTER|wxALL, 5 );</P>
<P>&nbsp;&nbsp;&nbsp; my( $item3 ) = Wx::TextCtrl-&gt;new( $_[0], $main::LOCATION_TEXTCTRL, "", wxDefaultPosition, [200,-1], 0 );<BR>
<BR>
$main::myLocationText = $item3;<BR>
</P><BR>