Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header
  !goto proc
!endif

slib_author=Joke, Evers; Bernadette, Perrin-Riou

!exit

:proc
slib_text=!item 1 of $wims_read_parm
slib_option=!item 2 of $wims_read_parm
!for slib_a in size,left,top
  slib_$slib_a=!getopt $slib_a in $slib_option
!next slib_a
!if $slib_size=small
  slib_size=1
  slib_w=400
  slib_h=260
!endif
!if $slib_size=large
  slib_size=3
  slib_w=700
  slib_h=800
!endif
!if $slib_size=medium
  slib_size=2
  slib_w=700
  slib_h=600
!endif

!default slib_size= 1
!default slib_left= 0
!default slib_top= 0
!default slib_w=400
!default slib_h=260

slib_out=<script type="text/javascript">\
/*<![CDATA[*/\
function smallwindow() {\
mywindow = window.open('scripts/slib/utilities/notepad$slib_size.html' ,'WHAT_EVER',\
'width=$slib_w,height=$slib_h,left=$slib_left,top=$slib_top');mywindow.focus();}\
/*]]>*/\
</script>\
<a href="javascript:smallwindow()"><span class="wims_notepad">$slib_text</span></a>