1 #############################################################################
2 ## Name: XS/RadioBox.xs
3 ## Purpose: XS for Wx::RadioBox
4 ## Author: Mattia Barbon
7 ## RCS-ID: $Id: RadioBox.xs 2285 2007-11-11 21:31:54Z mbarbon $
8 ## Copyright: (c) 2000-2003, 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/radiobox.h>
14 #include <wx/tooltip.h>
16 MODULE=Wx PACKAGE=Wx::RadioBox
22 MATCH_VOIDM_REDISP( newDefault )
23 MATCH_ANY_REDISP( newFull )
24 END_OVERLOAD( "Wx::RadioBox::new" )
30 RETVAL = new wxRadioBox();
31 wxPli_create_evthandler( aTHX_ RETVAL, CLASS );
35 newFull( CLASS, parent, id, label, point = wxDefaultPosition, size = wxDefaultSize, choices = 0, majorDimension = 0, style = wxRA_SPECIFY_COLS, validator = (wxValidator*)&wxDefaultValidator, name = wxRadioBoxNameStr )
45 wxValidator* validator
52 n = wxPli_av_2_stringarray( aTHX_ choices, &chs );
58 RETVAL = new wxRadioBox( parent, id, label, point, size,
59 n, chs, majorDimension, style, *validator, name );
60 wxPli_create_evthandler( aTHX_ RETVAL, CLASS );
67 wxRadioBox::Create( parent, id, label, point = wxDefaultPosition, size = wxDefaultSize, choices = 0, majorDimension = 0, style = wxRA_SPECIFY_COLS, validator = (wxValidator*)&wxDefaultValidator, name = wxRadioBoxNameStr )
76 wxValidator* validator
83 n = wxPli_av_2_stringarray( aTHX_ choices, &chs );
89 RETVAL = THIS->Create( parent, id, label, point, size,
90 n, chs, majorDimension, style, *validator, name );
97 wxRadioBox::EnableItem( n, enable )
101 THIS->Enable( n, enable );
104 wxRadioBox::FindString( string )
107 #if WXPERL_W_VERSION_GE( 2, 7, 2 )
110 wxRadioBox::GetColumnCount()
113 wxRadioBox::GetRowCount()
116 wxRadioBox::GetItemFromPoint( pt )
122 wxRadioBox::GetString( n )
126 wxRadioBox::GetItemLabel( n )
129 RETVAL = THIS->GetString( n );
134 wxRadioBox::GetSelection()
137 wxRadioBox::GetStringSelection()
139 #if WXPERL_W_VERSION_GE( 2, 7, 0 )
142 wxRadioBox::IsItemEnabled( unsigned int item )
145 wxRadioBox::IsItemShown( unsigned int item )
150 wxRadioBox::SetString( n, label )
155 wxRadioBox::SetItemLabel( n, label )
159 THIS->SetString( n, label );
161 #if wxPERL_USE_TOOLTIPS && WXPERL_W_VERSION_GE( 2, 7, 0 )
164 wxRadioBox::SetItemToolTip( item, text )
169 wxRadioBox::GetItemToolTip( item )
174 #if wxPERL_USE_HELP && WXPERL_W_VERSION_GE( 2, 7, 0 )
177 wxRadioBox::SetItemHelpText( item, text )
182 wxRadioBox::GetItemHelpText( item )
188 wxRadioBox::SetSelection( n )
192 wxRadioBox::SetStringSelection( string )
196 wxRadioBox::ShowItem( n, show )
200 THIS->Show( n, show );