… | |
… | |
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 | |
|
|
240 | package CFClient::Layout; |
|
|
241 | |
|
|
242 | $CFClient::OpenGL::SHUTDOWN_HOOK{"CFClient::Layout"} = sub { |
|
|
243 | reset_glyph_cache; |
|
|
244 | }; |
239 | |
245 | |
240 | package CFClient::Item; |
246 | package CFClient::Item; |
241 | |
247 | |
242 | use strict; |
248 | use strict; |
243 | use Crossfire::Protocol::Constants; |
249 | use 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}) }], |