;;;Segno attached to the next object, for example a barline. But shown between notes
(let ((tag "FreeSegno"))
   (if (d-Directive-standalone? tag)
         (let ((choice (RadioBoxMenu 
                (cons (_ "Object Inspector") 'help) 
                (cons (_ "Delete") 'delete))))
            (case choice
                ((help)
                   (d-DisplayCurrentObject))
                  ((delete)
                    (d-DirectiveDelete-standalone tag))))  
    (StandAloneDirectiveProto (cons tag "\\tweak break-visibility  #begin-of-line-invisible \\mark \\markup\\scale #'(0.75 . 0.75) { \\musicglyph #\"scripts.segno\" } ") #t LG-Segno "" )))

        
