From: Mats Bengtsson <mats.bengtsson@s3.kth.se>
Date: Thu, 22 Jun 2006 09:19:01 +0000 (+0000)
Subject: 	* ly/performer-init.ly: Add some missing links in the context
X-Git-Tag: cvs/HEAD~271
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=3385ec4419dd5d40c06fd32bb60ca756e9cb4061;p=lilypond.git

	* ly/performer-init.ly: Add some missing links in the context
	hierarchy for MIDI output. There are probably some more missing!
---

diff --git a/ChangeLog b/ChangeLog
index bfba662fb3..86265f4e8d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-06-22  Mats Bengtsson  <mabe@drongo.s3.kth.se>
+
+	* ly/performer-init.ly: Add some missing links in the context
+	hierarchy for MIDI output. There are probably some more missing!
+
 2006-06-21  Graham Percival  <gpermus@gmail.com>
 
 	* Documentation/user/ various: minor spelling fixes;
diff --git a/ly/performer-init.ly b/ly/performer-init.ly
index d22c422775..8668acafd9 100644
--- a/ly/performer-init.ly
+++ b/ly/performer-init.ly
@@ -7,6 +7,7 @@
     \type "Performer_group"
     \name Staff
     \accepts Voice
+    \accepts CueVoice
     \defaultchild Voice
     
     \consists "Staff_performer"
@@ -48,6 +49,12 @@
   \alias Voice
 }
 
+\context {
+  \Voice
+  \name VaticanaVoice
+  \alias Voice
+}
+
 \context {
     \Voice
     \remove "Note_performer"
@@ -95,6 +102,15 @@
     \defaultchild "TabVoice"
 }
 
+\context {
+    \type "Performer_group"
+    \name "VaticanaStaff"
+    \alias "Staff"
+    \denies "Voice"
+    \accepts "VaticanaVoice"
+    \defaultchild "VaticanaVoice"
+}
+
 \context {
     \type "Score_performer"
 
@@ -115,6 +131,7 @@
     \accepts ChordNames
     \accepts FiguredBass
     \accepts Lyrics
+    \accepts VaticanaStaff
     
     \consists "Timing_translator"
     \consists "Swallow_performer"
@@ -167,6 +184,13 @@
     \name StaffGroup
     \accepts Staff
     \accepts DrumStaff
+    \accepts TabStaff
+    \accepts RhythmicStaff
+    \accepts GrandStaff
+    \accepts PianoStaff
+    \accepts Lyrics
+    \accepts ChordNames
+    \accepts FiguredBass
 
     \defaultchild Staff
 }