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