[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.185 by root, Mon May 8 17:23:08 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
		2488	return unless $::CONN;#d# manage and cache textures differently
2395	my $tex = $::CONN->{texture}[$::CONN->{faceid}[$self->{face}]];	2489	my $tex = $::CONN->{texture}[$::CONN->{faceid}[$self->{face}]];
2396		2490
		2491	# TODO animation
2397	if ($tex) {	2492	if ($tex) {
2398	glEnable GL_BLEND;	2493	glEnable GL_BLEND;
2399	glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;	2494	glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;
2400	glEnable GL_TEXTURE_2D;	2495	glEnable GL_TEXTURE_2D;
2401	glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE;	2496	glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE;
…		…
2406	}	2501	}
2407	}	2502	}
2408		2503
2409	#############################################################################	2504	#############################################################################
2410		2505
		2506	package CFClient::UI::Menu;
		2507
		2508	our @ISA = CFClient::UI::FancyFrame::;
		2509
		2510	use CFClient::OpenGL;
		2511
		2512	sub new {
		2513	my $class = shift;
		2514
		2515	my $self = $class->SUPER::new (
		2516	items => [],
		2517	z => 100,
		2518	@_,
		2519	);
		2520
		2521	$self->add ($self->{vbox} = new CFClient::UI::VBox);
		2522
		2523	for my $item (@{ $self->{items} }) {
		2524	my ($widget, $cb) = @$item;
		2525
		2526	# handle various types of items, only text for now
		2527	if (!ref $widget) {
		2528	$widget = new CFClient::UI::Label
		2529	can_hover => 1,
		2530	can_events => 1,
		2531	text => $widget;
		2532	}
		2533
		2534	$self->{item}{$widget} = $item;
		2535
		2536	$self->{vbox}->add ($widget);
		2537	}
		2538
		2539	$self
		2540	}
		2541
		2542	# popup given the event (must be a mouse button down event currently)
		2543	sub popup {
		2544	my ($self, $ev) = @_;
		2545
		2546	$self->emit ("popdown");
		2547
		2548	# maybe save $GRAB? must be careful about events...
		2549	$GRAB = $self;
		2550	$self->{button} = $ev->{button};
		2551
		2552	$self->show;
		2553	$self->move ($ev->{x} - $self->{w} * 0.5, $ev->{y} - $self->{h} * 0.5);
		2554	}
		2555
		2556	sub mouse_motion {
		2557	my ($self, $ev, $x, $y) = @_;
		2558
		2559	# TODO: should use vbox->find_widget or so
		2560	$HOVER = $ROOT->find_widget ($ev->{x}, $ev->{y});
		2561	$self->{hover} = $self->{item}{$HOVER};
		2562	}
		2563
		2564	sub button_up {
		2565	my ($self, $ev, $x, $y) = @_;
		2566
		2567	if ($ev->{button} == $self->{button}) {
		2568	undef $GRAB;
		2569	$self->hide;
		2570
		2571	$self->emit ("popdown");
		2572	$self->{hover}[1]->() if $self->{hover};
		2573	}
		2574	}
		2575
		2576	#############################################################################
		2577
