From: Martin Mares <mj@ucw.cz>
Date: Mon, 16 Jun 2003 21:59:51 +0000 (+0000)
Subject: Alignment of chords.
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=a4ae91dcf366d68e54518bc52ba3625450dde1ac;p=vs.git

Alignment of chords.
---

diff --git a/vs.pl b/vs.pl
index ad9be12..6fd0db6 100755
--- a/vs.pl
+++ b/vs.pl
@@ -287,7 +287,7 @@ sub view($$$) {
 			my @chords = ();
 			while (<X>) {
 				chomp;
-				if (s/^!//) { push @chords, 1; } else { push @chords, 0; }
+				if (s/^! //) { push @chords, 1; } else { push @chords, 0; }
 				push @lines, $_;
 			}
 			close X;
@@ -331,7 +331,7 @@ sub redraw_line($$) {
 	my ($w,$i) = @_;
 	my $win = $w->{"win"};
 	my $l = $w->{"lines"}->[$i];
-	if ($w->{"linetypes"}->[$i]) { $win->attrset($attr_chord); }
+	if ($w->{"chords"}->[$i]) { $win->attrset($attr_chord); }
 	if (length $l < $w->{"w"}) {
 		$win->addstr($i-$w->{"top"}, 0, $l);
 		$win->clrtoeol;