vcs.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/ext/dnd/XS/Clipboard.xs

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