updates RadioButton example controls

This commit is contained in:
Celso Bonutti 2022-03-10 11:06:40 -03:00
parent 2f1227634c
commit 6a978cb762

View File

@ -239,7 +239,7 @@ controlAttributes =
ControlExtra.list ControlExtra.list
|> ControlExtra.optionalListItem "visibility" labelVisibility |> ControlExtra.optionalListItem "visibility" labelVisibility
|> ControlExtra.optionalListItem "status" disabledOrEnabled |> ControlExtra.optionalListItem "status" disabledOrEnabled
|> ControlExtra.optionalListItem "showPennant" showPennant |> ControlExtra.optionalListItem "onPennantClick" onPennantClick
|> ControlExtra.optionalListItem "premium" |> ControlExtra.optionalListItem "premium"
-- TODO: allow the teacher premium level to vary as well: -- TODO: allow the teacher premium level to vary as well:
(Control.map (Control.map
@ -329,11 +329,11 @@ disabledOrEnabled =
] ]
showPennant : Control ( String, RadioButton.Attribute Selection Msg ) onPennantClick : Control ( String, RadioButton.Attribute Selection Msg )
showPennant = onPennantClick =
Control.value Control.value
( "RadioButton.showPennant OpenPremiumModal" ( "RadioButton.onPennantClick OpenPremiumModal"
, RadioButton.showPennant (OpenModal "dogs") , RadioButton.onPennantClick (OpenModal "dogs")
) )