$widget->SelectionClear;
$widget->SelectionOwn(-selection=>'PRIMARY');
$widget->SelectionHandle( -selection=> 'PRIMARY',-type=>'STRING',-format=>'STRING',sub {$data} );