!if $wims_read_parm!=slib_header
 !goto proc
!endif

slib_author=Yves, Nol; Bernadette, Perrin-Riou

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

!if $slib_id!=
  slib_id=,'$slib_id'
!endif
slib_out=<script type="text/javascript">\
/*<![CDATA[*/\
    jmolButton('$slib_script','$slib_text'$slib_id);\
/*]]>*/\
</script>
