!distribute items $sw,$sw into sw_1,sw_2
!if $sw=pari
!set sw_1=gp
!endif
!if $sw iswordof draw canvasdraw
!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
!read js/edit_area.phtml wims_deposit $sw_1 $swlistjs,js
!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
<div class="center">$SW</div>
!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=jsxgraph
<div id="jsxbox" class="box" style="width:400px; height:400px;text-align:center;"></div>
<script type="text/javascript">
$swout
</script>
!goto after
!endif
!if $sw=insmath
MathML: $swout
Image:
!instex $src1
!goto after
!endif
!if $sw=canvasdraw
$swout
<br />
<script type="text/javascript">
//<![CDATA[
"use strict";
<!-- will return all 'userdraw' or 'userinput' data from all canvas javascript includes -->
function read_canvas(){var script_len = canvas_scripts.length;var draw_reply = "";var found_result = false;for(var p = 0 ; p < script_len ; p++){var fun = eval("read_canvas"+canvas_scripts[p]);if( typeof fun === 'function'){var result = fun();if( result && result.length != 0){if(script_len == 1 ){ return result;};found_result = true;draw_reply = draw_reply + "["+p+"]="+ result + "\n";};};};if( found_result ){return draw_reply;}else{return null;};};
<!-- will return all 'drag&drop' or 'onclick' data from all canvas javascript includes -->
function read_dragdrop(){var script_len = canvas_scripts.length;var dragdrop_reply = "";var found_result = false;for(var p = 0 ; p < script_len ; p++){var fun = eval("read_dragdrop"+canvas_scripts[p]);if(typeof fun === 'function'){var result = fun();if( result && result.length != 0 ){if(script_len == 1 ){ return result;};found_result = true;dragdrop_reply = dragdrop_reply + "["+p+"]=" + result +"\n";};};};if( found_result ){return dragdrop_reply;}else{return null;};};
//]]>
</script>
<input type="button" onclick="alert(read_canvas());" value="read_canvas()" />
<input type="button" onclick="alert(read_dragdrop());" value="read_dragdrop()" />
!goto after
!endif
!if $sw=jmol
!set swout1=!lines2rows $swout
!readproc slib/chemistry/jmolshow $swout1,200,200,white,,
$slib_out
!goto after
!endif
<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
<input type="submit" value="$name_execute" />
!default sw=sh
!set wims_formselect_switch=onchange='submit()'
!formselect sw list $swlist prompt $swname
!set wims_formselect_switch=
$ :
!set wims_ref_class=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 &#36; by $ in $src
!set src=!replace internal & by & in $src
<textarea id="wims_deposit" wrap="off" name="src" cols="100" rows="15">
$src
</textarea>
$(name_remark_$sw)
!formend
!tail
!reset src sw