denemo-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Denemo-devel] Scheme script debugging


From: Richard Shann
Subject: Re: [Denemo-devel] Scheme script debugging
Date: Thu, 23 May 2013 22:34:00 +0100

On Thu, 2013-05-23 at 22:55 +0200, Andreas Schneider wrote:
> 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?
Left click should be good, right click low-level. (Also perhaps shift
left click ...)
Richard


> 
> 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")))





reply via email to

[Prev in Thread] Current Thread [Next in Thread]