view release on metacpan or  search on metacpan

Constant.xs  view on Meta::CPAN

    wxPli_make_const_string( wxPG_ARRAY_DELIMITER );           // propgrid
    wxPli_make_const_string( wxPG_DATE_FORMAT );               // propgrid
    wxPli_make_const_string( wxPG_DATE_PICKER_STYLE );         // propgrid
    wxPli_make_const_string( wxPG_ATTR_SPINCTRL_STEP );        // propgrid
    wxPli_make_const_string( wxPG_ATTR_SPINCTRL_WRAP );        // propgrid
    wxPli_make_const_string( wxPG_ATTR_MULTICHOICE_USERSTRINGMODE );  // propgrid
    wxPli_make_const_string( wxPG_COLOUR_ALLOW_CUSTOM );       // propgrid
    wxPli_make_const_string( wxPG_COLOUR_HAS_ALPHA );          // propgrid
#endif

    wxPli_make_const( "wxTheClipboard" );       // clipboard
    wxPli_make_const( "wxDefaultValidator" );   // misc
    wxPli_make_const( "wxFormatInvalid" );      // dnd
    wxPli_make_const( "wxDefaultPosition" );    // misc
    wxPli_make_const( "wxDefaultSize" );        // misc
    wxPli_make_const( "wxThePrintPaperDatabase" );  // print

#if WXPERL_W_VERSION_GE( 2, 7, 2 )
    wxPli_make_const( "wxNullAnimation" );      // animation
#endif
    wxPli_make_const( "wxNullBitmap" );         // bitmap

ext/dnd/lib/Wx/DND.pm  view on Meta::CPAN

#
# constants
#

package Wx;

use vars qw($_df_invalid $_df_bitmap $_df_text $_df_unicodetext $_df_metafile $_df_filename);

# !parser: sub { $_[0] =~ m/^\s*\#\s*sub\s+(wx\w+)/ }
# !package: Wx
# !tag: dnd clipboard

# sub wxDF_INVALID
# sub wxDF_TEXT
# sub wxDF_UNICODETEXT
# sub wxDF_BITMAP
# sub wxDF_METAFILE
# sub wxDF_FILENAME

1;

ext/dnd/t/03_pldatabject.t  view on Meta::CPAN

in_frame(
    sub {
        my $self = shift;
        my $complex = { x => [ qw(a b c), { 'c' => 'd' } ] };
        my $copied = MyDataObject->new( $complex );

        wxTheClipboard->Open;
        wxTheClipboard->Clear;

        ok( !wxTheClipboard->IsSupported( Wx::DataFormat->newUser( $FORMAT ) ),
            "clipboard empty" );

        $silent = 0;

        ok( wxTheClipboard->SetData( $copied ), "copying succeeds" );

        undef $copied;
    
        my $pasted = MyDataObject->new;

        ok( wxTheClipboard->IsSupported( Wx::DataFormat->newUser( $FORMAT ) ),