Subversion Repositories wimsdev

option:eqweight multiple nolegend shuffle sort split detag nolabel

!!!!!
!! Menu generic anstype (also used by click and radio)
!!!!!

!set name_choose_code=!defof name_choose_code in anstype/menu.input
select_multiple_check=!getopt multiple in $(replyoption$i)
!if $(replytype$i)=menu and $select_multiple_check!=
  !changeto anstype/checkbox
!endif

good=!rows2lines $(replygood$i)
menulist=!line 2 to -1 of $good
menulist=!translate internal $\
$ to ; in $menulist
good=!line 1 of $good
replyGood$i=!item $good of $menulist
replyGood$i=!replace internal \\( by \( in $(replyGood$i)

!if $(replytype$i)=menu
  defaultest=!getopt default in $(replyoption$i)
  !if $(reply$i)=$name_choose_code and $defaultest!=$empty
    reply$i=$defaultest
  !endif
!endif

menucnt=!itemcnt $menulist
reply$i=!replace internal \\( by \( in $(reply$i)
!! see also in var.proc
!default m_reply$i=$(reply$i)
m_reply$i=!replace internal \\( by \( in $(m_reply$i)

c_=!char 1 of $(reply$i)
!if $c_=~ and $(replytype$i)=click
  c_=!char 2 to -1 of $(reply$i)
  c_=!item $c_ of $menulist
  !if $c_!=$empty
    reply$i=$c_
  !endif
!endif

!if $wims_read_parm=nocompare
  !exit
!endif

!if $(replyGood$i)=$empty
  Test=bad $i
  !exit
!endif

!if ' isin $menulist
  reply$i=!replace internal ' by ' in $(reply$i)
!endif
!if , isin $menulist
  reply$i=!replace internal , by , in $(reply$i)
!endif
menupos=!positionof item $(reply$i) in $menulist
!if $menupos=$empty
  test=NaN
  !exit
!endif

!if $(inputprompt$i)!=$empty
  reply_$i=$(inputprompt$i[$menupos])
  replyGood$i=$(inputprompt$i[$good])
  !if , isin $(replyGood$i)
    replyGood$i=!replace internal , by </li><li> in <ul><li>$(replyGood$i)</li></ul>
  !endif
!endif
menupos=!item 1 of $menupos
!if $menupos isitemof $good
  diareply$i=good
  !advance freegot
!else
  diareply$i=bad
!endif

!reset anstype_shuffle_$i