!if $wims_read_parm!=slib_header
 !goto proc
!endif
slib_title=Button in Jmol
slib_parms=3\
,Jmol script\
OK,text\
,id (optional)
slib_author=Yves Nol et 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
!default slib_text=OK
!default slib_id=0

slib_App_id=jmolApplet_$slib_id
slib_Butt_id=jmolButt_$slib_id
slib_out=<script language="javascript" type="text/javascript">\
    Jmol.jmolButton($slib_App_id,'$slib_script','$slib_text','$slib_Butt_id');\
</script>
