Commit dc8745bb authored by Ryan Niebur's avatar Ryan Niebur

[svn-upgrade] Integrating new upstream version, libwx-perl (0.96)

parent b046a64a
Revision history for Perl extension Wx.
0.96 Sat Jan 9 10:40:00 CET 2010
- Fixed Windows build with MSVC 6 buil.
0.95 Fri Dec 25 18:24:44 CET 2009
- Only preload wxWidgets' DLL under Windows.
- Some Windows build fixes.
0.94 Sun Nov 8 14:10:32 CET 2009
- Remove the last use of the xspp command line script.
- Compilation fix for Strawberry Perl 5.10 (probably needed for all
......
......@@ -4,7 +4,7 @@
// Author: Mattia Barbon
// Modified by:
// Created: 29/10/2000
// RCS-ID: $Id: Constant.xs 2636 2009-10-20 19:39:08Z mbarbon $
// RCS-ID: $Id: Constant.xs 2715 2009-12-25 17:23:03Z mbarbon $
// Copyright: (c) 2000-2009 Mattia Barbon
// Licence: This program is free software; you can redistribute it and/or
// modify it under the same terms as Perl itself
......@@ -745,7 +745,7 @@ void SetInheritance()
// !package: Wx
// !tag:
static double constant( const char *name, int arg )
static double constant( const char* name, int arg )
{
WX_PL_CONSTANT_INIT();
......@@ -3322,9 +3322,16 @@ WXPLI_BOOT_ONCE(Wx_Const);
MODULE=Wx_Const PACKAGE=Wx
double
constant(name,arg)
constant( name, arg, error )
const char* name
int arg
int error = NO_INIT
CODE:
RETVAL = constant( name, arg );
error = errno;
OUTPUT:
RETVAL
error
void
UnsetConstants()
......
......@@ -4,8 +4,8 @@
// Author: Mattia Barbon
// Modified by:
// Created: 29/10/2000
// RCS-ID: $Id: Controls.xs 2610 2009-09-20 13:28:54Z mbarbon $
// Copyright: (c) 2000-2008 Mattia Barbon
// RCS-ID: $Id: Controls.xs 2700 2009-12-13 11:25:50Z mbarbon $
// Copyright: (c) 2000-2009 Mattia Barbon
// Licence: This program is free software; you can redistribute it and/or
// modify it under the same terms as Perl itself
/////////////////////////////////////////////////////////////////////////////
......
......@@ -4,8 +4,8 @@
// Author: Mattia Barbon
// Modified by:
// Created: 29/10/2000
// RCS-ID: $Id: Event.xs 2607 2009-09-06 07:44:32Z tsee $
// Copyright: (c) 2000-2008 Mattia Barbon
// RCS-ID: $Id: Event.xs 2700 2009-12-13 11:25:50Z mbarbon $
// Copyright: (c) 2000-2009 Mattia Barbon
// Licence: This program is free software; you can redistribute it and/or
// modify it under the same terms as Perl itself
/////////////////////////////////////////////////////////////////////////////
......
......@@ -4,8 +4,8 @@
// Author: Mattia Barbon
// Modified by:
// Created: 29/10/2000
// RCS-ID: $Id: Frames.xs 2610 2009-09-20 13:28:54Z mbarbon $
// Copyright: (c) 2000-2003, 2005-2008 Mattia Barbon
// RCS-ID: $Id: Frames.xs 2700 2009-12-13 11:25:50Z mbarbon $
// Copyright: (c) 2000-2003, 2005-2009 Mattia Barbon
// Licence: This program is free software; you can redistribute it and/or
// modify it under the same terms as Perl itself
/////////////////////////////////////////////////////////////////////////////
......
......@@ -32,6 +32,7 @@ script/make_typemap.pl
script/make_v_cback.pl
script/pipe.pl
script/wxperl_overload
script/wxperl_xspp
t/01_load.t
t/02_inheritance.t
......
# http://module-build.sourceforge.net/META-spec.html
name: Wx
version: 0.94
version: 0.96
version_from: Wx.pm
installdirs: site
author: Mattia Barbon <mbarbon@cpan.org>
......@@ -28,6 +28,12 @@ no_index:
configure_requires:
Alien::wxWidgets: 0.25
dynamic_config: 1
resources:
MailingList: http://lists.perl.org/list/wxperl-users.html
bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=Wx
homepage: http://wxperl.eu/
license: http://dev.perl.org/licenses/
repository: https://wxperl.svn.sourceforge.net/svnroot/wxperl/wxPerl
distribution_type: module
generated_by: ExtUtils::MY_Metafile version 0.09, EUMM-6.54.
......
......@@ -5,8 +5,8 @@
## Author: Mattia Barbon
## Modified by:
## Created: 01/10/2000
## RCS-ID: $Id: Makefile.PL 2611 2009-09-20 13:30:33Z mbarbon $
## Copyright: (c) 2000-2008 Mattia Barbon
## RCS-ID: $Id: Makefile.PL 2746 2010-01-08 21:36:41Z mbarbon $
## Copyright: (c) 2000-2009 Mattia Barbon
## Licence: This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself
#############################################################################
......@@ -57,6 +57,12 @@ eval {
},
configure_requires => { 'Alien::wxWidgets' => 0.25,
},
resources => { 'license' => 'http://dev.perl.org/licenses/',
'homepage' => 'http://wxperl.eu/',
'bugtracker' => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=Wx',
'repository' => 'https://wxperl.svn.sourceforge.net/svnroot/wxperl/wxPerl',
'MailingList' => 'http://lists.perl.org/list/wxperl-users.html',
},
} );
};
......
wxPerl is a wrapper for the wxWidgets (formerly known as wxWindows) GUI toolkit
Copyright (c) 2000-2008 Mattia Barbon.
Copyright (c) 2000-2010 Mattia Barbon.
This package is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
......@@ -25,18 +25,19 @@ TESTED PLATFORMS:
Perl | OS | wxWidgets | Compiler
----------------+---------------+----------------+-------------------
ActivePerl 8xx | Windows 2000 | wxMSW 2.8.x | MSVC 5
Strawberry Perl | Windows XP | | MSVC 6
5.10.x | | | MinGW GCC 3.4
ActivePerl 8xx | Windows 2000 | wxMSW 2.8.x | MSVC 6
Strawberry Perl | Windows XP | | MSVC 7
5.10.x | Windows Vista | | MinGW GCC 3.4
| | | MinGW GCC 4.x
----------------+---------------+----------------+-------------------
5.8.x | Fedora 9 | wxGTK 2.8.x | GCC 3.x
5.6.1 | Debian 4.0 | | GCC 4.x
5.6.1 | Debian 4.0 | wxGTK 2.9.x | GCC 4.x
| FreeBSD | |
| Gentoo | |
----------------+---------------+----------------+-------------------
5.8.x | Mac OS X 10.3 | wxMac 2.5.3 | GCC 3.3
5.10.0 | Mac OS X 10.4 | wxMac 2.8.x | GCC 4.0
| Mac OS X 10.5 | |
5.8.x | Mac OS X 10.4 | wxMac 2.5.3 | GCC 3.3
5.10.0 | Mac OS X 10.5 | wxMac 2.8.x | GCC 4.x
| Mac OS X 10.6 | wxMac 2.9.x |
----------------+---------------+----------------+-------------------
wxPerl has also been reported to work on FreeBSD and IRIX.
......
......@@ -4,8 +4,8 @@
// Author: Mattia Barbon
// Modified by:
// Created: 29/10/2000
// RCS-ID: $Id: Window.xs 2610 2009-09-20 13:28:54Z mbarbon $
// Copyright: (c) 2000-2002, 2004-2008 Mattia Barbon
// RCS-ID: $Id: Window.xs 2700 2009-12-13 11:25:50Z mbarbon $
// Copyright: (c) 2000-2002, 2004-2009 Mattia Barbon
// Licence: This program is free software; you can redistribute it and/or
// modify it under the same terms as Perl itself
/////////////////////////////////////////////////////////////////////////////
......
......@@ -4,7 +4,7 @@
## Author: Mattia Barbon
## Modified by:
## Created: 01/10/2000
## RCS-ID: $Id: Wx.pm 2615 2009-09-24 19:48:01Z mbarbon $
## RCS-ID: $Id: Wx.pm 2731 2009-12-29 21:19:56Z mbarbon $
## Copyright: (c) 2000-2009 Mattia Barbon
## Licence: This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself
......@@ -21,7 +21,7 @@ use vars qw(@ISA $VERSION $XS_VERSION $AUTOLOAD @EXPORT_OK %EXPORT_TAGS
$_msw = 1; $_gtk = 2; $_motif = 3; $_mac = 4; $_x11 = 5;
@ISA = qw(Exporter);
$VERSION = '0.94';
$VERSION = '0.96';
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
......@@ -38,14 +38,14 @@ sub wxSIZE { Wx::Size->new( $_[0], $_[1] ) }
sub wxTheApp { $Wx::wxTheApp }
sub AUTOLOAD {
my( $constname );
my( $constname, $error );
($constname = $AUTOLOAD) =~ s<^.*::>{};
return 0 if $constname eq 'wxVERSION';
my( $val ) = constant($constname, 0 );
my( $val ) = constant( $constname, 0, $error );
if ($! != 0) {
if( $error != 0 ) {
# re-add this if need support for autosplitted subroutines
# $AutoLoader::AUTOLOAD = $AUTOLOAD;
# goto &AutoLoader::AUTOLOAD;
......@@ -114,12 +114,12 @@ sub set_load_function { $load_fun = shift }
sub set_end_function { $unload_fun = shift }
sub load_dll {
return if $^O eq 'darwin' || Wx::wxVERSION() < 2.005;
return if $^O ne 'MSWin32';
goto &$load_fun;
}
sub unload_dll {
return if $^O eq 'darwin' || Wx::wxVERSION() < 2.005;
return if $^O ne 'MSWin32';
goto &$unload_fun;
}
......@@ -243,6 +243,7 @@ sub GetMultipleChoices {
return @s;
}
$dialog->Destroy;
return;
}
......
......@@ -4,8 +4,8 @@
## Author: Mattia Barbon
## Modified by:
## Created: 13/08/2007
## RCS-ID: $Id: OwnerDrawnComboBox.xsp 2251 2007-10-17 22:52:17Z mbarbon $
## Copyright: (c) 2007 Mattia Barbon
## RCS-ID: $Id: OwnerDrawnComboBox.xsp 2743 2010-01-08 19:39:53Z mbarbon $
## Copyright: (c) 2007, 2010 Mattia Barbon
## Licence: This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself
#############################################################################
......@@ -50,7 +50,7 @@ INCLUDE: perl -pe "s/ItemContainer/OwnerDrawnComboBox/g" XS/ItemContainer.xs |
p3, p4 ) ); \
return; \
} else \
return BASE::METHOD( p1, p2, p3, p4 ); \
BASE::METHOD( p1, p2, p3, p4 ); \
}
class wxPlOwnerDrawnComboBox : public wxOwnerDrawnComboBox {
......
......@@ -4,8 +4,8 @@
## Author: Mattia Barbon
## Modified by:
## Created: 29/10/2000
## RCS-ID: $Id: TextCtrl.xs 2299 2007-11-25 17:30:04Z mbarbon $
## Copyright: (c) 2000-2003, 2005-2007 Mattia Barbon
## RCS-ID: $Id: TextCtrl.xs 2735 2010-01-02 10:39:01Z mbarbon $
## Copyright: (c) 2000-2003, 2005-2007, 2010 Mattia Barbon
## Licence: This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself
#############################################################################
......@@ -189,4 +189,32 @@ wxTextCtrl::Create( parent, id, value, pos = wxDefaultPosition, size = wxDefault
wxString name
C_ARGS: parent, id, value, pos, size, style, *validator, name
void
wxTextCtrl::GetStyle( position )
long position
PPCODE:
wxTextAttr attr;
bool retval = THIS->GetStyle( position, attr );
EXTEND( SP, 2 );
PUSHs( newSViv( retval ) );
PUSHs( retval ? wxPli_non_object_2_sv( aTHX_ sv_newmortal(),
new wxTextAttr( attr ),
"Wx::TextAttr" ) :
&PL_sv_undef );
## to be consistent with RichTextCtrl
void
wxTextCtrl::GetTextAttrStyle( position )
long position
PPCODE:
wxTextAttr attr;
bool retval = THIS->GetStyle( position, attr );
EXTEND( SP, 2 );
PUSHs( newSViv( retval ) );
PUSHs( retval ? wxPli_non_object_2_sv( aTHX_ sv_newmortal(),
new wxTextAttr( attr ),
"Wx::TextAttr" ) :
&PL_sv_undef );
%}
\ No newline at end of file
......@@ -6,6 +6,7 @@ use base 'Exporter';
use Config;
use vars qw(@EXPORT $VERSION);
use FindBin;
use File::Basename qw();
$VERSION = '0.28';
@EXPORT = 'wxWriteMakefile';
......@@ -128,7 +129,7 @@ BEGIN {
# Win32
m/MSWin32/ and do {
local $_ = $Config{cc};
local $_ = File::Basename::basename( $Config{cc} );
m/^cl/i and $package_to_use = 'Win32_MSVC' and last SWITCH;
m/^gcc/i and $package_to_use = 'Win32_MinGW' and last SWITCH;
......
......@@ -24,7 +24,7 @@ sub dynamic_lib {
my $this = shift;
my $text = $this->SUPER::dynamic_lib( @_ );
return $text unless $cl_version >= 14;
return $text if $cl_version < 14 || eval ExtUtils::MakeMaker->VERSION >= 6.33;
$text .= <<'EOT' if $text && $text =~ /\$\@/;
mt -manifest $@.manifest -outputresource:$@;2
......
......@@ -4,7 +4,7 @@
// Author: Mattia Barbon
// Modified by:
// Created: 29/10/2000
// RCS-ID: $Id: helpers.cpp 2523 2009-02-04 23:50:57Z mbarbon $
// RCS-ID: $Id: helpers.cpp 2682 2009-11-21 10:39:46Z mbarbon $
// Copyright: (c) 2000-2009 Mattia Barbon
// Licence: This program is free software; you can redistribute it and/or
// modify it under the same terms as Perl itself
......@@ -1476,8 +1476,8 @@ I32 my_looks_like_number( pTHX_ SV* sv )
HV* wxhash = get_hv( wxrbuffer, (create) ) \
#define dwxKey( ptr ) \
char wxkey[50]; \
sprintf( wxkey, "%x", (ptr) ); \
char wxkey[40]; \
sprintf( wxkey, "%p", (ptr) ); \
void wxPli_thread_sv_register( pTHX_ const char* package,
const void* ptr, SV* sv )
......
......@@ -5,8 +5,8 @@
// Author: Mattia Barbon
// Modified by:
// Created: 11/08/2002
// RCS-ID: $Id: overload.h 2110 2007-08-03 19:20:51Z mbarbon $
// Copyright: (c) 2002, 2004, 2006-2007 Mattia Barbon
// RCS-ID: $Id: overload.h 2737 2010-01-03 19:50:07Z mbarbon $
// Copyright: (c) 2002, 2004, 2006-2007, 2010 Mattia Barbon
// Licence: This program is free software; you can redistribute it and/or
// modify it under the same terms as Perl itself
/////////////////////////////////////////////////////////////////////////////
......@@ -15,9 +15,11 @@
#define BEGIN_OVERLOAD() \
PUSHMARK(MARK); \
int count;
int count; \
if( false );
#define END_OVERLOAD( FUNCTION ) \
else \
{ \
static const char msg[] = "unable to resolve overloaded method for "; \
require_pv( "Carp" ); \
......@@ -33,49 +35,40 @@
count = call_pv( #NEW_METHOD_NAME, GIMME_V ); SPAGAIN
#define MATCH_VOIDM_REDISP( METHOD ) \
if( items == 1 ) \
{ REDISPATCH( METHOD ); } \
else
else if( items == 1 ) \
{ REDISPATCH( METHOD ); }
#define MATCH_ANY_REDISP( METHOD ) \
if( true ) \
{ REDISPATCH( METHOD ); } \
else
else if( true ) \
{ REDISPATCH( METHOD ); }
#define MATCH_REDISP( PROTO, METHOD ) \
if( wxPli_match_arguments_skipfirst( aTHX_ PROTO, \
-1, false ) ) \
{ REDISPATCH( METHOD ); } \
else
else if( wxPli_match_arguments_skipfirst( aTHX_ PROTO, \
-1, false ) ) \
{ REDISPATCH( METHOD ); }
#define MATCH_REDISP_COUNT( PROTO, METHOD, REQUIRED ) \
if( wxPli_match_arguments_skipfirst( aTHX_ PROTO, \
REQUIRED, false ) ) \
{ REDISPATCH( METHOD ); } \
else
else if( wxPli_match_arguments_skipfirst( aTHX_ PROTO, \
REQUIRED, false ) ) \
{ REDISPATCH( METHOD ); }
#define MATCH_REDISP_COUNT_ALLOWMORE( PROTO, METHOD, REQUIRED ) \
if( wxPli_match_arguments_skipfirst( aTHX_ PROTO, \
REQUIRED, true ) ) \
{ REDISPATCH( METHOD ); } \
else
else if( wxPli_match_arguments_skipfirst( aTHX_ PROTO, \
REQUIRED, true ) ) \
{ REDISPATCH( METHOD ); }
/* used for overloading static functions, see GraphicsContext.xs for an example */
#define MATCH_REDISP_FUNCTION( PROTO, METHOD ) \
if( wxPli_match_arguments( aTHX_ PROTO, \
-1, false ) ) \
{ REDISPATCH_FUNCTION( METHOD ); } \
else
else if( wxPli_match_arguments( aTHX_ PROTO, \
-1, false ) ) \
{ REDISPATCH_FUNCTION( METHOD ); }
#define MATCH_REDISP_COUNT_FUNCTION( PROTO, METHOD, REQUIRED ) \
if( wxPli_match_arguments( aTHX_ PROTO, \
REQUIRED, false ) ) \
{ REDISPATCH_FUNCTION( METHOD ); } \
else
else if( wxPli_match_arguments( aTHX_ PROTO, \
REQUIRED, false ) ) \
{ REDISPATCH_FUNCTION( METHOD ); }
#define MATCH_REDISP_COUNT_ALLOWMORE_FUNCTION( PROTO, METHOD, REQUIRED ) \
if( wxPli_match_arguments( aTHX_ PROTO, \
REQUIRED, true ) ) \
{ REDISPATCH_FUNCTION( METHOD ); } \
else
else if( wxPli_match_arguments( aTHX_ PROTO, \
REQUIRED, true ) ) \
{ REDISPATCH_FUNCTION( METHOD ); }
......@@ -4,8 +4,8 @@
// Author: Mattia Barbon
// Modified by:
// Created: 30/03/2001
// RCS-ID: $Id: streams.cpp 2227 2007-09-05 21:39:06Z mbarbon $
// Copyright: (c) 2001-2002, 2004, 2006-2007 Mattia Barbon
// RCS-ID: $Id: streams.cpp 2698 2009-12-13 11:08:53Z mbarbon $
// Copyright: (c) 2001-2002, 2004, 2006-2007, 2009 Mattia Barbon
// Licence: This program is free software; you can redistribute it and/or
// modify it under the same terms as Perl itself
/////////////////////////////////////////////////////////////////////////////
......@@ -21,7 +21,7 @@ const char sub_read[] = "sub { read $_[0], $_[1], $_[2] }";
const char sub_seek[] = "sub { seek $_[0], $_[1], $_[2]; tell $_[0] }";
const char sub_tell[] = "sub { tell $_[0] }";
const char sub_write[] = "sub { print { $_[0] } $_[1] }";
const char sub_length[] = "sub { eval { fileno( $_[0] ) } ? ( stat $_[0] )[7] : -1 }";
const char sub_length[] = "sub { eval { fileno( $_[0] ) && fileno( $_[0] ) >= 0 } ? ( stat $_[0] )[7] : -1 }";
SV* sg_read;
SV* sg_seek;
......
......@@ -4,7 +4,7 @@
// Author: Mattia Barbon
// Modified by:
// Created: 21/09/2002
// RCS-ID: $Id: wxapi.h 2633 2009-10-20 19:09:12Z mbarbon $
// RCS-ID: $Id: wxapi.h 2714 2009-12-23 23:46:16Z mbarbon $
// Copyright: (c) 2002-2003, 2005-2009 Mattia Barbon
// Licence: This program is free software; you can redistribute it and/or
// modify it under the same terms as Perl itself
......@@ -86,23 +86,48 @@ inline CV* wxPli_newXS(pTHX_ const char* name, XSUBADDR_t addr,
#undef Seek
#undef Stat
#undef Error
#if defined( __WXMSW__ )
#undef read
#undef write
#undef do_open
#undef do_close
#undef utf8_length
#if defined( PERL_IMPLICIT_SYS )
#undef abort
#undef clearerr
#undef close
#undef eof
#undef exit
#undef fclose
#undef feof
#undef ferror
#undef fflush
#undef fgetpos
#undef fopen
#undef form
#undef vform
#undef setbuf
#undef malloc
#undef realloc
#undef fputc
#undef fputs
#undef fread
#undef free
#undef freopen
#undef fseek
#undef fsetpos
#undef ftell
#undef fwrite
#undef getc
#undef getenv
#undef malloc
#undef open
#undef read
#undef realloc
#undef rename
#undef seekdir
#undef close
#undef setbuf
#undef setvbuf
#undef tmpfile
#undef tmpnam
#undef ungetc
#undef vform
#undef vfprintf
#undef write
#endif
#undef do_open
#undef do_close
#undef utf8_length
#if __VISUALC__
#pragma warning ( disable: 4800 )
......
......@@ -4,8 +4,8 @@
// Author: Mattia Barbon
// Modified by:
// Created: 11/11/2006
// RCS-ID: $Id: AUI.xs 2610 2009-09-20 13:28:54Z mbarbon $
// Copyright: (c) 2006, 2008 Mattia Barbon
// RCS-ID: $Id: AUI.xs 2700 2009-12-13 11:25:50Z mbarbon $
// Copyright: (c) 2006, 2008-2009 Mattia Barbon
// Licence: This program is free software; you can redistribute it and/or
// modify it under the same terms as Perl itself
/////////////////////////////////////////////////////////////////////////////
......
......@@ -4,8 +4,8 @@
## Author: Mattia Barbon
## Modified by:
## Created: 12/11/2006
## RCS-ID: $Id: AuiNotebook.xsp 2606 2009-08-17 21:10:29Z mbarbon $
## Copyright: (c) 2006-2007 Mattia Barbon
## RCS-ID: $Id: AuiNotebook.xsp 2700 2009-12-13 11:25:50Z mbarbon $
## Copyright: (c) 2006-2007, 2009 Mattia Barbon
## Licence: This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself
#############################################################################
......
......@@ -4,8 +4,8 @@
// Author: Mattia Barbon
// Modified by:
// Created: 22/09/2002
// RCS-ID: $Id: Calendar.xs 2610 2009-09-20 13:28:54Z mbarbon $
// Copyright: (c) 2002, 2005-2006, 2008 Mattia Barbon
// RCS-ID: $Id: Calendar.xs 2700 2009-12-13 11:25:50Z mbarbon $
// Copyright: (c) 2002, 2005-2006, 2008-2009 Mattia Barbon
// Licence: This program is free software; you can redistribute it and/or
// modify it under the same terms as Perl itself
/////////////////////////////////////////////////////////////////////////////
......
......@@ -4,8 +4,8 @@
// Author: Mattia Barbon
// Modified by:
// Created: 05/11/2007
// RCS-ID: $Id: DataView.xs 2610 2009-09-20 13:28:54Z mbarbon $
// Copyright: (c) 2007-2008 Mattia Barbon
// RCS-ID: $Id: DataView.xs 2700 2009-12-13 11:25:50Z mbarbon $
// Copyright: (c) 2007-2009 Mattia Barbon
// Licence: This program is free software; you can redistribute it and/or
// modify it under the same terms as Perl itself
/////////////////////////////////////////////////////////////////////////////
......
......@@ -4,8 +4,8 @@
// Author: Mattia Barbon
// Modified by:
// Created: 22/09/2002
// RCS-ID: $Id: DateTime.xs 2610 2009-09-20 13:28:54Z mbarbon $
// Copyright: (c) 2002, 2006, 2008 Mattia Barbon
// RCS-ID: $Id: DateTime.xs 2700 2009-12-13 11:25:50Z mbarbon $
// Copyright: (c) 2002, 2006, 2008-2009 Mattia Barbon
// Licence: This program is free software; you can redistribute it and/or
// modify it under the same terms as Perl itself
/////////////////////////////////////////////////////////////////////////////
......
......@@ -4,8 +4,8 @@
// Author: Simon Flack
// Modified by:
// Created: 11/09/2002
// RCS-ID: $Id: DocView.xs 2610 2009-09-20 13:28:54Z mbarbon $
// Copyright: (c) 2002, 2004, 2007-2008 Simon Flack
// RCS-ID: $Id: DocView.xs 2700 2009-12-13 11:25:50Z mbarbon $
// Copyright: (c) 2002, 2004, 2007-2009 Simon Flack
// Licence: This program is free software; you can redistribute it and/or
// modify it under the same terms as Perl itself
/////////////////////////////////////////////////////////////////////////////
......
......@@ -4,8 +4,8 @@
// Author: Mattia Barbon
// Modified by:
// Created: 10/03/2001
// RCS-ID: $Id: Html.xs 2610 2009-09-20 13:28:54Z mbarbon $
// Copyright: (c) 2001-2004, 2006, 2008 Mattia Barbon
// RCS-ID: $Id: Html.xs 2700 2009-12-13 11:25:50Z mbarbon $
// Copyright: (c) 2001-2004, 2006, 2008-2009 Mattia Barbon
// Licence: This program is free software; you can redistribute it and/or
// modify it under the same terms as Perl itself
/////////////////////////////////////////////////////////////////////////////
......
......@@ -4,8 +4,8 @@
// Author: Mattia Barbon
// Modified by:
// Created: 04/03/2006
// RCS-ID: $Id: Media.xs 2610 2009-09-20 13:28:54Z mbarbon $
// Copyright: (c) 2006, 2008 Mattia Barbon
// RCS-ID: $Id: Media.xs 2700 2009-12-13 11:25:50Z mbarbon $
// Copyright: (c) 2006, 2008-2009 Mattia Barbon
// Licence: This program is free software; you can redistribute it and/or
// modify it under the same terms as Perl itself
/////////////////////////////////////////////////////////////////////////////
......
......@@ -4,8 +4,8 @@
## Author: Graciliano M. P.
## Modified by:
## Created: 30/06/2002
## RCS-ID: $Id: SplashFast.pm 2057 2007-06-18 23:03:00Z mbarbon $
## Copyright: (c) 2002-2006 Graciliano M. P.
## RCS-ID: $Id: SplashFast.pm 2723 2009-12-25 17:35:15Z mbarbon $
## Copyright: (c) 2002-2006, 2009 Graciliano M. P.
## Licence: This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself
#############################################################################
......@@ -27,9 +27,10 @@ sub new {
Wx::Perl::SplashFast::App->new() ;
Wx::InitAllImageHandlers() ;
my $any = Wx::constant( 'wxBITMAP_TYPE_ANY', 0 );
my $spl_c = Wx::constant( 'wxSPLASH_CENTRE_ON_SCREEN', 0 );
my $spl_ti = Wx::constant( 'wxSPLASH_TIMEOUT', 0 );
my $dummy;
my $any = Wx::constant( 'wxBITMAP_TYPE_ANY', 0, $dummy );
my $spl_c = Wx::constant( 'wxSPLASH_CENTRE_ON_SCREEN', 0, $dummy );
my $spl_ti = Wx::constant( 'wxSPLASH_TIMEOUT', 0, $dummy );
my $bitmap = Wx::Bitmap->new( $_[0], $any );
my $splash = Wx::SplashScreen->new( $bitmap , $spl_c|$spl_ti ,
......
......@@ -4,8 +4,8 @@
// Author: Mattia Barbon
// Modified by:
// Created: 04/05/2001
// RCS-ID: $Id: Print.xs 2610 2009-09-20 13:28:54Z mbarbon $
// Copyright: (c) 2001-2002, 2004-2006, 2008 Mattia Barbon
// RCS-ID: $Id: Print.xs 2700 2009-12-13 11:25:50Z mbarbon $
// Copyright: (c) 2001-2002, 2004-2006, 2008-2009 Mattia Barbon
// Licence: This program is free software; you can redistribute it and/or
// modify it under the same terms as Perl itself
/////////////////////////////////////////////////////////////////////////////
......
......@@ -4,8 +4,8 @@
// Author: Mattia Barbon
// Modified by:
// Created: 05/11/2006
// RCS-ID: $Id: RichText.xs 2610 2009-09-20 13:28:54Z mbarbon $
// Copyright: (c) 2006-2008 Mattia Barbon
// RCS-ID: $Id: RichText.xs 2700 2009-12-13 11:25:50Z mbarbon $
// Copyright: (c) 2006-2009 Mattia Barbon
// Licence: This program is free software; you can redistribute it and/or
// modify it under the same terms as Perl itself
/////////////////////////////////////////////////////////////////////////////
......
......@@ -4,8 +4,8 @@
## Author: Mattia Barbon
## Modified by:
## Created: 03/09/2007
## RCS-ID: $Id: RichTextBuffer.xsp 2256 2007-10-26 21:54:28Z mbarbon $
## Copyright: (c) 2007 Mattia Barbon
## RCS-ID: $Id: RichTextBuffer.xsp 2738 2010-01-03 20:03:42Z mbarbon $
## Copyright: (c) 2007, 2010 Mattia Barbon
## Licence: This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself
#############################################################################
......@@ -36,8 +36,8 @@ void
wxRichTextBuffer::SetStyle( ... )
PPCODE:
BEGIN_OVERLOAD()
MATCH_REDISP( wxPliOvl_wrtr_wrta_n, SetStyleRange );
MATCH_REDISP( wxPliOvl_wrtr_wtae_n, SetStyleExRange );
MATCH_REDISP( wxPliOvl_wrtr_wrta_n, SetStyleRange )
MATCH_REDISP( wxPliOvl_wrtr_wtae_n, SetStyleExRange )
END_OVERLOAD( "Wx::RichTextBuffer::SetStyle" )
%}
......@@ -135,8 +135,8 @@ void
wxRichTextBuffer::SetBasicStyle( ... )
PPCODE:
BEGIN_OVERLOAD()
MATCH_REDISP( wxPliOvl_wrta, SetBasicStyleRich );
MATCH_REDISP( wxPliOvl_wtae, SetBasicStyleEx );
MATCH_REDISP( wxPliOvl_wrta, SetBasicStyleRich )
MATCH_REDISP( wxPliOvl_wtae, SetBasicStyleEx )
END_OVERLOAD( "Wx::RichTextBuffer::SetBasicStyle" )
%}
......
......@@ -4,8 +4,8 @@
## Author: Mattia Barbon
## Modified by:
## Created: 05/11/2006
## RCS-ID: $Id: RichTextCtrl.xsp 2452 2008-08-31 08:53:46Z mbarbon $
## Copyright: (c) 2006-2008 Mattia Barbon
## RCS-ID: $Id: RichTextCtrl.xsp 2738 2010-01-03 20:03:42Z mbarbon $
## Copyright: (c) 2006-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
#############################################################################
......@@ -470,8 +470,8 @@ void
wxRichTextCtrl::SetBasicStyle( ... )
PPCODE:
BEGIN_OVERLOAD()
MATCH_REDISP( wxPliOvl_wrta, SetBasicStyleRich );
MATCH_REDISP( wxPliOvl_wtae, SetBasicStyleEx );
MATCH_REDISP( wxPliOvl_wrta, SetBasicStyleRich )
MATCH_REDISP( wxPliOvl_wtae, SetBasicStyleEx )
END_OVERLOAD( "Wx::RichTextCtrl::SetBasicStyle" )
%}
......@@ -494,34 +494,34 @@ void
wxRichTextCtrl::SetStyle( ... )
PPCODE:
BEGIN_OVERLOAD()
MATCH_REDISP( wxPliOvl_wrtr_wrta, SetStyleRange );
MATCH_REDISP( wxPliOvl_n_n_wtae, SetStyleExFromTo );
MATCH_REDISP( wxPliOvl_n_n_wtat, SetStyleFromTo );
MATCH_REDISP( wxPliOvl_wrtr_wrta, SetStyleRange )
MATCH_REDISP( wxPliOvl_n_n_wtae, SetStyleExFromTo )
MATCH_REDISP( wxPliOvl_n_n_wtat, SetStyleFromTo )
END_OVERLOAD( "Wx::RichTextCtrl::SetStyle" )
void
wxRichTextCtrl::SetStyleEx( ... )
PPCODE:
BEGIN_OVERLOAD()
MATCH_REDISP( wxPliOvl_wrtr_wrta_n, SetStyleExExRange );
MATCH_REDISP( wxPliOvl_wrtr_wtae_n, SetStyleExRange );
MATCH_REDISP( wxPliOvl_n_n_wtae, SetStyleExExFromTo );
MATCH_REDISP( wxPliOvl_wrtr_wrta_n, SetStyleExExRange )
MATCH_REDISP( wxPliOvl_wrtr_wtae_n, SetStyleExRange )
MATCH_REDISP( wxPliOvl_n_n_wtae, SetStyleExExFromTo )
END_OVERLOAD( "Wx::RichTextCtrl::SetStyleEx" )
void
wxRichTextCtrl::HasCharacterAttributes( ... )
PPCODE:
BEGIN_OVERLOAD()
MATCH_REDISP( wxPliOvl_wrtr_wrta, HasCARich );
MATCH_REDISP( wxPliOvl_wrtr_wtae, HasCAEx );
MATCH_REDISP( wxPliOvl_wrtr_wrta, HasCARich )
MATCH_REDISP( wxPliOvl_wrtr_wtae, HasCAEx )
END_OVERLOAD( "Wx::RichTextCtrl::HasCharacterAttributes" )
void