Merge pull request #26 from jkone27/add-minimal-support-for-events-in-reactelement-dom-tree

minimal support for events

Author: dbrattli

src/Interop.fs

@@ -40,26 +40,14 @@ module Interop =
             | _ -> value.ToString() |> ViewBuilder.escape
         KeyValue (key, result)
 
-    let inline mkStyle (key: string) (value: obj) : IStyleAttribute = Style (key, value) :> _
-
-type FunctionComponent<'Props> = 'Props -> ReactElement
+    let mkEventHandler(name: string) (handler: obj -> unit) : IReactProperty =
+        let event = EventHandlerType.Event(handler)
+        IReactProperty.KeyValue(name, event)
 
-// fsharplint:disable
+    let mkEventHandlerWithKey name key (handler: obj -> unit) =
+        let keyEvent = EventHandlerType.KeyEvent(key, handler)
+        IReactProperty.KeyValue(name, keyEvent)
 
-type Event () = class end
-    with
-        member x.preventDefault () = ()
-        member x.type' = "Event"
+    let inline mkStyle (key: string) (value: obj) : IStyleAttribute = Style (key, value) :> _
 
-type AnimationEvent () = inherit Event ()
-type ClipboardEvent () = inherit Event ()
-type CompositionEvent () = inherit Event ()
-type DragEvent () = inherit Event ()
-type IKeyboardKey = interface end
-type KeyboardEvent () = inherit Event ()
-type FocusEvent () = inherit Event ()
-type MouseEvent () = inherit Event ()
-type TouchEvent () = inherit Event ()
-type TransitionEvent () = inherit Event ()
-type WheelEvent () = inherit Event ()
-type File = class end
+type FunctionComponent<'Props> = 'Props -> ReactElement