ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/DC/Util.pm
(Generate patch)

Comparing deliantra/Deliantra-Client/DC/Util.pm (file contents):
Revision 1.2 by elmex, Fri Apr 7 16:29:19 2006 UTC vs.
Revision 1.7 by elmex, Fri Apr 7 18:16:51 2006 UTC

1package Client::Util; 1package Client::Util;
2use strict;
3use base 'Exporter';
4our @EXPORT = qw(find_rcfile);
5
2use Gtk2; 6use Gtk2;
7
8sub find_rcfile($) {
9 my $path;
10
11 for (@INC) {
12 $path = "$_/Crossfire/Client/$_[0]";
13 return $path if -r $path;
14 }
15
16 die "FATAL: can't find required file $_[0]\n";
17}
3 18
4sub read_cfg { 19sub read_cfg {
5 my ($file) = @_; 20 my ($file) = @_;
6 21
7 open CFG, $file 22 open CFG, $file
8 or return; 23 or return;
9 24
25 local $/;
10 $::CFG = eval join '', <CFG>; 26 $::CFG = eval <CFG>;
11 27
12 close CFG; 28 close CFG;
13} 29}
14 30
15sub write_cfg { 31sub write_cfg {
… …
31sub gtk_add_cfg_field { 47sub gtk_add_cfg_field {
32 my ($tbl, $cfg, $klbl, $key, $value) = @_; 48 my ($tbl, $cfg, $klbl, $key, $value) = @_;
33 my $i = $cfg->{_i}++; 49 my $i = $cfg->{_i}++;
34 $tbl->attach_defaults (my $lbl = Gtk2::Label->new ($klbl), 0, 1, $i, $i + 1); 50 $tbl->attach_defaults (my $lbl = Gtk2::Label->new ($klbl), 0, 1, $i, $i + 1);
35 $tbl->attach_defaults (my $ent = Gtk2::Entry->new, 1, 2, $i, $i + 1); 51 $tbl->attach_defaults (my $ent = Gtk2::Entry->new, 1, 2, $i, $i + 1);
52 if ($key eq 'password') {
53 $ent->set_invisible_char ("*");
54 $ent->set (visibility => 0)
55 }
36 $ent->set_text ($value); 56 $ent->set_text ($value);
37 $ent->signal_connect (changed => sub { 57 $ent->signal_connect (changed => sub {
38 my ($ent) = @_; 58 my ($ent) = @_;
39 $cfg->{$key} = $ent->get_text; 59 $cfg->{$key} = $ent->get_text;
40 }); 60 });
41} 61}
42 62
43sub run_config_dialog { 63sub run_config_dialog {
44 Gtk2->init; 64 my (%events) = @_;
45 65
46 my $w = Gtk2::Window->new; 66 my $w = Gtk2::Window->new;
47 67
48 my @cfg = ( 68 my @cfg = (
49 [qw/Width width/], 69 [qw/Width width/],
50 [qw/Height height/], 70 [qw/Height height/],
71 [qw/Host host/],
72 [qw/Port port/],
73 [qw/Username user/],
74 [qw/Password password/],
51 ); 75 );
52 76
53 my $cfg = {}; 77 my $cfg = {};
54 78
55 $w->add (my $vb = Gtk2::VBox->new); 79 $w->add (my $vb = Gtk2::VBox->new);
… …
57 for (@cfg) { 81 for (@cfg) {
58 gtk_add_cfg_field ($t, $cfg, $_->[0], $_->[1], $::CFG->{$_->[1]}); 82 gtk_add_cfg_field ($t, $cfg, $_->[0], $_->[1], $::CFG->{$_->[1]});
59 } 83 }
60 84
61 $vb->pack_start (my $hb = Gtk2::HBox->new, 0, 0, 0); 85 $vb->pack_start (my $hb = Gtk2::HBox->new, 0, 0, 0);
62 $hb->pack_start (my $cb = Gtk2::Button->new ("close"), 1, 1, 5);
63 $cb->signal_connect (clicked => sub { $w->destroy });
64 $hb->pack_start (my $cb = Gtk2::Button->new ("save"), 1, 1, 5); 86 $hb->pack_start (my $cb = Gtk2::Button->new ("save"), 1, 1, 5);
65 $cb->signal_connect (clicked => sub { 87 $cb->signal_connect (clicked => sub {
66 for (keys %$cfg) { 88 for (keys %$cfg) {
67 $::CFG->{$_} = $cfg->{$_} 89 $::CFG->{$_} = $cfg->{$_}
68 if $_ ne '_i'; 90 if $_ ne '_i';
69 } 91 }
70 $w->destroy
71 }); 92 });
93 $hb->pack_start (my $cb = Gtk2::Button->new ("login"), 1, 1, 5);
94 $cb->signal_connect (clicked => sub {
95 for (keys %$cfg) {
96 $::CFG->{$_} = $cfg->{$_}
97 if $_ ne '_i';
98 }
99 my $cb = $events{login} || sub {};
100 $cb->($::CFG->{user}, $::CFG->{password});
101 });
102 $hb->pack_start (my $cb = Gtk2::Button->new ("logout"), 1, 1, 5);
103 $cb->signal_connect (clicked => sub {
104 my $cb = $events{login} || sub {};
105 $cb->();
106 });
107 $hb->pack_start (my $cb = Gtk2::Button->new ("quit"), 1, 1, 5);
108 $cb->signal_connect (clicked => sub { $w->destroy });
72 109
73 $w->show_all; 110 $w->show_all;
74 111
75 $w->signal_connect (destroy => sub { Gtk2->main_quit }); 112 $w->signal_connect (destroy => sub { Gtk2->main_quit });
76 Gtk2->main;
77} 113}
78 114
791; 1151;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines