#############################################################################
## Name: XS/ListBox.xs
## Purpose: XS for Wx::ListBox
## Author: Mattia Barbon
## Modified by:
## Created: 08/11/2000
## RCS-ID: $Id: ListBox.xs 2504 2008-11-06 00:25:57Z mbarbon $
## Copyright: (c) 2000-2003, 2006-2008 Mattia Barbon
## Licence: This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself
#############################################################################
MODULE=Wx PACKAGE=Wx::ListBox
#include <wx/listbox.h>
void
new( ... )
PPCODE:
BEGIN_OVERLOAD()
MATCH_VOIDM_REDISP( newDefault )
MATCH_ANY_REDISP( newFull )
END_OVERLOAD( "Wx::ListBox::new" )
wxListBox*
newDefault( CLASS )
PlClassName CLASS
CODE:
RETVAL = new wxListBox();
wxPli_create_evthandler( aTHX_ RETVAL, CLASS );
OUTPUT: RETVAL
wxListBox*
newFull( CLASS, parent, id = wxID_ANY, pos = wxDefaultPosition, size = wxDefaultSize, choices = 0, style = 0, validator = (wxValidator*)&wxDefaultValidator, name = wxListBoxNameStr )
PlClassName CLASS
wxWindow* parent
wxWindowID id
wxPoint pos
wxSize size
SV* choices
long style
wxValidator* validator
wxString name
PREINIT:
wxString* chs;
int n;
CODE:
if( choices )
n = wxPli_av_2_stringarray( aTHX_ choices, &chs );
else
{
n = 0;
chs = 0;
}
RETVAL = new wxListBox( parent, id, pos, size, n, chs,
style, *validator, name );
wxPli_create_evthandler( aTHX_ RETVAL, CLASS );
delete[] chs;
OUTPUT:
RETVAL
bool
wxListBox::Create( parent, id = wxID_ANY, pos = wxDefaultPosition, size = wxDefaultSize, choices = 0, style = 0, validator = (wxValidator*)&wxDefaultValidator, name = wxListBoxNameStr )
wxWindow* parent
wxWindowID id
wxPoint pos
wxSize size
SV* choices
long style
wxValidator* validator
wxString name
PREINIT:
wxString* chs;
int n;
CODE:
if( choices )
n = wxPli_av_2_stringarray( aTHX_ choices, &chs );
else
{
n = 0;
chs = 0;
}
RETVAL = THIS->Create( parent, id, pos, size, n, chs,
style, *validator, name );
delete[] chs;
OUTPUT:
RETVAL
void
wxListBox::Deselect( n )
int n
void
wxListBox::GetSelections()
PREINIT:
wxArrayInt selections;
PPCODE:
THIS->GetSelections( selections );
PUTBACK;
wxPli_intarray_push( aTHX_ selections );
SPAGAIN;
int
wxListBox::HitTest( point )
wxPoint point
#if WXPERL_W_VERSION_LT( 2, 9, 0 )
void
wxListBox::InsertItems( items, pos )
wxArrayString items
int pos
#endif
bool
wxListBox::IsSelected( n )
int n
void
wxListBox::SetSelection( n, select = true )
int n
bool select
void
wxListBox::SetStringSelection( string, select = true )
wxString string
bool select
void
wxListBox::SetFirstItem( n )
int n
void
wxListBox::SetFirstItemString( str )
wxString str
CODE:
THIS->SetFirstItem( str );
#if WXPERL_W_VERSION_LT( 2, 9, 0 )
void
wxListBox::Set( choices )
wxArrayString choices
#endif