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);
25 my $vscroll = new Gtk::VScrollbar($text->vadj);
27 my $box = new Gtk::HBox();
29 $box->pack_start($vscroll, 0,0,0);
32 my $self = bless $box, $pkg;
33 $self->{text} = $text;
34 $self->{text}->{font} = $font;
41 delete $self->{text}->{font};