#!/usr/bin/perl
use strict;
use warnings;
use Glib;
use Gtk2 '-init';
use Gtk2::SimpleList;


# Connect to the glade file
my $builder = Gtk2::Builder->new ();
$builder->add_from_file ('example.glade');
$builder->connect_signals ();
 
# connect to the combobox
my $combo = $builder->get_object ('combobox1'); 
my @listing = qw/random stuff just to test /; 
my $text;
 
# This is supposed to append the @listing to the
# combobox
foreach $text (@listing) {
	$combo->append_text ($text);
}

$builder->get_object ('window1')->show_all;
Gtk2->main;

##</code><code>##

<?xml version="1.0"?>
<interface>
  <requires lib="gtk+" version="2.16"/>
  <!-- interface-naming-policy project-wide -->
  <object class="GtkWindow" id="window1">
    <child>
      <object class="GtkComboBox" id="combobox1">
        <property name="visible">True</property>
      </object>
    </child>
  </object>
</interface>

##</code><code>##

Gtk-CRITICAL **: gtk_combo_box_append_text: assertion `GTK_IS_LIST_STORE (combo_box->priv->model)' failed at /home/abijr/progs/perl/gtk/hello line 22.