print " ref Font: " . ref($font) . "\n"; #### sub OnTest { my($self, $event) = @_; my $dialog = Wx::FontDialog->new($self, $self->{fontdata}); $dialog->Create($self); if ($dialog->ShowModal() == wxID_OK) { $self->{fontdata} = $dialog->GetFontData(); my $font = $self->{fontdata}->GetChosenFont(); $self->{fontdata}->SetInitialFont($font); printf("You chose %s %ipt\n", $font->GetFaceName(), $font->GetPointSize()); } else { print "No choice.\n"; } }