1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
#############################################################################
## Name: XS/MultiChoiceDialog.xs
## Purpose: XS for Wx::MultiChoiceDialog
## Author: Mattia Barbon
## Modified by:
## Created: 03/02/2001
## RCS-ID: $Id: MultiChoiceDialog.xs 2057 2007-06-18 23:03:00Z mbarbon $
## Copyright: (c) 2001-2004 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/choicdlg.h>
MODULE=Wx PACKAGE=Wx::MultiChoiceDialog
wxMultiChoiceDialog*
wxMultiChoiceDialog::new( parent, message, caption, chs, style = wxCHOICEDLG_STYLE, pos = wxDefaultPosition )
wxWindow* parent
wxString message
wxString caption
SV* chs
long style
wxPoint pos
PREINIT:
wxString* choices;
int n;
CODE:
n = wxPli_av_2_stringarray( aTHX_ chs, &choices );
RETVAL = new wxMultiChoiceDialog( parent, message, caption, n, choices,
style, pos );
delete[] choices;
OUTPUT:
RETVAL
void
wxMultiChoiceDialog::GetSelections()
PREINIT:
wxArrayInt ret;
int i, max;
PPCODE:
ret = THIS->GetSelections();
max = ret.GetCount();
EXTEND( SP, max );
for( i = 0; i < max; ++i )
{
PUSHs( sv_2mortal( newSViv( ret[i] ) ) );
}
void
wxMultiChoiceDialog::SetSelections( ... )
PREINIT:
wxArrayInt array;
int i;
CODE:
array.Alloc( items - 1 );
for( i = 1; i < items; ++i )
{
array.Add( SvIV( ST( i ) ) );
}
THIS->SetSelections( array );
|
