blob: 8da284e86c1244b2be609511db5b6f70884fd916 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
module DoBindings
open System
type MyBindingType(a:int, b:int) as this =
inherit Object()
let x = 2*a
let y = 2*b
do printfn "Initializing object %d %d %d %d %d %d"
a b x y (this.Prop1) (this.Prop2)
static do printfn "Initializing MyBindingType."
member this.Prop1 = 4*x
member this.Prop2 = 4*y
override this.ToString() = System.String.Format("{0} {1}", this.Prop1, this.Prop2)
let obj1 = new MyBindingType(1, 2)
|
