ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/DC.pm
(Generate patch)

Comparing deliantra/Deliantra-Client/DC.pm (file contents):
Revision 1.96 by root, Sun Jul 2 18:52:04 2006 UTC vs.
Revision 1.99 by elmex, Fri Jul 14 17:35:34 2006 UTC

234 [ 234 [
235 map s/^(\s*)// && [40 * length $1, length $_ ? $_ : " "], 235 map s/^(\s*)// && [40 * length $1, length $_ ? $_ : " "],
236 split /\n/, $pom->present ("CFClient::PodToPango") 236 split /\n/, $pom->present ("CFClient::PodToPango")
237 ] 237 ]
238} 238}
239
240package CFClient::Layout;
241
242$CFClient::OpenGL::SHUTDOWN_HOOK{"CFClient::Layout"} = sub {
243 reset_glyph_cache;
244};
239 245
240package CFClient::Item; 246package CFClient::Item;
241 247
242use strict; 248use strict;
243use Crossfire::Protocol::Constants; 249use Crossfire::Protocol::Constants;
327 $::CONN->send ("apply $self->{tag}"); 333 $::CONN->send ("apply $self->{tag}");
328 } elsif ($ev->{button} == 3) { 334 } elsif ($ev->{button} == 3) {
329 my @menu_items = ( 335 my @menu_items = (
330 ["examine", sub { $::CONN->send ("examine $self->{tag}") }], 336 ["examine", sub { $::CONN->send ("examine $self->{tag}") }],
331 ["mark", sub { $::CONN->send ("mark ". pack "N", $self->{tag}) }], 337 ["mark", sub { $::CONN->send ("mark ". pack "N", $self->{tag}) }],
338 ["ignite/thaw", # first try of an easier use of flint&steel
339 sub {
340 $::CONN->send ("mark ". pack "N", $self->{tag});
341 $::CONN->send ("command apply flint and steel");
342 }
343 ],
332 ["apply", sub { $::CONN->send ("apply $self->{tag}") }], 344 ["apply", sub { $::CONN->send ("apply $self->{tag}") }],
333 ( 345 (
334 $self->{flags} & F_LOCKED 346 $self->{flags} & F_LOCKED
335 ? ( 347 ? (
336 ["unlock", sub { $::CONN->send ("lock " . pack "CN", 0, $self->{tag}) }], 348 ["unlock", sub { $::CONN->send ("lock " . pack "CN", 0, $self->{tag}) }],

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines