NoRedInk/noredink-ui
1
1
Fork 0
mirror of https://github.com/NoRedInk/noredink-ui.git synced 2024-12-23 21:52:05 +03:00
Code Issues Packages Projects Releases Wiki Activity

Begin switching to shared debug view

Browse Source
This commit is contained in:
Tessa Kelly 2022-03-24 14:56:36 -07:00
parent bd246b24a3
commit 05e8f89df4
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
styleguide-app/Examples/SegmentedControl.elm
View File

@ -17,6 +17,7 @@ import Browser.Dom as Dom
import Category exposing (Category(..))
import Css
import Debug.Control as Control exposing (Control)
import Debug.Control.View as ControlView
import Example exposing (Example)
import Html.Styled.Attributes exposing (css)
import KeyboardSupport exposing (Key(..))
@ -46,8 +47,15 @@ example =
options =
Control.currentValue state.optionsControl
in
[ Control.view ChangeOptions state.optionsControl
|> Html.fromUnstyled
[ ControlView.view
{ update = ChangeOptions
, settings = state.optionsControl
, toExampleCode =
\settings ->
[ { sectionName = "view", code = "TODO" }
, { sectionName = "viewRadioGroup", code = "TODO" }
]
}
, Html.h3 [ css [ Css.marginBottom Css.zero ] ]
[ Html.code [] [ Html.text "view" ] ]
, Html.p [ css [ Css.marginTop (Css.px 1) ] ]