view release on metacpan or  search on metacpan

application/tasks.pl  view on Meta::CPAN

  $c2 = $edit_win{fr_main}->Checkbutton(-variable=>\$t{private});
  $c1->grid($c2, -sticky => 'w');

  $c1 = $edit_win{fr_main}->Label(-text => 'Inactivate task');
  $c2 = $edit_win{fr_main}->Checkbutton(-variable=>\$t{inactive},
					-text => '(almost the same as delete)');
  $c1->grid($c2, -sticky => 'w');

  # Statistics
  $c1 = $edit_win{fr_main}->Label(-text => 'Time statistics:');
  $c1->grid(-columnspan => 2, -sticky => 'ew');

  my ($l1, $l2, $time);
  $time = $tasks->get_total_time($task);
  $c1 = $edit_win{fr_main}->Label(-text => 'Time with subtasks');
  $c2 = $edit_win{fr_main}->Frame()->pack(-expand => 1, -fill => 'x');
  $l1 = $c2->Label(-text => convert_time($time))->pack(-side => 'left');
  $c2->Button(-text => 'Zero time',
	      -command => sub {
		$tasks->zero_time($task);
		$l1->configure(-text => convert_time(0));