2411	package CFClient::UI::Root;	2578	package CFClient::UI::Root;
2412		2579
2413	our @ISA = CFClient::UI::Container::;	2580	our @ISA = CFClient::UI::Container::;
2414		2581
2415	use CFClient::OpenGL;	2582	use CFClient::OpenGL;
…		…
2487	$self->_draw;	2654	$self->_draw;
2488	}	2655	}
2489		2656
2490	#############################################################################	2657	#############################################################################
2491		2658
		2659	package CFClient::UI::InventoryItem;
		2660
		2661	our @ISA = CFClient::UI::HBox::;
		2662
		2663	sub new {
		2664	my $class = shift;
		2665
		2666	my %args = @_;
		2667
		2668	my $item = $args{item};
		2669
		2670	my $desc = $item->{nrof} < 2
		2671	? $item->{name}
		2672	: "$item->{nrof} $item->{name_pl}";
		2673
		2674
		2675	my $self = $class->SUPER::new (
		2676	can_hover => 1,
		2677	can_events => 1,
		2678	tooltip => (CFClient::UI::Label->escape ($desc)
		2679	. "\n<small>leftclick - pick up\nmiddle click - apply\nrightclick - menu</small>"),
		2680	connect_button_down => sub {
		2681	my ($self, $ev, $x, $y) = @_;
		2682
		2683	# todo: maybe put examine on 1? but should just be a tooltip :(
		2684	if ($ev->{button} == 1) {
		2685	$::CONN->send ("move $::CONN->{player}{tag} $item->{tag} 0");
		2686	} elsif ($ev->{button} == 2) {
		2687	$::CONN->send ("apply $item->{tag}");
		2688	} elsif ($ev->{button} == 3) {
		2689	CFClient::UI::Menu->new (
		2690	items => [
		2691	["examine", sub { $::CONN->send ("examine $item->{tag}") }],
		2692	[
		2693	$item->{flags} & Crossfire::Protocol::F_LOCKED ? "lock" : "unlock",
		2694	sub { $::CONN->send ("lock $item->{tag}") },
		2695	],
		2696	["mark", sub { $::CONN->send ("mark $item->{tag}") }],
		2697	["apply", sub { $::CONN->send ("apply $item->{tag}") }],
		2698	["drop", sub { $::CONN->send ("move 0 $item->{tag} 0") }],
		2699	],
		2700	)->popup ($ev);
		2701	}
		2702
		2703	1
		2704	},
		2705	%args
		2706	);
		2707	$self->add(new CFClient::UI::Face
		2708	can_events => 0,
		2709	face => $item->{face},
		2710	anim => $item->{anim},
		2711	animspeed => $item->{animspeed});
		2712	$self->add(new CFClient::UI::Label
		2713	can_events => 0,
		2714	text => $desc);
		2715
		2716	$self
		2717	}
		2718
		2719	#############################################################################
		2720
		2721	package CFClient::UI::Inventory;
		2722
		2723	our @ISA = CFClient::UI::ScrolledWindow::;
		2724
		2725	sub new {
		2726	my $class = shift;
		2727
		2728	my $self = $class->SUPER::new (
		2729	scrolled => (new CFClient::UI::VBox),
		2730	@_,
		2731	);
		2732
		2733	$self
		2734	}
		2735
		2736	sub set_items {
		2737	my ($self, $items) = @_;
		2738
		2739	$self->{scrolled}->clear;
		2740	return unless $items;
		2741
		2742	my @items = sort { $a->{type} <=> $b->{type} } @$items;
		2743
		2744	$self->{real_items} = \@items;
		2745
		2746	for my $item (@items) {
		2747	my $desc = $item->{nrof} < 2
		2748	? $item->{name}
		2749	: "$item->{nrof} $item->{name_pl}";
		2750
		2751	$self->{scrolled}->add (new CFClient::UI::InventoryItem item => $item);
		2752	}
		2753
		2754	# $range->{range} = [$self->{pos}, 0, $self->{max_pos}, $page];
		2755	}
		2756
		2757	sub size_request {
		2758	my ($self) = @_;
		2759	($self->{req_w}, $self->{req_h});
		2760	}
		2761
		2762	#############################################################################
		2763
2492	package CFClient::UI;	2764	package CFClient::UI;
2493		2765
2494	$ROOT = new CFClient::UI::Root;	2766	$ROOT = new CFClient::UI::Root;
2495	$TOOLTIP = new CFClient::UI::Tooltip;	2767	$TOOLTIP = new CFClient::UI::Tooltip;
2496		2768

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.185 by root, Mon May 8 17:23:08 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.185 by root, Mon May 8 17:23:08 2006 UTC