Subversion Repositories wimsdev

Rev

Rev 1144 | Rev 1655 | 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_nojava
  14. !default java_retry=!trim $wims_name_erase
  15. !default java_prompt=$wims_name_send
  16.  
  17. :prend
  18. <applet codebase=java code=input.class archive=input.jar
  19. width=$java_width height=$[$java_height+25]>
  20. !if $java_background!=$empty
  21.  <param name=background value="$java_background">
  22. !endif
  23. <param name=bgcolor value="$java_bgcolor">
  24. <param name=type value="$java_inptype">
  25. <param name=retry value="$java_retry">
  26. <param name=prompt value="$java_prompt">
  27. <param name=replyurl
  28. value="$wims_ref_name?session=$wims_session.$[$wims_session_serial+1]&+$java_reply">
  29.  
  30. <font color="red"><b>$wims_name_nojava</b></font>
  31. </applet>
  32.  </center><p>
  33. !reset java_inptype, java_background, java_bgcolor, java_retry, java_prompt, java_reply
  34.  
  35.