… | |
… | |
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 | clear_font_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; |