Bug fix of invalid presentation of container's split orientation.

next
Lourens Rozema 2010-08-20 21:35:24 +02:00 committed by Michael Stapelberg
parent 161afa3d01
commit f73252431b
1 changed files with 1 additions and 1 deletions

View File

@ -22,7 +22,7 @@ say $tmp "treeLevelStep = 2cm;";
sub dump_node {
my ($n, $parent) = @_;
my $o = ($n->{orientation} == 0 ? "h" : "v");
my $o = ($n->{orientation} == 0 ? "u" : ($n->{orientation} == 1 ? "h" : "v"));
my $w = (defined($n->{window}) ? $n->{window} : "N");
my $na = $n->{name};
$na =~ s/#/\\#/g;