--- /dev/null
+#############################################################################
+## Name: ext/calendar/XS/CalendarCtrl.xsp
+## Purpose: XS++ for Wx::CalenderCtrl
+## Author: Mattia Barbon
+## Modified by:
+## Created: 05/10/2002
+## RCS-ID: $Id: CalendarCtrl.xsp 2440 2008-08-12 21:51:22Z mbarbon $
+## Copyright: (c) 2002-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
+#############################################################################
+
+#include <wx/event.h>
+#include <wx/calctrl.h>
+#include "cpp/calendar.h"
+
+%module{Wx};
+%file{cpp/calendar.h};
+%{
+
+double calendar_constant( const char* name, int arg )
+{
+ // !package: Wx
+ // !parser: sub { $_[0] =~ m<^\s*r\w*\(\s*(\w+)\s*\);\s*(?://(.*))?$> }
+ // !tag: calendar
+#define r( n ) \
+ if( strEQ( name, #n ) ) \
+ return n;
+
+ WX_PL_CONSTANT_INIT();
+
+ switch( fl )
+ {
+ case 'C':
+ r( wxCAL_SUNDAY_FIRST );
+ r( wxCAL_MONDAY_FIRST );
+ r( wxCAL_SHOW_HOLIDAYS );
+ r( wxCAL_NO_YEAR_CHANGE );
+ r( wxCAL_NO_MONTH_CHANGE );
+ r( wxCAL_SHOW_SURROUNDING_WEEKS );
+#if WXPERL_W_VERSION_GE( 2, 9, 0 )
+ r( wxCAL_SHOW_WEEK_NUMBERS );
+#endif
+ r( wxCAL_SEQUENTIAL_MONTH_SELECTION );
+
+ r( wxCAL_HITTEST_NOWHERE );
+ r( wxCAL_HITTEST_HEADER );
+ r( wxCAL_HITTEST_DAY );
+ r( wxCAL_HITTEST_DECMONTH );
+ r( wxCAL_HITTEST_INCMONTH );
+ r( wxCAL_HITTEST_SURROUNDING_WEEK );
+
+ r( wxCAL_BORDER_NONE );
+ r( wxCAL_BORDER_SQUARE );
+ r( wxCAL_BORDER_ROUND );
+ break;
+ case 'E':
+ r( wxEVT_CALENDAR_SEL_CHANGED );
+ r( wxEVT_CALENDAR_DAY_CHANGED );
+ r( wxEVT_CALENDAR_MONTH_CHANGED );
+ r( wxEVT_CALENDAR_YEAR_CHANGED );
+ r( wxEVT_CALENDAR_DOUBLECLICKED );
+ r( wxEVT_CALENDAR_WEEKDAY_CLICKED );
+
+#if WXPERL_W_VERSION_GE( 2, 5, 4 )
+ r( wxEVT_DATE_CHANGED );
+#endif
+ break;
+ }
+#undef r
+
+ WX_PL_CONSTANT_CLEANUP();
+}
+
+wxPlConstants calendar_module( &calendar_constant );
+
+%}
+%file{-};
+
+%typemap{wxDateEvent*}{simple};
+%typemap{wxCalendarEvent*}{simple};
+%typemap{wxCalendarCtrl*}{simple};
+%typemap{wxCalendarDateAttr*}{simple};
+%typemap{wxDateTime__WeekDay}{simple};
+
+#if WXPERL_W_VERSION_GE( 2, 5, 4 )
+
+%name{Wx::DateEvent} class wxDateEvent
+{
+ const wxDateTime& GetDate();
+ void SetDate(const wxDateTime& date);
+};
+
+#endif
+
+%name{Wx::CalendarEvent} class wxCalendarEvent
+{
+#if WXPERL_W_VERSION_LE( 2, 5, 3 ) && WXPERL_W_VERSION_GE( 2, 5, 2 )
+ void SetDate(const wxDateTime& date);
+ void SetWeekDay(wxDateTime__WeekDay weekDay);
+#endif
+#if WXPERL_W_VERSION_LE( 2, 5, 3 )
+ const wxDateTime& GetDate();
+#endif
+ wxDateTime__WeekDay GetWeekDay();
+};
+
+%name{Wx::CalendarCtrl} class wxCalendarCtrl
+{
+ %name{newDefault} wxCalendarCtrl()
+ %code{% RETVAL = new wxCalendarCtrl();
+ wxPli_create_evthandler( aTHX_ RETVAL, CLASS );
+ %};
+ %name{newFull} wxCalendarCtrl( wxWindow* parent,
+ wxWindowID id = wxID_ANY,
+ const wxDateTime& date =
+ wxDefaultDateTimePtr,
+ const wxPoint& pos = wxDefaultPosition,
+ const wxSize& size = wxDefaultSize,
+ long style = wxCAL_SHOW_HOLIDAYS,
+ const wxString& name = wxCalendarNameStr )
+ %code{% RETVAL = new wxCalendarCtrl( parent, id, *date,
+ pos, size, style, name );
+ wxPli_create_evthandler( aTHX_ RETVAL, CLASS );
+ %};
+
+ bool Create( wxWindow* parent, wxWindowID id = wxID_ANY,
+ const wxDateTime& date = wxDefaultDateTimePtr,
+ const wxPoint& pos = wxDefaultPosition,
+ const wxSize& size = wxDefaultSize,
+ long style = wxCAL_SHOW_HOLIDAYS,
+ const wxString& name = wxCalendarNameStr );
+
+ void SetDate( const wxDateTime& date );
+ const wxDateTime& GetDate();
+
+#if !defined(wxHAS_NATIVE_CALENDARCTRL)
+ void EnableYearChange( bool enable = true );
+#endif
+ void EnableMonthChange( bool enable = true );
+ void EnableHolidayDisplay( bool display = true );
+ void SetHoliday( size_t day );
+
+#if !defined(wxHAS_NATIVE_CALENDARCTRL)
+ bool SetLowerDateLimit( const wxDateTime& date = wxDefaultDateTimePtr );
+ const wxDateTime& GetLowerDateLimit();
+ bool SetUpperDateLimit( const wxDateTime& date = wxDefaultDateTimePtr );
+ const wxDateTime& GetUpperDateLimit();
+#endif
+
+ bool SetDateRange ( const wxDateTime& lowerdate = wxDefaultDateTimePtr,
+ const wxDateTime& upperdate = wxDefaultDateTimePtr );
+
+ void SetHeaderColours( const wxColour& colFg, const wxColour& colBg );
+ void SetHighlightColours( const wxColour& colFg, const wxColour& colBg );
+ void SetHolidayColours( const wxColour& colFg, const wxColour& colBg );
+ const wxColour& GetHeaderColourFg();
+ const wxColour& GetHeaderColourBg();
+ const wxColour& GetHighlightColourFg();
+ const wxColour& GetHighlightColourBg();
+ const wxColour& GetHolidayColourFg();
+ const wxColour& GetHolidayColourBg();
+
+ wxCalendarDateAttr* GetAttr( size_t day )
+ %code{%
+ RETVAL = THIS->GetAttr(day);
+ RETVAL = RETVAL ? new wxCalendarDateAttr( *RETVAL ) : NULL;
+ %};
+
+ void SetAttr( size_t day, wxCalendarDateAttr* attr )
+ %code{%
+ THIS->SetAttr( day,
+ attr ? new wxCalendarDateAttr( *attr ) : NULL );
+ %};
+
+ void ResetAttr( size_t day );
+};
+
+%{
+
+void
+new( ... )
+ PPCODE:
+ BEGIN_OVERLOAD()
+ MATCH_VOIDM_REDISP( newDefault )
+ MATCH_ANY_REDISP( newFull )
+ END_OVERLOAD( "Wx::CalendarCtrl::new" )
+
+%}