note
PodMaster
<blockquote><i>Wx::STC does not work any longer, the program just segfaults.</i></blockquote>
When you recompiled widgets, did you recompile STC? Didn't think so.
<blockquote><i>
How do I change the font of the widget?...
</i></blockquote>
*boggle* SetFont most certainly does something (it sets the font).
<readmore>
<code>
#!/usr/bin/perl -w --
# generated by wxGlade 0.3.4 on Wed Aug 25 07:21:59 2004
# To get wxPerl visit http://wxPerl.sourceforge.net/
use Wx 0.15 qw[:allclasses];
use strict;
package MyFrame;
use Wx qw[:everything];
use base qw(Wx::Frame);
use strict;
sub new {
my( $self, $parent, $id, $title, $pos, $size, $style, $name ) = @_;
$parent = undef unless defined $parent;
$id = -1 unless defined $id;
$title = "" unless defined $title;
$pos = wxDefaultPosition unless defined $pos;
$size = wxDefaultSize unless defined $size;
$name = "" unless defined $name;
# begin wxGlade: MyFrame::new
$style = wxDEFAULT_FRAME_STYLE
unless defined $style;
$self = $self->SUPER::new( $parent, $id, $title, $pos, $size, $style, $name );
$self->{text_ctrl_1} = Wx::TextCtrl->new($self, -1, "", wxDefaultPosition, wxDefaultSize, wxTE_MULTILINE);
$self->{text_ctrl_1}->SetValue("Pod ". ( "pod\n" x 666) );
$self->__set_properties();
$self->__do_layout();
return $self;
# end wxGlade
}
sub __set_properties {
my $self = shift;
# begin wxGlade: MyFrame::__set_properties
$self->SetTitle("frame_1");
$self->{text_ctrl_1}->SetFont(Wx::Font->new(28, wxDEFAULT, wxNORMAL, wxNORMAL, 0, "MS Shell Dlg"));
# end wxGlade
}
sub __do_layout {
my $self = shift;
# begin wxGlade: MyFrame::__do_layout
$self->{sizer_1} = Wx::BoxSizer->new(wxVERTICAL);
$self->{sizer_1}->Add($self->{text_ctrl_1}, 1, wxEXPAND, 0);
$self->SetAutoLayout(1);
$self->SetSizer($self->{sizer_1});
$self->{sizer_1}->Fit($self);
$self->{sizer_1}->SetSizeHints($self);
$self->Layout();
# end wxGlade
}
# end of class MyFrame
1;
package MyApp;
use base qw(Wx::App);
use strict;
sub OnInit {
my( $self ) = shift;
Wx::InitAllImageHandlers();
my $frame_1 = MyFrame->new();
$self->SetTopWindow($frame_1);
$frame_1->Show(1);
return 1;
}
# end of class MyApp
package main;
unless(caller){
my $app = MyApp->new();
$app->MainLoop();
}
</code></readmore>
<div class="pmsig"><div class="pmsig-107642">
<div class="pmsig"><div class="pmsig-107642"><p><table border=0 cellpadding=1 cellspacing=0 width="100%"><tr><td colspan=2 bgcolor="#FFF0FF"><small><font color="black"><a href="http://perlmonks.org/index.pl?node=MJD"><b><font color="#0F0FAA">MJD</font></b></a> <a href="http://www.perl.org/yapc/2002/movies/themovie/"><b><font color="#0F0FAA">says</font></b></a> "you <i>can't just make shit up and expect the computer to know what you mean, retardo</i><B>!</B>"</font></small></td></tr><tr><td colspan=2 bgcolor="#FFE0FF"><small><font color="black">I run a Win32 PPM <a href="http://perlmonks.org/index.pl?node=162391"><b><font color="#0F0FAA">repository</font></b></a> for perl <a href="http://crazyinsomniac.perlmonk.org/perl/ppm"><b><font color="#0F0FAA">5.6.x</font></b></a> and <a href="http://crazyinsomniac.perlmonk.org/perl/ppm/5.8"><b><font color="#0F0FAA">5.8.x</font></b></a> -- I take requests (<a href="http://crazyinsomniac.perlmonk.org/perl/ppm/README.html"><b><font color="#0F0FAA">README</font></b></a>).</font></small></td></tr><tr><td colspan=2 bgcolor="#FFD0FF"><small><font color="black">** The third rule of perl club is a statement of fact: pod is sexy.</font></small></td></tr></table></div></div>
</div></div>
385677
385677