1 #############################################################################
2 ## Name: ext/help/XS/ContextHelp.xs
3 ## Purpose: XS for Wx::ContextHelp, Wx::ContextHelpButton
4 ## Author: Mattia Barbon
7 ## RCS-ID: $Id: ContextHelp.xs 2057 2007-06-18 23:03:00Z mbarbon $
8 ## Copyright: (c) 2001, 2003, 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 #############################################################################
13 #include <wx/cshelp.h>
17 MODULE=Wx PACKAGE=Wx::ContextHelp
20 wxContextHelp::new( window = NULL, beginHelp = true )
27 wxPli_thread_sv_clone( aTHX_ CLASS, (wxPliCloneSV)wxPli_detach_object );
31 wxContextHelp::DESTROY()
33 wxPli_thread_sv_unregister( aTHX_ "Wx::ContextHelp", THIS, ST(0) );
37 wxContextHelp::BeginContextHelp( window )
41 wxContextHelp::EndContextHelp()
44 wxContextHelp::SetStatus( status )
47 MODULE=Wx PACKAGE=Wx::ContextHelpButton
50 wxContextHelpButton::new( parent, id = wxID_CONTEXT_HELP, pos = wxDefaultPosition, size = wxDefaultSize, style = wxBU_AUTODRAW )
57 RETVAL = new wxContextHelpButton( parent, id, pos, size, style );