Subversion Repositories wimsdev

Rev

Rev 3651 | Rev 4678 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !!##language independant
  2. !default java_inptype=!word 1 of $wims_read_parm
  3. !set java_inptype=!lower $java_inptype
  4. !bound java_inptype within\
  5.         curve,rect,rectangle,circle,line,lines,sline,segment,seg,poly,polygon,\
  6.         points,vector\
  7.         default curve
  8. !default java_width=300
  9. !default java_height=300
  10. !! java_bgcolor must use rgb coding. Color names bring security violations.
  11. !default java_bgcolor=#FFFFFF
  12.  
  13. !default nojava=$wims_name_nojava
  14. !default java_retry=!trim $wims_name_erase
  15. !default java_prompt=$wims_name_send
  16.  
  17. :prend
  18. <center>
  19. <applet codebase="java" code="input.class" archive="input.jar"
  20. width="$java_width" height="$[$java_height+25]">
  21. !if $java_background!=$empty
  22.  <param name=background value="$java_background">
  23. !endif
  24. <param name=bgcolor value="$java_bgcolor">
  25. <param name=type value="$java_inptype">
  26. <param name=retry value="$java_retry">
  27. <param name=prompt value="$java_prompt">
  28. <param name=replyurl
  29. value="$wims_ref_name?session=$wims_session.$[$wims_session_serial+1]&+$java_reply">
  30.  
  31. <font color="red"><b>$nojava</b></font>
  32. </applet>
  33.  </center><p>
  34. !reset java_inptype, java_background, java_bgcolor, java_retry, java_prompt, java_reply
  35.  
  36.