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