Select Code to Download

    my $XML_handler = Wx::RichTextXMLHandler->new;
    $XML_handler->LoadFile ( my $XML_buffer, "output.xml");
    $self->{rich_text_ctrl_1}->SetValue ( $XML_buffer );

#!/usr/bin/perl -w -- 

use Wx 0.15 qw[:allclasses];
...
    $app->MainLoop();
}
}

<?xml version="1.0" encoding="UTF-8"?>
<richtext version="1.0.0.0" xmlns="http://www.wxwidgets.org">
  <paragraphlayout textcolor="#000000" fontsize="8" fontstyle="90" fon
+tweight="90" fontunderlined="0" fontface="MS Shell Dlg 2" alignment="
+1" parspacingafter="10" parspacingbefore="0" linespacing="10">
...
    </paragraph>
  </paragraphlayout>
</richtext>