Gtk2-Ex-DateRange

 view release on metacpan or  search on metacpan

lib/Gtk2/Ex/DateRange.pm  view on Meta::CPAN

		return;
	}
	$self->{freezesignals} = TRUE;
	my $commandchoices = $self->{commandchoices};
	my $joinerchoices  = $self->{joinerchoices};
	my $i = 0;	my $commandhash = 	{ map { $_ => $i++ } @$commandchoices };
	   $i = 0;	my $joinerhash  = 	{ map { $_ => $i++ } @$joinerchoices  };
	_model_error_check($commandhash, $joinerhash, $model);
	
	$self->{commandcombo1}->set_active($commandhash->{$model->[0]});
	_set_calendar_date($self->{calendar1}, $model->[1]);
	_update_date_label($self->{calendar1}, $self->{datelabel1});
	if ($#{@$model} == 1) {
		$self->{freezesignals} = TRUE;
		$self->{joinercombo}->set_active(0);
		$self->{commandcombo2}->set_active(-1);
		$self->{datelabel2}->set_label('(select a date)');
		$self->{freezesignals} = FALSE;
		&{ $self->{signals}->{'changed'} } if $self->{signals}->{'changed'};
		return;
	}
	
	$self->{joinercombo}->set_active($joinerhash->{$model->[2]});
	
	$self->{commandcombo2}->set_active($commandhash->{$model->[3]});
	_set_calendar_date($self->{calendar2}, $model->[4]);
	_update_date_label($self->{calendar2}, $self->{datelabel2});
	
	$self->{freezesignals} = FALSE;
	&{ $self->{signals}->{'changed'} } if $self->{signals}->{'changed'};		
}

sub to_sql_condition {
	my ($self, $fieldname, $model) = @_;
	my $conversion = {
		'before' => ' < ',
		'after' => ' > ',

lib/Gtk2/Ex/DateRange.pm  view on Meta::CPAN

}

sub _get_widget {
	my ($self) = @_;
	
	my $commandchoices = ['before', 'after', 'on or after', 'on or before'];
	my $joinerchoices  = ['', 'and', 'or'];
	
	my $commandcombo1 = Gtk2::ComboBox->new_text;	
	my $datelabel1 = Gtk2::Label->new('(select a date)');
	my $calendar1 = Gtk2::Calendar->new;
	my $datelabelbox1 = $self->_calendar_popup($datelabel1, $calendar1, 1);
	foreach my $x (@$commandchoices) {
		$commandcombo1->append_text($x);
	}
	$commandcombo1->signal_connect ( 'changed' =>
		sub {
			$self->{model}->[0] = $commandchoices->[$commandcombo1->get_active()]
				unless $commandcombo1->get_active() < 0;
			$self->{datelabelbox1}->set_sensitive(TRUE);
			&{ $self->{signals}->{'changed'} } 
				if $self->{signals}->{'changed'} and !$self->{freezesignals};
		}
	);

	my $commandcombo2 = Gtk2::ComboBox->new_text;	
	my $datelabel2 = Gtk2::Label->new('(select a date)');
	my $calendar2 = Gtk2::Calendar->new;
	my $datelabelbox2 = $self->_calendar_popup($datelabel2, $calendar2, 4);
	foreach my $x (@$commandchoices) {
		$commandcombo2->append_text($x);
	}
	$commandcombo2->signal_connect ( 'changed' =>
		sub {
			$self->{model}->[3] = $commandchoices->[$commandcombo2->get_active()]
				unless $commandcombo2->get_active() < 0;
			$self->{datelabelbox2}->set_sensitive(TRUE);
			&{ $self->{signals}->{'changed'} } 
				if $self->{signals}->{'changed'} and !$self->{freezesignals};

lib/Gtk2/Ex/DateRange.pm  view on Meta::CPAN

					if $self->{signals}->{'changed'} and !$self->{freezesignals};
			}
		}
	);

	$self->{commandchoices}= $commandchoices;
	$self->{joinerchoices} = $joinerchoices;
	
	$self->{commandcombo1} = $commandcombo1;
	$self->{datelabel1}    = $datelabel1;
	$self->{calendar1}     = $calendar1;
	$self->{datelabelbox1} = $datelabelbox1;

	$self->{commandcombo2} = $commandcombo2;
	$self->{datelabel2}    = $datelabel2;
	$self->{calendar2}     = $calendar2;
	$self->{datelabelbox2} = $datelabelbox2;

	$self->{joinercombo}   = $joinercombo;	

	$self->{datelabelbox1}->set_sensitive(FALSE);
	$self->{joinercombo}->set_sensitive(FALSE);
	$self->{datelabelbox2}->set_sensitive(FALSE);
	
	$commandcombo1->set_wrap_width(1);
	$joinercombo->set_wrap_width(1);

lib/Gtk2/Ex/DateRange.pm  view on Meta::CPAN

	$table->set_col_spacings(5);
	$table->attach($commandcombo1,0,1,0,1, 'expand', 'expand', 0, 0);
	$table->attach($datelabelbox1,1,2,0,1, 'expand', 'expand', 0, 0);
	$table->attach($joinercombo  ,2,3,0,1, 'expand', 'expand', 0, 0);
	$table->attach($commandcombo2,0,1,1,2, 'expand', 'expand', 0, 0);
	$table->attach($datelabelbox2,1,2,1,2, 'expand', 'expand', 0, 0);
	return $table;	
}

