Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header
  !goto proc
!endif
slib_title=Button in Jmol
slib_parms=4\
,Jmol script\
OK,text\
0,id (optional)
random integer,button_id (optional)
slib_author=Yves, Noël;Bernadette, Perrin-Riou
slib_out=applet code for inserting jmol button
slib_comment=

slib_example=select all;color atoms blue; select none,Bleu
!exit

:proc
!distribute items $wims_read_parm into slib_script,slib_text,slib_id,slib_button_id
!default slib_text=OK
!default slib_id=0
!default slib_button_id=!randint 1000,9999

slib_App_id=jmolApplet_$slib_id
slib_Butt_id=jmolButt_$(slib_id)_$slib_button_id
slib_out=<script>\
  Jmol.jmolButton($slib_App_id,'$slib_script','$slib_text','$slib_Butt_id');\
</script>