1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
!if $wims_read_parm!=slib_header
!goto proc
!endif
slib_title=Button in Jmol
slib_parms=4\
,Jmol script\
OK,text\
0,id (optional)
random integer,button_id (optional)
slib_author=Yves, Nol;Bernadette, Perrin-Riou
slib_out=applet code for inserting jmol button
slib_comment=
slib_example=select all;color atoms blue; select none,Bleu
!exit
:proc
!distribute items $wims_read_parm into slib_script,slib_text,slib_id,slib_button_id
!default slib_text=OK
!default slib_id=0
!default slib_button_id=!randint 1000,9999
slib_App_id=jmolApplet_$slib_id
slib_Butt_id=jmolButt_$(slib_id)_$slib_button_id
slib_out=<script>\
Jmol.jmolButton($slib_App_id,'$slib_script','$slib_text','$slib_Butt_id');\
</script>
|
