From d98c02057bc842cc0cea1d73d7b3b1c9df264014 Mon Sep 17 00:00:00 2001 From: michael Date: Mon, 22 May 2006 11:47:37 +0000 Subject: [PATCH] add dummy identity box --- snom.pl | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/snom.pl b/snom.pl index 220c9d9..673dffa 100755 --- a/snom.pl +++ b/snom.pl @@ -1,5 +1,5 @@ #!/bin/sh -#$Id: snom.pl,v 1.28 2006-05-22 11:22:30 michael Exp $ +#$Id: snom.pl,v 1.29 2006-05-22 11:47:37 michael Exp $ # http://developer.gnome.org/doc/API/2.2/gtk/gtk-migrating-GtkComboBox.html @@ -17,6 +17,7 @@ use LWP::UserAgent; my %g_key = (); my $g_host = Gtk2::ComboBox->new_text(); +my $g_identity = Gtk2::ComboBox->new_text(); my $ua = LWP::UserAgent->new; open(INIFILE,"<$ENV{HOME}/.snomrc") || die("can't open config: $ENV{HOME}/.snomrc: $!"); @@ -56,6 +57,7 @@ $g_host->set_active(0); UpdatePhoneInfo(); $g_host->signal_connect(changed => \&UpdatePhoneInfo); $g_host->show(); +$g_identity->show(); set_locale Gtk2; @@ -145,6 +147,7 @@ $outbox->pack_end($output, 0, 0, 0); $outbox->show(); my $specialbox = Gtk2::VBox->new(0, 0); +$specialbox->pack_start($g_identity, 0, 0, 0); $specialbox->pack_end($special, 0, 0, 0); $specialbox->show(); @@ -349,6 +352,8 @@ sub KBDInput sub UpdatePhoneInfo { print "TODO: Update PhoneInfo from <".${$Config{$sections[$g_host->get_active]}}{host}."> here!\n"; + $g_identity->append_text("\@line1"); + $g_identity->set_active(0); } sub CloseAppWindow -- 2.39.2