anchor.diff:          Title:Var<string>
           Content:Var<Elt>
           Visibility:Var<bool>
  -        OKCallback:Var<unit->unit>
  +        IsOK:Var<bool>
       }
       static member Create=
           {
               Title = Var.Create ""
               Content = Var.Create (div[])
               Visibility = Var.Create false
  -            OKCallback = Var.Create (fun () -> ())
  +            IsOK = Var.Create false
           }
  -    member x.ShowDialog title content okCallback= 
  +    member x.ShowDialog title content = 
                                     x.Title.Value <- title
                                     x.Content.Value <- content
                                     x.Visibility.Value <- true
  -                                  x.OKCallback.Value <- okCallback
       member x.Render =
  -        let Alert el ev =
  -            JS.Alert "Clicked!"
           divAttr[Attr.Style "position" "absolute"
                   Attr.Style "left" "50%"
                   Attr.Style "top" "50%"
  
positive.code: ﻿namespace WebSharper.Community.Panel
  
  open WebSharper
  open WebSharper.JavaScript
  
negative.code:                 Attr.Style "background-color" "white";
                  Attr.Style "min-height" "100px";
                  Attr.Style "min-width" "200px";
                  Attr.DynamicStyle "display" (View.Map (fun (isVis) -> if isVis then "block" else "none")  x.Visibility.View )
                  ][  
                   tableAttr[
                       Attr.Style "background-color" "grey"
                       Attr.Style "display" "block"
                       Attr.Style "min-height" "100px"
                       Attr.Style "min-width" "200px" 
                    ]
                      [   
                          tr[tdAttr[Attr.Style "border-style" "hidden"
                                    Attr.Style "background" "#404040"
                                    Attr.Style "color" "rgb(200,200,200)"
                                    Attr.Style "padding" "0px 2px 5px 2px"
                                    Attr.Style "font-size" "medium"][textView x.Title.View]]
                          tr[tdAttr[Attr.Style "padding" "5px 0px 0px 2px"][x.Content.View |> Doc.BindView (fun content->content)]]
                          tr[
                              tdAttr [Attr.Style "padding" "20px 12px 2px 20px"][
                                  buttonAttr [Attr.Style "border-radius" "2px"
                                              on.click (fun _ _ ->x.IsOK.Value <- false
                                                                  x.Visibility.Value <-false)] [text "OK"]
                                ]
                              tdAttr [Attr.Style "padding" "20px 12px 2px 50px"] [
                                  buttonAttr [Attr.Style "border-radius" "2px"
                                              on.click (fun _ _ ->x.IsOK.Value <- false 
                                                                  x.Visibility.Value<-false)] [text "Cancel"]
                                ]      
                          ]
                      ]
              ]
  