The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#############################################################################
## Name:        XS/FileDialog.xs
## Purpose:     XS for Wx::FileDialog
## Author:      Mattia Barbon
## Modified by:
## Created:     27/11/2000
## RCS-ID:      $Id: FileDialog.xs 2057 2007-06-18 23:03:00Z mbarbon $
## Copyright:   (c) 2000-2002, 2004, 2006 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/filedlg.h>

MODULE=Wx PACKAGE=Wx::FileDialog

wxFileDialog*
wxFileDialog::new( parent, message = wxFileSelectorPromptStr, defaultDir = wxEmptyString, defaultFile = wxEmptyString, wildcard = wxFileSelectorDefaultWildcardStr, style = 0, pos = wxDefaultPosition )
    wxWindow* parent
    wxString message
    wxString defaultDir
    wxString defaultFile
    wxString wildcard
    long style
    wxPoint pos

wxString
wxFileDialog::GetDirectory()

wxString
wxFileDialog::GetFilename()

void
wxFileDialog::GetFilenames()
  PREINIT:
    wxArrayString filenames;
    int i, max;
  PPCODE:
    THIS->GetFilenames( filenames );
    max = filenames.GetCount();
    EXTEND( SP, max );
    for( i = 0; i < max; ++i ) {
#if wxUSE_UNICODE
      SV* tmp = sv_2mortal( newSVpv( filenames[i].mb_str(wxConvUTF8), 0 ) );
      SvUTF8_on( tmp );
      PUSHs( tmp );
#else
      PUSHs( sv_2mortal( newSVpv( CHAR_P filenames[i].c_str(), 0 ) ) );
#endif
    }

int
wxFileDialog::GetFilterIndex()

wxString
wxFileDialog::GetMessage()

wxString
wxFileDialog::GetPath()

void
wxFileDialog::GetPaths()
  PREINIT:
    wxArrayString filenames;
    int i, max;
  PPCODE:
    THIS->GetPaths( filenames );
    max = filenames.GetCount();
    EXTEND( SP, max );
    for( i = 0; i < max; ++i ) {
#if wxUSE_UNICODE
      SV* tmp = sv_2mortal( newSVpv( filenames[i].mb_str(wxConvUTF8), 0 ) );
      SvUTF8_on( tmp );
      PUSHs( tmp );
#else
      PUSHs( sv_2mortal( newSVpv( CHAR_P filenames[i].c_str(), 0 ) ) );
#endif
    }

#if WXPERL_W_VERSION_LT( 2, 7, 0 )

long
wxFileDialog::GetStyle()

#endif

wxString
wxFileDialog::GetWildcard()

void
wxFileDialog::SetDirectory( directory )
    wxString directory

void
wxFileDialog::SetFilename( name )
    wxString name

void
wxFileDialog::SetFilterIndex( index )
    int index

void
wxFileDialog::SetMessage( message )
    wxString message

void
wxFileDialog::SetPath( path )
    wxString path

#if WXPERL_W_VERSION_LT( 2, 7, 0 )

void
wxFileDialog::SetStyle( style )
    long style

#endif

void
wxFileDialog::SetWildcard( wildcard )
    wxString wildcard

int
wxFileDialog::ShowModal()

MODULE=Wx PACKAGE=Wx PREFIX=wx

wxString
wxFileSelector( message, default_path = wxEmptyString, default_filename = wxEmptyString, default_extension = wxEmptyString, wildcard = wxT("*.*"), flags = 0, parent = 0, x = -1, y = -1 )
    wxString message
    wxString default_path
    wxString default_filename
    wxString default_extension
    wxString wildcard
    int flags
    wxWindow* parent
    int x
    int y