The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#############################################################################
## Name:        XS/Utils.xs
## Purpose:     XS for some utility classes
## Author:      Mattia Barbon
## Modified by:
## Created:     09/02/2001
## RCS-ID:      $Id: Utils.xs 3096 2011-10-13 05:52:30Z mdootson $
## Copyright:   (c) 2001-2003, 2005-2008, 2010 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/busyinfo.h>
#include <wx/settings.h>
#include <wx/caret.h>
#include <wx/snglinst.h>
#include <wx/splash.h>
#include <wx/utils.h>
#include <wx/debug.h>
#include <wx/tipdlg.h>
#if WXPERL_W_VERSION_GE( 2, 8, 0 )
#include <wx/sysopt.h>
#endif
#if WXPERL_W_VERSION_GE( 2, 5, 3 )
#ifdef __WXGTK20__
#define __WXGTK20__DEFINED
#undef __WXGTK20__
#endif
#include <wx/stockitem.h>
#ifdef __WXGTK20__DEFINED
#define __WXGTK20__
#endif
#endif
#include "cpp/tipprovider.h"

MODULE=Wx PACKAGE=Wx::CaretSuspend

wxCaretSuspend*
wxCaretSuspend::new( window )
    wxWindow* window

static void
wxCaretSuspend::CLONE()
  CODE:
    wxPli_thread_sv_clone( aTHX_ CLASS, (wxPliCloneSV)wxPli_detach_object );

## // thread OK
void
wxCaretSuspend::DESTROY()
  CODE:
    wxPli_thread_sv_unregister( aTHX_ "Wx::CaretSuspend", THIS, ST(0) );
    delete THIS;

MODULE=Wx PACKAGE=Wx::SplashScreen

#ifndef wxFRAME_FLOAT_ON_PARENT
#define wxFRAME_FLOAT_ON_PARENT 0
#endif

#ifndef wxFRAME_TOOL_WINDOW
#define wxFRAME_TOOL_WINDOW 0
#endif

wxSplashScreen*
wxSplashScreen::new( bitmap, splashStyle, milliseconds, parent, id = wxID_ANY, pos = wxDefaultPosition, size = wxDefaultSize, style = wxSIMPLE_BORDER|wxFRAME_NO_TASKBAR|wxSTAY_ON_TOP )
    wxBitmap* bitmap
    long splashStyle
    int milliseconds
    wxWindow* parent
    wxWindowID id
    wxPoint pos
    wxSize size
    long style
  CODE:
    RETVAL = new wxSplashScreen( *bitmap, splashStyle, milliseconds, parent,
        id, pos, size, style );
  OUTPUT:
    RETVAL

long
wxSplashScreen::GetSplashStyle()

wxSplashScreenWindow*
wxSplashScreen::GetSplashWindow()

int
wxSplashScreen::GetTimeout()

MODULE=Wx PACKAGE=Wx::WindowDisabler

#if WXPERL_W_VERSION_GE( 2, 9, 2 )

void
new( ... )
  PPCODE:
    BEGIN_OVERLOAD()
        MATCH_VOIDM_REDISP( newBool )
        MATCH_REDISP( wxPliOvl_wwin, newWindow )
        MATCH_REDISP( wxPliOvl_n, newBool )
    END_OVERLOAD( "Wx::WindowDisabler::new" )

wxWindowDisabler*
newWindow( CLASS, skip )
    SV* CLASS
    wxWindow* skip
  CODE:
    RETVAL = new wxWindowDisabler( skip );
  OUTPUT: RETVAL

wxWindowDisabler*
newBool( CLASS, disable = true )
    SV* CLASS
    bool disable
  CODE:
    RETVAL = new wxWindowDisabler( disable );
  OUTPUT: RETVAL

#else

wxWindowDisabler*
wxWindowDisabler::new( skip = 0 )
    wxWindow* skip

#endif

static void
wxWindowDisabler::CLONE()
  CODE:
    wxPli_thread_sv_clone( aTHX_ CLASS, (wxPliCloneSV)wxPli_detach_object );

## // thread OK
void
wxWindowDisabler::DESTROY()
  CODE:
    wxPli_thread_sv_unregister( aTHX_ "Wx::WindowDisabler", THIS, ST(0) );
    delete THIS;

MODULE=Wx PACKAGE=Wx::BusyCursor

#if WXPERL_W_VERSION_GE( 2, 7, 0 )

wxBusyCursor*
wxBusyCursor::new( cursor = wxHOURGLASS_CURSOR )
    const wxCursor* cursor

#else

wxBusyCursor*
wxBusyCursor::new( cursor = wxHOURGLASS_CURSOR )
    wxCursor* cursor

#endif

static void
wxBusyCursor::CLONE()
  CODE:
    wxPli_thread_sv_clone( aTHX_ CLASS, (wxPliCloneSV)wxPli_detach_object );

## // thread OK
void
wxBusyCursor::DESTROY()
  CODE:
    wxPli_thread_sv_unregister( aTHX_ "Wx::BusyCursor", THIS, ST(0) );
    delete THIS;

