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

   1 #############################################################################
   2 ## Name:        XS/GraphicsObject.xs
   3 ## Purpose:     XS for Wx::GraphicsObject
   4 ## Author:      Mattia Barbon
   5 ## Modified by:
   6 ## Created:     30/09/2007
   7 ## RCS-ID:      $Id: GraphicsObject.xs 2233 2007-09-30 20:32:31Z mbarbon $
   8 ## Copyright:   (c) 2007 Klaas Hartmann
   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 #if wxUSE_GRAPHICS_CONTEXT
  14
  15 #include <wx/graphics.h>
  16
  17 MODULE=Wx PACKAGE=Wx::GraphicsObject
  18
  19 static void
  20 wxGraphicsObject::CLONE()
  21   CODE:
  22     wxPli_thread_sv_clone( aTHX_ CLASS, (wxPliCloneSV)wxPli_detach_object );
  23
  24 ## // thread OK
  25 void
  26 wxGraphicsObject::DESTROY()
  27   CODE:
  28     wxPli_thread_sv_unregister( aTHX_ wxPli_get_class( aTHX_ ST(0) ),
  29                                 THIS, ST(0) );
  30     delete THIS;
  31
  32 wxGraphicsRenderer*
  33 wxGraphicsObject::GetRenderer()
  34
  35 bool
  36 wxGraphicsObject::IsNull()
  37
  38 MODULE=Wx PACKAGE=Wx::GraphicsBrush
  39
  40 MODULE=Wx PACKAGE=Wx::GraphicsPen
  41
  42 MODULE=Wx PACKAGE=Wx::GraphicsFont
  43
  44 #endif