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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.174 by root, Tue Apr 25 11:18:49 2006 UTC vs.
Revision 1.184 by root, Wed May 3 19:56:05 2006 UTC

…		…
237	$self->{w} = $w;	237	$self->{w} = $w;
238	$self->{h} = $h;	238	$self->{h} = $h;
239		239
240	$self->size_allocate ($w, $h);	240	$self->size_allocate ($w, $h);
241	$self->update;	241	$self->update;
		242	$self->emit (size_allocate => $w, $h);
242	}	243	}
243	}	244	}
244		245
245	sub size_allocate {	246	sub size_allocate {
246	# nothing to be done	247	# nothing to be done
247	}	248	}
248		249
249	sub children {	250	sub children {
250	}	251	}
251		252
252	# call when resoltuion changes etc.	253	# call when resolution changes etc.
253	sub reconfigure {	254	sub reconfigure {
254	my ($self) = @_;	255	my ($self) = @_;
255		256
256	$_->reconfigure	257	$_->reconfigure
257	for $self->children;	258	for $self->children;
…		…
539	sort { $a->{z} <=> $b->{z} }	540	sort { $a->{z} <=> $b->{z} }
540	@{$self->{children}}, $child	541	@{$self->{children}}, $child
541	];	542	];
542		543
543	$child->check_size;	544	$child->check_size;
		545	$self->update;
544	}	546	}
545		547
546	sub children {	548	sub children {
547	@{ $_[0]{children} }	549	@{ $_[0]{children} }
548	}	550	}
…		…
567		569
568	for (@$children) {	570	for (@$children) {
569	delete $_->{parent};	571	delete $_->{parent};
570	$_->hide;	572	$_->hide;
571	}	573	}
		574
		575	$self->check_size;
		576	$self->update;
572	}	577	}
573		578
574	sub find_widget {	579	sub find_widget {
575	my ($self, $x, $y) = @_;	580	my ($self, $x, $y) = @_;
576		581
…		…
662		667
663	$self->SUPER::size_allocate ($w, $h);	668	$self->SUPER::size_allocate ($w, $h);
664	$self->update;	669	$self->update;
665	}	670	}
666		671
		672	sub _render {
		673	$_[0]{children}[0]->draw;
		674	}
		675
