X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=gtkconsole%2FText.pm;fp=gtkconsole%2FText.pm;h=8957da25b23aa983027788fb3f3f69c43a4e8cf6;hb=6624dcdf07d628e8d6a16fc6549edf40be25b7b2;hp=0000000000000000000000000000000000000000;hpb=ca8e84c32e70ea8eb1f30e716b7dbdc92f7e5083;p=spider.git diff --git a/gtkconsole/Text.pm b/gtkconsole/Text.pm new file mode 100644 index 00000000..8957da25 --- /dev/null +++ b/gtkconsole/Text.pm @@ -0,0 +1,53 @@ +# +# create a text area with scroll bars +# +# Copyright (c) 2001 Dirk Koopman G1TLH +# +# $Id$ +# + +package Text; + +use strict; +use Gtk; + +use vars qw(@ISA); +@ISA = qw(Gtk::Text); + +sub new +{ + my $pkg = shift; + my ($vbar, $hbar) = @_; + + my $font = Gtk::Gdk::Font->load("-misc-fixed-medium-r-normal-*-*-130-*-*-c-*-koi8-r"); + my $text = new Gtk::Text(undef,undef); + my $style = $text->style; + $style->font($font); + $text->set_style($style); + $text->show; + my $vscroll = new Gtk::VScrollbar($text->vadj); + $vscroll->show; + my $box = new Gtk::HBox(); + $box->add($text); + $box->pack_start($vscroll, 0,0,0); + $box->show; + + my $self = bless $box, $pkg; + $self->{text} = $text; + $self->{text}->{font} = $font; + return $self; +} + +sub destroy +{ + my $self = shift; + delete $self->{text}->{font}; + delete $self->{text}; +} + +sub text +{ + return shift->{text}; +} + +1;