MODULE=Wx PACKAGE=Wx::BusyInfo

wxBusyInfo*
wxBusyInfo::new( message )
    wxString message

static void
wxBusyInfo::CLONE()
  CODE:
    wxPli_thread_sv_clone( aTHX_ CLASS, (wxPliCloneSV)wxPli_detach_object );

## // thread OK
void
wxBusyInfo::DESTROY()
  CODE:
    wxPli_thread_sv_unregister( aTHX_ "Wx::BusyInfo", THIS, ST(0) );
    delete THIS;

MODULE=Wx PACKAGE=Wx::StopWatch

#ifdef Pause
#undef Pause
#endif

wxStopWatch*
wxStopWatch::new()

static void
wxStopWatch::CLONE()
  CODE:
    wxPli_thread_sv_clone( aTHX_ CLASS, (wxPliCloneSV)wxPli_detach_object );

## // thread OK
void
wxStopWatch::DESTROY()
  CODE:
    wxPli_thread_sv_unregister( aTHX_ "Wx::StopWatch", THIS, ST(0) );
    delete THIS;

void
wxStopWatch::Pause()

void
wxStopWatch::Start( milliseconds = 0 )
    long milliseconds

void
wxStopWatch::Resume()

long
wxStopWatch::Time()

MODULE=Wx PACKAGE=Wx::SingleInstanceChecker

#if wxUSE_SNGLINST_CHECKER

wxSingleInstanceChecker*
wxSingleInstanceChecker::new()

static void
wxSingleInstanceChecker::CLONE()
  CODE:
    wxPli_thread_sv_clone( aTHX_ CLASS, (wxPliCloneSV)wxPli_detach_object );

## // thread OK
void
wxSingleInstanceChecker::DESTROY()
  CODE:
    wxPli_thread_sv_unregister( aTHX_ "Wx::SingleInstanceChecker", THIS, ST(0) );
    delete THIS;

bool
wxSingleInstanceChecker::Create( name, path = wxEmptyString )
    wxString name
    wxString path

bool
wxSingleInstanceChecker::IsAnotherRunning()

#endif

#if WXPERL_W_VERSION_GE( 2, 8, 0 )

MODULE=Wx PACKAGE=Wx::SystemOptions

#define wxSystemOptions_SetOption wxSystemOptions::SetOption
#define wxSystemOptions_GetOption wxSystemOptions::GetOption
#define wxSystemOptions_GetOptionInt wxSystemOptions::GetOptionInt
#define wxSystemOptions_HasOption wxSystemOptions::HasOption
#define wxSystemOptions_IsFalse wxSystemOptions::IsFalse

void
SetOption( name, value )
    wxString name
    wxString value
  CODE:
    wxSystemOptions_SetOption( name, value);
    
void
SetOptionInt( name, value )
    wxString name
    int value
  CODE:
    wxSystemOptions_SetOption( name, value);
    
wxString
GetOption( name )
    wxString name
  CODE:
    RETVAL = wxSystemOptions_GetOption( name );
  OUTPUT: RETVAL
    
int
GetOptionInt( name )
    wxString name
  CODE:
    RETVAL = wxSystemOptions_GetOptionInt( name );
  OUTPUT: RETVAL    

bool
HasOption( name )
    wxString name
  CODE:
    RETVAL = wxSystemOptions_HasOption( name );
  OUTPUT: RETVAL    
    
bool
IsFalse( name )
    wxString name
  CODE:
    RETVAL = wxSystemOptions_IsFalse( name );
  OUTPUT: RETVAL    

#endif

MODULE=Wx PACKAGE=Wx::SystemSettings

#if WXPERL_W_VERSION_GE( 2, 5, 2 )
#define wxSystemSettings_GetSystemColour wxSystemSettings::GetColour
#define wxSystemSettings_GetSystemFont wxSystemSettings::GetFont
#define wxSystemSettings_GetSystemMetric wxSystemSettings::GetMetric
#else
#define wxSystemSettings_GetSystemColour wxSystemSettings::GetSystemColour
#define wxSystemSettings_GetSystemFont wxSystemSettings::GetSystemFont
#define wxSystemSettings_GetSystemMetric wxSystemSettings::GetSystemMetric
#endif

wxColour*
GetColour( index )
    wxSystemColour index
  CODE:
    RETVAL = new wxColour( wxSystemSettings_GetSystemColour( index ) );
  OUTPUT: RETVAL

wxColour*
GetSystemColour( index )
    wxSystemColour index
  CODE:
    RETVAL = new wxColour( wxSystemSettings_GetSystemColour( index ) );
  OUTPUT: RETVAL

wxFont*
GetFont( index )
    wxSystemFont index
  CODE:
    RETVAL = new wxFont( wxSystemSettings_GetSystemFont( index ) );
  OUTPUT: RETVAL

