# Copyright (c) 1995-1999 Nick Ing-Simmons. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
$VERSION = '3.016'; # $Id: //depot/Tk8/Tk/Clipboard.pm#16 $
use AutoLoader qw(AUTOLOAD);
return qw
[Copy Cut Paste
];
foreach my $op ($class->clipEvents)
$mw->Tk::bind($class,"<<$op>>","clipboard$op");
my $val = $w->getSelected;
$w->clipboardSet('--',$val);
my $val = $w->clipboardCopy;
$w->SelectionGet('-selection','CLIPBOARD',@_);
catch
{ $w->insert('insert',$w->clipboardGet)};
$mw = $mw->DelegateFor('bind');
$mw->Tk::bind(@class,"<<$op>>","clipboard$op");
# These methods work for Entry and Text
# and can be overridden where they don't work
catch
{ $w->delete('sel.first','sel.last') };
my $val = Tk
::catch
{ $w->get('sel.first','sel.last') };