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.5 by elmex, Fri Apr 7 17:18:22 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);
37 if ($key eq 'password') { $ent->set_invisible_char ("*") } 15 if ($key eq 'password') {
16 $ent->set_invisible_char ("*");
17 $ent->set (visibility => 0)
18 }
38 $ent->set_text ($value); 19 $ent->set_text ($value);
39 $ent->signal_connect (changed => sub { 20 $ent->signal_connect (changed => sub {
40 my ($ent) = @_; 21 my ($ent) = @_;
41 $cfg->{$key} = $ent->get_text; 22 $cfg->{$key} = $ent->get_text;
42 }); 23 });
… …
46 my (%events) = @_; 27 my (%events) = @_;
47 28
48 my $w = Gtk2::Window->new; 29 my $w = Gtk2::Window->new;
49 30
50 my @cfg = ( 31 my @cfg = (
51 [qw/Width width/],
52 [qw/Height height/],
53 [qw/Host host/], 32 [qw/Host host/],
54 [qw/Port port/], 33 [qw/Port port/],
55 [qw/Username user/], 34 [qw/Username user/],
56 [qw/Password password/], 35 [qw/Password password/],
57 ); 36 );
58 37
59 my $cfg = {}; 38 my $cfg = {};
60 39
40 my $a = SDL::ListModes (0, SDL_FULLSCREEN|SDL_HWSURFACE);
41 my @modes = map { [SDL::RectW ($_), SDL::RectH ($_)] } @$a;
42
61 $w->add (my $vb = Gtk2::VBox->new); 43 $w->add (my $vb = Gtk2::VBox->new);
62 $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;
63 for (@cfg) { 66 for (@cfg) {
64 gtk_add_cfg_field ($t, $cfg, $_->[0], $_->[1], $::CFG->{$_->[1]}); 67 gtk_add_cfg_field ($t, $cfg, $_->[0], $_->[1], $::CFG->{$_->[1]});
65 } 68 }
66 69
67 $vb->pack_start (my $hb = Gtk2::HBox->new, 0, 0, 0); 70 $vb->pack_start (my $hb = Gtk2::HBox->new, 0, 0, 0);
… …
69 $cb->signal_connect (clicked => sub { 72 $cb->signal_connect (clicked => sub {
70 for (keys %$cfg) { 73 for (keys %$cfg) {
71 $::CFG->{$_} = $cfg->{$_} 74 $::CFG->{$_} = $cfg->{$_}
72 if $_ ne '_i'; 75 if $_ ne '_i';
73 } 76 }
77 Crossfire::Client::write_cfg "$Crossfire::VARDIR/pclientrc";
74 }); 78 });
75 $hb->pack_start (my $cb = Gtk2::Button->new ("login"), 1, 1, 5); 79 $hb->pack_start (my $cb = Gtk2::Button->new ("login"), 1, 1, 5);
76 $cb->signal_connect (clicked => sub { 80 $cb->signal_connect (clicked => sub {
77 for (keys %$cfg) { 81 for (keys %$cfg) {
78 $::CFG->{$_} = $cfg->{$_} 82 $::CFG->{$_} = $cfg->{$_}

Diff Legend

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