Re: Ajouter une propriété

[Mike Solomon]

On Oct 11, 2011, at 12:06 PM, Bertrand Bordage wrote:

> Justement, il y a tout ce qu'il faut dans define-grob-properties.scm.  Un 
> exemple :
> 
> #(define (define-grob-property symbol type? description)
>   (if (not (equal? (object-property symbol 'backend-doc) #f))
>       (ly:error (_ "symbol ~S redefined") symbol))
> 
>   (set-object-property! symbol 'backend-type? type?)
>   (set-object-property! symbol 'backend-doc description)
>   symbol)
> 
> #(define-grob-property 'buddies list? "List of grobs")
> 
> { \override StaffSymbol #'buddies = #'(clef note-head) a }

Chapeau !
J'ai essayé un truc comme ça dans un autre morceau quand j'étais bizut, mais 
j'ai dû faire une erreur dans la définition.  Cet épisode m'a fortement 
découragé et je n'ai pas tenté ce genre de manip depuis.

~Mike