git.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/ext/help/XS/ContextHelp.xs

   1 #############################################################################
   2 ## Name:        ext/help/XS/ContextHelp.xs
   3 ## Purpose:     XS for Wx::ContextHelp, Wx::ContextHelpButton
   4 ## Author:      Mattia Barbon
   5 ## Modified by:
   6 ## Created:     21/03/2001
   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 #############################################################################
  12
  13 #include <wx/cshelp.h>
  14
  15 #undef THIS
  16
  17 MODULE=Wx PACKAGE=Wx::ContextHelp
  18
  19 wxContextHelp*
  20 wxContextHelp::new( window = NULL, beginHelp = true )
  21     wxWindow* window
  22     bool beginHelp
  23
  24 static void
  25 wxTreeItemId::CLONE()
  26   CODE:
  27     wxPli_thread_sv_clone( aTHX_ CLASS, (wxPliCloneSV)wxPli_detach_object );
  28
  29 ## // thread OK
  30 void
  31 wxContextHelp::DESTROY()
  32   CODE:
  33     wxPli_thread_sv_unregister( aTHX_ "Wx::ContextHelp", THIS, ST(0) );
  34     delete THIS;
  35
  36 bool
  37 wxContextHelp::BeginContextHelp( window )
  38     wxWindow* window
  39
  40 bool
  41 wxContextHelp::EndContextHelp()
  42
  43 void
  44 wxContextHelp::SetStatus( status )
  45     bool status
  46
  47 MODULE=Wx PACKAGE=Wx::ContextHelpButton
  48
  49 wxContextHelpButton*
  50 wxContextHelpButton::new( parent, id = wxID_CONTEXT_HELP, pos = wxDefaultPosition, size = wxDefaultSize, style = wxBU_AUTODRAW )
  51     wxWindow* parent
  52     wxWindowID id
  53     wxPoint pos
  54     wxSize size
  55     long style
  56   CODE:
  57     RETVAL = new wxContextHelpButton( parent, id, pos, size, style );
  58   OUTPUT:
  59     RETVAL