Bonjour à tous,
je ne sais pas si il y a des linuxiens sur ce forum, ça m'arrangerait bien ^^
J'ai un problème, je débute en Perl, et j'essaye de faire une GUI pour le script d'un ami...
J'ai créé le tout avec Glade et la fenêtre se ferme bien, et ma boite a propos aussi ^^ (je dis ça parce que j'ai pataugé avant de comprendre comment relier ces satanées fonctions de rappels) !
Le problème, c'est que je n'arrive pas à incrémenter ma liste à colones, voila mon code :
Code :
- #!/usr/bin/perl
- use strict;
- use warnings;
- use Gnome2;
- use Gtk2::GladeXML;
- my $clist1;
- my $fmabase = "mabase.txt";
- my @recup;
- my $nbreg = 0;
- Gnome2::Program->init ("Gestion de base de données de clients", "1.0" );
- my $gladexml = Gtk2::GladeXML->new('gui.glade');
- $gladexml->signal_autoconnect_from_package();
- open(LB,">>$fmabase" );
- while ( my $lecture = <LB> )
- {
- chomp($lecture);
- @recup = split(/\t/,$lecture);
- $clist1->insert( $nbreg, @recup );
- $nbreg++;
- }
- close( LB );
- Gtk2->main();
- ## Les fonctions de rappel
- sub on_window1_delete_event{
- Gtk2->main_quit ;
- }
- sub on_apropos1_activate{
- my $dialog = Gtk2::MessageDialog->new ($window1,
- [qw/modal destroy-with-parent/],
- 'info' ,
- 'ok' ,
- "A propos" ) ;
- $dialog->run ;
- $dialog->destroy() ;
- }
|
Comme je l'ai dit, ma fenetre s'affiche, tout bien ,avec tout mes controles mais impossible d'ajouter quoi que ce soit à ma liste à collones
merci de votre aide !