667	sub render_child {	676	sub render_child {
668	my ($self) = @_;	677	my ($self) = @_;
669		678
670	$self->{texture} = new_from_opengl CFClient::Texture $self->{w}, $self->{h}, sub {	679	$self->{texture} = new_from_opengl CFClient::Texture $self->{w}, $self->{h}, sub {
671	glClearColor 0, 0, 0, 0;	680	glClearColor 0, 0, 0, 0;
672	glClear GL_COLOR_BUFFER_BIT;	681	glClear GL_COLOR_BUFFER_BIT;
673	$self->child->draw;	682
		683	$self->_render;
		684	# glColorMask 1, 1, 1, 0;
		685	# glEnable GL_BLEND;
		686	# glBlendFunc GL_SRC_ALPHA, GL_ZERO;
		687	# glRasterPos 0, 0;
		688	# glCopyPixels 0, 0, $self->{w}, $self->{h};
		689	# glDisable GL_BLEND;
		690	# glColorMask 1, 1, 1, 1;
674	};	691	};
675	}	692	}
676		693
677	sub _draw {	694	sub _draw {
678	my ($self) = @_;	695	my ($self) = @_;
…		…
698		715
699	package CFClient::UI::ViewPort;	716	package CFClient::UI::ViewPort;
700		717
701	our @ISA = CFClient::UI::Window::;	718	our @ISA = CFClient::UI::Window::;
702		719
703	sub new { die }
704
705	sub size_request {	720	sub size_request {
706	my ($self) = @_;	721	my ($self) = @_;
707		722
708	@$self{qw(child_w child_h)} = @{$self->child}{qw(req_w req_h)};	723	@$self{qw(child_w child_h)} = @{$self->child}{qw(req_w req_h)};
709	$self->child->size_allocate (0, 0, @$self{qw(child_w child_h)});	724	$self->child->configure (0, 0, @$self{qw(child_w child_h)});
710		725
711	@$self{qw(child_w child_h)}	726	@$self{qw(child_w child_h)}
712	}	727	}
713		728
714	sub _draw {	729	sub size_allocate {
715	my ($self) = @_;	730	my ($self, $w, $h) = @_;
716		731
717	$self->{children}[1]->draw;	732	$self->update;
718	}	733	}
719		734
		735	sub set_offset {
		736	my ($self, $x, $y) = @_;
		737
		738	$self->{view_x} = int $x;
		739	$self->{view_y} = int $y;
		740
		741	$self->update;
		742	}
		743
		744	# hmm, this does not work for topleft of $self... but we should not aks for that
		745	sub _topleft {
		746	my ($self, $x, $y) = @_;
		747
		748	$self->SUPER::_topleft ($x - $self->{view_x}, $y - $self->{view_y})
		749	}
		750
		751	sub find_widget {
		752	my ($self, $x, $y) = @_;
		753
		754	if ( $x >= $self->{x} && $x < $self->{x} + $self->{w}
		755	&& $y >= $self->{y} && $y < $self->{y} + $self->{h}
		756	) {
		757	$self->child->find_widget ($x + $self->{view_x}, $y + $self->{view_y})
		758	} else {
		759	$self->CFClient::UI::Base::find_widget ($x, $y)
		760	}
		761	}
		762
		763	sub _render {
		764	my ($self) = @_;
		765
		766	CFClient::OpenGL::glTranslate -$self->{view_x}, -$self->{view_y};
		767
		768	$self->SUPER::_render;
		769	}
		770
		771	#############################################################################
		772
		773	package CFClient::UI::ScrolledWindow;
		774
		775	our @ISA = CFClient::UI::HBox::;
		776
		777	sub new {
		778	my $class = shift;
		779
		780	my $self;
		781
		782	my $slider = new CFClient::UI::Slider
		783	vertical => 1,
		784	range => [0, 0, 1, 0.01], # HACK fix
		785	connect_changed => sub {
		786	$self->{vp}->set_offset (0, $_[1] * ($self->{vp}{child_h} - $self->{vp}{h}));
		787	},
		788	;
		789
		790	$self = $class->SUPER::new (
		791	vp => (new CFClient::UI::ViewPort),
		792	slider => $slider,
		793	@_,
		794	);
		795
		796	$self->{vp}->add ($self->{scrolled});
		797	$self->add ($self->{vp});
		798	$self->add ($self->{slider});
		799
		800	$self
		801	}
		802
		803	#TODO# update range on size_allocate depeneing on child
		804	# update viewport offset on scroll
720		805
721	#############################################################################	806	#############################################################################
722		807
723	package CFClient::UI::Frame;	808	package CFClient::UI::Frame;
724		809
…		…
781	# TODO: user_x, user_y, overwrite moveto?	866	# TODO: user_x, user_y, overwrite moveto?
782		867
783	my $self = $class->SUPER::new (	868	my $self = $class->SUPER::new (
784	bg => [1, 1, 1, 1],	869	bg => [1, 1, 1, 1],
785	border_bg => [1, 1, 1, 1],	870	border_bg => [1, 1, 1, 1],
786	border => 0.8,	871	border => 0.6,
787	can_events => 1,	872	can_events => 1,
788	@_	873	@_
789	);	874	);
790		875
791	$self->{title} &&= new CFClient::UI::Label	876	$self->{title} &&= new CFClient::UI::Label
792	align => 0,	877	align => 0,
793	valign => 1,	878	valign => 1,
794	text => $self->{title},	879	text => $self->{title},
795	fontsize => 1;	880	fontsize => $self->{border};
796		881
797	$self	882	$self
798	}	883	}
799		884
800	sub border {	885	sub border {
…		…
825	}	910	}
826		911
827	sub button_down {	912	sub button_down {
828	my ($self, $ev, $x, $y) = @_;	913	my ($self, $ev, $x, $y) = @_;
829		914
		915	my ($w, $h) = @$self{qw(w h)};
830	my $border = $self->border;	916	my $border = $self->border;
831		917
832	if ($x < $self->{w} && $x >= $self->{w} - $border	918	my $lr = ($x >= 0 && $x < $border) \|\| ($x > $w - $border && $x < $w);
833	&& $y < $self->{h} && $y >= $self->{h} - $border) {	919	my $td = ($y >= 0 && $y < $border) \|\| ($y > $h - $border && $y < $h);
834		920
		921	if ($lr & $td) {
		922	my ($wx, $wy) = ($self->{x}, $self->{y});
835	my ($ox, $oy) = ($ev->{x}, $ev->{y});	923	my ($ox, $oy) = ($ev->{x}, $ev->{y});
836	my ($bw, $bh) = ($self->{w}, $self->{h});	924	my ($bw, $bh) = ($self->{w}, $self->{h});
837		925
		926	my $mx = $x < $border;
		927	my $my = $y < $border;
		928
838	$self->{motion} = sub {	929	$self->{motion} = sub {
839	my ($ev, $x, $y) = @_;	930	my ($ev, $x, $y) = @_;
840		931
841	($x, $y) = ($ev->{x}, $ev->{y});	932	my $dx = $ev->{x} - $ox;
		933	my $dy = $ev->{y} - $oy;
842		934
843	$self->{user_w} = $bw + $x - $ox;	935	$self->{user_w} = $bw + $dx * ($mx ? -1 : 1);
844	$self->{user_h} = $bh + $y - $oy;	936	$self->{user_h} = $bh + $dy * ($my ? -1 : 1);
		937	$self->move ($wx + $dx * $mx, $wy + $dy * $my);
845	$self->check_size;	938	$self->check_size;
846	};	939	};
847		940
848	} elsif ($x >= 0 && $x < $self->{w}	941	} elsif ($lr ^ $td) {
849	&& $y >= 0 && $y < $border) {
850
851	my ($ox, $oy) = ($ev->{x}, $ev->{y});	942	my ($ox, $oy) = ($ev->{x}, $ev->{y});
852	my ($bx, $by) = ($self->{x}, $self->{y});	943	my ($bx, $by) = ($self->{x}, $self->{y});
853		944
854	$self->{motion} = sub {	945	$self->{motion} = sub {
855	my ($ev, $x, $y) = @_;	946	my ($ev, $x, $y) = @_;
…		…
891	$tex[1]->draw_quad (0, 0, $w, $border);	982	$tex[1]->draw_quad (0, 0, $w, $border);
892	$tex[3]->draw_quad (0, $border, $border, $ch);	983	$tex[3]->draw_quad (0, $border, $border, $ch);
893	$tex[2]->draw_quad ($w - $border, $border, $border, $ch);	984	$tex[2]->draw_quad ($w - $border, $border, $border, $ch);
894	$tex[4]->draw_quad (0, $h - $border, $w, $border);	985	$tex[4]->draw_quad (0, $h - $border, $w, $border);
895		986
		987	if (@{$self->{bg}} < 4 \|\| $self->{bg}[3]) {
896	my $bg = $tex[0];	988	my $bg = $tex[0];
897		989
898	# TODO: repeat texture not scale	990	# TODO: repeat texture not scale
899	my $rep_x = $cw / $bg->{w};	991	my $rep_x = $cw / $bg->{w};
900	my $rep_y = $ch / $bg->{h};	992	my $rep_y = $ch / $bg->{h};
901		993
902	glColor @{ $self->{bg} };	994	glColor @{ $self->{bg} };
903		995
904	$bg->{s} = $rep_x;	996	$bg->{s} = $rep_x;
905	$bg->{t} = $rep_y;	997	$bg->{t} = $rep_y;
906	$bg->{wrap_mode} = 1;	998	$bg->{wrap_mode} = 1;
907	$bg->draw_quad ($border, $border, $cw, $ch);	999	$bg->draw_quad ($border, $border, $cw, $ch);
908		1000
909	glDisable GL_TEXTURE_2D;	1001	glDisable GL_TEXTURE_2D;
910	glDisable GL_BLEND;	1002	glDisable GL_BLEND;
		1003	}
911		1004
912	$self->{title}->draw if $self->{title};	1005	$self->{title}->draw if $self->{title};
		1006
913	$self->child->draw;	1007	$self->child->draw;
914	}	1008	}
915		1009
916	#############################################################################	1010	#############################################################################
917		1011
…		…
1941	# TODO: calculations are off	2035	# TODO: calculations are off
1942	my $self = $class->SUPER::new (	2036	my $self = $class->SUPER::new (
1943	fg => [1, 1, 1],	2037	fg => [1, 1, 1],
1944	active_fg => [0, 0, 0],	2038	active_fg => [0, 0, 0],
1945	range => [0, 0, 100, 10],	2039	range => [0, 0, 100, 10],
1946	req_w => 20,	2040	req_w => $::WIDTH / 80,
1947	req_h => 20,	2041	req_h => $::WIDTH / 80,
1948	vertical => 0,	2042	vertical => 0,
1949	can_hover => 1,	2043	can_hover => 1,
1950	inner_pad => 5,	2044	inner_pad => 5,
1951	@_	2045	@_
1952	);	2046	);
…		…
2076	(new CFClient::UI::Empty expand => 1),	2170	(new CFClient::UI::Empty expand => 1),
2077	(new CFClient::UI::Slider vertical => 1),	2171	(new CFClient::UI::Slider vertical => 1),
2078	],	2172	],
2079	);	2173	);
2080		2174
2081	$self->{children}[1]->connect (changed => sub {	2175	$self->{children}[1]->connect (changed => sub { $self->update });
2082	$self->update;
2083	});
2084		2176
2085	$self	2177	$self
2086	}	2178	}
2087		2179
2088	sub set_fontsize {	2180	sub set_fontsize {
…		…
2096	my ($self, $text) = @_;	2188	my ($self, $text) = @_;
2097		2189
2098	my $layout = $self->{layout};	2190	my $layout = $self->{layout};
2099		2191
2100	$layout->set_height ($self->{fontsize} * $::FONTSIZE);	2192	$layout->set_height ($self->{fontsize} * $::FONTSIZE);
2101	$layout->set_width ($self->{w});	2193	$layout->set_width ($self->{children}[0]{w});
2102	$layout->set_text ($text);	2194	$layout->set_text ($text);
2103		2195
2104	($layout->size)[1]	2196	($layout->size)[1]
2105	}	2197	}
2106		2198
…		…
2159	$self->{children}[1]{range} = [$height - $self->{h}, 0, $height, $self->{h}];	2251	$self->{children}[1]{range} = [$height - $self->{h}, 0, $height, $self->{h}];
2160		2252
2161	delete $self->{texture};	2253	delete $self->{texture};
2162	}	2254	}
2163		2255
2164	$self->{texture} \|\|= new_from_opengl CFClient::Texture $self->{w}, $self->{h}, sub {	2256	$self->{texture} \|\|= new_from_opengl CFClient::Texture $self->{children}[0]{w}, $self->{children}[0]{h}, sub {
2165	glClearColor 0, 0, 0, 1;	2257	glClearColor 0, 0, 0, 0;
2166	glClear GL_COLOR_BUFFER_BIT;	2258	glClear GL_COLOR_BUFFER_BIT;
2167		2259
2168	glEnable GL_BLEND;	2260	glEnable GL_BLEND;
2169	glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;	2261	glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;
2170	glEnable GL_TEXTURE_2D;	2262	glEnable GL_TEXTURE_2D;
…		…
2202	}	2294	}
2203		2295
2204	sub _draw {	2296	sub _draw {
2205	my ($self) = @_;	2297	my ($self) = @_;
2206		2298
2207	if ($self->{texture}) {	2299	glEnable GL_BLEND;
		2300	glBlendFunc GL_ONE, GL_ONE_MINUS_SRC_ALPHA;
2208	glEnable GL_TEXTURE_2D;	2301	glEnable GL_TEXTURE_2D;
2209	glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE;	2302	glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE;
2210	glColor 1, 1, 1, 1;	2303	glColor 1, 1, 1, 1;
2211	$self->{texture}->draw_quad (0, 0, $self->{w}, $self->{h});	2304	$self->{texture}->draw_quad (0, 0, $self->{children}[0]{w}, $self->{children}[0]{h});
2212	glDisable GL_TEXTURE_2D;	2305	glDisable GL_TEXTURE_2D;
2213	}	2306	glDisable GL_BLEND;
2214		2307
2215	$self->{children}[1]->draw;	2308	$self->{children}[1]->draw;
2216		2309
2217	}	2310	}
2218		2311
…		…
2387		2480
2388	sub size_request {	2481	sub size_request {
2389	(32, 8)	2482	(32, 8)
2390	}	2483	}
2391		2484
2392	sub draw {	2485	sub _draw {
2393	my ($self) = @_;	2486	my ($self) = @_;
2394		2487
2395	my $tex = $::CONN->{texture}[$::CONN->{faceid}[$self->{face}]];	2488	my $tex = $::CONN->{texture}[$::CONN->{faceid}[$self->{face}]];
2396		2489
		2490	# TODO animation
2397	if ($tex) {	2491	if ($tex) {
2398	glEnable GL_BLEND;	2492	glEnable GL_BLEND;
2399	glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;	2493	glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;
2400	glEnable GL_TEXTURE_2D;	2494	glEnable GL_TEXTURE_2D;
2401	glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE;	2495	glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE;
…		…
2406	}	2500	}
2407	}	2501	}
2408		2502
2409	#############################################################################	2503	#############################################################################
2410		2504
		2505	package CFClient::UI::Menu;
		2506
		2507	our @ISA = CFClient::UI::FancyFrame::;
		2508
		2509	use CFClient::OpenGL;
		2510
		2511	sub new {
		2512	my $class = shift;
		2513
		2514	my $self = $class->SUPER::new (
		2515	items => [],
		2516	z => 100,
		2517	@_,
		2518	);
		2519
		2520	$self->add ($self->{vbox} = new CFClient::UI::VBox);
		2521
		2522	for my $item (@{ $self->{items} }) {
		2523	my ($widget, $cb) = @$item;
		2524
		2525	# handle various types of items, only text for now
		2526	if (!ref $widget) {
		2527	$widget = new CFClient::UI::Label
		2528	can_hover => 1,
		2529	can_events => 1,
		2530	text => $widget;
		2531	}
		2532
		2533	$self->{item}{$widget} = $item;
		2534
		2535	$self->{vbox}->add ($widget);
		2536	}
		2537
		2538	$self
		2539	}
		2540
		2541	# popup given the event (must be a mouse button down event currently)
		2542	sub popup {
		2543	my ($self, $ev) = @_;
		2544
		2545	$self->emit ("popdown");
		2546
		2547	# maybe save $GRAB? must be careful about events...
		2548	$GRAB = $self;
		2549	$self->{button} = $ev->{button};
		2550
		2551	$self->show;
		2552	$self->move ($ev->{x} - $self->{w} * 0.5, $ev->{y} - $self->{h} * 0.5);
		2553	}
		2554
		2555	sub mouse_motion {
		2556	my ($self, $ev, $x, $y) = @_;
		2557
		2558	# TODO: should use vbox->find_widget or so
		2559	$HOVER = $ROOT->find_widget ($ev->{x}, $ev->{y});
		2560	$self->{hover} = $self->{item}{$HOVER};
		2561	}
		2562
		2563	sub button_up {
		2564	my ($self, $ev, $x, $y) = @_;
		2565
		2566	if ($ev->{button} == $self->{button}) {
		2567	undef $GRAB;
		2568	$self->hide;
		2569
		2570	$self->emit ("popdown");
		2571	$self->{hover}[1]->() if $self->{hover};
		2572	}
		2573	}
		2574
		2575	#############################################################################
		2576
