mirror of
https://github.com/NoRedInk/noredink-ui.git
synced 2024-12-25 22:53:34 +03:00
Adds secondary button
This commit is contained in:
parent
7792e6fb4b
commit
daa52b80bc
@ -179,6 +179,7 @@ viewTitle { visibleTitle, title } color =
|
||||
type FocusableElement
|
||||
= OnlyFocusableElement
|
||||
| FirstFocusableElement
|
||||
| MiddleFocusableElement
|
||||
| LastFocusableElement
|
||||
|
||||
|
||||
@ -193,6 +194,9 @@ withFocusTrap focusableElement =
|
||||
List.map Html.Styled.Attributes.fromUnstyled
|
||||
Modal.firstFocusableElement
|
||||
|
||||
MiddleFocusableElement ->
|
||||
[]
|
||||
|
||||
LastFocusableElement ->
|
||||
List.map Html.Styled.Attributes.fromUnstyled
|
||||
Modal.lastFocusableElement
|
||||
|
@ -23,6 +23,7 @@ type alias State =
|
||||
, visibleTitle : Bool
|
||||
, showX : Bool
|
||||
, showContinue : Bool
|
||||
, showSecondary : Bool
|
||||
}
|
||||
|
||||
|
||||
@ -34,6 +35,7 @@ init =
|
||||
, visibleTitle = True
|
||||
, showX = True
|
||||
, showContinue = True
|
||||
, showSecondary = False
|
||||
}
|
||||
|
||||
|
||||
@ -99,6 +101,16 @@ viewContent wrapMsg mainButton state =
|
||||
text ""
|
||||
, Modal.viewContent [ viewSettings state ]
|
||||
, if state.showContinue then
|
||||
if state.showSecondary then
|
||||
Modal.viewFooter
|
||||
[ mainButton Modal.MiddleFocusableElement
|
||||
, Modal.secondaryButton Modal.LastFocusableElement
|
||||
ForceClose
|
||||
wrapMsg
|
||||
"Close"
|
||||
]
|
||||
|
||||
else
|
||||
Modal.viewFooter
|
||||
[ mainButton Modal.LastFocusableElement
|
||||
]
|
||||
@ -135,6 +147,14 @@ viewSettings state =
|
||||
, disabled = False
|
||||
, theme = Checkbox.Square
|
||||
}
|
||||
, Checkbox.viewWithLabel
|
||||
{ identifier = "show-secondary"
|
||||
, label = "Show secondary button"
|
||||
, selected = Checkbox.selectedFromBool state.showSecondary
|
||||
, setterMsg = SetShowSecondary
|
||||
, disabled = False
|
||||
, theme = Checkbox.Square
|
||||
}
|
||||
]
|
||||
|
||||
|
||||
@ -146,6 +166,7 @@ type Msg
|
||||
| SetVisibleTitle Bool
|
||||
| SetShowX Bool
|
||||
| SetShowContinue Bool
|
||||
| SetShowSecondary Bool
|
||||
|
||||
|
||||
{-| -}
|
||||
@ -183,6 +204,9 @@ update msg state =
|
||||
SetShowContinue value ->
|
||||
( { state | showContinue = value }, Cmd.none )
|
||||
|
||||
SetShowSecondary value ->
|
||||
( { state | showSecondary = value }, Cmd.none )
|
||||
|
||||
|
||||
{-| -}
|
||||
subscriptions : State -> Sub Msg
|
||||
|
Loading…
Reference in New Issue
Block a user