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

   1 #############################################################################
   2 ## Name:        XS/Button.xs
   3 ## Purpose:     XS for Wx::Button
   4 ## Author:      Mattia Barbon
   5 ## Modified by:
   6 ## Created:     08/11/2000
   7 ## RCS-ID:      $Id: Button.xs 2057 2007-06-18 23:03:00Z mbarbon $
   8 ## Copyright:   (c) 2000-2001, 2003 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 MODULE=Wx PACKAGE=Wx::Button
  14
  15 #include <wx/button.h>
  16
  17 void
  18 new( ... )
  19   PPCODE:
  20     BEGIN_OVERLOAD()
  21         MATCH_VOIDM_REDISP( newDefault )
  22         MATCH_ANY_REDISP( newFull )
  23     END_OVERLOAD( "Wx::Button::new" )
  24
  25 wxButton*
  26 newDefault( CLASS )
  27     PlClassName CLASS
  28   CODE:
  29     RETVAL = new wxButton();
  30     wxPli_create_evthandler( aTHX_ RETVAL, CLASS );
  31   OUTPUT: RETVAL
  32
  33 wxButton*
  34 newFull( CLASS, parent, id, label, pos = wxDefaultPosition, size = wxDefaultSize, style = 0, validator = (wxValidator*)&wxDefaultValidator, name = wxButtonNameStr )
  35     PlClassName CLASS
  36     wxWindow* parent
  37     wxWindowID id
  38     wxString label
  39     wxPoint pos
  40     wxSize size
  41     long style
  42     wxValidator* validator
  43     wxString name
  44   CODE:
  45     RETVAL = new wxButton( parent, id, label, pos, size,
  46         style, *validator, name );
  47     wxPli_create_evthandler( aTHX_ RETVAL, CLASS );
  48   OUTPUT:
  49     RETVAL
  50
  51 bool
  52 wxButton::Create( parent, id, label, pos = wxDefaultPosition, size = wxDefaultSize, style = 0, validator = (wxValidator*)&wxDefaultValidator, name = wxButtonNameStr )
  53     wxWindow* parent
  54     wxWindowID id
  55     wxString label
  56     wxPoint pos
  57     wxSize size
  58     long style
  59     wxValidator* validator
  60     wxString name
  61   C_ARGS: parent, id, label, pos, size, style, *validator, name
  62
  63 wxSize*
  64 GetDefaultSize()
  65   CODE:
  66     RETVAL = new wxSize( wxButton::GetDefaultSize() );
  67   OUTPUT:
  68     RETVAL
  69
  70 void
  71 wxButton::SetDefault()