Subversion Repositories wimsdev

Rev

Rev 20 | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !set n_=$[$wims_read_parm]
  2. !if $wims_read_parm=$empty or $n_<1
  3.   !set obj=$newobject
  4.   !set Obj=$newObject
  5. !else
  6.   !set obj=!item $n_+1 of $statusline
  7.   !set obj=!char 2 to -2 of $obj
  8.   !set Obj=!item $n_+1 of $statusLine
  9.   !set Obj=!char 2 to -2 of $Obj
  10. !endif
  11.  
  12. !set a_=!char 1 of $Obj
  13. !distribute items <,>,= into lt,gt,eq
  14. !reset objisgoal
  15. !if $a_ isin $lt$gt
  16.   !if $a_=$lt
  17.     !set objisgoal=yes
  18.   !endif
  19. !endif
  20.  
  21. !if $Obj!=$empty
  22.   !insmath $Obj
  23. !else
  24.   &nbsp;
  25. !endif
  26.