projects
/
snom-frontend
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
73968c9
)
add dummy identity box
author
michael
<michael>
Mon, 22 May 2006 11:47:37 +0000
(11:47 +0000)
committer
michael
<michael>
Mon, 22 May 2006 11:47:37 +0000
(11:47 +0000)
snom.pl
patch
|
blob
|
blame
|
history
diff --git
a/snom.pl
b/snom.pl
index 220c9d9e49dea4022f13c6828d74942beac491f0..673dffa3cdcd9d83744a10c4b9d3c1c86935f4d2 100755
(executable)
--- a/
snom.pl
+++ b/
snom.pl
@@
-1,5
+1,5
@@
#!/bin/sh
#!/bin/sh
-#$Id: snom.pl,v 1.2
8 2006-05-22 11:22:30
michael Exp $
+#$Id: snom.pl,v 1.2
9 2006-05-22 11:47:37
michael Exp $
# http://developer.gnome.org/doc/API/2.2/gtk/gtk-migrating-GtkComboBox.html
# 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_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: $!");
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();
UpdatePhoneInfo();
$g_host->signal_connect(changed => \&UpdatePhoneInfo);
$g_host->show();
+$g_identity->show();
set_locale Gtk2;
set_locale Gtk2;
@@
-145,6
+147,7
@@
$outbox->pack_end($output, 0, 0, 0);
$outbox->show();
my $specialbox = Gtk2::VBox->new(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();
$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";
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
}
sub CloseAppWindow
Impressum
,
Datenschutz