some.fs

module Context =

    open Gjallarhorn
    open Gjallarhorn.Bindable

    let rand = Random()
    let choose n = 
        Array.sortBy (fun _ -> rand.Next()) [|0..10|]

    let create () =    
        let source = Binding.createSource()

        let count = 10
        let rand = Random()
        let model : IMutatable<int[]> = Mutable.create [| |]
        
        let up items param = 
            //Do something with items
            //now items is always = [| |] (initial value)
            items

        Binding.toView source "Model" model

        Binding.createCommand "CreateCommand" source
        |> Observable.subscribe 
            (fun _ -> choose count |> Mutable.set model)
        |> source.AddDisposable

        Binding.createMessageParam "Up" id source
        |> Observable.subscribe (up model.Value >> Mutable.set model)
        |> source.AddDisposable

        source