diff options
Diffstat (limited to 'deskutils/taskjuggler/files/patch-tjx2gantt')
| -rw-r--r-- | deskutils/taskjuggler/files/patch-tjx2gantt | 103 |
1 files changed, 0 insertions, 103 deletions
diff --git a/deskutils/taskjuggler/files/patch-tjx2gantt b/deskutils/taskjuggler/files/patch-tjx2gantt deleted file mode 100644 index 5161f99d5407..000000000000 --- a/deskutils/taskjuggler/files/patch-tjx2gantt +++ /dev/null @@ -1,103 +0,0 @@ ---- tjx2gantt/tjx2gantt Mon Jul 14 22:31:53 2003 -+++ tjx2gantt/tjx2gantt.patch Wed Feb 25 09:07:00 2004 -@@ -1,4 +1,4 @@ --#!/usr/bin/perl -+#!/usr/bin/perl -w - # - # !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - # !!! This Software is __ALPHA__ !!! -@@ -18,12 +18,10 @@ - $| = 1; - - use strict; --use warnings; - - package tjTask; - - use strict; -- use warnings; - use Class::MethodMaker - new_hash_init => 'new', - get_set => [ qw(Index ProjectID complete Priority Type Id Name ParentTask -@@ -393,10 +391,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 +456,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 +492,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), -@@ -517,7 +515,7 @@ - if ( $task->Type eq 'Milestone' ) { - $p->setcolour(0,0,0); - my ($x, $y) = _trans_coord($_x1, $_y1+($task_height/2)); -- $p->circle($x, $y, 1, 1); -+ $p->circle({ filled => 1 }, $x, $y, 1); - $p->setfont("Helvetica", 6); - my $am = sprintf('%02d', $start_month); - my $ad = sprintf('%02d', $start_day); -@@ -585,7 +583,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 ) { |