sub _get_date_string {
	my ($calendar) = @_;
	my ($year, $month, $day) = $calendar->get_date();
	$month += 1;
	$day   = "0$day" if $day < 10;
	$month = "0$month" if $month < 10;
	return "$year-$month-$day";
}

sub _set_calendar_date {
	my ($calendar, $datestr) = @_;
	my ($year, $month, $day) = split '-', $datestr;
	$calendar->select_month($month-1, $year);
	$calendar->select_day($day);	
}

sub _update_date_label {
	my ($calendar, $datelabel) = @_;
	my ($year, $month, $day) = $calendar->get_date();
	$month = _month()->[$month];
	my $date_str = "$month $day \, $year";
	$datelabel->set_text($date_str);	
}

sub _calendar_popup {
	my ($self, $datelabel, $calendar, $num) = @_;
	my $datelabelbox = _add_button_press(_add_arrow($datelabel));
	my $datepopup = Gtk2::Ex::PopupWindow->new($datelabel);
	my $okbutton = Gtk2::Button->new_from_stock('gtk-ok');
	$okbutton->signal_connect ('button-release-event' => 
		sub {
			_update_date_label($calendar, $datelabel);
			$self->{model}->[$num] = _get_date_string($calendar);
			$self->{joinercombo}->set_sensitive(TRUE) if ($num == 1);
			$datepopup->hide;
			&{ $self->{signals}->{'changed'} } 
				if $self->{signals}->{'changed'} and !$self->{freezesignals};
		}
	);
	$calendar->signal_connect ( 'day-selected' =>
		sub {
			_update_date_label($calendar, $datelabel);
			$self->{model}->[$num] = _get_date_string($calendar);
			$self->{joinercombo}->set_sensitive(TRUE) if ($num == 1);
		}
	);	
	my $hbox = Gtk2::HBox->new (TRUE, 0);
	$hbox->pack_start ($okbutton, TRUE, TRUE, 0); 	
	my $vbox = Gtk2::VBox->new (FALSE, 0);
	$vbox->pack_start ($calendar, TRUE, TRUE, 0); 
	$vbox->pack_start ($hbox, FALSE, FALSE, 0); 	
	$datepopup->{window}->add($vbox);
	$datelabelbox->signal_connect ('button-release-event' => 
		sub { 
			$datepopup->show;
		}
	);
	
	$datepopup->signal_connect('show' => 
		sub {

t/show-range.t  view on Meta::CPAN

}

sub full_model {
	$daterange->set_model([ 'after', '1965-03-12', 'and', 'before', '1989-02-14' ]);
	is($changed, 13);
	is (Dumper($daterange->get_model), Dumper(['after', '1965-03-12', 'and', 'before', '1989-02-14']));
	

	ok ($daterange->{commandcombo1}->get('visible'));
	ok ($daterange->{datelabelbox1}->get('visible'));
	ok (!$daterange->{calendar1}->get('visible'));
	

	ok ($daterange->{joinercombo}->get('visible'));
	

	ok ($daterange->{commandcombo2}->get('visible'));
	ok ($daterange->{datelabelbox2}->get('visible'));
	ok (!$daterange->{calendar2}->get('visible'));
	

	ok ($daterange->{commandcombo1}->get('sensitive'));
	ok ($daterange->{datelabelbox1}->get('sensitive'));
	

	ok ($daterange->{joinercombo}->get('sensitive'));
	

	ok ($daterange->{commandcombo2}->get('sensitive'));

t/show-range.t  view on Meta::CPAN

	return 0;
}

sub half_model {
	$daterange->set_model([ 'after', '1965-03-12']);
	is($changed, 14);
	is (Dumper($daterange->get_model), Dumper(['after', '1965-03-12']));
	
	ok ($daterange->{commandcombo1}->get('visible'));
	ok ($daterange->{datelabelbox1}->get('visible'));
	ok (!$daterange->{calendar1}->get('visible'));
	
	ok ($daterange->{joinercombo}->get('visible'));
	
	ok (!$daterange->{commandcombo2}->get('visible'));
	ok (!$daterange->{datelabelbox2}->get('visible'));
	ok (!$daterange->{calendar2}->get('visible'));
	
	ok ($daterange->{commandcombo1}->get('sensitive'));
	ok ($daterange->{datelabelbox1}->get('sensitive'));
	
	ok ($daterange->{joinercombo}->get('sensitive'));
	
	ok ($daterange->{commandcombo2}->get('sensitive'));
	ok ($daterange->{datelabelbox2}->get('sensitive'));
}

sub incremental_1 {
	$daterange->set_model(undef);
	is($changed, 15);

	ok ($daterange->{commandcombo1}->get('visible'));
	ok ($daterange->{datelabelbox1}->get('visible'));
	ok (!$daterange->{calendar1}->get('visible'));
	
	ok ($daterange->{joinercombo}->get('visible'));
	
	ok (!$daterange->{commandcombo2}->get('visible'));
	ok (!$daterange->{datelabelbox2}->get('visible'));
	ok (!$daterange->{calendar2}->get('visible'));
	
	ok ($daterange->{commandcombo1}->get('sensitive'));
	ok (!$daterange->{datelabelbox1}->get('sensitive'));
	
	ok (!$daterange->{joinercombo}->get('sensitive'));

	ok(!$daterange->get_model);
	$daterange->{commandcombo1}->set_active(0);
	is($changed, 16);
	is (Dumper($daterange->get_model), Dumper(['before']));