view release on metacpan or  search on metacpan

benchmarks/wordlist-en.txt  view on Meta::CPAN

cliometricians
cliometrics
clip
clipart
cliparts
clipboard
clipboards
clipe
cliped
clipes
cliping
clippable

 view release on metacpan or  search on metacpan

Gnuplot.h  view on Meta::CPAN

#ifdef USE_MOUSE
    int (*waitforinput) __PROTO((void));     /* used for mouse input */
    void (*put_tmptext) __PROTO((int, const char []));   /* draws temporary text; int determines where: 0=statusline, 1,2: at corners of zoom box, with \r separating text above and below the point */
    void (*set_ruler) __PROTO((int, int));    /* set ruler location; x<0 switches ruler off */
    void (*set_cursor) __PROTO((int, int, int));   /* set cursor style and corner of rubber band */
    void (*set_clipboard) __PROTO((const char[]));  /* write text into cut&paste buffer (clipboard) */
#endif
#ifdef PM3D
    int (*make_palette) __PROTO((t_sm_palette *palette));
    /* 1. if palette==NULL, then return nice/suitable
       maximal number of colours supported by this terminal.

 view release on metacpan or  search on metacpan

ReadLine/readline.pm  view on Meta::CPAN

sub F_PossibleCompletions;
sub F_Complete;
sub F_YankClipboard;
sub F_CopyRegionAsKillClipboard;
sub F_KillRegionClipboard;
sub clipboard_set;
sub F_BeginUndoGroup;
sub F_EndUndoGroup;
sub F_DoNothing;
sub F_ForceMemorizeDigitArgument;
sub F_MemorizeDigitArgument;

ReadLine/readline.pm  view on Meta::CPAN

    $ThisCommandKilledText = 1 + $s;
    $KillBuffer = '' if !$LastCommandKilledText;
    $KillBuffer .= substr($line, $s, $e - $s);
}

sub clipboard_set {
    my $in = shift;
    if ($^O eq 'os2') {
      eval {
	require OS2::Process;
	OS2::Process::ClipbrdText_set($in); # Do not disable \r\n-conversion

ReadLine/readline.pm  view on Meta::CPAN

    print COPY $in;
    close COPY or warn("$mess: closing $!");
}

sub F_CopyRegionAsKillClipboard {
    return clipboard_set($line) unless $line_rl_mark == $rl_HistoryIndex;
    &F_CopyRegionAsKill;
    clipboard_set($KillBuffer);
}

sub F_KillRegionClipboard {
    &F_KillRegion;
    clipboard_set($KillBuffer);
}

sub F_YankClipboard
{
    remove_selection();

 view release on metacpan or  search on metacpan

lib/Term/ReadLine/Perl5/readline.pm  view on Meta::CPAN

    &F_ForwardChar(1);
    &vi_input_mode;
}

sub F_CopyRegionAsKillClipboard {
    return clipboard_set($line) unless $line_rl_mark == $rl_HistoryIndex;
    &F_CopyRegionAsKill;
    clipboard_set($KillBuffer);
}

sub F_KillRegionClipboard {
    &F_KillRegion;
    clipboard_set($KillBuffer);
}

sub F_YankClipboard
{
    remove_selection();

lib/Term/ReadLine/Perl5/readline.pm  view on Meta::CPAN

    $InsertMode = 1;
    $var_EditingMode = $var_EditingMode{'vi'};
    $Vi_mode = 1;
}

sub clipboard_set($) {
    my $in = shift;
    if ($^O eq 'os2') {
      eval {
        require OS2::Process;
        OS2::Process::ClipbrdText_set($in); # Do not disable \r\n-conversion

 view release on metacpan or  search on metacpan

ReadLine/readline_ttytter.pm  view on Meta::CPAN

sub F_PossibleCompletions;
sub F_Complete;
sub F_YankClipboard;
sub F_CopyRegionAsKillClipboard;
sub F_KillRegionClipboard;
sub clipboard_set;
sub F_BeginUndoGroup;
sub F_EndUndoGroup;
sub F_DoNothing;
sub F_ForceMemorizeDigitArgument;
sub F_MemorizeDigitArgument;

ReadLine/readline_ttytter.pm  view on Meta::CPAN

    $ThisCommandKilledText = 1 + $s;
    $KillBuffer = '' if !$LastCommandKilledText;
    $KillBuffer .= substr($line, $s, $e - $s);
}

sub clipboard_set {
    my $in = shift;
    if ($^O eq 'os2') {
      eval {
	require OS2::Process;
	OS2::Process::ClipbrdText_set($in); # Do not disable \r\n-conversion

ReadLine/readline_ttytter.pm  view on Meta::CPAN

    print COPY $in;
    close COPY or warn("$mess: closing $!");
}

sub F_CopyRegionAsKillClipboard {
    return clipboard_set($line) unless $line_rl_mark == $rl_HistoryIndex;
    &F_CopyRegionAsKill;
    clipboard_set($KillBuffer);
}

sub F_KillRegionClipboard {
    &F_KillRegion;
    clipboard_set($KillBuffer);
}

sub F_YankClipboard
{
    remove_selection();

 view release on metacpan or  search on metacpan

t/42selection.t  view on Meta::CPAN

      on_set => sub { @args = @_; return 1; },
   );

   $vt->input_write( "\e]52;c;" . CONTENT_BASE64 . "\e\\" );

   is( $args[0], SELECTION_CLIPBOARD, 'Set mask is clipboard' );
   is( $args[1], CONTENT_TEXT, 'Set content' );
}

# query selection
{

t/42selection.t  view on Meta::CPAN

   );

   $vt->input_write( "\e]52;c;?\e\\" );

   ok( defined $queried, 'on_query callback invoked' );
   is( $queried, SELECTION_CLIPBOARD, 'Query mask is clipboard' );

   $state->send_selection( SELECTION_CLIPBOARD, CONTENT_TEXT );

   sub unqq { my ( $s ) = @_; $s =~ s/\e/\\e/g; $s }

 view release on metacpan or  search on metacpan

lib/Termux/API.pm  view on Meta::CPAN

sub camera_info {
	$_[0]->command('termux-camera-info');
}

sub clipboard_get {
	$_[0]->command('termux-clipboard-get');
}

sub clipboard_set {
	$_[0]->command("termux-clipboard-set $_[1]");
}

sub contact_list {
	$_[0]->command('termux-contact-list');
}

lib/Termux/API.pm  view on Meta::CPAN

Get information about device camera(s).

	$termux->camera_info

=head2 clipboard_get

Get the system clipboard text

	$termux->clipboard_get

=head2 clipboard_set

Set the system clipboard text.

	$termux->clipboard_set("copy some text")

=head2 contact_list

List all contacts

 view release on metacpan or  search on metacpan

t/logs/rtc-126010/smokecurrent.log  view on Meta::CPAN

[2018-08-13 08:08:21-0400] [manicheck] Matched os2/OS2/OS2-Process/Process.pm
[2018-08-13 08:08:21-0400] [manicheck] Matched os2/OS2/OS2-Process/Process.xs
[2018-08-13 08:08:21-0400] [manicheck] Matched os2/OS2/OS2-Process/t/os2_process_text.t
[2018-08-13 08:08:21-0400] [manicheck] Matched os2/OS2/OS2-Process/t/os2_process.t
[2018-08-13 08:08:21-0400] [manicheck] Matched os2/OS2/OS2-Process/t/os2_atoms.t
[2018-08-13 08:08:21-0400] [manicheck] Matched os2/OS2/OS2-Process/t/os2_clipboard.t
[2018-08-13 08:08:21-0400] [manicheck] Matched os2/OS2/OS2-Process/t/os2_process_kid.t
[2018-08-13 08:08:21-0400] [manicheck] Matched os2/OS2/OS2-ExtAttr/myea.h
[2018-08-13 08:08:21-0400] [manicheck] Matched os2/OS2/OS2-ExtAttr/ExtAttr.pm
[2018-08-13 08:08:21-0400] [manicheck] Matched os2/OS2/OS2-ExtAttr/typemap
[2018-08-13 08:08:21-0400] [manicheck] Matched os2/OS2/OS2-ExtAttr/MANIFEST

 view release on metacpan or  search on metacpan

share/en/us/en_US.dic  view on Meta::CPAN

clinker/M
cliometric/S
cliometrician/MS
cliometrics/M
clip/SM
clipboard/MS
clipped
clipper/SM
clipping/SM
clique/SM
cliquey

 view release on metacpan or  search on metacpan

data/en_US.dic  view on Meta::CPAN

clinker/GMD
clinometer/MIS
cliometric/S
cliometrician/S
clip/SM
clipboard/SM
clipped/U
clipper/MS
clipping/SM
clique/SDGM
cliquey

 view release on metacpan or  search on metacpan

share/css/jquery-ui.css  view on Meta::CPAN

.ui-icon-close { background-position: -80px -128px; }
.ui-icon-closethick { background-position: -96px -128px; }
.ui-icon-key { background-position: -112px -128px; }
.ui-icon-lightbulb { background-position: -128px -128px; }
.ui-icon-scissors { background-position: -144px -128px; }
.ui-icon-clipboard { background-position: -160px -128px; }
.ui-icon-copy { background-position: -176px -128px; }
.ui-icon-contact { background-position: -192px -128px; }
.ui-icon-image { background-position: -208px -128px; }
.ui-icon-video { background-position: -224px -128px; }
.ui-icon-script { background-position: -240px -128px; }

 view release on metacpan or  search on metacpan

share/css/jquery-ui.css  view on Meta::CPAN

.ui-icon-close { background-position: -80px -128px; }
.ui-icon-closethick { background-position: -96px -128px; }
.ui-icon-key { background-position: -112px -128px; }
.ui-icon-lightbulb { background-position: -128px -128px; }
.ui-icon-scissors { background-position: -144px -128px; }
.ui-icon-clipboard { background-position: -160px -128px; }
.ui-icon-copy { background-position: -176px -128px; }
.ui-icon-contact { background-position: -192px -128px; }
.ui-icon-image { background-position: -208px -128px; }
.ui-icon-video { background-position: -224px -128px; }
.ui-icon-script { background-position: -240px -128px; }

 view release on metacpan or  search on metacpan

lib/Text/Clip.pm  view on Meta::CPAN

package Text::Clip;
BEGIN {
  $Text::Clip::VERSION = '0.0014';
}
# ABSTRACT: Clip and extract text in clipboard-like way


use Any::Moose;

has data => qw/ reader data writer _data required 1 /;

lib/Text/Clip.pm  view on Meta::CPAN

__END__
=pod

=head1 NAME

Text::Clip - Clip and extract text in clipboard-like way

=head1 VERSION

version 0.0014

 view release on metacpan or  search on metacpan

lib/Text/Editor/Easy/Abstract.pm  view on Meta::CPAN

    'ctrl_F'    => \&Text::Editor::Easy::Key::search,

    'ctrl_i'    => [ \&Text::Editor::Easy::Abstract::test_new_insert, 'Abstract' ],
    'ctrl_I'    => [ \&Text::Editor::Easy::Abstract::test_new_insert, 'Abstract' ],
    
    'ctrl_j'    => \&Text::Editor::Easy::Abstract::print_clipboard,
    'ctrl_J'    => \&Text::Editor::Easy::Abstract::print_clipboard,

    'ctrl_l' => \&Text::Editor::Easy::Key::close,
    'ctrl_L' => \&Text::Editor::Easy::Key::close,
    'ctrl_m'    => \&decrease_line_space,
    'ctrl_M'    => \&decrease_line_space,

lib/Text/Editor/Easy/Abstract.pm  view on Meta::CPAN

        print STDERR
"Can't call manage_event loop when no Text::Editor::Easy object is created\n";
    }
}

sub clipboard_set {
    my ( $self, $string ) = @_;

    print "Dans clipboard_set de abstract : |$string|\n";
    for ( keys %abstract ) {
        return $abstract{$_}->[GRAPHIC]->clipboard_set( $string );
    }
    print STDERR
"Can't call clipboard_set when no Text::Editor::Easy object is created\n";
    return;
}

sub clipboard_get {
    for ( keys %abstract ) {
        return $abstract{$_}->[GRAPHIC]->clipboard_get();
    }
    print STDERR
"Can't call clipboard_get when no Text::Editor::Easy object is created\n";
    return;
}

sub print_clipboard {
    my $clipboard = clipboard_get();
    
    my @lines = split( /\n/, $clipboard );
    for my $line ( @lines ) {
        print "$line|\n\t";
        for my $indice ( 0..length($line) - 1 ) {
            my $char = substr( $line, $indice, 1 );
            print ord($char), ":";

lib/Text/Editor/Easy/Abstract.pm  view on Meta::CPAN

######################################################################

sub test_new_insert {
    my ( $edit_ref ) = @_;

    my $text = $edit_ref->[GRAPHIC]->clipboard_get;
    my $options_ref = do 'options_ref.txt';
    # Test gros bloc
    #$text = "";
    #my $texte = " : ligne n° : ";
    #my $indice = 0;

lib/Text/Editor/Easy/Abstract.pm  view on Meta::CPAN

}

sub paste {
        my ( $edit_ref ) = @_;
                 
        my $string = $edit_ref->[GRAPHIC]->clipboard_get;
        insert($edit_ref, $string, { 'bloc' => 1 } );
}        

sub resize_all {

lib/Text/Editor/Easy/Abstract.pm  view on Meta::CPAN

=head2 clear_screen

=head2 clic

=head2 clipboard_get

Retrieve the content of the clipboard (for paste operation)

=head2 clipboard_set

Set the content of the clipboard (for copy operation)

=head2 concat

=head2 create_line_ref_from_ref

lib/Text/Editor/Easy/Abstract.pm  view on Meta::CPAN

=head2 parent

=head2 paste

Copy the clipboard content to the cursor position.

=head2 position_cursor_in_display

=head2 position_cursor_in_line

 view release on metacpan or  search on metacpan

lib/Text/Editor/Vip/Buffer/Plugins/Clipboard.pm  view on Meta::CPAN

%EXPORT_TAGS = ();
}

=head1 NAME

Text::Editor::Vip::Buffer::Plugins::Clipboard - Internal clipboard handling

=head1 SYNOPSIS

  use Text::Editor::Vip::Buffer ;
  $buffer = new Text::Editor::Vip::Buffer() ;

lib/Text/Editor/Vip/Buffer/Plugins/Clipboard.pm  view on Meta::CPAN

sub SetClipboardContents
{

=head2 SetClipboardContents

Sets the content of the named clipboard.

B<Arguments:>

=over 2

=item * clipboard name, a scalar

=item * text, a scalar, or an array ref (elements are joined to a single string)

=back

  $buffer->SetClipboardContents(4, 'something') ;
  $buffer->SetClipboardContents(4, ['something', "\n", 'hi']) ;

=cut

my ($buffer, $clipboard_name, $text_to_insert) = @_ ;

if('' ne ref $clipboard_name || ! defined $clipboard_name || '' eq $clipboard_name)
	{
	$buffer->PrintError("SetClipboardContents: Invalid clipboard name!") ;
	return(0) ;
	}
	
if(@_ != 3)
	{

lib/Text/Editor/Vip/Buffer/Plugins/Clipboard.pm  view on Meta::CPAN

else
	{
	@text_to_insert = ($text_to_insert) ;
	}

#~ $buffer->{CLIPBOARDS}{$clipboard_name} = join('', @text_to_insert) ;

$buffer->{CLIPBOARDS}{$clipboard_name} = [@text_to_insert] ;
}

#-------------------------------------------------------------------------------------------------------------

sub GetClipboardContents
{

=head2 GetClipboardContents

Returns the contents of the named clipboard.

B<Arguments:>

=over 2

=item * clipboard name

=back

  $buffer->GetClipboardContents(4) ;

=cut

my ($buffer, $clipboard_name) = @_ ;

if('' ne ref $clipboard_name || ! defined $clipboard_name  || '' eq $clipboard_name)
	{
	$buffer->PrintError("GetClipboardContents: Invalid clipboard name!") ;
	return('') ;
	}

if(@_ != 2)
	{
	$buffer->PrintError("GetClipboardContents: wrong number of arguments!") ;
	return('') ;
	}

#~ exists $buffer->{CLIPBOARDS}{$clipboard_name} ? $buffer->{CLIPBOARDS}{$clipboard_name}	: '' ;
if(exists $buffer->{CLIPBOARDS}{$clipboard_name})
	{
	return
		(
		join('', @{$buffer->{CLIPBOARDS}{$clipboard_name}})
		)
	}
else
	{
	return('') ;

lib/Text/Editor/Vip/Buffer/Plugins/Clipboard.pm  view on Meta::CPAN

sub CopySelectionToClipboard
{

=head2 CopySelectionToClipboard

Makes a copy of the selected text and copies it to the named clipboard.

B<Arguments:>

=over 2

=item * clipboard name

=back

  $buffer->CopySelectionToClipboard('some_clipboard_name') ;

=cut

my ($buffer, $clipboard_name) = @_ ;

if('' ne ref $clipboard_name || ! defined $clipboard_name || '' eq $clipboard_name)
	{
	$buffer->PrintError("CopySelectionToClipboard: Invalid clipboard name!") ;
	return(0) ;
	}

if(@_ != 2)
	{

lib/Text/Editor/Vip/Buffer/Plugins/Clipboard.pm  view on Meta::CPAN

					
					my $add_newline = $selection_line_index != $original_selection->GetEndLine()
											? "\n" 
											: '' ;
											
					$buffer->AppendToClipboardContents($clipboard_name, $text . $add_newline) ;
					
					# remember to not modify the line
					$text ;
					}
				, sub
					{
					$buffer->PrintError("Please select text to copy to clipboard '$clipboard_name'.\n") ;
					}
				) ;
				
	return(1) ;
	}

lib/Text/Editor/Vip/Buffer/Plugins/Clipboard.pm  view on Meta::CPAN

sub InsertClipboardContents
{

=head2 InsertClipboardContents

Inserts the Contents of the named clipboard into the buffer.

B<Arguments:>

=over 2

=item * clipboard name

=back

  $buffer->InsertClipboardContents('my_clipboard') ;

=cut

my ($buffer, $clipboard_name) = @_ ;

if('' ne ref $clipboard_name || ! defined $clipboard_name || '' eq $clipboard_name)
	{
	$buffer->PrintError("InsertClipboardContents: Invalid clipboard name!") ;
	return(0) ;
	}

if(@_ != 2)
	{
	$buffer->PrintError("InsertClipboardContents: wrong number of arguments!") ;
	return(0) ;
	}

#~ $buffer->Insert($buffer->{CLIPBOARDS}{$clipboard_name}) ;
$buffer->Insert($buffer->GetClipboardContents($clipboard_name)) ;

return(1) ;
}

#---------------------------------------------------------------------------------------------

lib/Text/Editor/Vip/Buffer/Plugins/Clipboard.pm  view on Meta::CPAN

B<Arguments:>

=over 2

=item * clipboard name

=back

  $buffer->ClearClipboardContents('clipboard_1') ;

=cut

my ($buffer, $clipboard_name) = @_ ;

if('' ne ref $clipboard_name || ! defined $clipboard_name || '' eq $clipboard_name)
	{
	$buffer->PrintError("ClearClipboardContents: Invalid clipboard name!") ;
	return(0) ;
	}

if(@_ != 2)
	{
	$buffer->PrintError("ClearClipboardContents: wrong number of arguments!") ;
	return(0) ;
	}

delete $buffer->{CLIPBOARDS}{$clipboard_name} ;

return(1) ;
}

#---------------------------------------------------------------------------------------------

lib/Text/Editor/Vip/Buffer/Plugins/Clipboard.pm  view on Meta::CPAN

sub AppendToClipboardContents
{

=head2 AppendToClipboardContents

Adds the text argument to the end of the clipboard.

B<Arguments:>

=over 2

=item * clipboard name, a scalar

=item * text, a scalar, or an array ref (elements are joined to a single string)

=back

  $buffer->AppendToClipboardContents('clipboard_2', "some string and a newline\n") ;

=cut

my ($buffer, $clipboard_name, $text_to_insert) = @_ ;

if('' ne ref $clipboard_name || ! defined $clipboard_name || '' eq $clipboard_name)
	{
	$buffer->PrintError("AppendToClipboardContents: Invalid clipboard name!") ;
	return(0) ;
	}

if(@_ != 3)
	{

lib/Text/Editor/Vip/Buffer/Plugins/Clipboard.pm  view on Meta::CPAN

else
	{
	@text_to_insert = ($text_to_insert) ;
	}

#~ $buffer->{CLIPBOARDS}{$clipboard_name} .= join('', @text_to_insert) ;

push @{$buffer->{CLIPBOARDS}{$clipboard_name}}, @text_to_insert ;

return(1) ;
}

#-------------------------------------------------------------------------------------------------------------

lib/Text/Editor/Vip/Buffer/Plugins/Clipboard.pm  view on Meta::CPAN

sub PopClipboard
{

=head2 PopClipboard

Removes the last entry of a clipboard and returnes it. An error is displayed if the clipboard is empty.

B<Arguments:>

=over 2

=item * clipboard name, a scalar

=back

  $buffer->PopClipboard(4) ;

=cut

my ($buffer, $clipboard_name, $text_to_insert) = @_ ;

if('' ne ref $clipboard_name || ! defined $clipboard_name || '' eq $clipboard_name)
	{
	$buffer->PrintError("PopClipboard: Invalid clipboard name!") ;
	return(0) ;
	}
	
if(@_ != 2)
	{
	$buffer->PrintError("PopClipboard: wrong number of arguments!") ;
	return(0) ;
	}

if(@{$buffer->{CLIPBOARDS}{$clipboard_name}})
	{
	return( pop @{$buffer->{CLIPBOARDS}{$clipboard_name}} ) ;
	}
else
	{
	$buffer->PrintError("PopClipboard: clipboard '$clipboard_name' is empty!") ;
	return('') ;
	}
}

#-------------------------------------------------------------------------------------------------------------

lib/Text/Editor/Vip/Buffer/Plugins/Clipboard.pm  view on Meta::CPAN

sub GetNumberOfClipboardElements
{

=head2 GetNumberOfClipboardElements

Returns the number of elements in the clipboard, zero if the clipboard doesn't exist.

B<Arguments:>

=over 2

=item * clipboard name, a scalar

=back

  $buffer->GetNumberOfClipboardElements(4) ;

=cut

my ($buffer, $clipboard_name) = @_ ;

if('' ne ref $clipboard_name || ! defined $clipboard_name || '' eq $clipboard_name)
	{
	$buffer->PrintError("PopClipboard: Invalid clipboard name!") ;
	return(0) ;
	}
	
if(@_ != 2)
	{
	$buffer->PrintError("PopClipboard: wrong number of arguments!") ;
	return(0) ;
	}

if(exists $buffer->{CLIPBOARDS}{$clipboard_name})
	{
	return(scalar (@{$buffer->{CLIPBOARDS}{$clipboard_name}})) ;
	}
else
	{
	return(0) ;
	}

lib/Text/Editor/Vip/Buffer/Plugins/Clipboard.pm  view on Meta::CPAN

sub YankLineToClipboard
{

=head2 YankLineToClipboard

Removes a line from the buffer and adds it to a clipboard

B<Arguments:>

=over 2

=item * line number

=item * clipboard name, a scalar

=back

  $buffer->YankLineToClipboard(4, 'clipboard') ;

=cut

my ($buffer, $line, $clipboard_name) = @_ ;

if('' ne ref $clipboard_name || ! defined $clipboard_name || '' eq $clipboard_name)
	{
	$buffer->PrintError("YankLineToClipboard: Invalid clipboard name!") ;
	return(0) ;
	}
	
if(@_ != 3)
	{

lib/Text/Editor/Vip/Buffer/Plugins/Clipboard.pm  view on Meta::CPAN

	{
	$buffer->PrintError("SetClipboardContents: Invalid line arguments!") ;
	return(0) ;
	}
	
$buffer->AppendToClipboardContents($clipboard_name, $buffer->GetLineTextWithNewline($line));
$buffer->DeleteLine($line) ;

return(1) ;
}

lib/Text/Editor/Vip/Buffer/Plugins/Clipboard.pm  view on Meta::CPAN

sub YankSelectionToClipboard
{

=head2 YankSelectionToClipboard

Removes the current selection from the buffer and adds it to a clipboard

B<Arguments:>

=over 2

=item * clipboard name, a scalar

=item * text, a scalar, or an array ref (elements are joined to a single string)

=back

  $buffer->YankSelectionToClipboard('clipboard') ;

=cut

my ($buffer, $clipboard_name) = @_ ;

if('' ne ref $clipboard_name || ! defined $clipboard_name || '' eq $clipboard_name)
	{
	$buffer->PrintError("YankSelectionToClipboard: Invalid clipboard name!") ;
	return(0) ;
	}
	
if(@_ != 2)
	{

lib/Text/Editor/Vip/Buffer/Plugins/Clipboard.pm  view on Meta::CPAN

			(
			sub
				{
				my ($text, $selection_line_index, $modification_character, $original_selection, $buffer) = @_;
				
				#~ $buffer->AppendToClipboardContents($clipboard_name, $buffer->GetSelectionText($selection_line_index)) ;
				
				my $add_newline = $selection_line_index != $original_selection->GetEndLine()
										? "\n"
										: '' ;
										
				$buffer->AppendToClipboardContents($clipboard_name, $text . $add_newline) ;
				
				# remove selection content  from buffer
				return(undef) ;
				}
			, sub
				{
				$buffer->PrintError("Please select text to yank to clipboard '$clipboard_name'.\n") ;
				}
			) ;
			
return(1) ;

lib/Text/Editor/Vip/Buffer/Plugins/Clipboard.pm  view on Meta::CPAN

B<Arguments:>

=over 2

=item * clipboard name, a scalar

=back

  $buffer->AppendCurrentLineToClipboardContents(4) ;

=cut

my ($buffer, $clipboard_name) = @_ ;

if('' ne ref $clipboard_name || ! defined $clipboard_name || '' eq $clipboard_name)
	{
	$buffer->PrintError("AppendCurrentLineToClipboardContents: Invalid clipboard name!") ;
	return(0) ;
	}
	
if(@_ != 2)
	{
	$buffer->PrintError("AppendCurrentLineToClipboardContents: wrong number of arguments!") ;
	return(0) ;
	}

$buffer->AppendToClipboardContents($clipboard_name, $buffer->GetLineTextWithNewline()) ;

return(1) ;
}

#-------------------------------------------------------------------------------------------------------------

lib/Text/Editor/Vip/Buffer/Plugins/Clipboard.pm  view on Meta::CPAN

B<Arguments:>

=over 2

=item * clipboard name, a scalar

=back

  $buffer->AppendSelectionToClipboardContents(4, 'clipboard') ;

=cut

my ($buffer, $clipboard_name) = @_ ;

if('' ne ref $clipboard_name || ! defined $clipboard_name || '' eq $clipboard_name)
	{
	$buffer->PrintError("AppendSelectionToClipboardContents: Invalid clipboard name!") ;
	return(0) ;
	}
	
if(@_ != 2)
	{

lib/Text/Editor/Vip/Buffer/Plugins/Clipboard.pm  view on Meta::CPAN

	return(0) ;
	}

unless($buffer->IsSelectionEmpty())
	{
	$buffer->AppendToClipboardContents($clipboard_name, $buffer->GetSelectionText()) ;
	}
else
	{
	$buffer->PrintError("AppendSelectionToClipboardContents: no selection!") ;
	}

 view release on metacpan or  search on metacpan

data/en_US.dic  view on Meta::CPAN

clinker/GMD
clinometer/MIS
cliometric/S
cliometrician/S
clip/SM
clipboard/SM
clipped/U
clipper/MS
clipping/SM
clique/SDGM
cliquey

 view release on metacpan or  search on metacpan

lib/Text/Restructured/Directive/rst.st  view on Meta::CPAN

     proc puts pwd read regexp regsub rename return scan seek set socket
     source split string subst switch tclvars tell time trace unknown unset
     update uplevel upvar vwait while

     ;; Tk:
     bell bind bindtags bitmap button canvas checkbutton clipboard destroy
     entry event focus font frame grab grid image label listbox lower menu
     menubutton message option options pack photo place radiobutton raise
     scale scrollbar selection send text tk tk_bindForTraversal tk_bisque
     tk_chooseColor tk_dialog tk_focusFollowsMouse tk_focusNext
     tk_focusPrev tk_getOpenFile tk_getSaveFile tk_menuBar tk_messageBox

 view release on metacpan or  search on metacpan

lib/Text/Scigen/svg_figures.in  view on Meta::CPAN

#skip ./openclipart-0.13.1/computer/buttons/pill-button-red_benji_pa_01.svg
#skip ./openclipart-0.13.1/computer/buttons/pill-button-seagreen_ben_01.svg
#skip ./openclipart-0.13.1/computer/buttons/pill-button-yellow_benji_01.svg
MISC_OBJECT	 ./openclipart-0.13.1/computer/classic_phone_zazou.svg
#skip ./openclipart-0.13.1/computer/classic_tux_garoth_01.svg
MISC_OBJECT	 ./openclipart-0.13.1/computer/clipboard_01.svg
#skip ./openclipart-0.13.1/computer/computer_zazou.svg
#skip ./openclipart-0.13.1/computer/connectors/connector-db25.svg
#skip ./openclipart-0.13.1/computer/connectors/connector-db9.svg
#skip ./openclipart-0.13.1/computer/connectors/connector-ps2.svg
#skip ./openclipart-0.13.1/computer/connectors/connector-usb-type-a.svg

lib/Text/Scigen/svg_figures.in  view on Meta::CPAN

#skip ./openclipart-0.13.1/office/addressed_envelope_with_stamp_01.svg
ARROW	 ./openclipart-0.13.1/office/arrow1_sergio_luiz_arauj_01.svg
#skip ./openclipart-0.13.1/office/ballpoint_pen_jonathan_d_01.svg
#skip ./openclipart-0.13.1/office/bluepane_01.svg
#skip ./openclipart-0.13.1/office/calculator.svg
MISC_OBJECT	 ./openclipart-0.13.1/office/clipboard_01.svg
#skip ./openclipart-0.13.1/office/crayon.svg
#skip ./openclipart-0.13.1/office/cross_hand_drawn_linda_k_01.svg
#skip ./openclipart-0.13.1/office/cross_hand_drawn_linda_k_02.svg
#skip ./openclipart-0.13.1/office/dossier_francesco_rollan_01.svg
#skip ./openclipart-0.13.1/office/envelope_01.svg

 view release on metacpan or  search on metacpan

Testing/preprocess/sval2/maketarget/test-A2.sval2  view on Meta::CPAN

</context>
</instance>
<instance id="line-n.w9_16:5937:">
<answer instance="line-n.w9_16:5937:" senseid="phone"/>
<context>
<s> Now, field representatives drop by each store every few days, clipboards in hand, to evaluate customer-oriented operations. </s> <@> <s> Also, to make sure that customers have a direct  <head>line</head>  to the company, Burger King is installing...

</context>
</instance>
<instance id="line-n.w9_24:4737:">
<answer instance="line-n.w9_24:4737:" senseid="phone"/>

 view release on metacpan or  search on metacpan

share/emoji.pl  view on Meta::CPAN

  $hash{"city_sunrise"} = "\x{1F307}";
  $hash{"city_sunset"} = "\x{1F306}";
  $hash{"cl"} = "\x{1F191}";
  $hash{"clap"} = "\x{1F44F}";
  $hash{"clapper"} = "\x{1F3AC}";
  $hash{"clipboard"} = "\x{1F4CB}";
  $hash{"clock1"} = "\x{1F550}";
  $hash{"clock10"} = "\x{1F559}";
  $hash{"clock1030"} = "\x{1F565}";
  $hash{"clock11"} = "\x{1F55A}";
  $hash{"clock1130"} = "\x{1F566}";

 view release on metacpan or  search on metacpan

Corpus/written/ficlets/1403.txt  view on Meta::CPAN

“I think that’s the question I should be asking you.”
I retaliated. Geez. The kid was sharp. I laughed it off.
“I am Maisie Beatrice Hampton, and I’ve come to see my grandmother. Do you know of her?”
The little boy looked at me curiously, as if he were trying to read my face. “Wait.”
As soon as he disappeared my back slumped. God. How was I supposed to get past this body guard?
The little boy returned with a clipboard, and on it was a long piece of paper. “Hm...” He tapped his pencil on it. “Hampton, Marie... Harrisford, Virginia... Sorry, kiddo, you’re not on the list.”
List? Kiddo?
“I’m sorry, my real name isn’t Maisie.” I took a deep breath. “It’s Marie.” I looked up at him.
“Well, then come right in!”
What a strange kid.

 view release on metacpan or  search on metacpan

share/datatables-1.10.22/datatables.js  view on Meta::CPAN

				that._focus( row, relative.column, true, e );
			}
		} );

		// Clipboard support
		if ( this.c.clipboard ) {
			this._clipboard();
		}

		dt.on( 'destroy'+namespace, function () {
			that._blur( true );

share/datatables-1.10.22/datatables.js  view on Meta::CPAN

	/**
	 * Clipboard interaction handlers
	 *
	 * @private
	 */
	_clipboard: function () {
		var dt = this.s.dt;
		var that = this;
		var namespace = this.s.namespace;

		// IE8 doesn't support getting selected text

share/datatables-1.10.22/datatables.js  view on Meta::CPAN

		$(document).on( 'copy'+namespace, function (ejq) {
			var e = ejq.originalEvent;
			var selection = window.getSelection().toString();
			var focused = that.s.lastFocus;

			// Only copy cell text to clipboard if there is no other selection
			// and there is a focused cell
			if ( ! selection && focused ) {
				e.clipboardData.setData(
					'text/plain',
					focused.cell.render( that.c.clipboardOrthogonal )
				);
				e.preventDefault();
			}
		} );

share/datatables-1.10.22/datatables.js  view on Meta::CPAN

			var pastedText;

			if ( focused && (! activeEl || activeEl.nodeName.toLowerCase() === 'body') ) {
				e.preventDefault();

				if ( window.clipboardData && window.clipboardData.getData ) {
					// IE
					pastedText = window.clipboardData.getData('Text');
				}
				else if ( e.clipboardData && e.clipboardData.getData ) {
					// Everything else
					pastedText = e.clipboardData.getData('text/plain');
				}

				if ( editor ) {
					// Got Editor - need to activate inline editing,
					// set the value and submit

share/datatables-1.10.22/datatables.js  view on Meta::CPAN

	 * @type {String}
	 */
	className: 'focus',

	/**
	 * Enable or disable clipboard support
	 * @type {Boolean}
	 */
	clipboard: true,

	/**
	 * Orthogonal data that should be copied to clipboard
	 * @type {string}
	 */
	clipboardOrthogonal: 'display',

	/**
	 * Columns that can be focused. This is automatically merged with the
	 * visible columns as only visible columns can gain focus.
	 * @type {String}

 view release on metacpan or  search on metacpan

t/corpus/padre_download_osx.trac  view on Meta::CPAN

**System Perl vs User Perl:** Padre requires a 32bit version of Perl and wxWidgets 2.8.12. These are not the default on OsX. Additionally, the default "system" perl on OsX may be altered or changed in the course of software updates from Apple. Conseq...

**Xcode:** On OsX most of the common development utilities that are referenced by perl (gcc, make, etc) are provided by installing Xcode. The instruction sets below assume that you have installed these or reasonable substitutes on your system, that t...

**Wx Tests:** There will be a point where you are compiling Wx. The tests for Wx involve generating many window primitives. These tests will fail if they are run inside of a gnu-screen or ssh session. (The error message might be a bit strange: statin...

== Option 1 - Installation with Citrus Perl ==

Cirtus Perl is a portable distribution of perl that has pre-built Wx binaries and integration. A shortened form of installation instructions is below. Refer to the installation instructions on the download page below if you want full details.

 view release on metacpan or  search on metacpan

bench/big_test_data  view on Meta::CPAN

clinker
Clint
Clinton
Clio
clip
clipboard
clipped
clipper
clippers
clipping
clippings

 view release on metacpan or  search on metacpan

lib/Tk/AppWindow/Ext/Help.pm  view on Meta::CPAN

			-command => sub {
				my $text = '';
				for (0 .. $row - 1) {
					$text = $text . $cl->infoData($_);
				}
				$self->clipboardClear;
				$self->clipboardAppend($text);
			}
		)->pack;
	} else {
		$ap = $db->Frame->pack(-expand => 1, -fill => 'both') unless defined $ap;
	}

 view release on metacpan or  search on metacpan

Browser.pm  view on Meta::CPAN

			 -command => sub{ saveInfo( $b ) } );
  $b -> filemenu -> add ('separator');
  $b -> filemenu -> add( 'command', -label => 'Exit',
			 -command => sub{ $b->window->WmDeleteWindow});
  $b -> editmenu -> add( 'command', -label => 'Copy',
			 -command => sub{$b->editor->clipboardCopy});
  $b -> editmenu -> add( 'command', -label => 'Cut',
			 -command => sub{$b->editor->clipboardCut});
  $b -> editmenu -> add( 'command', -label => 'Paste',
			 -command => sub{$b->editor->clipboardPaste});
  $b -> modulemenu -> add ( 'command', -label => 'Read Again',
			    -state => 'normal',
			    -command => sub{mod_reload($b)});
  $b -> modulemenu -> add ( 'command', -label => 'List Imported',
			    -state => 'normal',

Browser.pm  view on Meta::CPAN

=head2 Edit Menu

=head3 Cut

Move selected text from the editor pane to the X clipboard.

=head3 Copy 

Copy selected text from the editor pane to the X clipboard.

=head3 Paste 

Insert text from the X clipboard at the text editor pane's insertion
point.

=head2 View Menu

=head3 Source 

 view release on metacpan or  search on metacpan

lib/Tk/XText.pm  view on Meta::CPAN

	$mw->bind($class,'<Return>', 'returnPressed');
	$mw->bind($class,'<Delete>','Delete');
	$mw->bind($class,'<BackSpace>','Backspace');
	$mw->bind($class,'<Insert>', 'ToggleInsertMode' ) ;
	$mw->bind($class,'<KeyPress>',['InsertKeypress',Ev('A')]);
	$class->clipboardOperations($mw,'Copy', 'Cut', 'Paste');
	
	$mw->bind($class, '<<Find>>', ['findandreplacepopup', 1]);
	$mw->bind($class, '<<Replace>>', ['findandreplacepopup', 0]);
	$mw->bind($class, '<<Comment>>', 'comment');
	$mw->bind($class, '<<Comment>>', 'comment');

lib/Tk/XText.pm  view on Meta::CPAN

	my $r = $self->RedoStack;
	my $u = $self->UndoStack;
	for (@$r, @$u) { $_->{'modified'} = 1 }
}

#preventing copy and cut from sending empty string to the clipboard
sub clipboardCopy {
	my $self = shift;
	$self->SUPER::clipboardCopy(@_) if $self->tagRanges('sel');
}
 
sub clipboardCut {
	my $self = shift;
	return $self->clipboardCopy(@_) if $self->cget('-readonly');
	$self->SUPER::clipboardCut(@_) if $self->tagRanges('sel');
}
 
sub clipboardPaste {
	my $self = shift;
	return if $self->cget('-readonly');
	$self->SUPER::clipboardPaste(@_);
}
 
=item B<comment>

=cut

lib/Tk/XText.pm  view on Meta::CPAN

sub EditMenuItems {
	my $self = shift;
	return (
		["command"=>'~Copy',
			-accelerator => 'CTRL+C',
			-command => [$self => 'clipboardCopy']
		],
		["command"=>'C~ut', 
			-accelerator => 'CTRL+X',
			-command => [$self => 'clipboardCut']
		],
		["command"=>'~Paste', 
			-accelerator => 'CTRL+V',
			-command => [$self => 'clipboardPaste']
		],
		"-",
		["command"=>'~Undo', 
			-accelerator => 'CTRL+Z',
			-command => [$self => 'undo']

 view release on metacpan or  search on metacpan

lib/Tk/DBI/DBGrid.pm  view on Meta::CPAN

#	Author: Vadim Likhota, <vadim-lvv@yandex.ru>
#
# v.0.02 - 16.04.2005
#
# + rename colunm name
# + copy current row to clipboard (test with OpenOffice.org 1.1, Excel, Far; 
#   íî íå ðàçîáðàëñÿ êàê äëÿ win ñêîïèðîâàòü ñòðîêó â êèðèëèöå áåç ïåðåêîäèðîâêè - â Far'å
#   ïðè âñòàâêå èç áóôåðà ïðîáëåì íåò, à â òîò æå OOo Calc êîäîâàÿ òàáëèöà ïîðòèòñÿ)
# + not use system color for not win
# + refresh dbgrid
# + call function for encode database data ( example, db use cp1251, but gnome use utf8 )

lib/Tk/DBI/DBGrid.pm  view on Meta::CPAN

					foreach my $o (1..$w->{table}->{numfields}) {
						$row = "$row\t";
						$row .= $w->{table}->{data}->[$en->{v}][$o] if $w->{table}->{data}->[$en->{v}][$o];
					};
					# $row =~ tr/ÀÁÂÃÄŨÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäå¸æçèéêëìíîïðñòóôõö÷øùúûüýþÿ/€‚ƒ„…ð†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥ñ¦§¨©ª«¬­®¯àáâãäåæçèéêëìíîï/ if $Tk::platform eq 'MSWin32';
					$w->clipboardClear;
					$w->clipboardAppend($row);
				});
			}
			else { # edit == 0
				$w->{rowframee}->[$j][$k] = $w->{rowframe}->[$j]->Label( -font => $w->{font}, -width => $w->{table}->{lenth}->[$k], -bd => 1, -relief => 'groove', -bg => 'white' )->pack( -side => 'left');
				$w->{rowframee}->[$j][$k]->configure( -text => $w->{table}->{data}->[$j][$k] ) if exists $w->{table}->{data}->[$j][$w->{pkeynum}];

 view release on metacpan or  search on metacpan

lib/Tk/FileManager.pm  view on Meta::CPAN

=head1 DESCRIPTION

Inherits L<Tk::FileBrowser>.

Adds some file manager functionality. A clipboard function.

=head1 ADVERTISED SUBWIDGETS

=over 4

lib/Tk/FileManager.pm  view on Meta::CPAN

=over 4

=item B<CTRL+C>

Copies selected files and folders to the clipboard.

=item B<CTRL+V>

Pastes files and folders in the clipboard to the current location.

=item B<CTRL+X>

Copies selected files and folders to the clipboard. Files are deleted after a paste.

=item B<Delete>

Move selected files and folders to the trash bin. (Not yet functional)

lib/Tk/FileManager.pm  view on Meta::CPAN

	$args->{'-selectmode'} = $mode;
	$args->{'-createfolderbutton'} = 1;

	$self->SUPER::Populate($args);
	
	$self->clipboardClear;
	$self->cutOperation(0);

	my $tree = $self->Subwidget('LB');
	my $c = $tree->Subwidget('Canvas');
	$c->Tk::bind('<Control-c>', [$self, 'clipboardCopy']);
	$c->Tk::bind('<Control-x>', [$self, 'clipboardCut']);
	$c->Tk::bind('<Control-v>', [$self, 'clipboardPaste']);
	$c->Tk::bind('<Delete>', [$self, 'trash']);
	$c->Tk::bind('<Shift-Delete>', [$self, 'delete']);
	
	my $not = $self->Label(
		-anchor => 'w',

lib/Tk/FileManager.pm  view on Meta::CPAN

#	$self->ConfigSpecs(
#	);
}

sub clipboard {
	my $self = shift;
	$self->{CLIPBOARD} = \@_ if @_;
	my $c = $self->{CLIPBOARD};
	return @$c
}

sub clipboardClear {
	my $self = shift;
	$self->{CLIPBOARD} = [];
}

sub clipboardCopy {
	my $self = shift;
	$self->clipboardClear;
	$self->cutOperation(0);
	$self->clipboard($self->collect);
}

sub clipboardCut {
	my $self = shift;
	$self->clipboardClear;
	$self->cutOperation(1);
	$self->clipboard($self->collect);
}

sub clipboardPaste {
	my $self = shift;
	my @files = $self->clipboard;
	for (@files ) {
		return 0 unless $self->fileCopy($_);
	}
	if ($self->cutOperation) {
		for (@files ) {
			return 0 unless $self->fileDelete($_);
		}
	}
	$self->clipboardClear;
	$self->reload;
	return 1
}

sub confirmOverwrite {

 view release on metacpan or  search on metacpan

DragDrop/Win32Site/Win32Site.pm  view on Meta::CPAN

 if ($cb)
  {
   foreach my $file (@files)
    {
     # print "$file @ $x,$y\n";
     $w->clipboardClear;
     $w->clipboardAppend('--',$file);
     $cb->Call('CLIPBOARD',Win32Drop => ['STRING'],$x,$y);
    }
  }
 $site->Apply(-entercommand => $x, $y, 0);
 return 0;