Subversion Repositories wimsdev

!!##language independant

!default java_inptype=!word 1 of $wims_read_parm

!set java_inptype=!lower $java_inptype

!bound java_inptype within\

        curve,rect,rectangle,circle,line,lines,sline,segment,seg,poly,polygon,\

        points,vector\

        default curve

!default java_width=300

!default java_height=300

!! java_bgcolor must use rgb coding. Color names bring security violations.

!default java_bgcolor=#FFFFFF

!default nojava=$wims_nojava

!default java_retry=!trim $wims_name_erase

!default java_prompt=$wims_name_send

:prend

<applet codebase=java code=input.class archive=input.jar

width=$java_width height=$[$java_height+25]>

!if $java_background!=$empty

 <param name=background value="$java_background">

!endif

<param name=bgcolor value="$java_bgcolor">

<param name=type value="$java_inptype">

<param name=retry value="$java_retry">

<param name=prompt value="$java_prompt">

<param name=replyurl

value="$wims_ref_name?session=$wims_session.$[$wims_session_serial+1]&+$java_reply">

<font color="red"><b>$wims_name_nojava</b></font>

</applet>

 </center><p>

!reset java_inptype, java_background, java_bgcolor, java_retry, java_prompt, java_reply