36 строки
853 B
Forth
36 строки
853 B
Forth
namespace fsharp
|
|
|
|
#if !__WATCHOS__
|
|
open System
|
|
open System.Reflection
|
|
|
|
#if __UNIFIED__
|
|
open UIKit
|
|
open Foundation
|
|
#else
|
|
open MonoTouch.UIKit
|
|
open MonoTouch.Foundation
|
|
#endif
|
|
|
|
open MonoTouch.NUnit.UI
|
|
|
|
[<Register ("AppDelegate")>]
|
|
type AppDelegate () =
|
|
inherit UIApplicationDelegate ()
|
|
|
|
let mutable window = Unchecked.defaultof<UIWindow>
|
|
let mutable runner = Unchecked.defaultof<TouchRunner>
|
|
|
|
// This method is invoked when the application is ready to run.
|
|
override this.FinishedLaunching (app, options) =
|
|
window <- new UIWindow (UIScreen.MainScreen.Bounds)
|
|
runner <- new TouchRunner (window)
|
|
|
|
runner.Add (Assembly.GetExecutingAssembly ())
|
|
|
|
window.RootViewController <- new UINavigationController (runner.GetViewController ())
|
|
window.MakeKeyAndVisible ()
|
|
|
|
true
|
|
#endif // !__WATCHOS__
|