anchor.diff:          let tab =
               [
                   "Accordion", TestAccordion ()
  -                "Autocomplete", TestAutocomplete ()
  +                "Autocomplete1", TestAutocomplete1 ()
  +                "Autocomplete2", TestAutocomplete2 ()
                   "Button", TestButton ()
                   "Datepicker", TestDatepicker ()
                   "Draggable", TestDraggable ()
  
positive.code:         )
          Div [acc2] -< [button]
  
      let TestAutocomplete () =
          let conf = new AutocompleteConfiguration()
          conf.Source <- [|"Apa"; "Beta"; "Zeta" ; "Zebra"|]
          let a = Autocomplete.New(Input [], conf)
          a |> OnBeforeRender (fun _ -> Log "Before Render")
          a |> OnAfterRender ( fun _ -> Log "After Render")
  
negative.code:             bClose
              bDestroy
          ]
  
      let TestAutocomplete1 () =
          let conf = new AutocompleteConfiguration()
          conf.Source <| Listing [|"Apa"; "Beta"; "Zeta" ; "Zebra"|]
          RunAutocompleter conf
  
      let TestAutocomplete2 () =
          let conf = new AutocompleteConfiguration()
          let x : array<AutocompleteItem> =
              [|{Label = "test"; Value = "value"}|]
          conf.Source <| Items x
          RunAutocompleter conf
  
      let TestAutocomplete3 () =
          let conf = new AutocompleteConfiguration()
          let completef (_ : AutocompleteRequest, f : array<AutocompleteItem> -> unit) =
              let x : array<AutocompleteItem> =
                  [|{Label = "test"; Value = "value"}|]
              f x
          conf.Source <| Callback completef
          RunAutocompleter conf
  
      let TestAutocomplete () =
          TestAutocomplete1 ()
          TestAutocomplete2 ()
          TestAutocomplete3 ()
  
      let TestButton () =
          let b1 = JQueryUI.Button.New ("Click")
  