# dummy frame to contain buttons

  $self->{delete_frame}=$mw->Frame()
    ->pack(-expand => '1', -fill => 'both' );

# buttons
	
  $self->{delete_button}=$self->{delete_frame}->Button(-text=>'Delete',-command=>[ \&delete , $self ])
    ->pack(-side=>'left', -expand => '1', -fill => 'both' );

  $self->{undelete_button}=$self->{delete_frame}->Button(-text=>'Undelete',-command=>[ \&undelete , $self ])
    ->pack(-side=>'right', -expand => '1', -fill => 'both' );