Re: [Texmacs-dev] Popup Message

[Henri Lesourd]

Michael Klein wrote:

> Hallo Henri,
>
> can you please send the attachment again? I seem to not have got it.
Good remark ;), because I forgot it...

The file is *really* contained as an attachment to the
current email, now :-).


> 2007/7/3, Henri Lesourd < address@hidden <mailto:address@hidden>>:
>
>     Michael Klein wrote:
>
>     > Dear List,
>     >
>     > how can I produce a popup from scheme?
>     >
>     > Best regards
>     > Michael Klein
>     >
>     "Edit->Preferences->Interactive questions->In popup windows" should
>     be selected. Then the example file attached to this email shows you
>     how to open a popup which inputs one parameter.

<TeXmacs|1.0.6.10>

<style|generic>

<\body>
  <underline|<em|<strong|Interactive:>>>

  <with|prog-language|scheme|prog-session|default|<\session>
    <\input|scheme] >
      (tm-define (finput my-parameter)

      \ \ \ (display* "parm=" my-parameter $cr))
    </input>

    <\output>
      #\<less\>directory (guile-user) 8438990\<gtr\>
    </output>

    <\input|scheme] >
      finput
    </input>

    <\output>
      #\<less\>procedure finput (my-parameter)\<gtr\>
    </output>

    <\input|scheme] >
      (interactive finput)
    </input>

    <\input|scheme] >
      \;
    </input>
  </session>>
</body>

<\initial>
  <\collection>
    <associate|language|british>
    <associate|page-type|letter>
  </collection>
</initial>