Result:
found 368 distributions and 1276 files matching your query !
( run in 1.810 )
dotReader
view release on metacpan or search on metacpan
client/app.pl view on Meta::CPAN
use base 'dtRdr::GUI::Wx';
use dtRdr::GUI::Wx::Frame;
use Wx ();
use Wx::DND (); # clipboard+drag-n-drop support
# testing accessor:
my $frame_main;
sub _main_frame {$frame_main};
ec
view release on metacpan or search on metacpan
]
}
sub standard_keybindings {
my ($w) = @_;
$w->bind ('<Alt-c>',sub{$w -> Subwidget ('text') -> clipboardCopy});
$w->bind ('<Alt-x>',sub{$w -> Subwidget ('text') -> clipboardCut});
$w->bind ('<Alt-v>',sub{$w -> Subwidget ('text') -> clipboardPaste});
$w->bind ('<Alt-u>',sub{$w -> Subwidget ('text') -> undo});
$w->bind ('<Alt-i>',sub{InsertFileDialog ($w)});
$w->bind ('<Alt-w>',sub{$w -> WmDeleteWindow});
$w->bind ('<Alt-z>',sub{$w -> toplevel -> iconify});
$w->bind ('<Alt-a>',sub{selectallmessages ($w)});
-state => 'normal',
-accelerator => 'Alt-U',
-command => sub{$w -> undo});
$m -> add ('separator');
$m -> add ('command', -label => 'Cut', -state => 'normal',
-accelerator => 'Alt-X', -command => sub{$w -> clipboardCut});
$m -> add ('command', -label => 'Copy', -accelerator => 'Alt-C',
-state => 'normal',-command => sub{$w -> clipboardCopy});
$m -> add ('command', -label => 'Paste', -accelerator => 'Alt-V',
-state => 'normal', -command => sub{$w -> clipboardPaste});
$m -> add ('command', -label => 'Select All',
-accelerator => 'Ctrl-/', -state => 'normal',
-command => sub{$w -> selectAll});
}
There are a number of options for quoting messages when composing a
reply. Refer to the F<.ecconfig> file for information about these
options.
Ec also uses the X clipboard to cut and paste between windows in ec as
well as windows in other applications. For programs that do not have
I<Cut>, I<Copy>, or I<Paste> menu options, select text in the source
application's window by holding down the left mouse button and
dragging it across the text to highlight it, then changing to the
destination window and pressing the middle mouse button (or the left
mojo-util-collection
view release on metacpan or search on metacpan
docs/index.html view on Meta::CPAN
<link rel="stylesheet" href="https://cdn.jsdelivr.net/gh/PrismJS/prism@1.29.0/plugins/line-numbers/prism-line-numbers.min.css" />
<link rel="stylesheet" href="https://cdn.jsdelivr.net/gh/PrismJS/prism@1.29.0/themes/prism-okaidia.min.css" />
<script defer src="https://cdnjs.cloudflare.com/ajax/libs/prism/1.24.1/prism.min.js"></script>
<script defer src="https://cdn.jsdelivr.net/gh/PrismJS/prism@1.29.0/plugins/autoloader/prism-autoloader.min.js"></script>
<script defer src="https://cdn.jsdelivr.net/gh/PrismJS/prism@1.29.0/plugins/toolbar/prism-toolbar.min.js"></script>
<script defer src="https://cdn.jsdelivr.net/gh/PrismJS/prism@1.29.0/plugins/copy-to-clipboard/prism-copy-to-clipboard.min.js"></script>
<script defer src="https://cdn.jsdelivr.net/gh/PrismJS/prism@1.29.0/plugins/line-numbers/prism-line-numbers.min.js"></script>
<script defer src="https://cdn.jsdelivr.net/gh/PrismJS/prism@1.29.0/plugins/normalize-whitespace/prism-normalize-whitespace.min.js"></script>
<style type="text/css">
.token.operator {
perl
view release on metacpan or search on metacpan
os2/OS2/OS2-Process/Process.pm view on Meta::CPAN
=item CreateFrameControls
=back
=head2 Control of the PM clipboard
=over
=item ClipbrdText()
gets the content of the clipboard. An optional argument is the format
of the data in the clipboard (defaults to C<CF_TEXT>). May croak with error
C<PMERR_INVALID_HWND> if no data of given $fmt is present.
Note that the usual convention is to have clipboard data with
C<"\r\n"> as line separators. This function will only work with clipboard
data types which are delimited by C<"\0"> byte (not included in the result).
=item ClipbrdText_2byte
Same as ClipbrdText(), but will only work with clipboard
data types which are collection of C C<shorts> delimited by C<0> short
(not included in the result).
=item ClipbrdTextUCS2le
os2/OS2/OS2-Process/Process.pm view on Meta::CPAN
Note that Firefox etc. export their selection in unicode types of this format.
=item ClipbrdText_set($txt, [$no_convert_nl, [$fmt, [$fmtinfo, [$hab] ] ] ] )
sets the text content of the clipboard after removing old contents. Unless the
optional argument $no_convert_nl is TRUE, will convert newlines to C<"\r\n">. Another optional
argument $fmt is the format of the data in the clipboard (should be an
atom, defaults to C<CF_TEXT>). Other arguments are as for C<ClipbrdData_set>.
Croaks on failure.
=item ClipbrdFmtInfo( [$fmt, [ $hab ] ])
returns the $fmtInfo flags set by the application which filled the
format $fmt of the clipboard. $fmt defaults to C<CF_TEXT>.
=item ClipbrdOwner( [ $hab ] )
Returns window handle of the current clipboard owner.
=item ClipbrdViewer( [ $hab ] )
Returns window handle of the current clipboard viewer.
=item ClipbrdData( [$fmt, [ $hab ] ])
Returns a handle to clipboard data of the given format as an integer.
Format defaults to C<CF_TEXT> (in this case the handle is a memory address).
Clipboard should be opened before calling this function. May croak with error
C<PMERR_INVALID_HWND> if no data of given $fmt is present.
The result should not be used after clipboard is closed. Hence a return handle
of type C<CLI_POINTER> may need to be converted to a string and stored for
future usage. Use MemoryRegionSize() to get a high estimate on the length
of region addressed by this pointer; the actual length inside this region
should be obtained by knowing particular format of data. E.g., it may be
0-byte terminated for string types, or 0-short terminated for wide-char string
types.
=item OpenClipbrd( [ $hab ] )
claim read access to the clipboard. May need a message queue to operate.
May block until other processes finish dealing with clipboard.
=item CloseClipbrd( [ $hab ] )
Allow other processes access to clipboard.
Clipboard should be opened before calling this function.
=item ClipbrdData_set($data, [$convert_nl, [$fmt, [$fmtInfo, [ $hab] ] ] ] )
Sets the clipboard data of format given by atom $fmt. Format defaults to
CF_TEXT.
$fmtInfo should declare what type of handle $data is; it should be either
C<CFI_POINTER>, or C<CFI_HANDLE> (possibly qualified by C<CFI_OWNERFREE>
and C<CFI_OWNERDRAW> flags). It defaults to C<CFI_HANDLE> for $fmt being
standard bitmap, metafile, and palette (undocumented???) formats;
otherwise defaults to C<CFI_POINTER>. If format is C<CFI_POINTER>, $data
should contain the string to copy to clipboard; otherwise it should be an
integer handle.
If $convert_nl is TRUE (the default), C<"\n"> in $data are converted to
C<"\r\n"> pairs if $fmt is C<CFI_POINTER> (as is the convention for text
format of the clipboard) unless they are already in such a pair.
=item _ClipbrdData_set($data, [$fmt, [$fmtInfo, [ $hab] ] ] )
Sets the clipboard data of format given by atom $fmt. Format defaults to
CF_TEXT. $data should be an address (in givable unnamed shared memory which
should not be accessed or manipulated after this call) or a handle in a form
of an integer.
$fmtInfo has the same semantic as for ClipbrdData_set().
=item ClipbrdOwner_set( $hwnd, [ $hab ] )
Sets window handle of the current clipboard owner (window which gets messages
when content of clipboard is retrieved).
=item ClipbrdViewer_set( $hwnd, [ $hab ] )
Sets window handle of the current clipboard owner (window which gets messages
when content of clipboard is changed).
=item ClipbrdFmtNames()
Returns list of names of formats currently available in the clipboard.
=item ClipbrdFmtAtoms()
Returns list of atoms of formats currently available in the clipboard.
=item EnumClipbrdFmts($fmt [, $hab])
Low-level access to the list of formats currently available in the clipboard.
Returns the atom for the format of clipboard after $fmt. If $fmt is 0, returns
the first format of clipboard. Returns 0 if $fmt is the last format. Example:
{
my $h = OS2::localClipbrd->new('nomorph');
my $fmt = 0;
push @formats, AtomName $fmt
os2/OS2/OS2-Process/Process.pm view on Meta::CPAN
Clipboard should be opened before calling this function. May croak if
no format is present.
=item EmptyClipbrd( [ $hab ] )
Remove all the data handles in the clipboard. croak()s on failure.
Clipboard should be opened before calling this function.
Recommended before assigning a value to clipboard to remove extraneous
formats of data from clipboard.
=item ($size, $flags) = MemoryRegionSize($addr, [$size_lim, [ $interrupt ]])
$addr should be a memory address (encoded as integer). This call finds
the largest continuous region of memory belonging to the same memory object
os2/OS2/OS2-Process/Process.pm view on Meta::CPAN
the region are inspected.) Optional argument $interrupt (defaults to 1)
specifies whether region scan should be interruptible by signals.
=back
Use class C<OS2::localClipbrd> to ensure that clipboard is closed even if
the code in the block made a non-local exit.
See the L</OS2::localMorphPM, OS2::localFlashWindow, and OS2::localClipbrd classes>
=head2 Control of the PM atom tables
os2/OS2/OS2-Process/Process.pm view on Meta::CPAN
}
The argument has the same meaning as one to OS2::MorphPM(). Calls can
nest with internal ones being NOPs.
Likewise, C<OS2::localClipbrd> class opens the clipboard for the duration
of the current scope; if TRUE optional argument is given, it would not
morph the application into PM:
{
my $handle = OS2::localClipbrd->new(1); # Do not morph into PM
# Do something with clipboard here...
}
C<OS2::localFlashWindow> behaves similarly; see
L<FlashWindow($hwnd, $doFlash)>.
perl_mlb
view release on metacpan or search on metacpan
os2/OS2/Process.pm view on Meta::CPAN
gets the path of the directory which corresponds to Desktop.
=item ClipbrdText()
gets the content of the clipboard. An optional argument is the format
of the data in the clipboard (defaults to C<CF_TEXT>).
Note that the usual convention is to have clipboard data with
C<"\r\n"> as line separators.
=item ClipbrdText_set($txt)
sets the text content of the clipboard. Unless the optional argument
is TRUE, will convert newlines to C<"\r\n">. Another optional
argument is the format of the data in the clipboard (defaults to
C<CF_TEXT>).
=item InvalidateRect
=item CreateFrameControl
os2/OS2/Process.pm view on Meta::CPAN
=item CreateAtomTable
=item DestroyAtomTable
Low-level methods to access clipboard and the atom table(s).
=back
=head1 OS2::localMorphPM class
uplug-main
view release on metacpan or search on metacpan
share/lang/hunalign/ar-en.dic view on Meta::CPAN
classmate @ زميل دراسة
clear @ واضØ
Cleopatra @ كليوباترا
climate @ مناخ
cling @ تمسك
clipboard @ الØاÙظة
clitoris @ بظر
closed @ مقÙول
clothes @ ملابس
cloud @ سØابة
clove @ قرنÙÙ„
vptk_w
view release on metacpan or search on metacpan
my @undo=(); # Undo buffer
my @redo=(); # Redo buffer
my %cnf_dlg_balloon; # Help messages for all widget configuration options
my $Project = vptk_w::Project->new();
my $pOpt = vptk_w::Project::Options->new();
my @main_clipboard=();
my @user_auto_vars;
my @callbacks;
my @user_subs;
my @project_bindings;
# Structure of project_bindings:
[],
['undo', \&undo, 'Undo last change'],
['redo', \&redo, 'Redo last change'],
[],
['delete', \&edit_delete, 'Erase selected'],
['cut', \&edit_cut, 'Cut selected tree to clipboard'],
['copy', \&edit_copy, 'Copy selected tree to clipboard'],
['paste', \&edit_paste, 'Paste from clipboard before selected'],
['properties',\&edit_properties, 'View & edit properties'],
[],
['balloon', \&edit_balloon, 'Edit widget\'s balloon'],
['bind', \&edit_bindings, 'Edit widget\'s binding(s)'],
['callback', [\&file_properties,'callbacks'], 'Edit callbacks'],
}
## Clipboard operations implementation
#
# 1. Clibpoard data consistency (check for signature line)
# 2. All clipboard operations can be performed on single
# widget selection (and all it's sub-widgets)
# 3. When placing to clipboard the data must be 'transferred'
# to root hierarhy level by substitution of 'parent' for
# selected widget
# 4. While pasting data from clipboard 1st of all must be
# checked selected (to be inserted) widget type. If it
# contradict to paste context - operation cancelled with
# error box.
# 5. Next check is for possible geometry management conflicts
# between widget to be inserted and context. User can
## Copy selected widget and its subs.
sub edit_copy
{
return if $selected eq 'mw';
my $id=&path_to_id($selected);
#$mw->clipboardClear();
#$mw->SelectionClear(-selection => 'CLIPBOARD');
@main_clipboard=();
push (@main_clipboard,join('|','#VPTK_W',$descriptor{$id}->{'parent'},$id,
$descriptor{$id}->{'type'},$descriptor{$id}->{'geom'}));
# get all IDs of copied widgets:
my @copy_id=grep(/(^|\.)$id(\.|$)/,@tree);
map (s#^.*\.##,@copy_id);
push (@main_clipboard,'#'.join('|',@copy_id));
grep (push(@main_clipboard,&code_line_print($_)),@copy_id);
#$mw->clipboardAppend(join("\n",@clipboard));
}
## Paste before/after selected widget.
sub edit_paste
{
return if $selected eq 'mw';
my $where = shift || 'before';
my $id=&path_to_id($selected);
my @clipboard=@main_clipboard;
#@clipboard = split(/\n/,$mw->SelectionGet(-selection => 'CLIPBOARD'));
# check for signature:
unless ($clipboard[0]=~/^#VPTK_W\|/)
{
&ShowDialog(-bitmap=>'error',-text=> "Clipboard is empty or corrupt!");
return;
}
# check type conflict:
my $parent=$descriptor{$id}->{'parent'};
$parent = $id if $where eq 'under';
my $parent_type=$descriptor{$parent}->{'type'};
$clipboard[0]=~s/^#VPTK_W\|//;
my ($clp_parent,$clp_id,$clp_type,$clp_geom)=split(/\|/,shift(@clipboard));
if(
($clp_type eq 'NoteBookFrame' && $parent_type ne 'NoteBook') ||
($clp_type eq 'Menu' && $parent_type !~ /^(Menubutton|cascade)$/) ||
($parent_type ne 'Menu' && $clp_type =~
/^(cascade|command|checkbutton|radiobutton|separator)$/))
&ShowDialog(-bitmap=>'error',-text=>
"Clipboard <-> destination type conflict ($clp_type,$parent_type)!");
return;
}
# check name conflict:
$clipboard[0]=~s/^#//;
foreach (split(/\|/,$clipboard[0]))
{
if(defined $descriptor{$_})
{
&ShowDialog(-bitmap=>'error',
-text=> "Can't paste $_ from clipboard - this ID already used!");
return;
}
}
my $reply='';
# check geometry conflict:
# Ask user about possible conflict solution
# 'Propagate' | 'Adopt' | 'Cancel'
# return on 'Cancel'
my $eb = $mw->DialogBox(-title=>'Geometry conflict!',
-buttons=>[qw/Propagate Adopt Cancel/]);
$eb->Label(-justify=>'left',-text=>"Geometry <$clp_geom> of clipboard widget conflicts with\n".
"other sub-widgets of $parent :\n".
join(' ',grep(!/^$clp_geom_patt/,@brothers)).
"\n\n Now you can:\n".
" Propagate this geometry to neighbor widgets\n".
" Adopt current widget geometry to it's neighbors\n".
&Coloring($eb);
$reply = $eb->Show();
return if $reply eq 'Cancel';
}
}
shift(@clipboard);
$clipboard[0] =~ s/\$($clp_parent)(\W)/\$$parent$2/g; # rename parent for inserted root
# Save undo information:
&undo_save();
# insert here:
# 1st, calculate insert position
my $insert_pos = &calc_insert_position($where);
# then, divide tree into two parts
my (@save_tree)=splice(@tree,$insert_pos);
# and put the new contents after 1st part
&struct_read(@clipboard);
# and finally - put 2nd part
push (@tree,@save_tree);
if ($reply eq 'Propagate')
{
foreach (&tree_get_brothers($clp_id)) { $descriptor{$_}->{'geom'}=$descriptor{$clp_id}->{'geom'} }
( run in 1.810 second using v1.01-cache-2.11-cpan-84e82930d8c )