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