File Coverage

blib/lib/Wx/DemoModules/wxDatePickerCtrl.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

#############################################################################
## Name:        lib/Wx/DemoModules/wxDatePickerCtrl.pm
## Purpose:     wxPerl demo helper for Wx::DatePickerCtrl
## Author:      Mattia Barbon
## Modified by:
## Created:     18/03/2005
## RCS-ID:      $Id: wxDatePickerCtrl.pm 2984 2010-10-09 03:25:16Z mdootson $
## Copyright:   (c) 2005-2010 Mattia Barbon
## Licence:     This program is free software; you can redistribute it and/or
##              modify it under the same terms as Perl itself
#############################################################################

use Wx::Calendar;

package Wx::DemoModules::wxDatePickerCtrl;

use strict;
use base qw(Wx::Panel);

use Wx qw(:sizer :datepicker :misc);
use Wx::Event qw(EVT_DATE_CHANGED);

sub new {
  my $class = shift;
  my $this = $class->SUPER::new( $_[0], -1 );

  my $sizer = Wx::BoxSizer->new( wxVERTICAL );

  #                                    8 Jan 1979
  #my $date = Wx::DateTime->newFromDMY( 8, 0, 1979, 1, 1, 1, 1 );


  my $date = Wx::DateTime->new();

  my $calendar = Wx::DatePickerCtrl->new( $this, -1, $date, wxDefaultPosition, wxDefaultSize, wxDP_ALLOWNONE  );
  $calendar->SetRange( $date, Wx::DateTime->new );
  $calendar->SetValue($date);


  my $textctrl = Wx::TextCtrl->new( $this, -1, 'INVALID DATE' );

  $sizer->Add( $calendar, 0, wxALL, 10 );
  $sizer->Add( $textctrl, 0, wxGROW|wxALL, 10 );

  EVT_DATE_CHANGED( $this, $calendar,
        ( $Wx::VERSION > 0.98 )
                ?  sub {
                        $textctrl->SetValue(
                            ( $_[1]->GetDate->IsValid ) ? $_[1]->GetDate->FormatDate : 'INVALID DATE'
                        );
                    }
                :  sub {
                        my $invalid = Wx::DateTime->new();
                        $textctrl->SetValue(
                            ( $_[1]->GetDate->IsEqualTo($invalid) ) ? 'INVALID DATE' : $_[1]->GetDate->FormatDate
                        );
                    }
  );

  $this->SetSizer( $sizer );

  return $this;
}

sub add_to_tags { qw(controls/picker) }
sub title { 'wxDatePickerCtrl' }

1;