#!/bin/sh
-#$Id: snom.pl,v 1.24 2006-05-21 23:13:01 michael Exp $
+#$Id: snom.pl,v 1.26 2006-05-22 11:06:48 michael Exp $
# http://developer.gnome.org/doc/API/2.2/gtk/gtk-migrating-GtkComboBox.html
use Gtk2 '-init';
use Gtk2::Gdk::Keysyms;
use LWP::UserAgent;
-#use Config::IniFiles;
my %g_key = ();
my $ua = LWP::UserAgent->new;
$display->signal_connect(leave_notify_event => \&DisplayMouseOver, FALSE);
$display->show();
-my $host = Gtk2::ComboBox->new();
-# my $combobox = Gtk2::Ex::ComboBox->new($host);
-# $combobox->set_list(\@sections);
+my $host = Gtk2::ComboBox->new_text();
+foreach my $phone (@sections) {
+ $host->append_text($phone);
+}
+$host->set_active(0);
$host->show();
my $dispbox = Gtk2::VBox->new(0, 5);