Re: multiple-item drag-and-drop

["Jeffrey Ratcliffe" <jeffrey ratcliffe gmail com>]

On 29/08/2007, Jeffrey Ratcliffe <jeffrey ratcliffe gmail com> wrote:
> And indeed, rows are then copied unless shift is pressed, in which
> case they are moved. How do I set the default behaviour to move, only
> copying if control is pressed?

I solved this by adding the following code to the 'drag-motion' callback:

 my @action;
 if ($context->actions == 'copy') {
  @action = ( 'copy' );
 }
 else {
  @action = ( 'move' );
 }
 $context->status(@action, $t);

But I still don't understand how to determine the height of the header
row of a Simple::List.

Jeff