Skip to content

Instantly share code, notes, and snippets.

@kashmervil

kashmervil/reactive.fs

Created July 10, 2014 11:56
Show Gist options
  • Save kashmervil/9befb32e79069cc39504 to your computer and use it in GitHub Desktop.
Save kashmervil/9befb32e79069cc39504 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
reactive.fs
open System.Windows.Forms
open System.Reactive.Linq
let form = new Form(TopMost = true, Visible = true, Text = "Priv")
let event = form.MouseMove
event|> Observable.filter (fun x -> (x.X > 100) && (x.Y > 100))
|> Observable.add (fun x -> printfn "x = %d y = %d" x.X x.Y)
Application.Run(form)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment