Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Comment on


I tried it on my machine on Windows, and it does work as PodMaster suggested: It is an object, as you can see using

print " ref Font: " . ref($font) . "\n";

which prints ref Font: Wx::Font on my machine.

By the way, don't forget to use SetInitialFont() and remember the font data to set the initial font displayed to the user, or else your application will forget it's settings. E.g., do this:

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"; } }

In reply to Re: Wx::FontDialog Problem by crenz
in thread Wx::FontDialog Problem by T.G. Cornholio

and:  <code> code here </code>

  • Please read these before you post! —
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Log In?

    What's my password?
    Create A New User
    and the web crawler heard nothing...

    How do I use this? | Other CB clients
    Other Users?
    Others chilling in the Monastery: (4)
    As of 2014-12-29 11:27 GMT
    Find Nodes?
      Voting Booth?

      Is guessing a good strategy for surviving in the IT business?

      Results (186 votes), past polls