anchor.diff:      [<Outlet>]
       member val ProfileImageProgress:UIActivityIndicatorView  = null with get, set
   
  -
  -
       override this.ViewDidLoad () =
  -        this.NavigationItem.Title <- "Create Profile"
  -        this.NavigationItem.HidesBackButton <- true
  +        this.NavigationItem.Title <- if identity.Membership = MembershipTypePublic.Pending then "Create Profile" else "Edit Profile"
  +        this.NavigationItem.HidesBackButton <- identity.Membership = MembershipTypePublic.Pending
   
           // Birthday picker
           pickerDate.MinimumDate <-  NSDate.op_Implicit (DateTime.UtcNow.AddYears(-120))
  
positive.code:             (fun _ -> controller.Birthday.ResignFirstResponder() |> ignore)
          )
  
      let pickerCountry = new AsyncPickerViewController() //new RectangleF(0.0f,0.0f,320.0f,216.0f)
      let accessoryCountry =
          new NavigateInputAccessoryViewController(
  
negative.code:                 Async.startNetworkWithContinuation
                      (Settings.regions country.Id)
                      (function
                          | Api.ApiOk r -> 
                              regions <- r
                              pickerRegion.Progress.StopAnimating()
                              pickerRegion.Picker.ReloadAllComponents()
                              match region, regions with
                              | _, [||] -> ()
                              | Some region, regions -> pickerCountry.Picker.Select(regions |> Array.findIndex (fun r -> r.Id = region.Id), 0, false)
                              | _ -> ()
                          | error ->
                              pickerRegion.Progress.StopAnimating()
                              this.HandleApiFailure error
  