On Thu, 2013-05-23 at 19:44 +0200, Andreas Schneider wrote:
> Am 23.05.2013 10:31, schrieb Richard Shann:
> > Yes, commands like Notes/Rests->Comment use that. You can even include
> > snippets of music to be typeset by LilyPond with one of them.
>
> I tried to imitate Score -> Comment by including DENEMO_OVERRIDE_EDITOR,
> but it does not work. I realize that Score -> Comment does not call
> d-GetUserInput directly. Notes/Rests -> Comment does not show the editor
> I want.
>
> >> What I still do not understand is the button. I have View -> Titles
> >> Buttons etc activated. When I execute the script, the button MarkupAtEnd
> >> appears for a short time (something like a second) and then disappears
> >> again.
> > Wow! Can you post the exact script you have ended with for me to try?
>
> After having a closer look, I saw that the button appears when the
> script starts, is present when I type in the d-GetUserInput window, and
> disappears afterwards (probably at finishing the script). Here's the source:
>
> ;;;MarkupAtEnd
> (let ((tag "MarkupAtEnd")(themarkup #f))
> (d-DirectivePut-movementcontrol-override tag (logior
> DENEMO_OVERRIDE_GRAPHIC DENEMO_OVERRIDE_EDITOR))
here you are writing the override field with the value (logior
DENEMO_OVERRIDE_GRAPHIC DENEMO_OVERRIDE_EDITOR),
> (d-DirectivePut-movementcontrol-display tag "MarkupAtEnd")
> (disp "checking previous markup ...")
> (if (d-Directive-movementcontrol? tag)
> (set! themarkup (d-DirectiveGet-movementcontrol-postfix
> tag))
>
> (set! themarkup (""))
>
> )
> (set! themarkup (d-GetUserInput (_ "MarkupAtEnd") (_ "Edit
> markup:") themarkup))
> (disp themarkup)
> (d-DirectivePut-movementcontrol-postfix tag themarkup)
> (d-DirectivePut-movementcontrol-override tag DENEMO_OVERRIDE_AFFIX)
Here you are changing that value with the value DENEMO_OVERRIDE_AFFIX
So instead, a single call setting it to
(logior DENEMO_OVERRIDE_GRAPHIC DENEMO_OVERRIDE_EDITOR DENEMO_OVERRIDE_AFFIX )
should work just fine.
Richard
> (d-SetSaved #f)
> )
>
> Andreas
_______________________________________________
Denemo-devel mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/denemo-devel
