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.3 by root, Fri Apr 7 16:30:23 2006 UTC vs.
Revision 1.8 by elmex, Fri Apr 7 18:27:54 2006 UTC

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

Diff Legend

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