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