#############################################################################
## Name: XS/RadioBox.xs
## Purpose: XS for Wx::RadioBox
## Author: Mattia Barbon
## Modified by:
## Created: 31/10/2000
## RCS-ID: $Id: RadioBox.xs 2285 2007-11-11 21:31:54Z mbarbon $
## Copyright: (c) 2000-2003, 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/radiobox.h>
#include <wx/tooltip.h>
MODULE=Wx PACKAGE=Wx::RadioBox
void
new( ... )
PPCODE:
BEGIN_OVERLOAD()
MATCH_VOIDM_REDISP( newDefault )
MATCH_ANY_REDISP( newFull )
END_OVERLOAD( "Wx::RadioBox::new" )
wxRadioBox*
newDefault( CLASS )
PlClassName CLASS
CODE:
RETVAL = new wxRadioBox();
wxPli_create_evthandler( aTHX_ RETVAL, CLASS );
OUTPUT: RETVAL
wxRadioBox*
newFull( CLASS, parent, id, label, point = wxDefaultPosition, size = wxDefaultSize, choices = 0, majorDimension = 0, style = wxRA_SPECIFY_COLS, validator = (wxValidator*)&wxDefaultValidator, name = wxRadioBoxNameStr )
PlClassName CLASS
wxWindow* parent
wxWindowID id
wxString label
wxPoint point
wxSize size
SV* choices
int majorDimension
long style
wxValidator* validator
wxString name
PREINIT:
int n;
wxString* chs;
CODE:
if( choices )
n = wxPli_av_2_stringarray( aTHX_ choices, &chs );
else {
n = 0;
chs = 0;
}
RETVAL = new wxRadioBox( parent, id, label, point, size,
n, chs, majorDimension, style, *validator, name );
wxPli_create_evthandler( aTHX_ RETVAL, CLASS );
delete[] chs;
OUTPUT:
RETVAL
bool
wxRadioBox::Create( parent, id, label, point = wxDefaultPosition, size = wxDefaultSize, choices = 0, majorDimension = 0, style = wxRA_SPECIFY_COLS, validator = (wxValidator*)&wxDefaultValidator, name = wxRadioBoxNameStr )
wxWindow* parent
wxWindowID id
wxString label
wxPoint point
wxSize size
SV* choices
int majorDimension
long style
wxValidator* validator
wxString name
PREINIT:
int n;
wxString* chs;
CODE:
if( choices )
n = wxPli_av_2_stringarray( aTHX_ choices, &chs );
else {
n = 0;
chs = 0;
}
RETVAL = THIS->Create( parent, id, label, point, size,
n, chs, majorDimension, style, *validator, name );
delete[] chs;
OUTPUT:
RETVAL
void
wxRadioBox::EnableItem( n, enable )
int n
bool enable
CODE:
THIS->Enable( n, enable );
int
wxRadioBox::FindString( string )
wxString string
#if WXPERL_W_VERSION_GE( 2, 7, 2 )
unsigned int
wxRadioBox::GetColumnCount()
unsigned int
wxRadioBox::GetRowCount()
int
wxRadioBox::GetItemFromPoint( pt )
wxPoint pt
#endif
wxString
wxRadioBox::GetString( n )
int n
wxString
wxRadioBox::GetItemLabel( n )
int n
CODE:
RETVAL = THIS->GetString( n );
OUTPUT:
RETVAL
int
wxRadioBox::GetSelection()
wxString
wxRadioBox::GetStringSelection()
#if WXPERL_W_VERSION_GE( 2, 7, 0 )
bool
wxRadioBox::IsItemEnabled( unsigned int item )
bool
wxRadioBox::IsItemShown( unsigned int item )
#endif
void
wxRadioBox::SetString( n, label )
int n
wxString label
void
wxRadioBox::SetItemLabel( n, label )
int n
wxString label
CODE:
THIS->SetString( n, label );
#if wxPERL_USE_TOOLTIPS && WXPERL_W_VERSION_GE( 2, 7, 0 )
void
wxRadioBox::SetItemToolTip( item, text )
unsigned int item
wxString text
wxToolTip*
wxRadioBox::GetItemToolTip( item )
unsigned int item
#endif
#if wxPERL_USE_HELP && WXPERL_W_VERSION_GE( 2, 7, 0 )
void
wxRadioBox::SetItemHelpText( item, text )
unsigned int item
wxString text
wxString
wxRadioBox::GetItemHelpText( item )
unsigned int item
#endif
void
wxRadioBox::SetSelection( n )
int n
void
wxRadioBox::SetStringSelection( string )
wxString string
void
wxRadioBox::ShowItem( n, show )
int n
bool show
CODE:
THIS->Show( n, show );