mirror of
https://git.FreeBSD.org/ports.git
synced 2024-12-04 01:48:54 +00:00
cb28834342
system-based operating systems. Instead of clicking yourself painfully through hundreds of dialog boxes you specify your Taskjuggler project in a simple text format. You simply list all your tasks and their dependencies. The information is sent through Taskjuggler and you will get all sorts of reports in HTML or XML format. PR: ports/63342 Submitted by: Dean Povey <povey@wedgetail.com>
104 lines
4.2 KiB
Plaintext
104 lines
4.2 KiB
Plaintext
--- 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 ) {
|