diff --git a/demo/Demo.elm b/demo/Demo.elm index 303b117..fcd287d 100644 --- a/demo/Demo.elm +++ b/demo/Demo.elm @@ -27,6 +27,7 @@ import Demo.Textfields import Demo.Snackbar import Demo.Badges import Demo.Elevation +import Demo.Toggles --import Demo.Template @@ -76,6 +77,7 @@ type alias Model = , routing : Routing , buttons : Demo.Buttons.Model , textfields : Demo.Textfields.Model + , toggles : Demo.Toggles.Model , snackbar : Demo.Snackbar.Model --, template : Demo.Template.Model } @@ -87,6 +89,7 @@ model = , routing = route0 , buttons = Demo.Buttons.model , textfields = Demo.Textfields.model + , toggles = Demo.Toggles.model , snackbar = Demo.Snackbar.model --, template = Demo.Template.model } @@ -105,6 +108,7 @@ type Action | ButtonsAction Demo.Buttons.Action | TextfieldAction Demo.Textfields.Action | SnackbarAction Demo.Snackbar.Action + | TogglesAction Demo.Toggles.Action -- | TemplateAction Demo.Template.Action @@ -148,6 +152,8 @@ update action model = SnackbarAction a -> lift .snackbar (\m x->{m|snackbar =x}) SnackbarAction Demo.Snackbar.update a model + TogglesAction a -> lift .toggles (\m x->{m|toggles =x}) TogglesAction Demo.Toggles.update a model + --TemplateAction a -> lift .template (\m x->{m|template =x}) TemplateAction Demo.Template.update a model @@ -207,6 +213,8 @@ tabs = Demo.Snackbar.view (Signal.forwardTo addr SnackbarAction) model.snackbar) , ("Textfields", "textfields", \addr model -> Demo.Textfields.view (Signal.forwardTo addr TextfieldAction) model.textfields) + , ("Toggles", "toggles", \addr model -> + Demo.Toggles.view (Signal.forwardTo addr TogglesAction) model.toggles) --, ("Template", "tempate", \addr model -> -- Demo.Template.view (Signal.forwardTo addr TemplateAction) model.template) ] diff --git a/src/Material.elm b/src/Material.elm index be46cc9..04fcfe5 100644 --- a/src/Material.elm +++ b/src/Material.elm @@ -170,6 +170,7 @@ import Effects exposing (Effects) import Material.Button as Button import Material.Textfield as Textfield import Material.Snackbar as Snackbar +import Material.Toggles as Toggles import Material.Component as Component exposing (Indexed) --import Material.Template as Template @@ -181,6 +182,7 @@ type alias Model = { button : Indexed Button.Model , textfield : Indexed Textfield.Model , snackbar : Maybe (Snackbar.Model Int) + , toggles : Indexed Toggles.Model -- , template : Indexed Template.Model } @@ -192,6 +194,7 @@ model = { button = Dict.empty , textfield = Dict.empty , snackbar = Nothing + , toggles = Dict.empty --, template = Dict.empty }