anchor.diff:          | AppEvent (_, json)
           | CustomAppEvent json -> events.Add (event, json)
           | _ -> ()
  +
  +     
   
   [<Register ("ChatRoomUsersViewController")>]
   type ChatRoomUsersViewController (users:UserProfile[]) =
  
positive.code:         | true, (user, historic) -> users.[userId] <- ({ user with Blocked = blocked }, historic)
          | _ -> ()
  
      override this.Dispose (bool) =
          cancelPoll.Cancel()
  
  module ChatRooms =
      let rooms = ConcurrentDictionary<string, Entity * ChatRoomViewController>()
  
  
negative.code:     inherit UIViewController ("GameViewController", null)
  
      let events = new List<ChannelEvent * string> ()
  
      let cancelPoll = new Threading.CancellationTokenSource()
  
      [<Outlet>]
      member val WebView: UIWebView = null with get, set
  