Commit eee93c2c authored by Alessandro Ghedini's avatar Alessandro Ghedini

Imported Upstream version 0.9911

parent 11b67a2e
Revision history for Perl extension Wx.
0.9911 Fri Aug 24 2012
- wxDataView - updated for 2.9.4
- wxTreeEvent::GetKeyEvent() added
- wxRichTextCtrl::LineBreak() added
0.9910 no release
0.9909 Thu May 31 2012
- corrected wxThePrintPaperDatabase
......
......@@ -4,7 +4,7 @@
// Author: Mattia Barbon
// Modified by:
// Created: 29/10/2000
// RCS-ID: $Id: Constant.xs 3300 2012-05-31 00:58:11Z mdootson $
// RCS-ID: $Id: Constant.xs 3313 2012-07-13 02:14:15Z mdootson $
// Copyright: (c) 2000-2011 Mattia Barbon
// Licence: This program is free software; you can redistribute it and/or
// modify it under the same terms as Perl itself
......@@ -2438,13 +2438,13 @@ static double constant( const char* name, int arg )
r( wxRA_HORIZONTAL ); // radiobox
r( wxRA_LEFTTORIGHT ); // radiobox
r( wxRA_TOPTOBOTTOM ); // radiobox
#if WXPERL_W_VERSION_GE( 2, 6, 0 )
#if WXPERL_W_VERSION_LE( 2, 9, 3 )
r( wxRA_USE_CHECKBOX ); // radiobox
#endif
r( wxRA_VERTICAL ); // radiobox
r( wxRB_GROUP ); // radiobutton
r( wxRB_SINGLE ); // radiobutton
#if WXPERL_W_VERSION_GE( 2, 6, 0 )
#if WXPERL_W_VERSION_LE( 2, 9, 3 )
r( wxRB_USE_CHECKBOX ); // radiobutton
#endif
r( wxRESIZE_BORDER ); // dialog frame
......
--- #YAML:1.0
name: Wx
version: 0.9909
version: 0.9911
abstract: interface to the wxWidgets cross-platform GUI toolkit
author:
- Mattia Barbon <mbarbon@cpan.org>
......
......@@ -4,7 +4,7 @@
## Author: Mattia Barbon
## Modified by:
## Created: 01/10/2000
## RCS-ID: $Id: Wx.pm 3298 2012-05-22 16:04:15Z mdootson $
## RCS-ID: $Id: Wx.pm 3304 2012-05-31 02:18:07Z mdootson $
## Copyright: (c) 2000-2011 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.9909';
$VERSION = '0.9911';
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
......
......@@ -4,7 +4,7 @@
## Author: Mattia Barbon
## Modified by:
## Created: 04/02/2001
## RCS-ID: $Id: TreeCtrl.xs 2298 2007-11-25 15:57:03Z mdootson $
## RCS-ID: $Id: TreeCtrl.xs 3323 2012-08-09 01:17:49Z mdootson $
## Copyright: (c) 2001-2007 Mattia Barbon
## Licence: This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself
......@@ -122,6 +122,13 @@ wxTreeCtrl::GetQuickBestSize()
int
wxTreeEvent::GetKeyCode()
wxKeyEvent*
wxTreeEvent::GetKeyEvent()
CODE:
RETVAL = new wxKeyEvent ( THIS->GetKeyEvent() );
OUTPUT:
RETVAL
wxTreeItemId*
wxTreeEvent::GetOldItem()
CODE:
......
......@@ -4,7 +4,7 @@
// Author: Mattia Barbon
// Modified by:
// Created: 04/12/2001
// RCS-ID: $Id: Grid.xs 3020 2011-03-12 10:16:00Z mbarbon $
// RCS-ID: $Id: Grid.xs 3316 2012-07-14 02:05:19Z mdootson $
// Copyright: (c) 2001-2004, 2006-2011 Mattia Barbon
// Licence: This program is free software; you can redistribute it and/or
// modify it under the same terms as Perl itself
......@@ -57,9 +57,7 @@ static wxPliEventDescription evts[] =
EVT( EVT_GRID_CMD_RANGE_SELECT, 3, wxEVT_GRID_RANGE_SELECT )
#if WXPERL_W_VERSION_LT( 2, 9, 0 )
EVT( EVT_GRID_CMD_CELL_CHANGE, 3, wxEVT_GRID_CELL_CHANGE )
EVT( EVT_GRID_CMD_CELL_CHANGED, 3, wxEVT_GRID_CELL_CHANGE )
#else
EVT( EVT_GRID_CMD_CELL_CHANGE, 3, wxEVT_GRID_CELL_CHANGED )
EVT( EVT_GRID_CMD_CELL_CHANGED, 3, wxEVT_GRID_CELL_CHANGED )
EVT( EVT_GRID_CMD_CELL_CHANGING, 3, wxEVT_GRID_CELL_CHANGING )
#endif
......@@ -81,9 +79,7 @@ static wxPliEventDescription evts[] =
SEVT( EVT_GRID_RANGE_SELECT, 2 )
#if WXPERL_W_VERSION_LT( 2, 9, 0 )
SEVT( EVT_GRID_CELL_CHANGE, 2 )
EVT( EVT_GRID_CELL_CHANGED, 2, wxEVT_GRID_CELL_CHANGE )
#else
EVT( EVT_GRID_CELL_CHANGE, 2, wxEVT_GRID_CELL_CHANGED )
SEVT( EVT_GRID_CELL_CHANGING, 2 )
SEVT( EVT_GRID_CELL_CHANGED, 2 )
#endif
......
......@@ -4,7 +4,7 @@
## Author: Mattia Barbon
## Modified by:
## Created: 04/12/2001
## RCS-ID: $Id: Grid.pm 2170 2007-08-17 22:53:11Z mbarbon $
## RCS-ID: $Id: Grid.pm 3316 2012-07-14 02:05:19Z mdootson $
## Copyright: (c) 2001-2002, 2004-2007 Mattia Barbon
## Licence: This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself
......@@ -61,6 +61,16 @@ package Wx::PlGridCellEditor; @ISA = qw(Wx::GridCellEditor);
package Wx::GridTableBase;
package Wx::PlGridTable; @ISA = qw(Wx::GridTableBase);
package Wx::Event;
# allow 2.8 / 2.9 event name changes compatibility
if(defined(&Wx::Event::EVT_GRID_CELL_CHANGED)) {
*Wx::Event::EVT_GRID_CELL_CHANGE = \&Wx::Event::EVT_GRID_CELL_CHANGED;
*Wx::Event::EVT_GRID_CMD_CELL_CHANGE = \&Wx::Event::EVT_GRID_CMD_CELL_CHANGED;
} else {
*Wx::Event::EVT_GRID_CELL_CHANGED = \&Wx::Event::EVT_GRID_CELL_CHANGE;
*Wx::Event::EVT_GRID_CMD_CELL_CHANGED = \&Wx::Event::EVT_GRID_CMD_CELL_CHANGE;
}
package Wx::Grid;
use strict;
......
......@@ -4,7 +4,7 @@
## Author: Mattia Barbon
## Modified by:
## Created: 05/11/2006
## RCS-ID: $Id: RichTextCtrl.xsp 3293 2012-05-16 20:02:24Z mdootson $
## RCS-ID: $Id: RichTextCtrl.xsp 3325 2012-08-16 03:41:14Z mdootson $
## 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
......@@ -296,6 +296,10 @@ wxPlConstants richtextctrl_module( &richtextctrl_constant );
const wxTextAttrEx& GetDefaultStyleEx() const;
bool Newline();
#if WXPERL_W_VERSION_GE( 2, 8, 0 )
bool LineBreak();
#endif
bool BeginStyle( const wxTextAttrEx& style );
bool EndStyle();
......
......@@ -4,7 +4,7 @@
## Author: Mattia Barbon
## Modified by:
## Created: 05/11/2006
## RCS-ID: $Id: RichText.pm 3115 2011-11-18 06:38:35Z mdootson $
## RCS-ID: $Id: RichText.pm 3325 2012-08-16 03:41:14Z mdootson $
## Copyright: (c) 2006-2007, 2010-2011 Mattia Barbon
## Licence: This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself
......@@ -56,4 +56,21 @@ package Wx::RichTextHeaderFooterData; @ISA = qw(Wx::Object);
package Wx::SymbolPickerDialog; @ISA = qw(Wx::Dialog);
package Wx::RichTextStyleOrganiserDialog; @ISA = qw(Wx::Dialog);
#
# constants
#
package Wx;
# !parser: sub { $_[0] =~ m/^\s*sub\s+(wx\w+)/ }
# !package: Wx
# !tag: richtextctrl
sub wxRichTextLineBreakChar() { chr(29) }
1;
# Local variables: #
# mode: cperl #
# End: #
......@@ -187,6 +187,25 @@ public:
*/
//@{
#if WXPERL_W_VERSION_GE( 2, 9, 4 )
/**
Appends an item (=row) to the control and store.
*/
void AppendItem( const wxVector<wxVariant> &values, wxUIntPtr data = NULL );
/**
Prepends an item (=row) to the control and store.
*/
void PrependItem( const wxVector<wxVariant> &values, wxUIntPtr data = NULL );
/**
Inserts an item (=row) to the control and store.
*/
void InsertItem( unsigned int row, const wxVector<wxVariant> &values, wxUIntPtr data = NULL );
#else
/**
Appends an item (=row) to the control and store.
*/
......@@ -202,6 +221,8 @@ public:
*/
void InsertItem( unsigned int row, const wxVector<wxVariant> &values, wxClientData *data = NULL );
#endif
/**
Delete the row at position @a row.
*/
......
......@@ -76,6 +76,16 @@ public:
*/
void AppendColumn( const wxString &varianttype );
#if WXPERL_W_VERSION_GE( 2, 9, 4 )
void AppendItem( const wxVector<wxVariant> &values, wxUIntPtr data = NULL );
void PrependItem( const wxVector<wxVariant> &values, wxUIntPtr data = NULL );
void InsertItem( unsigned int row, const wxVector<wxVariant> &values, wxUIntPtr data = NULL );
#else
/**
Appends an item (=row) and fills it with @a values.
......@@ -103,6 +113,8 @@ public:
*/
void InsertItem( unsigned int row, const wxVector<wxVariant> &values, wxClientData *data = NULL );
#endif
/**
Delete the item (=row) at position @a pos.
*/
......
......@@ -12,7 +12,7 @@ our $alien_key = 'XXXALIENXXX';
$Wx::dlls = XXXDLLSXXX;
}
$VERSION = '0.9909'; # bootstrap will catch wrong versions
$VERSION = '0.9911'; # bootstrap will catch wrong versions
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
......
......@@ -4,7 +4,7 @@
## Author: Mattia Barbon
## Modified by:
## Created: 29/10/2000
## RCS-ID: $Id: typemap 3228 2012-03-19 03:59:13Z mdootson $
## RCS-ID: $Id: typemap 3312 2012-07-13 02:02:29Z mdootson $
## Copyright: (c) 2000-2010 Mattia Barbon
## Licence: This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself
......@@ -47,6 +47,8 @@ PlClassName T_CLASSNAME
wxUint32 T_IV
wxLongLong_t T_IV
wxULongLong_t T_UV
wxIntPtr T_IV
wxUIntPtr T_UV
wxByte T_U_CHAR
wxTextCtrlHitTestResult T_ENUM
wxArrayString T_ARRAYSTRING
......
......@@ -4,7 +4,7 @@
## Author: Mattia Barbon
## Modified by:
## Created: 29/10/2000
## RCS-ID: $Id: typemap.tmpl 3228 2012-03-19 03:59:13Z mdootson $
## RCS-ID: $Id: typemap.tmpl 3312 2012-07-13 02:02:29Z mdootson $
## Copyright: (c) 2000-2010 Mattia Barbon
## Licence: This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself
......@@ -47,6 +47,8 @@ PlClassName T_CLASSNAME
wxUint32 T_IV
wxLongLong_t T_IV
wxULongLong_t T_UV
wxIntPtr T_IV
wxUIntPtr T_UV
wxByte T_U_CHAR
wxTextCtrlHitTestResult T_ENUM
wxArrayString T_ARRAYSTRING
......
......@@ -4,7 +4,7 @@
## Author: Mattia Barbon
## Modified by:
## Created: 01/03/2003
## RCS-ID: $Id: typemap.xsp 3166 2012-03-06 03:02:31Z mdootson $
## RCS-ID: $Id: typemap.xsp 3312 2012-07-13 02:02:29Z mdootson $
## Copyright: (c) 2003-2011 Mattia Barbon
## Licence: This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself
......@@ -30,6 +30,8 @@
%typemap{time_t}{simple};
%typemap{wxUint32}{simple};
%typemap{wxUIntPtr}{simple};
%typemap{wxIntPtr}{simple};
%typemap{wxByte}{simple};
%typemap{wxArrayString}{parsed}{
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment