Subversion Repositories wimsdev

Rev

Rev 16388 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16388 Rev 16396
Line 5... Line 5...
5 
!! wims_read_parm : name of button
 5 
!! wims_read_parm : name of button
6 
 
 6 
 
7 
!reset listval_ listname_
 7 
!reset listval_ listname_
8 
!if $exocnt>1
 8 
!if $exocnt>1
9 
  !if $i>1
 9 
  !if $i>1
10 
    !let listval_=$[i-1]
 10 
    !let listval_=$[$i-1]
11 
    !let listname_=$wims_name_up
 11 
    !let listname_=$wims_name_up
12 
  !endif
 12 
  !endif
13 
  !let val_=!values v for v=1 to $exocnt-1
 13 
  !let val_=!values v for v=1 to $exocnt-1
14 
  !let val_=!listcomplement $i,$[$i-1] in $val_
 14 
  !let val_=!listcomplement $i,$[$i-1] in $val_
15 
  !let t_=!makelist $wims_name_moveafter v for v in $val_
 15 
  !let t_=!makelist $wims_name_moveafter v for v in $val_