| … | |
… | |
| 289 | sub { |
289 | sub { |
| 290 | &::open_string_query ("Rename item to:", sub { |
290 | &::open_string_query ("Rename item to:", sub { |
| 291 | my ($entry, $txt) = @_; |
291 | my ($entry, $txt) = @_; |
| 292 | $::CONN->send ("mark ". pack "N", $self->{tag}); |
292 | $::CONN->send ("mark ". pack "N", $self->{tag}); |
| 293 | $::CONN->send ("command rename to <$txt>"); |
293 | $::CONN->send ("command rename to <$txt>"); |
| 294 | }); |
294 | }, $self->{name}, |
|
|
295 | "If you input no name or erase the current custom name, the custom name will be unset"); |
| 295 | } |
296 | } |
| 296 | ], |
297 | ], |
| 297 | ["apply", sub { $::CONN->send ("apply $self->{tag}") }], |
298 | ["apply", sub { $::CONN->send ("apply $self->{tag}") }], |
| 298 | ( |
299 | ( |
| 299 | $self->{flags} & F_LOCKED |
300 | $self->{flags} & F_LOCKED |
