#############################################################################
## Name:        ext/help/XS/ContextHelp.xs
## Purpose:     XS for Wx::ContextHelp, Wx::ContextHelpButton
## Author:      Mattia Barbon
## Modified by:
## Created:     21/03/2001
## RCS-ID:      $Id: ContextHelp.xs 2057 2007-06-18 23:03:00Z mbarbon $
## Copyright:   (c) 2001, 2003, 2004, 2006-2007 Mattia Barbon
## Licence:     This program is free software; you can redistribute it and/or
##              modify it under the same terms as Perl itself
#############################################################################

#include <wx/cshelp.h>

#undef THIS

MODULE=Wx PACKAGE=Wx::ContextHelp

wxContextHelp*
wxContextHelp::new( window = NULL, beginHelp = true )
    wxWindow* window
    bool beginHelp

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

## // thread OK
void
wxContextHelp::DESTROY()
  CODE:
    wxPli_thread_sv_unregister( aTHX_ "Wx::ContextHelp", THIS, ST(0) );
    delete THIS;

bool
wxContextHelp::BeginContextHelp( window )
    wxWindow* window

bool
wxContextHelp::EndContextHelp()

void
wxContextHelp::SetStatus( status )
    bool status

MODULE=Wx PACKAGE=Wx::ContextHelpButton

wxContextHelpButton*
wxContextHelpButton::new( parent, id = wxID_CONTEXT_HELP, pos = wxDefaultPosition, size = wxDefaultSize, style = wxBU_AUTODRAW )
    wxWindow* parent
    wxWindowID id
    wxPoint pos
    wxSize size
    long style
  CODE:
    RETVAL = new wxContextHelpButton( parent, id, pos, size, style );
  OUTPUT:
    RETVAL
