#!/usr/bin/perl

use strict;
use warnings;
use Gtk2 '-init';
use Glib qw/TRUE FALSE/;

my $window=Gtk2::Window->new;
$window->signal_connect('delete_event',sub{Gtk2::main_quit;});
my $vbox=Gtk2::VBox->new();
my $textview=Gtk2::TextView->new();
my $textbuffer=$textview->get_buffer;
my $textiter=$textbuffer->get_end_iter;
my $textiter1=$textbuffer->get_start_iter;
$textbuffer->insert($textiter, "Hello");
$textview->set_buffer($textbuffer);
my $button=Gtk2::Button->new("Submit");
$button->signal_connect(clicked=>sub{
	my $rt=$textbuffer->get_text($textiter1, $textiter, 1);
	print "$rt\n";
	});
$vbox->add($textview);
$vbox->add($button);
$window->add($vbox);
$window->show_all;
Gtk2->main;