Subversion Repositories wimsdev

Rev

Rev 1144 | Rev 1655 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
1654 bpr 1
!!##language independant
20 reyssat 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
 
1654 bpr 13
!default nojava=$wims_nojava
14
!default java_retry=!trim $wims_name_erase
15
!default java_prompt=$wims_name_send
20 reyssat 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
1144 bpr 28
value="$wims_ref_name?session=$wims_session.$[$wims_session_serial+1]&+$java_reply">
20 reyssat 29
 
1654 bpr 30
<font color="red"><b>$wims_name_nojava</b></font>
20 reyssat 31
</applet>
32
 </center><p>
33
!reset java_inptype, java_background, java_bgcolor, java_retry, java_prompt, java_reply
34