Gtk2 - perl 学习记录

HBox和VBox创建时有两个参数：
  new(是否平分每个box, 内部各个Widget之间的距离)
Window设置内部间隔：
  set_border_width($px)
让scroll到最底部：
use Glib qw(FALSE);
use Gtk2 -init;
# create a window with a scrolled text view.
my $window = Gtk2::Window->new;
$window->signal_connect (delete_event => sub {exit});
my $scroll = Gtk2::ScrolledWindow->new;
my $textview = Gtk2::TextView->new;
$scroll->add ($textview);
$window->add ($scroll);
$window->show_all;

my $buffer = $textview->get_buffer;

# create a mark at the end of the buffer, with right gravity,
# so that when you insert text, the mark always stays on
# the right (at the end).
my $end_mark = $buffer->create_mark ('end', $buffer->get_end_iter, FALSE);
# every time we insert text, scroll to that mark.
$buffer->signal_connect (insert_text => sub {
$textview->scroll_to_mark ($end_mark, 0.0, TRUE, 0.0, 1.0);
});

# display the output of some long-running command...
open IN, "sleep 1; ls -l |";
Glib::IO->add_watch (fileno IN, ['in', 'hup'], sub {
my ($fd, $condition) = @_;
if ($condition >= 'in') {
$buffer->insert ($buffer->get_end_iter, scalar );
}
if ($condition >= 'hup') {
close IN;
return FALSE;
}
return TRUE;
});

Gtk2->main;
LINK：http://gtk2-perl.sourceforge.net/faq/#46