Subversion Repositories wimsdev

!distribute items $sw,$sw into sw_1,sw_2

!if $sw=pari

  !set sw_1=gp

!endif

!if $sw iswordof draw tikz

  !set sw_1=flydraw

  !set sw_2=flydraw

!endif

!if $sw=insmath

  !set sw_1=latex

  !set sw_2=latex

!endif

!if $sw=jsxgraph

  !set sw_1=js

!endif

!! a modifier quand il y aura d'autres styles

!default sw_1=flydraw

!if $sw=jsxgraph

  !read js/jsxgraph.phtml

!endif

!if $(module_title_$modu_lang)!=

  !set module_title=$(module_title_$modu_lang)

!endif

!header

!if $compute=yes

  !if $swout=$empty

    <span class="wims_warning">$SW</span> $name_non_execute.

  !else

    <h2 class="center">$SW</h2>

    !if $sw=draw

      <img src="$swout" alt="">

      !goto after

    !endif

    !if $sw=povray

      <img src="$swout" alt="">

      !goto after

    !endif

    !if $sw=graphviz

      !set swout=!line 1 of $swout

      <img src="$swout" alt="">

      !goto after

    !endif

    !if $sw=graphvizsvg

      $swout

      !goto after

    !endif

    !if $sw=jsxgraph

      <div id="jsxbox" class="box" style="width:400px; height:400px;text-align:center;"></div>

      <script>$swout</script>

      !goto after

    !endif

    !if $sw=insmath

      MathML: $swout

      Image:

      !instex $src1

      !goto after

    !endif

    !if $sw=canvasdraw

      $swout

      !read script_canvasdraw

      !goto after

    !endif

    !if $sw=jmol

      !set swout1=!lines2rows $swout

      !readproc slib/chemistry/jmolshow $swout1,200,200,white,,

      $slib_out

      !goto after

    !endif

    !if $sw=jsme

      !set swout1=!lines2rows $swout

      !readproc slib/chemistry/chemshow $swout1,200,200,white,,

      $slib_out

      !goto after

    !endif

    !if $sw=reactiondraw

      !readproc slib/chemistry/reactiondraw $swout,html

      $slib_out

      !goto after

    !endif

    !if $sw=tikz

      <pre>$swout</pre>

      !goto after

    !endif

!!! no space at the beginning of the line

    <pre style="font-weight:bold;font-family:Courier New,Courier,mono;overflow:auto;color:blue;">

$swout

    </pre>

  !endif

!else

  !read lang/intro.phtml.$modu_lang

!endif

:after

!if $msg!=$empty

  <hr>

  $name_msg <em>$SW</em> :

  <pre style="color:red;font-size:80%">

  $msg

  </pre>

!endif

!form reply

!default sw=sh

<div class="field">

  !set wims_formselect_switch=onchange='submit()'

  <label for="sw">$name_execute_by</label>

  !formselect sw list $swlist prompt $swname

  !set wims_formselect_switch=

$ :

$ $

  <input type="submit" value="$name_execute">

  !set wims_ref_class=wims_secondary_button wims_button

  !href cmd=renew $name_empty

$ $

  !set wims_ref_class=wims_button_help

  !href cmd=help&special_parm=$sw_2 $wims_name_help

$ $

  !set src=!reinput $src

  !set src=!replace internal $ by $ in $src

  !set src=!replace internal & by & in $src

</div>

<div class="field">

  <label for="wims_deposit">$name_code_to_execute</label><br>

  <textarea id="wims_deposit" wrap="off" name="src" cols="80" rows="15">

$src

</textarea>

$(name_remark_$sw)

</div>

!formend

!tail

!reset src sw