1;;;PianoStaff
2(let ((name #f) (del (and (None?)
3    (equal? (d-StaffProperties "query=denemo_name") "Unnamed"))))
4    (d-TakeSnapshot)
5    (d-IncreaseGuard)
6    (if del
7        (set! del (RadioBoxMenu
8                     (cons (_ "Replace Current Staff?")   'replace)
9                     (cons (_ "Keep Current Staff") #f))))
10    (d-AddAfter)
11    (d-StaffProperties (_ "Piano"))
12    (d-PianoStaffStart)
13    (d-PianoStaffName)
14    (d-AddAfter)
15    (d-InitialClef "Bass")
16    (d-StaffProperties (_ "Piano"))
17    (d-BraceEnd)
18    (if del
19        (begin
20            (d-MoveToStaffUp)
21            (d-MoveToStaffUp)
22            (d-DeleteStaff)))
23    (d-DecreaseGuard))
24
25
26