[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/DC/UI.pm

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.12 by root, Fri Apr 7 20:55:32 2006 UTC vs.
Revision 1.31 by elmex, Sun Apr 9 00:43:11 2006 UTC

…		…
1	package Crossfire::Client::Widget;	1	package Crossfire::Client::Widget;
2		2
3	use strict;	3	use strict;
		4
		5	use Scalar::Util;
		6
4	use SDL::OpenGL;	7	use SDL::OpenGL;
5	use SDL::OpenGL::Constants;	8	use SDL::OpenGL::Constants;
6		9
7	our $FOCUS; # the widget with current focus	10	our $FOCUS; # the widget with current focus
8	our %ACTIVE_WIDGETS;	11	our @ACTIVE_WIDGETS;
9		12
10	# class methods for events	13	# class methods for events
11	sub feed_sdl_key_down_event { $FOCUS->key_down ($_[0]) if $FOCUS }	14	sub feed_sdl_key_down_event { $FOCUS->key_down ($_[0]) if $FOCUS }
12	sub feed_sdl_key_up_event { $FOCUS->key_up ($_[0]) if $FOCUS }	15	sub feed_sdl_key_up_event { $FOCUS->key_up ($_[0]) if $FOCUS }
13	sub feed_sdl_button_down_event { $FOCUS->button_down ($_[0]) if $FOCUS }	16	sub feed_sdl_button_down_event { $FOCUS->button_down ($_[0]) if $FOCUS }
18		21
19	bless { @_ }, $class	22	bless { @_ }, $class
20	}	23	}
21		24
22	sub activate {	25	sub activate {
23	$ACTIVE_WIDGETS{$_[0]} = $_[0];	26	push @ACTIVE_WIDGETS, $_[0];
		27	Scalar::Util::weaken $ACTIVE_WIDGETS[-1];
24	}	28	}
25		29
26	sub deactivate {	30	sub deactivate {
27	delete $ACTIVE_WIDGETS{$_[0]};	31	@ACTIVE_WIDGETS =
		32	sort { $a->{z} <=> $b->{z} }
		33	grep { $_ && $_ != $_[0] }
		34	@ACTIVE_WIDGETS;
		35	}
		36
		37	sub move {
		38	my ($self, $x, $y, $z) = @_;
		39	$self->{x} = $x;
		40	$self->{y} = $y;
		41	$self->{z} = $z if defined $z;
		42	}
		43
		44	sub needs_redraw {
		45	0
		46	}
		47
		48	sub size_request {
		49	die "size_request is abtract";
28	}	50	}
29		51
30	sub focus_in {	52	sub focus_in {
31	my ($widget) = @_;	53	my ($widget) = @_;
32	$FOCUS = $widget;	54	$FOCUS = $widget;
…		…
50		72
51	sub button_up {	73	sub button_up {
52	my ($widget, $sdlev) = @_;	74	my ($widget, $sdlev) = @_;
53	}	75	}
54		76
		77	sub w { $_[0]->{w} }
		78	sub h { $_[0]->{h} }
55	sub x { $_[0]->{x} = $_[1] if $_[1]; $_[0]->{x} }	79	sub x { $_[0]->{x} = $_[1] if $_[1]; $_[0]->{x} }
56	sub y { $_[0]->{y} = $_[1] if $_[1]; $_[0]->{y} }	80	sub y { $_[0]->{y} = $_[1] if $_[1]; $_[0]->{y} }
		81	sub z { $_[0]->{z} = $_[1] if $_[1]; $_[0]->{z} }
57		82
58	sub draw {	83	sub draw {
59	my ($self) = @_;	84	my ($self) = @_;
60		85
61	glPushMatrix;	86	glPushMatrix;
…		…
70		95
71	sub bbox {	96	sub bbox {
72	my ($widget) = @_;	97	my ($widget) = @_;
73	}	98	}
74		99
		100	sub DESTROY {
		101	my ($self) = @_;
		102
		103	$self->deactivate;
		104	}
		105
75	package Crossfire::Client::Widget::Label;	106	package Crossfire::Client::Widget::Container;
76		107
77	our @ISA = Crossfire::Client::Widget::;	108	our @ISA = Crossfire::Client::Widget::;
78		109
79	use SDL::OpenGL;	110	use SDL::OpenGL;
80		111
81	sub new {	112	sub add { $_[0]->{child} = $_[1] }
82	my ($class, $x, $y, $z, $ttf, $text) = @_;	113	sub get { $_[0]->{child} }
83		114
84	my $self = $class->SUPER::new (x => $x, y => $y, z => $z);	115	sub size_request { $_[0]->{child}->size_request if $_[0]->{child} }
85		116
86	$self->{texture} = new_from_ttf Crossfire::Client::Texture $ttf, $text;	117	sub _draw { die "Containers can't be drawn!" }
87		118
88	$self	119	package Crossfire::Client::Widget::Window;
89	}
90		120
91	sub _draw {	121	our @ISA = Crossfire::Client::Widget::Container::;
		122
		123	use SDL::OpenGL;
		124
		125	sub add {
92	my ($self) = @_;	126	my ($self, $chld) = @_;
		127	$self->SUPER::add ($chld);
		128	$self->render_chld; #TODO: Move this to the size_request event propably?
		129	}
93		130
		131	sub render_chld {
		132	my ($self) = @_;
		133	my $chld = $self->get;
		134	my ($w, $h) = $self->size_request;
		135
		136	$self->{texture} =
		137	Crossfire::Client::Texture->new_from_opengl (
		138	$w, $h, sub { $chld->draw }
		139	);
		140	$self->{texture}->upload;
		141	}
		142
		143	sub size_request {
		144	my ($self) = @_;
		145	my $chld = $self->get
		146	or return (0, 0);
		147	$chld->size_request
		148	}
		149
		150	sub _draw {
		151	my ($self) = @_;
		152
		153	my ($w, $h) = $self->size_request;#TODO# use width/height of texture
		154
94	my $tex = $self->{texture};	155	my $tex = $self->{texture}
95		156	or return;
96	$self->{x}--;
97		157
98	glEnable GL_BLEND;	158	glEnable GL_BLEND;
99	glEnable GL_TEXTURE_2D;	159	glEnable GL_TEXTURE_2D;
100	glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;	160	glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;
101	glBindTexture GL_TEXTURE_2D, $tex->{name};	161	glBindTexture GL_TEXTURE_2D, $tex->{name};
102		162
103	glColor 1, 1, 1;	163	glColor 1, 0, 1;
		164
		165	glBegin GL_QUADS;
		166	glTexCoord 0, 0; glVertex 0, 0;
		167	glTexCoord 0, 1; glVertex 0, $h;
		168	glTexCoord 1, 1; glVertex $w, $h;
		169	glTexCoord 1, 0; glVertex $w, 0;
		170	glEnd;
		171
		172	glDisable GL_BLEND;
		173	glDisable GL_TEXTURE_2D;
		174	}
		175
		176	package Crossfire::Client::Widget::Frame;
		177
		178	our @ISA = Crossfire::Client::Widget::Container::;
		179
		180	use SDL::OpenGL;
		181
		182	sub size_request {
		183	my ($self) = @_;
		184	my $chld = $self->get
		185	or return (0, 0);
		186
		187	$chld->move (2, 2);
		188
		189	map { $_ + 4 } $chld->size_request;
		190	}
		191
		192	sub _draw {
		193	my ($self) = @_;
		194
		195	my $chld = $self->get;
		196
		197	my ($w, $h) = $chld->size_request;
		198
		199	glBegin GL_QUADS;
		200	glColor 0, 0, 0;
		201	glTexCoord 0, 0; glVertex 0 , 0;
		202	glTexCoord 0, 1; glVertex 0 , $h + 4;
		203	glTexCoord 1, 1; glVertex $w + 4 , $h + 4;
		204	glTexCoord 1, 0; glVertex $w + 4 , 0;
		205	glEnd;
		206
		207	$chld->draw;
		208	}
		209
		210	package Crossfire::Client::Widget::FancyFrame;
		211
		212	our @ISA = Crossfire::Client::Widget::Frame::;
		213
		214	use SDL::OpenGL;
		215
		216	#TODO: implement themed frame
		217
		218	package Crossfire::Client::Widget::Table;
		219
		220	our @ISA = Crossfire::Client::Widget::Container::;
		221
		222	use SDL::OpenGL;
		223
		224	sub add {
		225	my ($self, $x, $y, $chld) = @_;
		226	$self->{childs}[$y][$x] = $chld;
		227	}
		228
		229	sub max_row_height {
		230	my ($self, $row) = @_;
		231
		232	my $hs = 0;
		233	for (my $xi = 0; $xi <= $#{$self->{childs}->[$row] \|\| []}; $xi++) {
		234	my $c = $self->{childs}->[$row]->[$xi];
		235	if ($c) {
		236	my ($w, $h) = $c->size_request;
		237	if ($hs < $h) { $hs = $h }
		238	}
		239	}
		240	return $hs;
		241	}
		242
		243	sub max_col_width {
		244	my ($self, $col) = @_;
		245
		246	my $ws = 0;
		247	for (my $yi = 0; $yi <= $#{$self->{childs} \|\| []}; $yi++) {
		248	my $c = ($self->{childs}->[$yi] \|\| [])->[$col];
		249	if ($c) {
		250	my ($w, $h) = $c->size_request;
		251	if ($ws < $w) { $ws = $w }
		252	}
		253	}
		254	return $ws;
		255	}
		256
		257	sub size_request {
		258	my ($self) = @_;
		259
		260	my ($hs, $ws) = (0, 0);
		261
		262	for (my $yi = 0; $yi <= $#{$self->{childs}}; $yi++) {
		263	$hs += $self->max_row_height ($yi);
		264	}
		265
		266	for (my $yi = 0; $yi <= $#{$self->{childs}}; $yi++) {
		267	my $wm = 0;
		268	for (my $xi = 0; $xi <= $#{$self->{childs}->[$yi]}; $xi++) {
		269	$wm += $self->max_col_width ($xi)
		270	}
		271	if ($ws < $wm) { $ws = $wm }
		272	}
		273
		274	return ($ws, $hs);
		275	}
		276
		277	sub _draw {
		278	my ($self) = @_;
		279
		280	my $y = 0;
		281	for (my $yi = 0; $yi <= $#{$self->{childs}}; $yi++) {
		282	my $x = 0;
		283
		284	for (my $xi = 0; $xi <= $#{$self->{childs}->[$yi]}; $xi++) {
		285
		286	my $c = $self->{childs}->[$yi]->[$xi];
		287	if ($c) {
		288	$c->move ($x, $y, 0); #TODO: Move to size_request
		289	$c->draw if $c;
		290	}
		291
		292	$x += $self->max_col_width ($xi);
		293	}
		294
		295	$y += $self->max_row_height ($yi);
		296	}
		297	}
		298
		299	package Crossfire::Client::Widget::VBox;
		300
		301	our @ISA = Crossfire::Client::Widget::Container::;
		302
		303	use SDL::OpenGL;
		304
		305	sub add {
		306	my ($self, $chld) = @_;
		307	push @{$self->{childs}}, $chld;
		308	}
		309
		310	sub size_request {
		311	my ($self) = @_;
		312
		313	my ($hs, $ws) = (0, 0);
		314	for (@{$self->{childs} \|\| []}) {
		315	my ($w, $h) = $_->size_request;
		316	$hs += $h;
		317	if ($ws < $w) { $ws = $w }
		318	}
		319
		320	return ($ws, $hs);
		321	}
		322
		323	sub _draw {
		324	my ($self) = @_;
		325
		326	my ($x, $y);
		327	for (@{$self->{childs} \|\| []}) {
		328	$_->move (0, $y, 0); #TODO: move to size_request
		329	$_->draw;
		330	my ($w, $h) = $_->size_request;
		331	$y += $h;
		332	}
		333	}
		334
		335	package Crossfire::Client::Widget::Label;
		336
		337	our @ISA = Crossfire::Client::Widget::;
		338
		339	use SDL::OpenGL;
		340
		341	sub new {
		342	my ($class, $x, $y, $z, $height, $text) = @_;
		343
		344	my $self = $class->SUPER::new (x => $x, y => $y, z => $z, height => $height);
		345
		346	$self->set_text ($text);
		347
		348	$self
		349	}
		350
		351	sub set_text {
		352	my ($self, $text) = @_;
		353
		354	$self->{text} = $text;
		355
		356	$self->{texture} = new_from_text Crossfire::Client::Texture $text, $self->{height};
		357	}
		358
		359	sub get_text {
		360	my ($self, $text) = @_;
		361
		362	$self->{text}
		363	}
		364
		365	sub size_request {
		366	my ($self) = @_;
		367
		368	(
		369	$self->{texture}{width},
		370	$self->{texture}{height},
		371	)
		372	}
		373
		374	sub _draw {
		375	my ($self) = @_;
		376
		377	my $tex = $self->{texture};
		378
		379	glEnable GL_BLEND;
		380	glEnable GL_TEXTURE_2D;
		381	glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;
		382	glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;
		383	glBindTexture GL_TEXTURE_2D, $tex->{name};
		384
		385	glColor 1, 1, 1, 0.8;
104		386
105	glBegin GL_QUADS;	387	glBegin GL_QUADS;
106	glTexCoord 0, 0; glVertex 0 , 0;	388	glTexCoord 0, 0; glVertex 0 , 0;
107	glTexCoord 0, 1; glVertex 0 , $tex->{height};	389	glTexCoord 0, 1; glVertex 0 , $tex->{height};
108	glTexCoord 1, 1; glVertex $tex->{width}, $tex->{height};	390	glTexCoord 1, 1; glVertex $tex->{width}, $tex->{height};
…		…
111		393
112	glDisable GL_BLEND;	394	glDisable GL_BLEND;
113	glDisable GL_TEXTURE_2D;	395	glDisable GL_TEXTURE_2D;
114	}	396	}
115		397
		398	package Crossfire::Client::Widget::TextEntry;
		399
		400	our @ISA = Crossfire::Client::Widget::Label::;
		401
		402	use SDL;
		403	use SDL::OpenGL;
		404
		405	sub key_down {
		406	my ($self, $ev) = @_;
		407
		408	my $mod = $ev->key_mod;
		409	my $sym = $ev->key_sym;
		410
		411	$ev->set_unicode (1);
		412	my $uni = $ev->key_unicode;
		413
		414	my $text = $self->get_text;
		415
		416	if ($sym == SDLK_BACKSPACE) {
		417	substr $text, -1, 1, '';
		418
		419	} elsif ($uni) {
		420	$text .= chr $uni;
		421	}
		422	$self->set_text ($text);
		423	}
		424
		425
		426	# XXX: TextView isn't neccessary with pango multiline text rendering
116	package Crossfire::Client::Widget::TextView;	427	package Crossfire::Client::Widget::TextView;
117		428
118	use strict;	429	use strict;
119		430
120	our @ISA = qw/Crossfire::Client::Widget/;	431	our @ISA = qw/Crossfire::Client::Widget/;
121		432
122	use SDL::OpenGL;	433	use SDL::OpenGL;
123	use SDL::OpenGL::Constants;	434	use SDL::OpenGL::Constants;
		435
		436	sub new {
		437	my ($class, $text, $h) = @_;
		438	my $self = $class->SUPER::new ();
		439
		440	$self->{txt_height} = $h;
		441	@{$self->{lines}} = split /\r?\n/, $text;
		442
		443	for (split /\r?\n/, $text) {
		444	$self->add_line ($_);
		445	}
		446	$self
		447	}
		448
		449	#sub render_lines {
		450	# my ($self) = @_;
		451	#
		452	# $self->{txt_lines} = [];
		453	#
		454	# for (@{$self->{lines}}) {
		455	# push @{$self->{txt_lines}},
		456	# new_from_ttf Crossfire::Client::Texture $self->{ttf}, $_;
		457	# }
		458	#}
124		459
125	sub add_line {	460	sub add_line {
126	my ($self, $line) = @_;	461	my ($self, $line) = @_;
127	push @{$self->{lines}}, $line;	462	push @{$self->{lines}}, $line;
128	}
129		463
		464	push @{$self->{txt_lines}},
		465	new_from_text Crossfire::Client::Texture $line, $self->{txt_height};
		466	}
		467
		468	sub size_request {
		469	my ($self) = @_;
		470
		471	my $w = 0;
		472	my $h = 0;
		473
		474	for (@{$self->{txt_lines}}) {
		475	if ($w < $_->{width}) { $w = $_->{width} }
		476	$h += $_->{height};
		477	}
		478
		479	return ($w, $h);
		480	}
		481
130	sub _draw {	482	sub draw_line {
131	my ($self) = @_;	483	my ($self, $tex, $y) = @_;
132		484
		485	glBindTexture GL_TEXTURE_2D, $tex->{name};
		486
		487	glColor 1, 0, 1;
		488
		489	glBegin GL_QUADS;
		490	glTexCoord 0, 0; glVertex 0 , $y;
		491	glTexCoord 0, 1; glVertex 0 , $y + $tex->{height};
		492	glTexCoord 1, 1; glVertex $tex->{width}, $y + $tex->{height};
		493	glTexCoord 1, 0; glVertex $tex->{width}, $y;
		494	glEnd;
		495	}
		496
		497	sub _draw {
		498	my ($self) = @_;
		499
		500	glEnable GL_BLEND;
		501	glEnable GL_TEXTURE_2D;
		502	glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;#DECAL;
		503
		504	my $l = 0;
		505	for (@{$self->{txt_lines}}) {
		506	$self->draw_line ($_, $l);
		507	$l += $_->{height};
		508	}
		509
		510	glDisable GL_BLEND;
		511	glDisable GL_TEXTURE_2D;
133	}	512	}
134		513
135	package Crossfire::Client::Widget::MapWidget;	514	package Crossfire::Client::Widget::MapWidget;
136		515
137	use strict;	516	use strict;
138		517
139	our @ISA = qw/Crossfire::Client::Widget/;	518	use List::Util qw(min max);
140		519
		520	use SDL;
141	use SDL::OpenGL;	521	use SDL::OpenGL;
142	use SDL::OpenGL::Constants;	522	use SDL::OpenGL::Constants;
		523
		524	our @ISA = Crossfire::Client::Widget::;
143		525
144	sub key_down {	526	sub key_down {
145	print "MAPKEYDOWN\n";	527	print "MAPKEYDOWN\n";
146	}	528	}
147		529
148	sub key_up {	530	sub key_up {
149	}	531	}
150		532
151	sub _draw {	533	sub _draw {
		534	my ($self) = @_;
		535
		536	my $mx = $::CONN->{mapx};
		537	my $my = $::CONN->{mapy};
		538
		539	my $map = $::CONN->{map};
		540
		541	my ($xofs, $yofs);
		542
		543	my $sw = 1 + int $::WIDTH / 32;
		544	my $sh = 1 + int $::HEIGHT / 32;
		545
		546	if ($::CONN->{mapw} > $sw) {
		547	$xofs = $mx + ($::CONN->{mapw} - $sw) * 0.5;
		548	} else {
		549	$xofs = $self->{xofs} = min $mx, max $mx + $::CONN->{mapw} - $sw + 1, $self->{xofs};
		550	}
		551
		552	if ($::CONN->{maph} > $sh) {
		553	$yofs = $my + ($::CONN->{maph} - $sh) * 0.5;
		554	} else {
		555	$yofs = $self->{yofs} = min $my, max $my + $::CONN->{maph} - $sh + 1, $self->{yofs};
		556	}
		557
152	glEnable GL_TEXTURE_2D;	558	glEnable GL_TEXTURE_2D;
153	glEnable GL_BLEND;	559	glEnable GL_BLEND;
154	glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;	560	glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;
155		561
156	my $map = $::CONN->{map};	562	for my $x (0 .. $sw - 1) {
157
158	for my $x (0 .. $::CONN->{mapw} - 1) {
159	for my $y (0 .. $::CONN->{maph} - 1) {	563	for my $y (0 .. $sh - 1) {
160		564
161	my $cell = $map->[$x][$y]	565	my $cell = $map->[$x + $xofs][$y + $yofs]
162	or next;	566	or next;
163		567
164	my $darkness = $cell->[3] * (1 / 255);	568	my $darkness = $cell->[0] * (1 / 255);
		569	if ($darkness < 0) {
		570	glColor 0.3, 0.3, 0.3;
		571	} else {
165	glColor $darkness, $darkness, $darkness;	572	glColor $darkness, $darkness, $darkness;
		573	}
166		574
167	for my $num (grep $_, $cell->[0], $cell->[1], $cell->[2]) {	575	for my $num (grep $_, @$cell[1,2,3]) {
168	my $tex = $::CONN->{face}[$num]{texture} \|\| next;	576	my $tex = $::CONN->{face}[$num]{texture} \|\| next;
169		577
170	glBindTexture GL_TEXTURE_2D, $tex->{name};	578	glBindTexture GL_TEXTURE_2D, $tex->{name};
171		579
		580	my $w = $tex->{width};
		581	my $h = $tex->{height};
		582
		583	my $px = ($x + 1) * 32 - $w;
		584	my $py = ($y + 1) * 32 - $h;
		585
172	glBegin GL_QUADS;	586	glBegin GL_QUADS;
173	glTexCoord 0, 0; glVertex $x * 32 , $y * 32;	587	glTexCoord 0, 0; glVertex $px , $py;
174	glTexCoord 0, 1; glVertex $x * 32 , $y * 32 + 32;	588	glTexCoord 0, 1; glVertex $px , $py + $h;
175	glTexCoord 1, 1; glVertex $x * 32 + 32, $y * 32 + 32;	589	glTexCoord 1, 1; glVertex $px + $w, $py + $h;
176	glTexCoord 1, 0; glVertex $x * 32 + 32, $y * 32;	590	glTexCoord 1, 0; glVertex $px + $w, $py;
177	glEnd;	591	glEnd;
178	}	592	}
179	}	593	}
180	}	594	}
181		595
182	glDisable GL_TEXTURE_2D;	596	glDisable GL_TEXTURE_2D;
183	glDisable GL_BLEND;	597	glDisable GL_BLEND;
184	}	598	}
185		599
		600	my %DIR = (
		601	SDLK_KP8, [1, "north"],
		602	SDLK_KP9, [2, "northeast"],
		603	SDLK_KP6, [3, "east"],
		604	SDLK_KP3, [4, "southeast"],
		605	SDLK_KP2, [5, "south"],
		606	SDLK_KP1, [6, "southwest"],
		607	SDLK_KP4, [7, "west"],
		608	SDLK_KP7, [8, "northwest"],
		609
		610	SDLK_UP, [1, "north"],
		611	SDLK_RIGHT, [3, "east"],
		612	SDLK_DOWN, [5, "south"],
		613	SDLK_LEFT, [7, "west"],
		614	);
		615
		616	sub key_down {
		617	my ($self, $ev) = @_;
		618
		619	my $mod = $ev->key_mod;
		620	my $sym = $ev->key_sym;
		621
		622	if ($sym == SDLK_KP5) {
		623	$::CONN->send ("command stay fire");
		624	} elsif (exists $DIR{$sym}) {
		625	if ($mod & KMOD_SHIFT) {
		626	$self->{shft}++;
		627	$::CONN->send ("command fire $DIR{$sym}[0]");
		628	} elsif ($mod & KMOD_CTRL) {
		629	$self->{ctrl}++;
		630	$::CONN->send ("command run $DIR{$sym}[0]");
		631	} else {
		632	$::CONN->send ("command $DIR{$sym}[1]");
		633	}
		634	}
		635	}
		636
		637	sub key_up {
		638	my ($self, $ev) = @_;
		639
		640	my $mod = $ev->key_mod;
		641	my $sym = $ev->key_sym;
		642
		643	if (!($mod & KMOD_SHIFT) && delete $self->{shft}) {
		644	$::CONN->send ("command fire_stop");
		645	}
		646	if (!($mod & KMOD_CTRL ) && delete $self->{ctrl}) {
		647	$::CONN->send ("command run_stop");
		648	}
		649	}
		650
186	1;	651	1;
187		652

Diff Legend

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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents): Revision 1.12 by root, Fri Apr 7 20:55:32 2006 UTC vs. Revision 1.31 by elmex, Sun Apr 9 00:43:11 2006 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.12 by root, Fri Apr 7 20:55:32 2006 UTC vs.
Revision 1.31 by elmex, Sun Apr 9 00:43:11 2006 UTC