1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
#!/usr/bin/perl -w
use strict;
use Gtk2;
use Glib qw/TRUE FALSE/;
Gtk2->init;
my $fenetre = Gtk2::Window->new('toplevel');
$fenetre->set_default_size(500, 500);
my $liststore = Gtk2::ListStore->new('Glib::String');
my $treeview2 = Gtk2::TreeView->new($liststore);
my $treeview2column = Gtk2::TreeViewColumn->new();
$treeview2->append_column($treeview2column);
my $cell = Gtk2::CellRendererText->new();
$treeview2column->pack_start($cell, FALSE);
$treeview2column->add_attribute($cell, 'text', 0);
foreach my $number (1 .. 500) {
$liststore->set_value($liststore->append, 0, $number);
}
$fenetre->add($treeview2);
$fenetre->show_all;
Gtk2->main;
0; |