wxFont*
GetSystemFont( index )
    wxSystemFont index
  CODE:
    RETVAL = new wxFont( wxSystemSettings_GetSystemFont( index ) );
  OUTPUT: RETVAL

int
GetMetric( index )
    wxSystemMetric index
  CODE:
    RETVAL = wxSystemSettings_GetSystemMetric( index );
  OUTPUT: RETVAL

int
GetSystemMetric( index )
    wxSystemMetric index
  CODE:
    RETVAL = wxSystemSettings_GetSystemMetric( index );
  OUTPUT: RETVAL

wxSystemScreenType
GetScreenType()
  CODE:
    RETVAL = wxSystemSettings::GetScreenType();
  OUTPUT: RETVAL

MODULE=Wx PACKAGE=Wx::TipProvider

wxTipProvider*
wxTipProvider::new( currentTip )
    size_t currentTip
  CODE:
    RETVAL = new wxPliTipProvider( CLASS, currentTip );
  OUTPUT:
    RETVAL

void
wxTipProvider::Destroy()
  CODE:
    delete THIS;

size_t
wxTipProvider::GetCurrentTip()

wxString
wxTipProvider::GetTip()

wxString
wxTipProvider::PreprocessTip( tip )
    wxString tip

void
wxTipProvider::SetCurrentTip( number )
    size_t number
  CODE:
    ((wxPliTipProvider*)THIS)->SetCurrentTip( number );

MODULE=Wx PACKAGE=Wx::Thread

#if wxUSE_THREADS

#include <wx/thread.h>

bool
IsMain()
  CODE:
    RETVAL = wxThread::IsMain();
  OUTPUT:
    RETVAL

#endif

MODULE=Wx PACKAGE=Wx PREFIX=wx

#if WXPERL_W_VERSION_GE( 2, 5, 3 )

bool
wxIsStockID( wxWindowID id )

bool
wxIsStockLabel( wxWindowID id, wxString label )

#if WXPERL_W_VERSION_GE( 2, 6, 3 )

#if WXPERL_W_VERSION_GE( 2, 7, 1 )

wxString
wxGetStockLabel( wxWindowID id, long flags = wxSTOCK_WITH_MNEMONIC )

#else

wxString
wxGetStockLabel( wxWindowID id, bool withCodes = true, wxString accelerator = wxEmptyString )

#endif

#else

wxString
wxGetStockLabel( wxWindowID id )

#endif

#endif

#if WXPERL_W_VERSION_GE( 2, 7, 1 )

wxAcceleratorEntry*
wxGetStockAccelerator( wxWindowID id )
  CODE:
    RETVAL = new wxAcceleratorEntry( wxGetStockAccelerator( id ) );
  OUTPUT: RETVAL

wxString
wxGetStockHelpString( wxWindowID id, wxStockHelpStringClient client = wxSTOCK_MENU )

#endif

#if WXPERL_W_VERSION_GE( 2, 7, 0 )

bool
wxLaunchDefaultBrowser( url, flags = 0 )
    wxString url
    int flags

#else
#if WXPERL_W_VERSION_GE( 2, 6, 1 )

bool
wxLaunchDefaultBrowser( url )
    wxString url

#endif
#endif

bool
wxShowTip( parent, tipProvider, showAtStartup = true )
    wxWindow* parent
    wxTipProvider* tipProvider
    bool showAtStartup

wxTipProvider*
wxCreateFileTipProvider( filename, currentTip )
    wxString filename
    size_t currentTip

void
wxUsleep( ms )
    unsigned long ms
  CODE:
#if WXPERL_W_VERSION_LE( 2, 5, 2 )
    wxUsleep( ms );
#else
    wxMilliSleep( ms );
#endif

#if WXPERL_W_VERSION_GE( 2, 5, 3 )

void
wxMicroSleep( ms )
    unsigned long ms

#endif

void
wxMilliSleep( ms )
    unsigned long ms
  CODE:
#if WXPERL_W_VERSION_LE( 2, 5, 2 )
    wxUsleep( ms );
#else
    wxMilliSleep( ms );
#endif

void
wxSleep( sec )
    int sec

bool
wxYield()

bool
wxSafeYield( window = 0, onlyIfNeeded = false )
    wxWindow* window
    bool onlyIfNeeded

bool
wxYieldIfNeeded()

void
wxTrap()

wxString
wxGetOsDescription()

long
wxNewId()

wxEventType
wxNewEventType()

void
wxRegisterId( id )
    long id

void
wxBell()

void
wxExit()

bool
wxShell( command = wxEmptyString )
    wxString command

#if WXPERL_W_VERSION_GE( 2, 6, 0 )

bool
wxGetKeyState( key )
    wxKeyCode key

#endif

void
wxSetCursor( wxCursor* cursor)
  C_ARGS: *cursor

MODULE=Wx PACKAGE=Wx

void
_utf8_on( sv )
    SV* sv
  CODE:
    SvUTF8_on( sv );

void
_utf8_off( sv )
    SV* sv
  CODE:
    SvUTF8_off( sv );