2 # create a text area with scroll bars
4 # Copyright (c) 2001 Dirk Koopman G1TLH
20 my ($vbar, $hbar) = @_;
22 my $font = Gtk::Gdk::Font->load("-misc-fixed-medium-r-normal-*-*-130-*-*-c-*-koi8-r");
23 my $text = new Gtk::Text(undef,undef);
24 my $style = $text->style;
26 $text->set_style($style);
28 my $vscroll = new Gtk::VScrollbar($text->vadj);
30 my $box = new Gtk::HBox();
32 $box->pack_start($vscroll, 0,0,0);
35 my $self = bless $box, $pkg;
36 $self->{text} = $text;
37 $self->{text}->{font} = $font;
44 delete $self->{text}->{font};