#!/bin/sh
-#$Id: snom.pl,v 1.22 2006-05-21 23:07:19 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
PATH=/opt/csw/bin:/opt/local/bin:/usr/bin:/bin exec perl -w -x "$0" "$@"
use Gtk2 '-init';
use Gtk2::Gdk::Keysyms;
use LWP::UserAgent;
-#use Config::IniFiles;
my %g_key = ();
my $ua = LWP::UserAgent->new;
}
if (@sections) {
- for my $var (qw(host login password)) {
- if (m/^\s*${var}\s*=\s*(.*)\s*$/) {
- ${$Config{$sections[$#sections]}}{$var} = $1;
- }
+ if (m/^\s*(.+)\s*=\s*(.*)\s*$/) {
+ ${$Config{$sections[$#sections]}}{$1} = $2;
}
}
}
for my $section (@sections) {
- for my $val (keys(%{$Config{$section}})) {
- print "$section: $val: <" . ${$Config{$section}}{$val}.">\n";
- #for my $val (qw(host login password)) {
- # if (defined($cfg->val($section, $val))) {
- # print "$val: <" . $cfg->val($section, $val) . ">\n";
- # }
- #}
+ for my $val (qw(host login password)) {
+ if (defined(${$Config{$section}}{$val})) {
+ print "$section: $val: <" . ${$Config{$section}}{$val}.">\n";
+ }
}
}
$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);