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.7 by elmex, Fri Apr 7 18:16:51 2006 UTC vs.
Revision 1.9 by elmex, Fri Apr 7 19:58:55 2006 UTC

1package Client::Util; 1package Crossfire::Client::Util;
2use strict; 2use strict;
3use base 'Exporter'; 3use base 'Exporter';
4use Data::Dumper;
4our @EXPORT = qw(find_rcfile); 5our @EXPORT = qw(find_rcfile read_cfg write_cfg);
6use SDL;
7use SDL::App;
8use SDL::Event;
9use SDL::Surface;
5 10
6use Gtk2; 11use Gtk2;
7 12
8sub find_rcfile($) { 13sub find_rcfile($) {
9 my $path; 14 my $path;
10 15
11 for (@INC) { 16 for (@INC) {
12 $path = "$_/Crossfire/Client/$_[0]"; 17 $path = "$_/Crossfire/resources/$_[0]";
13 return $path if -r $path; 18 return $path if -r $path;
14 } 19 }
15 20
16 die "FATAL: can't find required file $_[0]\n"; 21 die "FATAL: can't find required file $_[0]\n";
17} 22}
… …
20 my ($file) = @_; 25 my ($file) = @_;
21 26
22 open CFG, $file 27 open CFG, $file
23 or return; 28 or return;
24 29
30 my $CFG;
31
25 local $/; 32 local $/;
26 $::CFG = eval <CFG>; 33 $CFG = eval <CFG>;
34
35 $::CFG = $CFG;
27 36
28 close CFG; 37 close CFG;
29} 38}
30 39
31sub write_cfg { 40sub write_cfg {
… …
64 my (%events) = @_; 73 my (%events) = @_;
65 74
66 my $w = Gtk2::Window->new; 75 my $w = Gtk2::Window->new;
67 76
68 my @cfg = ( 77 my @cfg = (
69 [qw/Width width/],
70 [qw/Height height/],
71 [qw/Host host/], 78 [qw/Host host/],
72 [qw/Port port/], 79 [qw/Port port/],
73 [qw/Username user/], 80 [qw/Username user/],
74 [qw/Password password/], 81 [qw/Password password/],
75 ); 82 );
76 83
77 my $cfg = {}; 84 my $cfg = {};
78 85
86 my $a = SDL::ListModes (0, SDL_FULLSCREEN|SDL_HWSURFACE);
87 my @modes = map { [SDL::RectW ($_), SDL::RectH ($_)] } @$a;
88
79 $w->add (my $vb = Gtk2::VBox->new); 89 $w->add (my $vb = Gtk2::VBox->new);
80 $vb->pack_start (my $t = Gtk2::Table->new (2, scalar @cfg), 0, 0, 0); 90 $vb->pack_start (my $t = Gtk2::Table->new (2, scalar @cfg), 0, 0, 0);
91 my $selmode = $::CFG->{width} . 'x' . $::CFG->{height};
92 $t->attach_defaults (Gtk2::Label->new ("Modes"), 0, 1, 0, 1);
93 $t->attach_defaults (my $cb = Gtk2::ComboBox->new_text, 1, 2, 0, 1);
94 my $i = 0;
95 my $act = 0;
96 for (map { "$_->[0]x$_->[1]" } reverse @modes) {
97 if ($_ eq $selmode) { $act = $i }
98 $cb->append_text ($_);
99 $i++;
100 }
101 $cb->set_active ($act);
102 $cb->signal_connect (changed => sub {
103 my ($cb) = @_;
104 my $txt = $cb->get_active_text;
105 if ($txt =~ m/(\d+)x(\d+)/) {
106 $::CFG->{width} = $1;
107 $::CFG->{height} = $2;
108 }
109 });
110
111 $cfg->{_i} = 1;
81 for (@cfg) { 112 for (@cfg) {
82 gtk_add_cfg_field ($t, $cfg, $_->[0], $_->[1], $::CFG->{$_->[1]}); 113 gtk_add_cfg_field ($t, $cfg, $_->[0], $_->[1], $::CFG->{$_->[1]});
83 } 114 }
84 115
85 $vb->pack_start (my $hb = Gtk2::HBox->new, 0, 0, 0); 116 $vb->pack_start (my $hb = Gtk2::HBox->new, 0, 0, 0);
… …
87 $cb->signal_connect (clicked => sub { 118 $cb->signal_connect (clicked => sub {
88 for (keys %$cfg) { 119 for (keys %$cfg) {
89 $::CFG->{$_} = $cfg->{$_} 120 $::CFG->{$_} = $cfg->{$_}
90 if $_ ne '_i'; 121 if $_ ne '_i';
91 } 122 }
123 write_cfg "$Crossfire::VARDIR/pclientrc";
92 }); 124 });
93 $hb->pack_start (my $cb = Gtk2::Button->new ("login"), 1, 1, 5); 125 $hb->pack_start (my $cb = Gtk2::Button->new ("login"), 1, 1, 5);
94 $cb->signal_connect (clicked => sub { 126 $cb->signal_connect (clicked => sub {
95 for (keys %$cfg) { 127 for (keys %$cfg) {
96 $::CFG->{$_} = $cfg->{$_} 128 $::CFG->{$_} = $cfg->{$_}

Diff Legend

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