… | |
… | |
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}) }], |