1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
#############################################################################
## Name: ext/dnd/XS/Clipboard.xs
## Purpose: XS for Wx::Clipboard
## Author: Mattia Barbon
## Modified by:
## Created: 13/08/2001
## RCS-ID: $Id: Clipboard.xs 2274 2007-11-10 22:37:30Z mbarbon $
## Copyright: (c) 2001-2002, 2004, 2006-2007 Mattia Barbon
## Licence: This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself
#############################################################################
#include <wx/clipbrd.h>
MODULE=Wx PACKAGE=Wx::Clipboard
bool
wxClipboard::AddData( data )
wxDataObject* data
CODE:
wxPli_object_set_deleteable( aTHX_ ST(1), false );
SvREFCNT_inc( SvRV( ST(1) ) ); // at this point the scalar must not go away
RETVAL = THIS->AddData( data );
OUTPUT:
RETVAL
void
wxClipboard::Clear()
void
wxClipboard::Close()
bool
wxClipboard::Flush()
bool
wxClipboard::GetData( data )
wxDataObject* data
CODE:
RETVAL = THIS->GetData( *data );
OUTPUT:
RETVAL
bool
wxClipboard::IsOpened()
bool
wxClipboard::IsSupported( format )
wxDataFormat* format
CODE:
RETVAL = THIS->IsSupported( *format );
OUTPUT:
RETVAL
bool
wxClipboard::Open()
bool
wxClipboard::SetData( data )
wxDataObject* data
CODE:
wxPli_object_set_deleteable( aTHX_ ST(1), false );
SvREFCNT_inc( SvRV( ST(1) ) ); // at this point the scalar must not go away
RETVAL = THIS->SetData( data );
OUTPUT:
RETVAL
void
wxClipboard::UsePrimarySelection( primary = true )
bool primary
#if WXPERL_W_VERSION_GE( 2, 9, 0 )
bool
wxClipboard::IsUsingPrimarySelection()
#endif
|
