From: Sean Dague (sean_at_dague.net)
Date: Fri Jun 25 2004 - 21:57:30 CEST
Date: Fri, 25 Jun 2004 15:57:30 -0400 From: Sean Dague <sean@dague.net> Message-ID: <20040625195730.GA26413@underhill.home.pvt> Subject: [taskjuggler-devel] fix for tjx2gantt
The following patch lets tjx2gantt work with newer versions of
PostScript::Simple ($VERSION = '0.06p3') available from CPAN.
--- tjx2gantt 2003-07-14 08:31:53.000000000 -0400
+++ tjx2gantt.new 2004-06-25 15:51:04.694270179 -0400
@@ -393,10 +393,10 @@
my ($x2, $y2) = _trans_coord($_x2, $_y2);
#-- balken
$p->setcolour(222,222,222);
- $p->box($x1, $y1, $x2, $y2, 1);
+ $p->box({filled => 1}, $x1, $y1, $x2, $y2);
#-- rahmen drum
$p->setcolour(0,0,0);
- $p->box($x1, $y1, $x2, $y2, 0);
+ $p->box({filled => 0}, $x1, $y1, $x2, $y2);
#-- linie dazwischen
my $l_y = $y2+($task_space/2)-($task_height/2);
$p->line($page_border+5, $l_y, $page_x-($page_border*2), $l_y );
@@ -458,35 +458,35 @@
if ( Delta_Days($today_year, $today_month, $today_day, $end_year, $end_month, $end_day) < 0 ) {
if ( $persent < 100 ) {
$p->setcolour(255,0,0);
- $p->box($x1, $y1, $x2, $y2, 1);
+ $p->box({filled => 1}, $x1, $y1, $x2, $y2);
}
} else {
$p->setcolour(255,255,255);
- $p->box($x1, $y1, $x2, $y2, 1);
+ $p->box({filled => 1}, $x1, $y1, $x2, $y2);
}
#-- buffer balken pinseln
if ( $task->startBuffer ) {
my $buf = $task->startBuffer;
my ($buf_length, $d) = _trans_coord($_x1 + (($task_length/100*$buf) * $day_x), 0);
$p->setcolour(222,222,222);
- $p->box($x1, $y1, $buf_length, $y2, 1);
+ $p->box({filled => 1}, $x1, $y1, $buf_length, $y2);
}
if ( $task->endBuffer ) {
my $buf = $task->endBuffer;
my ($buf_length, $d) = _trans_coord($_x2 - (($task_length/100*$buf) * $day_x), 0);
$p->setcolour(222,222,222);
- $p->box($buf_length, $y1, $x2, $y2, 1);
+ $p->box({filled => 1}, $buf_length, $y1, $x2, $y2);
}
#-- länge von % feritg balken
my ($per_length, $d) = _trans_coord($_x1 + (($task_length/100*$persent) * $day_x), 0);
#-- % done balken pinseln
if ($persent > 0) {
$p->setcolour(0,255,0);
- $p->box($x1, $y1, $per_length, $y2, 1);
+ $p->box({filled => 1}, $x1, $y1, $per_length, $y2);
}
#-- rahmen um den task
$p->setcolour(0,0,0);
- $p->box($x1, $y1, $x2, $y2, 0);
+ $p->box({filled => 0}, $x1, $y1, $x2, $y2);
#-- text
$task->label($name);
$task->label_x($x1+1);
@@ -494,7 +494,7 @@
}
if ( $task->Type eq 'Container' ) {
$p->setcolour(0,0,0);
- $p->box($x1-1, $y1, $x2+1, $y2+($task_height/1.2), 1);
+ $p->box({filled => 1}, $x1-1, $y1, $x2+1, $y2+($task_height/1.2));
#-- pfeil vorn
$p->polygon(
$x1+1, $y2+($task_height/1.2),
@@ -585,7 +585,7 @@
my $h_month_week = 3;
my ($_x, $_y) = ($i*$day_x, $day_x*$h_month_week);
my ($x, $y) = _trans_coord($_x, $_y);
- $p->box($x, $y, $x+$day_x, $page_border, 1);
+ $p->box({filled => 1}, $x, $y, $x+$day_x, $page_border);
#-- die linien haben unterschiedliche höhe
#-- is es ein wochen-anfang
if ( $act_dow == 1 ) {
Please include it in the CVS version of taskjuggler if you like.
-Sean
-- __________________________________________________________________ Sean Dague Mid-Hudson Valley sean at dague dot net Linux Users Group http://dague.net http://mhvlug.org There is no silver bullet. Plus, werewolves make better neighbors than zombies, and they tend to keep the vampire population down. __________________________________________________________________
This archive was generated by hypermail 2.1.7 : Fri Jun 25 2004 - 22:03:55 CEST