X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=gtkconsole%2FText.pm;fp=gtkconsole%2FText.pm;h=f3b7debc53446551c8ee24f0ea49d9489ee8658e;hb=3b0eeaaa6152345bcd42380e385c04fb7e50a064;hp=0000000000000000000000000000000000000000;hpb=3aa18fa0ecc6b41eb898306d44fc99510130917a;p=spider.git

diff --git a/gtkconsole/Text.pm b/gtkconsole/Text.pm
new file mode 100644
index 00000000..f3b7debc
--- /dev/null
+++ b/gtkconsole/Text.pm
@@ -0,0 +1,50 @@
+#
+# 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);
+	$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;