git.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/XS/Animation.xsp

   1 #############################################################################
   2 ## Name:        XS/Animation.xsp
   3 ## Purpose:     XS+++ for Wx::Animation
   4 ## Author:      Mattia Barbon
   5 ## Modified by:
   6 ## Created:     18/08/2007
   7 ## RCS-ID:      $Id: Animation.xsp 2556 2009-05-11 10:18:47Z mbarbon $
   8 ## Copyright:   (c) 2007, 2009 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 %module{Wx};
  14
  15 #if WXPERL_W_VERSION_GE( 2, 7, 2 )
  16
  17 #include <wx/animate.h>
  18
  19 %name{Wx::Animation} class wxAnimation
  20 {
  21     wxAnimation();
  22 ##    wxAnimation( const wxString& name,
  23 ##                 wxAnimationType type = wxANIMATION_TYPE_ANY );
  24
  25 %{
  26 static void
  27 wxAnimation::CLONE()
  28   CODE:
  29     wxPli_thread_sv_clone( aTHX_ CLASS, (wxPliCloneSV)wxPli_detach_object );
  30 %}
  31     ## // thread OK
  32     ~wxAnimation()
  33         %code{% wxPli_thread_sv_unregister( aTHX_ "Wx::Bitmap", THIS, ST(0) );
  34                 delete THIS;
  35                 %};
  36
  37     bool IsOk() const;
  38     int GetDelay( unsigned int frame );
  39     unsigned int GetFrameCount();
  40     wxImage& GetFrame( unsigned int frame );
  41     wxSize GetSize() const;
  42
  43     bool LoadFile( const wxString& name,
  44                    wxAnimationType type = wxANIMATION_TYPE_ANY );
  45     bool Load( wxPliInputStream stream,
  46                wxAnimationType type = wxANIMATION_TYPE_ANY );
  47 };
  48
  49 #endif