1;;AllowLineBreak
2 (let ((tag "AllowLineBreak"))
3 (if (d-Directive-standalone?  tag)
4	(d-InfoDialog (_ "This sign allows a Line Break. The bar can be broken across a line at this point. Delete using Del or Backspace key."))
5	(begin
6		(if (d-IsVoice)
7			(begin
8				(d-WarningDialog (_ "The cursor is on a voice. Put line breaks in the main staff that the voice belongs to.")))
9 			(let ((choice #f))
10				(d-DirectivePut-standalone tag)
11				(d-DirectivePut-standalone-postfix tag "\\bar \"\"")
12				(d-DirectivePut-standalone-graphic tag "\n|\nDenemo\n24")
13				(d-DirectivePut-standalone-minpixels tag 10)
14				(d-RefreshDisplay)
15				(SetDirectiveConditional)
16				(d-SetSaved #f)
17				)))))
18