anchor.diff:      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)]
  +       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[
  
positive.code:                                                                    panelContainer.AddPanel panel
                                                                     )][text "add"]
                                        ]
                                      ]
                                  tr[td[propertyGrid.Render]]
                               ]
                        ]
                      td[panelContainer.Render]
                    ]
  
negative.code:                                                  ]
                                                   [text "announcement"]
                                            ]
                                      tdAttr[Attr.DynamicStyle "display" (View.Map (fun _ -> if not (isExpanded.Value) then "none" else "block") isExpanded.View)
                                             Attr.Style "color" "White"
                                             Attr.Style "margin-left" "15px"
                                             Attr.Style "Width" "75px"
                                            ][text "Dialog"]
  
                                    ]
                                  tr[td[iAttr[Attr.Class "material-icons orange600"
  