This commit is contained in:
7sharp9 2016-03-21 16:59:56 +00:00
Родитель c008ce6347
Коммит 04f0e0708d
1 изменённых файлов: 2 добавлений и 5 удалений

Просмотреть файл

@ -8,14 +8,11 @@ type Container = Xamarin.UIProvider
[<Register(Container.ViewControllerBase.CustomClass)>]
type myViewController(handle) =
inherit Container.ViewControllerBase(handle)
let onButton button =
printfn "Button pressed"
override x.ViewDidLoad () =
base.ViewDidLoad ()
// Do any additional setup after loading the view.
x.OnButton <- Some(fun _ -> x.View.Window.BackgroundColor <- AppKit.NSColor.Red)
x.OnButton <- Some(fun _ -> x.View.Window.BackgroundColor <- NSColor.Red)
override x.RepresentedObject
// Update the view, if already loaded.