2411	package CFClient::UI::Root;	2577	package CFClient::UI::Root;
2412		2578
2413	our @ISA = CFClient::UI::Container::;	2579	our @ISA = CFClient::UI::Container::;
2414		2580
2415	use CFClient::OpenGL;	2581	use CFClient::OpenGL;
…		…
2487	$self->_draw;	2653	$self->_draw;
2488	}	2654	}
2489		2655
2490	#############################################################################	2656	#############################################################################
2491		2657
		2658	package CFClient::UI::InventoryItem;
		2659
		2660	our @ISA = CFClient::UI::HBox::;
		2661
		2662	sub new {
		2663	my $class = shift;
		2664
		2665	my %args = @_;
		2666
		2667	my $item = $args{item};
		2668
		2669	my $desc = $item->{nrof} < 2
		2670	? $item->{name}
		2671	: "$item->{nrof} $item->{name_pl}";
		2672
		2673
		2674	my $self = $class->SUPER::new (
		2675	can_hover => 1,
		2676	can_events => 1,
		2677	tooltip => (CFClient::UI::Label->escape ($desc)
		2678	. "\n<small>leftclick - pick up\nmiddle click - apply\nrightclick - menu</small>"),
		2679	connect_button_down => sub {
		2680	my ($self, $ev, $x, $y) = @_;
		2681
		2682	# todo: maybe put examine on 1? but should just be a tooltip :(
		2683	if ($ev->{button} == 1) {
		2684	$::CONN->send ("move $::CONN->{player}{tag} $item->{tag} 0");
		2685	} elsif ($ev->{button} == 2) {
		2686	$::CONN->send ("apply $item->{tag}");
		2687	} elsif ($ev->{button} == 3) {
		2688	CFClient::UI::Menu->new (
		2689	items => [
		2690	["examine", sub { $::CONN->send ("examine $item->{tag}") }],
		2691	[
		2692	$item->{flags} & Crossfire::Protocol::F_LOCKED ? "lock" : "unlock",
		2693	sub { $::CONN->send ("lock $item->{tag}") },
		2694	],
		2695	["mark", sub { $::CONN->send ("mark $item->{tag}") }],
		2696	["apply", sub { $::CONN->send ("apply $item->{tag}") }],
		2697	["drop", sub { $::CONN->send ("move 0 $item->{tag} 0") }],
		2698	],
		2699	)->popup ($ev);
		2700	}
		2701
		2702	1
		2703	},
		2704	%args
		2705	);
		2706	$self->add(new CFClient::UI::Face
		2707	can_events => 0,
		2708	face => $item->{face},
		2709	anim => $item->{anim},
		2710	animspeed => $item->{animspeed});
		2711	$self->add(new CFClient::UI::Label
		2712	can_events => 0,
		2713	text => $desc);
		2714
		2715	$self
		2716	}
		2717
		2718	#############################################################################
		2719
		2720	package CFClient::UI::Inventory;
		2721
		2722	our @ISA = CFClient::UI::ScrolledWindow::;
		2723
		2724	sub new {
		2725	my $class = shift;
		2726
		2727	my $self = $class->SUPER::new (
		2728	scrolled => (new CFClient::UI::VBox),
		2729	@_,
		2730	);
		2731
		2732	$self
		2733	}
		2734
		2735	sub set_items {
		2736	my ($self, $items) = @_;
		2737
		2738	$self->{scrolled}->clear;
		2739	return unless $items;
		2740
		2741	my @items = sort { $a->{type} <=> $b->{type} } @$items;
		2742
		2743	$self->{real_items} = \@items;
		2744
		2745	for my $item (@items) {
		2746	my $desc = $item->{nrof} < 2
		2747	? $item->{name}
		2748	: "$item->{nrof} $item->{name_pl}";
		2749
		2750	$self->{scrolled}->add (new CFClient::UI::InventoryItem item => $item);
		2751	}
		2752
		2753	# $range->{range} = [$self->{pos}, 0, $self->{max_pos}, $page];
		2754	}
		2755
		2756	sub size_request {
		2757	my ($self) = @_;
		2758	($self->{req_w}, $self->{req_h});
		2759	}
		2760
		2761	#############################################################################
		2762
2492	package CFClient::UI;	2763	package CFClient::UI;
2493		2764
2494	$ROOT = new CFClient::UI::Root;	2765	$ROOT = new CFClient::UI::Root;
2495	$TOOLTIP = new CFClient::UI::Tooltip;	2766	$TOOLTIP = new CFClient::UI::Tooltip;
2496		2767

Diff Legend

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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents): Revision 1.174 by root, Tue Apr 25 11:18:49 2006 UTC vs. Revision 1.184 by root, Wed May 3 19:56:05 2006 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.174 by root, Tue Apr 25 11:18:49 2006 UTC vs.
Revision 1.184 by root, Wed May 3 19:56:05 2006 UTC