anchor.diff:                          this.FriendButton.Hidden <- profile.Friend
                           this.UnfriendButton.Hidden <- not profile.Friend
   
  +                        if isSelf then
  +                            this.ChatButton.Hidden <- true
  +                            this.BlockButton.Hidden <- true
  +                            this.UnblockButton.Hidden <- true
  +                            this.FriendButton.Hidden <- true
  +                            this.UnfriendButton.Hidden <- true
  +
                       | error -> this.HandleApiFailure error
                   )
           | _ -> failwith "No user"
  
positive.code:                     | Api.ApiOk profile ->
                          this.ProfileLabel.Text <- sprintf "%s, %s" profile.Age profile.Gender
                          this.LocationLabel.Text <- profile.Location
                          this.TableView.ReloadData()
  
                          this.BlockButton.Hidden <- profile.Blocked
  
negative.code:     let mutable isBlocked = false
      let mutable isFriend = false
      let mutable image = Image.placeholderMale 
      let mutable isSelf = false
  
      member val Entity: Entity option = None with get, set
  
  