1 #############################################################################
2 ## Name: XS/MultiChoiceDialog.xs
3 ## Purpose: XS for Wx::MultiChoiceDialog
4 ## Author: Mattia Barbon
7 ## RCS-ID: $Id: MultiChoiceDialog.xs 2057 2007-06-18 23:03:00Z mbarbon $
8 ## Copyright: (c) 2001-2004 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/choicdlg.h>
15 MODULE=Wx PACKAGE=Wx::MultiChoiceDialog
18 wxMultiChoiceDialog::new( parent, message, caption, chs, style = wxCHOICEDLG_STYLE, pos = wxDefaultPosition )
29 n = wxPli_av_2_stringarray( aTHX_ chs, &choices );
30 RETVAL = new wxMultiChoiceDialog( parent, message, caption, n, choices,
37 wxMultiChoiceDialog::GetSelections()
42 ret = THIS->GetSelections();
45 for( i = 0; i < max; ++i )
47 PUSHs( sv_2mortal( newSViv( ret[i] ) ) );
51 wxMultiChoiceDialog::SetSelections( ... )
56 array.Alloc( items - 1 );
57 for( i = 1; i < items; ++i )
59 array.Add( SvIV( ST( i ) ) );
61 THIS->SetSelections( array );