on master help sign in
Fix iOS letterboxing by adding UILaunchScreen dict to support full-screen launch
177a234iko
client/Platform/iOS/AppDelegate.fs+2−3
@@ -14,10 +14,9 @@ type AppDelegate() =
14 override this.CreateAppBuilder() =
14 override this.CreateAppBuilder() =
15 NSTimer.CreateScheduledTimer(0.0, false, fun _ ->
15 NSTimer.CreateScheduledTimer(0.0, false, fun _ ->
16 if this.Window <> null then
16 if this.Window <> null then
17− this.Window.BackgroundColor <- UIColor.White
17+ this.Window.BackgroundColor <- UIColor.White)
18− if this.Window.RootViewController <> null then
19− this.Window.RootViewController.View.BackgroundColor <- UIColor.White)
20 |> ignore
18 |> ignore
19+
21 App.create().UseiOS()
20 App.create().UseiOS()
22
21
23module Main =
22module Main =
client/Platform/iOS/Info.plist+2
@@ -21,6 +21,8 @@
21 </array>
21 </array>
22 <key>UILaunchStoryboardName</key>
22 <key>UILaunchStoryboardName</key>
23 <string>LaunchScreen</string>
23 <string>LaunchScreen</string>
24+ <key>UILaunchScreen</key>
25+ <dict/>
24 <key>UIRequiredDeviceCapabilities</key>
26 <key>UIRequiredDeviceCapabilities</key>
25 <array>
27 <array>
26 <string>armv7</string>
28 <string>armv7</string>