anchor.diff:                                                   ]
                                                    [text "announcement"]
                                             ]
  -                                    (*tdAttr[Attr.DynamicStyle "display" (View.Map (fun _ -> if not (isExpanded.Value) then "none" else "block") isExpanded.View)
  +                                    tdAttr[Attr.DynamicStyle "display" (View.Map (fun _ -> if not (isExpanded.Value) then "none" else "block") isExpanded.View)
                                              Attr.Style "color" "White"
  -                                           Attr.Style "font-weight" "bold"
                                              Attr.Style "margin-left" "15px"
  -                                          ]
  -                                          [text "Dialog"]*)
  +                                           Attr.Style "Width" "75px"
  +                                          ][text "Dialog"]
   
                                     ]
                                   tr[td[iAttr[Attr.Class "material-icons orange600"
  
positive.code:                                                                    panelContainer.AddPanel panel
                                                                     )][text "add"]
                                        ]
                                      ]
                                  tr[td[propertyGrid.Render]]
                               ]
                        ]
                      td[panelContainer.Render]
                    ]
  
negative.code:     let isExpanded = Var.Create false
      let Main () =
        div[
         divAttr[Attr.DynamicStyle "pointer-events" (View.Map (fun _ -> if dlg.Visibility.Value then "none" else "auto") dlg.Visibility.View)
                 Attr.DynamicStyle "opacity" (View.Map(fun _ -> if dlg.Visibility.Value then "0.5" else "1" ) dlg.Visibility.View)
                ]
           [
              table[
                  tr[
  