(d-SelectFirstCustomLayout);;;PianoStaff
(let ((name #f) (del (and (None?)
	(equal? (d-StaffProperties "query=denemo_name") "Unnamed"))))
	(if del
		(set! del (RadioBoxMenu
					 (cons (_ "Replace Current Staff?")   'replace)
					 (cons (_ "Keep Current Staff") #f))))				
	(d-AddAfter)
	(d-StaffProperties (_ "RH"))
	(d-PianoStaffStart)
	(d-PianoStaffName)
	(d-AddAfter)
	(d-InitialClef "Bass")
	(d-StaffProperties (_ "LH"))
	(d-PianoStaffEnd)
	(if del
		(begin
			(d-MoveToStaffUp)
			(d-MoveToStaffUp)
			(d-DeleteStaff))))

