Subversion Repositories wimsdev

Rev

Rev 11565 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1
!if $wims_read_parm!=slib_header
13594 bpr 2
  !goto proc
20 reyssat 3
!endif
4158 bpr 4
 
13594 bpr 5
slib_author=Joke, Evers; Bernadette, Perrin-Riou
20 reyssat 6
 
7
!exit
8
 
9
:proc
10
slib_text=!item 1 of $wims_read_parm
11
slib_option=!item 2 of $wims_read_parm
12
!for slib_a in size,left,top
13
  slib_$slib_a=!getopt $slib_a in $slib_option
14
!next slib_a
15
!if $slib_size=small
16
  slib_size=1
17
  slib_w=400
18
  slib_h=260
19
!endif
20
!if $slib_size=large
21
  slib_size=3
22
  slib_w=700
23
  slib_h=800
24
!endif
25
!if $slib_size=medium
26
  slib_size=2
27
  slib_w=700
28
  slib_h=600
29
!endif
30
 
31
!default slib_size= 1
32
!default slib_left= 0
33
!default slib_top= 0
34
!default slib_w=400
35
!default slib_h=260
36
 
11565 bpr 37
slib_out=<script type="text/javascript">\
38
/*<![CDATA[*/\
39
function smallwindow() {\
20 reyssat 40
mywindow = window.open('scripts/slib/utilities/notepad$slib_size.html' ,'WHAT_EVER',\
11565 bpr 41
'width=$slib_w,height=$slib_h,left=$slib_left,top=$slib_top');mywindow.focus();}\
42
/*]]>*/\
43
</script>\
11052 bpr 44
<a href="javascript:smallwindow()"><span class="wims_notepad">$slib_text</span></a>