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