module WASH.CGI.EventHandlers where
import WASH.CGI.HTMLWrapper
--abort
onAbort :: Monad m => String -> WithHTML x m ()
onAbort = attr_SS "onabort"
--blur
onBlur :: Monad m => String -> WithHTML x m ()
onBlur = attr_SS "onblur"
--change
onChange :: Monad m => String -> WithHTML x m ()
onChange = attr_SS "onchange"
--click
onClick :: Monad m => String -> WithHTML x m ()
onClick = attr_SS "onclick"
--dblclick
onDblClick :: Monad m => String -> WithHTML x m ()
onDblClick = attr_SS "ondblclick"
--dragdrop
onDragDrop :: Monad m => String -> WithHTML x m ()
onDragDrop = attr_SS "ondragdrop"
--error
onError :: Monad m => String -> WithHTML x m ()
onError = attr_SS "onerror"
--focus
onFocus :: Monad m => String -> WithHTML x m ()
onFocus = attr_SS "onfocus"
--keydown
onKeyDown :: Monad m => String -> WithHTML x m ()
onKeyDown = attr_SS "onkeydown"
--keypress
onKeyPress :: Monad m => String -> WithHTML x m ()
onKeyPress = attr_SS "onkeypress"
--keyup
onKeyUp :: Monad m => String -> WithHTML x m ()
onKeyUp = attr_SS "onkeyup"
--load
onLoad :: Monad m => String -> WithHTML x m ()
onLoad = attr_SS "onload"
--mousedown
onMouseDown :: Monad m => String -> WithHTML x m ()
onMouseDown = attr_SS "onmousedown"
--mousemove
onMouseMove :: Monad m => String -> WithHTML x m ()
onMouseMove = attr_SS "onmousemove"
--mouseout
onMouseOut :: Monad m => String -> WithHTML x m ()
onMouseOut = attr_SS "onmouseout"
--mouseover
onMouseOver :: Monad m => String -> WithHTML x m ()
onMouseOver = attr_SS "onmouseover"
--mouseup
onMouseUp :: Monad m => String -> WithHTML x m ()
onMouseUp = attr_SS "onmouseup"
--move
onMove :: Monad m => String -> WithHTML x m ()
onMove = attr_SS "onmove"
--reset
onReset :: Monad m => String -> WithHTML x m ()
onReset = attr_SS "onreset"
--resize
onResize :: Monad m => String -> WithHTML x m ()
onResize = attr_SS "onresize"
--select
onSelect :: Monad m => String -> WithHTML x m ()
onSelect = attr_SS "onselect"
--submit
onSubmit :: Monad m => String -> WithHTML x m ()
onSubmit = attr_SS "onsubmit"
--unload
onUnload :: Monad m => String -> WithHTML x m ()
onUnload = attr_SS "onunload"
toTarget :: Monad m => String -> WithHTML x m ()
toTarget t = onClick ("this.form.target='" ++ t ++ "'; this.form.submit(); return true")