Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
20 reyssat 1
!if $wims_read_parm!=slib_header
2
!goto proc
3
!endif
4158 bpr 4
 
4349 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
 
32
!default slib_size= 1
33
!default slib_left= 0
34
!default slib_top= 0
35
!default slib_w=400
36
!default slib_h=260
37
 
38
slib_out=<script type= text/javascript>function smallwindow() {\
39
mywindow = window.open('scripts/slib/utilities/notepad$slib_size.html' ,'WHAT_EVER',\
40
'width=$slib_w,height=$slib_h,left=$slib_left,top=$slib_top');mywindow.focus();}</script>\
11052 bpr 41
<a href="javascript:smallwindow()"><span class="wims_notepad">$slib_text</span></a>