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.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 $::CFG = eval join '', <CFG>;
11
12 close CFG;
13}
14
15sub write_cfg {
16 my ($file) = @_;
17
18 open CFG, ">$file"
19 or return;
20
21 {
22 local $Data::Dumper::Purity = 1;
23 $::CFG->{VERSION} = $::VERSION;
24 print CFG Data::Dumper->Dump ([$::CFG], [qw/CFG/]);
25 }
26
27 close CFG;
28}
29
30 9
31sub gtk_add_cfg_field { 10sub gtk_add_cfg_field {
32 my ($tbl, $cfg, $klbl, $key, $value) = @_; 11 my ($tbl, $cfg, $klbl, $key, $value) = @_;
33 my $i = $cfg->{_i}++; 12 my $i = $cfg->{_i}++;
34 $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);
35 $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 }
36 $ent->set_text ($value); 19 $ent->set_text ($value);
37 $ent->signal_connect (changed => sub { 20 $ent->signal_connect (changed => sub {
38 my ($ent) = @_; 21 my ($ent) = @_;
39 $cfg->{$key} = $ent->get_text; 22 $cfg->{$key} = $ent->get_text;
40 }); 23 });
41} 24}
42 25
43sub run_config_dialog { 26sub run_config_dialog {
44 Gtk2->init; 27 my (%events) = @_;
45 28
46 my $w = Gtk2::Window->new; 29 my $w = Gtk2::Window->new;
47 30
48 my @cfg = ( 31 my @cfg = (
49 [qw/Width width/], 32 [qw/Host host/],
50 [qw/Height height/], 33 [qw/Port port/],
34 [qw/Username user/],
35 [qw/Password password/],
51 ); 36 );
52 37
53 my $cfg = {}; 38 my $cfg = {};
54 39
40 my $a = SDL::ListModes (0, SDL_FULLSCREEN|SDL_HWSURFACE);
41 my @modes = map { [SDL::RectW ($_), SDL::RectH ($_)] } @$a;
42
55 $w->add (my $vb = Gtk2::VBox->new); 43 $w->add (my $vb = Gtk2::VBox->new);
56 $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;
57 for (@cfg) { 66 for (@cfg) {
58 gtk_add_cfg_field ($t, $cfg, $_->[0], $_->[1], $::CFG->{$_->[1]}); 67 gtk_add_cfg_field ($t, $cfg, $_->[0], $_->[1], $::CFG->{$_->[1]});
59 } 68 }
60 69
61 $vb->pack_start (my $hb = Gtk2::HBox->new, 0, 0, 0); 70 $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); 71 $hb->pack_start (my $cb = Gtk2::Button->new ("save"), 1, 1, 5);
65 $cb->signal_connect (clicked => sub { 72 $cb->signal_connect (clicked => sub {
66 for (keys %$cfg) { 73 for (keys %$cfg) {
67 $::CFG->{$_} = $cfg->{$_} 74 $::CFG->{$_} = $cfg->{$_}
68 if $_ ne '_i'; 75 if $_ ne '_i';
69 } 76 }
70 $w->destroy 77 Crossfire::Client::write_cfg "$Crossfire::VARDIR/pclientrc";
71 }); 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 });
72 95
73 $w->show_all; 96 $w->show_all;
74 97
75 $w->signal_connect (destroy => sub { Gtk2->main_quit }); 98 $w->signal_connect (destroy => sub { Gtk2->main_quit });
76 Gtk2->main;
77} 99}
78 100
791; 1011;

Diff Legend

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