Repository navigation

Panel

Jump to bottom

Jordan Marr edited this page Apr 23, 2021 · 1 revision

Panel.panel [
    Panel.IsOpen model.IsPanelOpen
    Panel.HeaderText "Settings"
    Panel.Type PanelType.Medium
    Panel.CloseButtonAriaLabel "Close"
    Panel.IsLightDismiss true
    Panel.OnDismiss (fun () -> dispatch CancelChanges)
] [
    h2 [] [str "Slide-Out Panel"]
]