… | |
… | |
390 | ["unlock", sub { $::CONN->send ("lock " . pack "CN", 0, $self->{tag}) }], |
390 | ["unlock", sub { $::CONN->send ("lock " . pack "CN", 0, $self->{tag}) }], |
391 | ) |
391 | ) |
392 | : ( |
392 | : ( |
393 | ["lock", sub { $::CONN->send ("lock " . pack "CN", 1, $self->{tag}) }], |
393 | ["lock", sub { $::CONN->send ("lock " . pack "CN", 1, $self->{tag}) }], |
394 | ["$move_prefix all", sub { $::CONN->send ("move $targ $self->{tag} 0") }], |
394 | ["$move_prefix all", sub { $::CONN->send ("move $targ $self->{tag} 0") }], |
395 | ["$move_prefix <n>", |
395 | ["$move_prefix <n>", |
396 | sub { |
396 | sub { |
397 | do_n_dialog (sub { $::CONN->send ("move $targ $self->{tag} $_[0]") }) |
397 | do_n_dialog (sub { $::CONN->send ("move $targ $self->{tag} $_[0]") }) |
398 | } |
398 | } |
399 | ] |
399 | ] |
400 | ) |
400 | ) |