anchor.diff:  
           loop ()
       )
  +
  +    let webViewDelegate = {
  +        new UIWebViewDelegate() with
  +        override this.ShouldStartLoad (view, request, navigationType) =
  +            printfn "%s" request.Url.AbsoluteString
  +            printfn "%s" (navigationType.ToString())
  +
  +            false
  +    }
   
       [<Outlet>]
       member val WebView: UIWebView = null with get, set
  
positive.code: 
                      | error -> this.HandleApiFailure error
                  )
          )   
              
  
      override this.ViewDidDisappear (animated) =
  
negative.code:                 Async.Start (DB.createChatHistory user DB.ChatHistoryType.PrivateChat (Some ("You: " + message, false)))
              
              | _ -> ()
      let processor = new MailboxProcessor<ChannelEvent>(fun inbox ->
          let rec loop () = async {
              let! event = inbox.Receive()
  