Subversion Repositories wimsdev

Rev

Rev 14037 | Rev 16650 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1.  
  2. !distribute items $sw,$sw into sw_1,sw_2
  3.  
  4. !if $sw=pari
  5.   !set sw_1=gp
  6. !endif
  7. !if $sw iswordof draw
  8.   !set sw_1=flydraw
  9.   !set sw_2=flydraw
  10. !endif
  11. !if $sw=insmath
  12.   !set sw_1=latex
  13.   !set sw_2=latex
  14. !endif
  15. !if $sw=jsxgraph
  16.   !set sw_1=js
  17. !endif
  18.  
  19. !! a modifier quand il y aura d'autres styles
  20. !default sw_1=flydraw
  21.  
  22. !if $sw=jsxgraph
  23.  !read js/jsxgraph.phtml
  24. !endif
  25.  
  26. !if $(module_title_$modu_lang)!=
  27.  !set module_title=$(module_title_$modu_lang)
  28. !endif
  29. !header
  30. !if $compute=yes
  31.  !if $swout=$empty
  32.    <span class="wims_warning">$SW</span> $name_non_execute.
  33.  !else
  34.    <div class="center">$SW</div>
  35.    !if $sw=draw
  36.      <img src="$swout" alt="" />
  37.      !goto after
  38.    !endif
  39.    !if $sw=povray
  40.      <img src="$swout" alt="" />
  41.      !goto after
  42.    !endif
  43.    !if $sw=graphviz
  44.      !set swout=!line 1 of $swout
  45.      <img src="$swout" alt="" />
  46.      !goto after
  47.    !endif
  48.    !if $sw=graphvizsvg
  49.      $swout
  50.      !goto after
  51.    !endif
  52.    !if $sw=jsxgraph
  53.      <div id="jsxbox" class="box" style="width:400px; height:400px;text-align:center;"></div>
  54.      <script>
  55.      $swout
  56.      </script>
  57.      !goto after
  58.    !endif
  59.    !if $sw=insmath
  60.      MathML: $swout
  61.      Image:
  62.      !instex $src1
  63.      !goto after
  64.    !endif
  65.    !if $sw=canvasdraw
  66.      $swout
  67.      !read script_canvasdraw
  68.      !goto after
  69.    !endif
  70.    !if $sw=jmol
  71.      !set swout1=!lines2rows $swout
  72.      !readproc slib/chemistry/jmolshow $swout1,200,200,white,,
  73.      $slib_out
  74.      !goto after
  75.    !endif
  76.    !if $sw=jsme
  77.      !set swout1=!lines2rows $swout
  78.      !readproc slib/chemistry/chemshow $swout1,200,200,white,,
  79.      $slib_out
  80.      !goto after
  81.    !endif
  82.    !if $sw=reactiondraw
  83.      !readproc slib/chemistry/reactiondraw $swout,html
  84.      $slib_out
  85.      !goto after
  86.    !endif
  87. !!! no space at the beginning of the line
  88.    <pre style="font-weight:bold;font-family:Courier New,Courier,mono;overflow:auto;color:blue;">
  89. $swout
  90.    </pre>
  91.  !endif
  92. !else
  93.  !read lang/intro.phtml.$modu_lang
  94. !endif
  95.  
  96. :after
  97. !if $msg!=$empty
  98.  <hr />
  99.  $name_msg <em>$SW</em> :
  100.  <pre style="color:red;font-size:80%">
  101.  $msg
  102.  </pre>
  103. !endif
  104. !form reply
  105. <input type="submit" value="$name_execute" />
  106.  
  107. !default sw=sh
  108. !set wims_formselect_switch=onchange='submit()'
  109. !formselect sw list $swlist prompt $swname
  110. !set wims_formselect_switch=
  111. $ :
  112. $ $
  113. !set wims_ref_class=wims_button
  114. !href cmd=renew $name_empty
  115. $ $
  116. !set wims_ref_class=wims_button_help
  117. !href cmd=help&special_parm=$sw_2 $wims_name_help
  118. $ $
  119. !set src=!reinput $src
  120. !set src=!replace internal &amp;#36; by &#36; in $src
  121. !set src=!replace internal &amp; by & in $src
  122.  
  123. <br class="spacer" />
  124. <textarea id="wims_deposit" wrap="off" name="src" cols="100" rows="15">
  125. $src
  126. </textarea>
  127. $(name_remark_$sw)
  128.  
  129. !formend
  130.  
  131. !tail
  132.  
  133. !reset src sw
  134.