Voici mon probleme

J'utilise une boucle foreach pour remplir un liststore de nombre de 1 a x

Alors ca ressemble toujours a ca:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
row 0 = 1
row 1 = 2
row 2 = 3
ca marche bien avec une plage de 1 a 300 but mais quand la plage est d'environ 1 a 500, le programme et l'ordi gèle et le reste.

p.s je sais je pourrais utiliser une boucle for mais ceci est un code que j'ai reecrit pour qu'il soit simple. Le vrai programme est plus logique avec un foreach car ce n'est pas des nombres qui sont ajoutes mais du texte

Voici le code (perl):

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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;
merci