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.10 by root, Fri Apr 7 20:13:13 2006 UTC

1package Client::Util; 1package Crossfire::Client::Util;
2
3use strict;
4
5use Data::Dumper;
6
7use SDL;
2use Gtk2; 8use Gtk2;
3
4sub read_cfg {
5 my ($file) = @_;
6
7 open CFG, $file
8 or return;
9
10 local $/;
11 $::CFG = eval <CFG>;
12
13 close CFG;
14}
15
16sub write_cfg {
17 my ($file) = @_;
18
19 open CFG, ">$file"
20 or return;
21
22 {
23 local $Data::Dumper::Purity = 1;
24 $::CFG->{VERSION} = $::VERSION;
25 print CFG Data::Dumper->Dump ([$::CFG], [qw/CFG/]);
26 }
27
28 close CFG;
29}
30
31 9
32sub gtk_add_cfg_field { 10sub gtk_add_cfg_field {
33 my ($tbl, $cfg, $klbl, $key, $value) = @_; 11 my ($tbl, $cfg, $klbl, $key, $value) = @_;
34 my $i = $cfg->{_i}++; 12 my $i = $cfg->{_i}++;
35 $tbl->attach_defaults (my $lbl = Gtk2::Label->new ($klbl), 0, 1, $i, $i + 1); 13 $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); 14 $tbl->attach_defaults (my $ent = Gtk2::Entry->new, 1, 2, $i, $i + 1);
15 if ($key eq 'password') {
16 $ent->set_invisible_char ("*");
17 $ent->set (visibility => 0)
18 }
37 $ent->set_text ($value); 19 $ent->set_text ($value);
38 $ent->signal_connect (changed => sub { 20 $ent->signal_connect (changed => sub {
39 my ($ent) = @_; 21 my ($ent) = @_;
40 $cfg->{$key} = $ent->get_text; 22 $cfg->{$key} = $ent->get_text;
41 }); 23 });
42} 24}
43 25
44sub run_config_dialog { 26sub run_config_dialog {
45 Gtk2->init; 27 my (%events) = @_;
46 28
47 my $w = Gtk2::Window->new; 29 my $w = Gtk2::Window->new;
48 30
49 my @cfg = ( 31 my @cfg = (
50 [qw/Width width/], 32 [qw/Host host/],
51 [qw/Height height/], 33 [qw/Port port/],
34 [qw/Username user/],
35 [qw/Password password/],
52 ); 36 );
53 37
54 my $cfg = {}; 38 my $cfg = {};
55 39
40 my $a = SDL::ListModes (0, SDL_FULLSCREEN|SDL_HWSURFACE);
41 my @modes = map { [SDL::RectW ($_), SDL::RectH ($_)] } @$a;
42
56 $w->add (my $vb = Gtk2::VBox->new); 43 $w->add (my $vb = Gtk2::VBox->new);
57 $vb->pack_start (my $t = Gtk2::Table->new (2, scalar @cfg), 0, 0, 0); 44 $vb->pack_start (my $t = Gtk2::Table->new (2, scalar @cfg), 0, 0, 0);
45 my $selmode = $::CFG->{width} . 'x' . $::CFG->{height};
46 $t->attach_defaults (Gtk2::Label->new ("Modes"), 0, 1, 0, 1);
47 $t->attach_defaults (my $cb = Gtk2::ComboBox->new_text, 1, 2, 0, 1);
48 my $i = 0;
49 my $act = 0;
50 for (map { "$_->[0]x$_->[1]" } reverse @modes) {
51 if ($_ eq $selmode) { $act = $i }
52 $cb->append_text ($_);
53 $i++;
54 }
55 $cb->set_active ($act);
56 $cb->signal_connect (changed => sub {
57 my ($cb) = @_;
58 my $txt = $cb->get_active_text;
59 if ($txt =~ m/(\d+)x(\d+)/) {
60 $::CFG->{width} = $1;
61 $::CFG->{height} = $2;
62 }
63 });
64
65 $cfg->{_i} = 1;
58 for (@cfg) { 66 for (@cfg) {
59 gtk_add_cfg_field ($t, $cfg, $_->[0], $_->[1], $::CFG->{$_->[1]}); 67 gtk_add_cfg_field ($t, $cfg, $_->[0], $_->[1], $::CFG->{$_->[1]});
60 } 68 }
61 69
62 $vb->pack_start (my $hb = Gtk2::HBox->new, 0, 0, 0); 70 $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); 71 $hb->pack_start (my $cb = Gtk2::Button->new ("save"), 1, 1, 5);
66 $cb->signal_connect (clicked => sub { 72 $cb->signal_connect (clicked => sub {
67 for (keys %$cfg) { 73 for (keys %$cfg) {
68 $::CFG->{$_} = $cfg->{$_} 74 $::CFG->{$_} = $cfg->{$_}
69 if $_ ne '_i'; 75 if $_ ne '_i';
70 } 76 }
71 $w->destroy 77 Crossfire::Client::write_cfg "$Crossfire::VARDIR/pclientrc";
72 }); 78 });
79 $hb->pack_start (my $cb = Gtk2::Button->new ("login"), 1, 1, 5);
80 $cb->signal_connect (clicked => sub {
81 for (keys %$cfg) {
82 $::CFG->{$_} = $cfg->{$_}
83 if $_ ne '_i';
84 }
85 my $cb = $events{login} || sub {};
86 $cb->($::CFG->{user}, $::CFG->{password});
87 });
88 $hb->pack_start (my $cb = Gtk2::Button->new ("logout"), 1, 1, 5);
89 $cb->signal_connect (clicked => sub {
90 my $cb = $events{login} || sub {};
91 $cb->();
92 });
93 $hb->pack_start (my $cb = Gtk2::Button->new ("quit"), 1, 1, 5);
94 $cb->signal_connect (clicked => sub { $w->destroy });
73 95
74 $w->show_all; 96 $w->show_all;
75 97
76 $w->signal_connect (destroy => sub { Gtk2->main_quit }); 98 $w->signal_connect (destroy => sub { Gtk2->main_quit });
77} 99}

Diff Legend

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