Subversion Repositories wimsdev

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

slib_author=Yves, Noël; Bernadette, Perrin-Riou

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 type="text/javascript">\
/*<![CDATA[*/\
jmolRadioGroup($slib_script,'$slib_sep')\
/*]]>*/\
</script>

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