#########################################################################################
# Package       HiPi::Wx::ValidatedCheckBox
# Description:  Validated CheckBox
# Created       Mon Feb 25 13:27:30 2013
# SVN Id        $Id: ValidatedCheckBox.pm 63 2016-03-15 00:45:13Z Mark Dootson $
# Copyright:    Copyright (c) 2013 Mark Dootson
# Licence:      This work is free software; you can redistribute it and/or modify it 
#               under the terms of the GNU General Public License as published by the 
#               Free Software Foundation; either version 3 of the License, or any later 
#               version.
#########################################################################################

package HiPi::Wx::ValidatedCheckBox;

#########################################################################################

use strict;
use warnings;
use Wx qw( :checkbox :id );
use base qw( Wx::CheckBox HiPi::Class );

our $VERSION = '0.42';

sub new {
    my ($class, $parent, $label, $vdata, $vdatafield ) = @_;
    my $self = $class->SUPER::new( $parent, wxID_ANY, $label );
    $self->SetValidator(HiPi::Wx::ValidatedCheckBox::Validator->new($vdata, $vdatafield));
    return $self;
}

#########################################################################################

package HiPi::Wx::ValidatedCheckBox::Validator;

#########################################################################################
use strict;
use warnings;
use parent qw( HiPi::Wx::Validator );

our $VERSION = '0.42';

sub new {
    my($class, $vdata, $vdatafield ) = @_;
    my $self = $class->SUPER::new( $vdata, $vdatafield );
    return $self;
}

sub GetWindowValue {
    my $self = shift;
    my $value = $self->GetWindow->GetValue;
    $value ||= 0;
    return $value;
}

sub SetWindowValue {
    my($self, $newvalue) = @_;
    $self->GetWindow->SetValue($newvalue); #no events emitted for checkbox
}

1;