Re: [Denemo-devel] Scheme script debugging

[Andreas Schneider]

Thank you very much.

I copied and pasted your version of the script into the scheme script
editor and ran it. When I click the MarkupAtEnd button, still the Low
Level Denemo Directive Edit window appears (instead that the script is
re-executed). What am I doing wrong?

Andreas


Am 23.05.2013 22:28, schrieb Richard Shann:
> It was DENEMO_OVERRIDE_TAGEDIT that was needed...
> I'll add this to git now, but for reference here is the script
> Richard
> ;;;MarkupAtEnd
> (let ((tag "MarkupAtEnd")(themarkup ""))
>         (d-DirectivePut-movementcontrol-override tag (logior
> DENEMO_OVERRIDE_GRAPHIC DENEMO_OVERRIDE_TAGEDIT))
>         (d-DirectivePut-movementcontrol-display tag (_ "Markup At End"))
>         (disp "checking previous markup ...")
>         (if (d-Directive-movementcontrol? tag)
>                 (set! themarkup (d-DirectiveGet-movementcontrol-postfix
> tag)))
>         (set! themarkup (d-GetUserInputWithSnippets (_ "Markup At End")
> (_ "Edit markup:") themarkup))
>         (if themarkup
>               (begin
>                       (set! themarkup (car themarkup))
>                                (disp themarkup)
>                       (d-DirectivePut-movementcontrol-postfix tag themarkup)
>                       (d-SetSaved #f))
>               (d-InfoDialog "Cancelled")))