… | |
… | |
238 | } |
238 | } |
239 | |
239 | |
240 | package CFClient::Layout; |
240 | package 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 | |
246 | package CFClient::Item; |
246 | package CFClient::Item; |
247 | |
247 | |
248 | use strict; |
248 | use 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}) }], |