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.97 by root, Tue Jul 4 23:23:31 2006 UTC vs.
Revision 1.99 by elmex, Fri Jul 14 17:35:34 2006 UTC

238} 238}
239 239
240package CFClient::Layout; 240package CFClient::Layout;
241 241
242$CFClient::OpenGL::SHUTDOWN_HOOK{"CFClient::Layout"} = sub { 242$CFClient::OpenGL::SHUTDOWN_HOOK{"CFClient::Layout"} = sub {
243 clear_font_cache; 243 reset_glyph_cache;
244}; 244};
245 245
246package CFClient::Item; 246package CFClient::Item;
247 247
248use strict; 248use strict;
333 $::CONN->send ("apply $self->{tag}"); 333 $::CONN->send ("apply $self->{tag}");
334 } elsif ($ev->{button} == 3) { 334 } elsif ($ev->{button} == 3) {
335 my @menu_items = ( 335 my @menu_items = (
336 ["examine", sub { $::CONN->send ("examine $self->{tag}") }], 336 ["examine", sub { $::CONN->send ("examine $self->{tag}") }],
337 ["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 ],
338 ["apply", sub { $::CONN->send ("apply $self->{tag}") }], 344 ["apply", sub { $::CONN->send ("apply $self->{tag}") }],
339 ( 345 (
340 $self->{flags} & F_LOCKED 346 $self->{flags} & F_LOCKED
341 ? ( 347 ? (
342 ["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