From 47addad972d663aa408f65e679a9d973bd2f2dd2 Mon Sep 17 00:00:00 2001 From: Tim Pope Date: Thu, 29 Sep 2005 18:01:48 +0000 Subject: [PATCH 1/1] More comments --- perl/relational-schema | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/perl/relational-schema b/perl/relational-schema index 883d342..03ca434 100755 --- a/perl/relational-schema +++ b/perl/relational-schema @@ -41,15 +41,14 @@ sub draw_boxed_text { $image->set_color(0,0,0,255); $image->draw_rectangle($x,$y,$w+2*$pd+2,$fh+2*$pd+2); $image->draw_text($x+$pd,$y+$pd,$text); - if(($underline||0)==1) { + if(($underline||0)==1) { # Solid underline $image->draw_line($x+$pd,$y+$pd+$fh,$x+$w+$pd,$y+$pd+$fh); - } elsif(($underline||0)==2) { + } elsif(($underline||0)==2) { # Dashed underline for(my $i=0;$i<$w;$i+=5) { $image->draw_line($x+$pd+$i,$y+$pd+$fh, $x+$pd+($i+2>$w?$w$i+2),$y+$pd+$fh); } } - return $w+2*$pd+1; } @@ -115,7 +114,7 @@ foreach my $row (@rows) { $image->draw_line($elcenters{$out}+$pd*($updown>>1), $far,$elcenters{$out}+$pd*($updown>>1),$near); } - foreach $in (@in) { + foreach $in (@in) { # Draw arrowheads my $arrow = Image::Imlib2::Polygon->new(); $arrow->add_point($elcenters{$in}+$pd*($updown>>1),$near); $arrow->add_point($elcenters{$in}+$pd+$pd*($updown>>1), -- 2.30.2