Re: [Denemo-devel] Scheme script debugging

[Richard Shann]

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