Select Code to Download

sub on_click_richtext_preview_close {

    my($self,$event) = @_;
...
    $self->Destroy;

}

    Wx::Event::EVT_CLOSE( $frame , \&on_click_richtext_preview_close )
+;