# Like Get but handles incoming returns
sub Win32::Clipboard::GetEsc {
  my $self = shift;
  my $text = shift;
  $text =~ s/\r\n?/\n/g;
  $self->Get($text);
}

# Like Set but escapes outgoing returns.
sub Win32::Clipboard::SetEsc {
  my $self = shift;
  my $text = shift;
  $text =~ s/\r\n?|\n/\r\n/g;
  $self->Set($text);
}