############################################################################# ## 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