Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header

!goto proc

!endif

slib_title=Notepad

slib_parms=2\

Notepad,word to click on\

size=small,options 

slib_author=Joke EVERS et Bernadette PERRIN-RIOU

slib_out=javascript for create a note pad

slib_comment=the possible options are the following (with their defaults) : \

size=small,medium,large

slib_example= Ouvrir une fenêtre de brouillon,size=small

!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>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()">$slib_text</a>