1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
namespace iOSFSharpLanguageTests
open System
open System.Drawing
open MonoTouch.Foundation
open MonoTouch.UIKit
[<Register ("iOSFSharpLanguageTestsViewController")>]
type iOSFSharpLanguageTestsViewController () =
inherit UIViewController ()
override x.DidReceiveMemoryWarning () =
// Releases the view if it doesn't have a superview.
base.DidReceiveMemoryWarning ()
// Release any cached data, images, etc that aren't in use.
override x.ViewDidLoad () =
base.ViewDidLoad ()
// Perform any additional setup after loading the view, typically from a nib.
override x.ShouldAutorotateToInterfaceOrientation (toInterfaceOrientation) =
// Return true for supported orientations
if UIDevice.CurrentDevice.UserInterfaceIdiom = UIUserInterfaceIdiom.Phone then
toInterfaceOrientation <> UIInterfaceOrientation.PortraitUpsideDown
else
true
|
