The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#############################################################################
## Name:        XS/Overlay.xs
## Purpose:     XS for Wx::Overlay
## Author:      Mark Dootson
## Modified by:
## Created:     31/01/2010
## RCS-ID:      $Id: Overlay.xs 2791 2010-02-09 22:01:57Z mbarbon $
## Copyright:   (c) 2000-2007, 2010 Mattia Barbon
## Licence:     This program is free software; you can redistribute it and/or
##              modify it under the same terms as Perl itself
#############################################################################

#if WXPERL_W_VERSION_GE( 2, 8, 0 )

#include <wx/dc.h>
#include <wx/window.h>
#include <wx/overlay.h>
#include <wx/dcclient.h>

MODULE=Wx PACKAGE=Wx::Overlay

wxOverlay*
new( CLASS )
    SV* CLASS
  CODE:
    RETVAL = new wxOverlay();
  OUTPUT:
    RETVAL
    
static void
wxOverlay::CLONE()
  CODE:
    wxPli_thread_sv_clone( aTHX_ CLASS, (wxPliCloneSV)wxPli_detach_object );

## // thread OK

void
wxOverlay::DESTROY()
  CODE:
    wxPli_thread_sv_unregister( aTHX_ "Wx::Overlay", THIS, ST(0) );
    delete THIS;

void
wxOverlay::Reset()


MODULE=Wx PACKAGE=Wx::DCOverlay

# DECLARE_OVERLOAD( woly, Wx::Overlay )

wxDCOverlay*
wxDCOverlay::new( ... )
  PPCODE:
    BEGIN_OVERLOAD()
        MATCH_REDISP( wxPliOvl_woly_wdc, newDefault )
        MATCH_REDISP( wxPliOvl_woly_wdc_n_n_n_n, newLong )
    END_OVERLOAD( Wx::DCOverlay::new )

wxDCOverlay*
newDefault( CLASS, overlay, dc )
    SV* CLASS
    wxOverlay* overlay
    wxWindowDC* dc
  CODE:
    RETVAL = new wxDCOverlay( *overlay, dc);
  OUTPUT:
    RETVAL

wxDCOverlay*
newLong( CLASS, overlay, dc, x, y, width, height )
    SV* CLASS
    wxOverlay* overlay
    wxWindowDC* dc
    int x
    int y
    int width
    int height
  CODE:
    RETVAL = new wxDCOverlay( *overlay, dc, x, y, width, height);
  OUTPUT:
    RETVAL

static void
wxDCOverlay::CLONE()
  CODE:
    wxPli_thread_sv_clone( aTHX_ CLASS, (wxPliCloneSV)wxPli_detach_object );

## // thread OK

void
wxDCOverlay::DESTROY()
  CODE:
    wxPli_thread_sv_unregister( aTHX_ "Wx::Overlay", THIS, ST(0) );
    delete THIS;

void
wxDCOverlay::Clear()

#endif