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_