Mvu (elm_playground.Mvu)

type 'msg element

val button : ?enabled:bool -> Widget.box -> string -> 'msg -> 'msg element

val label : Widget.box -> string -> 'msg element

val field : 
  ?enabled:bool ->
  Widget.box ->
  string ->
  (string -> 'msg) ->
  'msg element

val slider : 
  Widget.box ->
  from:float ->
  to_:float ->
  float ->
  (float -> 'msg) ->
  'msg element

val progress : Widget.box -> float -> 'msg element

val menu : Widget.box -> string list -> int -> (int -> 'msg) -> 'msg element

val group : 'msg element list -> 'msg element

val canvas : 
  Widget.box ->
  Widget.paint list ->
  (Widget.canvas_event -> 'msg option) ->
  'msg element

val context_menu : 
  (float * float) ->
  string list ->
  (int option -> 'msg) ->
  'msg element

type t

val empty : t

val step : 
  Theme.t ->
  Widget.input ->
  t ->
  view:('model -> 'msg element) ->
  update:('msg -> 'model -> 'model) ->
  'model ->
  t * 'model * Widget.paint list