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