Select Code to Download

use strict;
use warnings;
...
    if ($evt->IsChecked()) { $smalltext->ChangeValue('checked'); }
    else           { $smalltext->ChangeValue('unchecked'); }
}

    use WxSimple qw($xrc $frmID $sbar %menu $OpenFile $SaveFile $Close
+Win $icon);

my ($window, $id) = WxSimple::FindWindowByXid('xmlid')

package WxSimple; use base qw(Wx::App Exporter);
    use strict;
...
    to do that.
    
    Finally a call to C<MainLoop()> starts the window loop.

<?xml version="1.0" ?>
<resource>
...
  </object>
</resource>
</readmore>