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> |