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;