Subversion Repositories wimsdev

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

slib_parms=0
slib_author=Joke, EVERS
!exit

:proc

slib_out=<script type='text/javascript'>var allow_to_fill_in=['input', 'textarea','select'];\
allow_to_fill_in=allow_to_fill_in.join('|');\
function disableselect(e){if (allow_to_fill_in.indexOf(e.target.tagName.toLowerCase())==-1){return false }}\
function Activate_It(){return true } \
if (typeof document.onselectstart!='undefined'){\
 document.onselectstart=new Function ('return false')}\
  else{document.onmousedown=disableselect;document.onmouseup=Activate_It;}\
 </script>