!if $wims_read_parm!=slib_header
 !goto proc
!endif
slib_title=Radio Group in Jmol
slib_parms=6\
,jmol script when checked\
,jmol script when unchecked\
,label\
,true or false (checked at the start)\
,id (optional)\
,title (optional)

slib_author=Yves Nol et Bernadette Perrin-Riou
slib_out=applet code for inserting jmol applet
slib_comment=

slib_example=select all;color atoms blue; select none\
bleu
!exit

:proc
!distribute items $wims_read_parm into slib_script,slib_sep
slib_script=!replace internal $\
$\ by $ $ in $slib_script
!!slib_script=[['wireframe off',null],\
            'wireframe on',\
                 'wireframe 0.1',\
                 'wireframe 0.125',\
                 ['wireframe 0.15', null, 'checked'],\
                 'wireframe 0.25',\
                 'wireframe 0.3',\
                 'wireframe 0.5']

slib_out=<script language="javascript" type="text/javascript">\
jmolRadioGroup($slib_script,'$slib_sep')\
</script>

  jmolMenu(arrayOfMenuItems, {menuHeight}, {id})
