open System.Linq;
open System.Text;
open System;
open SFML.Graphics;
open SFML.Window;

type ClientEvents() =
    let onUpdate = new Event<_>()
    let onDraw = new Event<_>()

    [<CLIEvent>]
    member this.OnUpdate = onUpdate.Publish
    [<CLIEvent>]
    member this.OnDraw = onDraw.Publish

    member this.Trigger() =
        onUpdate.Trigger
        |>onDraw.Trigger

let Events = new ClientEvents()
let Window = new RenderWindow(new VideoMode((uint32)400,(uint32)400),"FS SFML TEST")

type Test() =
    member this.Sprite = new Sprite(new Texture("Test.png"))
    member this.Load() =
        Events.OnDraw.Add(fun dr -> this.Sprite.Draw(Window, RenderStates.Default))
        this.Sprite.Position = new Vector2f((float32)300,(float32)300) // So.. this will not work obviously.

[<EntryPoint>]
let main argv =
    let cB = (byte)100
    let test = new Test()
    ignore(test.Load())

    let MainLoop() =
        Window.Clear(new Color(cB,cB,cB))
        Window.DispatchEvents()
        Events.Trigger()
        Window.Display()

    while Window.IsOpen() do
        MainLoop();
    0