Module `Stk_ocf`Source

Sourcemodule Wrapper : sig ... end

Sourceclass virtual 'a group : 'a Ocf.group -> object ... end

Sourceclass 'a conf_option : 'a Wrapper.wrapper -> 'a Ocf.conf_option -> object ... end

Sourceval get : 'a conf_option -> 'a

Sourceval set : 'a conf_option -> 'a -> unit

Sourceval date_wrapper : (int * int * int) Ocf.Wrapper.t

val ocf_date : 
  ?doc:string ->
  ?cb:(Stk.Datetime.date -> unit) ->
  Stk.Datetime.date ->
  Stk.Datetime.date Ocf.conf_option

Source

val option : 
  (unit ->
    < as_widget : 
      < add_class : Stk.Sset.elt -> unit
      ; apply_theme : unit
      ; as_o : Stk.Object.o
      ; as_widget : Stk.Widget.widget
      ; baseline : int
      ; bg_color : Stk.Color.t
      ; bg_color_focused : Stk.Color.t
      ; bg_color_hover : Stk.Color.t
      ; bg_color_now : Stk.Color.t
      ; bg_color_selected : Stk.Color.t
      ; bg_fill_borders : bool
      ; border_color : Stk.Color.t Stk.Props.trbl
      ; border_color_focused : Stk.Color.t Stk.Props.trbl
      ; border_color_hover : Stk.Color.t Stk.Props.trbl
      ; border_color_now : Stk.Color.t Stk.Props.trbl
      ; border_color_selected : Stk.Color.t Stk.Props.trbl
      ; border_width : int Stk.Props.trbl
      ; can_focus : bool
      ; child_focus_next : Stk.Widget.widget -> bool
      ; child_focus_prev : Stk.Widget.widget -> bool
      ; child_need_render : Stk.G.t -> unit
      ; child_need_resize : Stk.Widget.widget -> unit
      ; child_reparented : Stk.Widget.widget -> unit
      ; child_visible_rect : Stk.Widget.widget -> Stk.G.t
      ; classes : Stk.Sset.t
      ; coerce : Stk.Widget.widget
      ; connect : 
        'a. ?count:int ->
        'a Stk.Events.ev ->
        'a ->
        Stk.Events.callback_id
      ; create_texture : Tsdl.Sdl.renderer -> Stk.Texture.t option
      ; css_atts : string Stk.Smap.t
      ; css_path : ?parent_path:Stk.Theme.path -> unit -> Stk.Theme.path
      ; cursor : Tsdl.Sdl.cursor option
      ; destroy : unit
      ; destroy_texture : unit
      ; disconnect : Stk.Events.callback_id -> unit
      ; do_apply_theme : 
        root:Css.C.t ->
        parent:Css.C.t ->
        Stk.Theme.path ->
        string Css.S.rule_ list ->
        unit
      ; equal : Stk.Widget.widget -> bool
      ; fg_color : Stk.Color.t
      ; fg_color_focused : Stk.Color.t
      ; fg_color_hover : Stk.Color.t
      ; fg_color_now : Stk.Color.t
      ; fg_color_selected : Stk.Color.t
      ; fill : bool
      ; focus_next : bool
      ; focus_prev : bool
      ; focusable : bool
      ; focused_widget : Stk.Widget.widget option
      ; font : Stk.Font.font
      ; freeze : unit
      ; g_inner : Stk.G.t
      ; geometry : Stk.G.t
      ; get_focus : bool option
      ; get_p : 'a. 'a Stk.Props.prop -> 'a
      ; grab_focus : ?last:bool -> unit -> bool
      ; handle_need_resize : unit
      ; has_focus : bool
      ; height_constraints : Stk.Widget.size_constraints
      ; hexpand : int
      ; hfill : bool
      ; hmargin : int * int
      ; id : Stk.Oid.t
      ; ignore_need_resize : unit
      ; ignore_need_resize_do : (unit -> unit) -> unit
      ; init : unit
      ; invalidate_texture : unit
      ; is_focus : bool
      ; is_leaf_widget : bool
      ; kind : string
      ; leaf_widget_at : x:int -> y:int -> Stk.Widget.widget option
      ; margin : int Stk.Props.trbl
      ; me : string
      ; name : string option
      ; need_render : Stk.G.t -> unit
      ; need_rendering : Stk.G.t -> Stk.G.t option
      ; need_resize : unit
      ; next_leaf_widget : 
        ?inside:Stk.Widget.widget ->
        loop:bool ->
        (Stk.Widget.widget -> bool) ->
        Stk.Widget.widget option ->
        Stk.Widget.widget option
      ; next_widget : 
        ?inside:Stk.Widget.widget ->
        loop:bool ->
        (Stk.Widget.widget -> bool) ->
        Stk.Widget.widget option ->
        Stk.Widget.widget option
      ; on_file_dropped : Stk.Widget.drop_ev -> bool
      ; on_key_down : 
        (int * int) option ->
        Tsdl.Sdl.event ->
        Tsdl.Sdl.keycode ->
        Tsdl.Sdl.keymod ->
        bool
      ; on_key_up : 
        (int * int) option ->
        Tsdl.Sdl.event ->
        Tsdl.Sdl.keycode ->
        Tsdl.Sdl.keymod ->
        bool
      ; on_mouse_enter : bool
      ; on_mouse_leave : bool
      ; on_mouse_motion : Stk.Widget.mouse_motion_ev -> bool
      ; on_prop_changed : 'a. 'a Stk.Props.prop -> prev:'a option -> 'a -> unit
      ; on_sdl_event : (int * int) option -> Tsdl.Sdl.event -> bool
      ; on_sdl_event_down : 
        oldpos:(int * int) option ->
        (int * int) option ->
        Tsdl.Sdl.event ->
        bool
      ; on_text_dropped : Stk.Widget.drop_ev -> bool
      ; opacity : float
      ; opt_p : 'a. 'a Stk.Props.prop -> 'a option
      ; padding : int Stk.Props.trbl
      ; parent : Stk.Widget.widget option
      ; prepare : Tsdl.Sdl.renderer -> Stk.G.t -> Stk.Texture.t option
      ; prev_leaf_widget : 
        ?inside:Stk.Widget.widget ->
        loop:bool ->
        (Stk.Widget.widget -> bool) ->
        Stk.Widget.widget option ->
        Stk.Widget.widget option
      ; prev_widget : 
        ?inside:Stk.Widget.widget ->
        loop:bool ->
        (Stk.Widget.widget -> bool) ->
        Stk.Widget.widget option ->
        Stk.Widget.widget option
      ; props : Stk.Props.t
      ; release_focus : bool
      ; rem_class : Stk.Sset.elt -> unit
      ; render : Tsdl.Sdl.renderer -> offset:(int * int) -> Stk.G.t -> unit
      ; render_bg : Tsdl.Sdl.renderer -> offset:(int * int) -> Stk.G.t -> unit
      ; render_border : 
        Tsdl.Sdl.renderer ->
        offset:(int * int) ->
        Stk.G.t ->
        unit
      ; render_insensitive : 
        Tsdl.Sdl.renderer ->
        offset:(int * int) ->
        Stk.G.t ->
        unit
      ; render_me : Tsdl.Sdl.renderer -> offset:(int * int) -> Stk.G.t -> unit
      ; render_to_png : file:string -> unit
      ; render_with_prepare : 
        Tsdl.Sdl.renderer ->
        offset:(int * int) ->
        Stk.G.t ->
        unit
      ; selected : bool
      ; sensitive : bool
      ; set_bg_color : ?delay:float -> ?propagate:bool -> Stk.Color.t -> unit
      ; set_bg_color_focused : 
        ?delay:float ->
        ?propagate:bool ->
        Stk.Color.t ->
        unit
      ; set_bg_color_hover : 
        ?delay:float ->
        ?propagate:bool ->
        Stk.Color.t ->
        unit
      ; set_bg_color_selected : 
        ?delay:float ->
        ?propagate:bool ->
        Stk.Color.t ->
        unit
      ; set_bg_fill_borders : ?delay:float -> ?propagate:bool -> bool -> unit
      ; set_border_color : 
        ?delay:float ->
        ?propagate:bool ->
        Stk.Color.t Stk.Props.trbl ->
        unit
      ; set_border_color_ : 
        ?delay:float ->
        ?propagate:bool ->
        Stk.Color.t ->
        Stk.Color.t ->
        Stk.Color.t ->
        Stk.Color.t ->
        unit
      ; set_border_color__ : 
        ?delay:float ->
        ?propagate:bool ->
        Stk.Color.t ->
        unit
      ; set_border_color_focused : 
        ?delay:float ->
        ?propagate:bool ->
        Stk.Color.t Stk.Props.trbl ->
        unit
      ; set_border_color_focused_ : 
        ?delay:float ->
        ?propagate:bool ->
        Stk.Color.t ->
        Stk.Color.t ->
        Stk.Color.t ->
        Stk.Color.t ->
        unit
      ; set_border_color_focused__ : 
        ?delay:float ->
        ?propagate:bool ->
        Stk.Color.t ->
        unit
      ; set_border_color_hover : 
        ?delay:float ->
        ?propagate:bool ->
        Stk.Color.t Stk.Props.trbl ->
        unit
      ; set_border_color_hover_ : 
        ?delay:float ->
        ?propagate:bool ->
        Stk.Color.t ->
        Stk.Color.t ->
        Stk.Color.t ->
        Stk.Color.t ->
        unit
      ; set_border_color_hover__ : 
        ?delay:float ->
        ?propagate:bool ->
        Stk.Color.t ->
        unit
      ; set_border_color_selected : 
        ?delay:float ->
        ?propagate:bool ->
        Stk.Color.t Stk.Props.trbl ->
        unit
      ; set_border_color_selected_ : 
        ?delay:float ->
        ?propagate:bool ->
        Stk.Color.t ->
        Stk.Color.t ->
        Stk.Color.t ->
        Stk.Color.t ->
        unit
      ; set_border_color_selected__ : 
        ?delay:float ->
        ?propagate:bool ->
        Stk.Color.t ->
        unit
      ; set_border_width : 
        ?delay:float ->
        ?propagate:bool ->
        int Stk.Props.trbl ->
        unit
      ; set_border_width_ : 
        ?delay:float ->
        ?propagate:bool ->
        int ->
        int ->
        int ->
        int ->
        unit
      ; set_border_width__ : ?delay:float -> ?propagate:bool -> int -> unit
      ; set_button_pressed : Tsdl.Sdl.uint8 option -> unit
      ; set_can_focus : ?delay:float -> ?propagate:bool -> bool -> unit
      ; set_fg_color : ?delay:float -> ?propagate:bool -> Stk.Color.t -> unit
      ; set_fg_color_focused : 
        ?delay:float ->
        ?propagate:bool ->
        Stk.Color.t ->
        unit
      ; set_fg_color_hover : 
        ?delay:float ->
        ?propagate:bool ->
        Stk.Color.t ->
        unit
      ; set_fg_color_selected : 
        ?delay:float ->
        ?propagate:bool ->
        Stk.Color.t ->
        unit
      ; set_fill : ?delay:float -> ?propagate:bool -> bool -> unit
      ; set_focusable : ?delay:float -> ?propagate:bool -> bool -> unit
      ; set_geometry : Stk.G.t -> unit
      ; set_handle_hovering : bool -> unit
      ; set_has_focus : bool -> bool
      ; set_hexpand : ?delay:float -> ?propagate:bool -> int -> unit
      ; set_hfill : ?delay:float -> ?propagate:bool -> bool -> unit
      ; set_margin : 
        ?delay:float ->
        ?propagate:bool ->
        int Stk.Props.trbl ->
        unit
      ; set_margin_ : 
        ?delay:float ->
        ?propagate:bool ->
        int ->
        int ->
        int ->
        int ->
        unit
      ; set_margin__ : ?delay:float -> ?propagate:bool -> int -> unit
      ; set_mouse_on_widget : bool -> bool
      ; set_opacity : ?delay:float -> ?propagate:bool -> float -> unit
      ; set_p : 
        'a. 'a Stk.Props.prop ->
        ?delay:float ->
        ?propagate:bool ->
        'a ->
        unit
      ; set_padding : 
        ?delay:float ->
        ?propagate:bool ->
        int Stk.Props.trbl ->
        unit
      ; set_padding_ : 
        ?delay:float ->
        ?propagate:bool ->
        int ->
        int ->
        int ->
        int ->
        unit
      ; set_padding__ : ?delay:float -> ?propagate:bool -> int -> unit
      ; set_parent : 
        ?with_rend:((Tsdl.Sdl.renderer -> unit Lwt.t) -> unit Lwt.t) ->
        Stk.Widget.widget option ->
        unit
      ; set_props : ?delay:float -> ?propagate:bool -> Stk.Props.t -> unit
      ; set_selected : ?delay:float -> ?propagate:bool -> bool -> unit
      ; set_sensitive : bool -> unit
      ; set_show_on_focus : ?delay:float -> ?propagate:bool -> bool -> unit
      ; set_text_valign : 
        ?delay:float ->
        ?propagate:bool ->
        Stk.Props.text_valign ->
        unit
      ; set_typ : Stk.Widget.widget_type -> unit
      ; set_vexpand : ?delay:float -> ?propagate:bool -> int -> unit
      ; set_vfill : ?delay:float -> ?propagate:bool -> bool -> unit
      ; set_visible : ?delay:float -> ?propagate:bool -> bool -> unit
      ; set_wdata : Stk.Widget.wdata option -> unit
      ; show : unit
      ; show_child_rect : Stk.G.t -> unit
      ; show_on_focus : bool
      ; show_rect : Stk.G.t -> unit
      ; text_valign : Stk.Props.text_valign
      ; texture : 
        Tsdl.Sdl.renderer ->
        [ `Exist of Stk.Texture.t | `New of Stk.Texture.t ] option
      ; theme_props : Css.C.t
      ; to_desktop_coords : x:int -> y:int -> int * int
      ; to_g_inner_coords : x:int -> y:int -> int * int
      ; to_top_window_coords : x:int -> y:int -> int * int
      ; top_widget : Stk.Widget.widget
      ; top_window : Tsdl.Sdl.window option
      ; trigger_event : 'a. ('a -> bool) Stk.Events.ev -> 'a -> bool
      ; trigger_event_unit : 'a. ('a -> bool) Stk.Events.ev -> 'a -> unit
      ; trigger_unit_event : 'a. ('a -> unit) Stk.Events.ev -> 'a -> unit
      ; typ : Stk.Widget.widget_type option
      ; unfreeze : unit
      ; update_g_inner : unit
      ; vexpand : int
      ; vfill : bool
      ; visible : bool
      ; visible_rect : Stk.G.t
      ; vmargin : int * int
      ; wdata : Stk.Widget.wdata option
      ; width_constraints : Stk.Widget.size_constraints
      ; with_renderer : 
        ((Tsdl.Sdl.renderer -> unit Lwt.t) -> unit Lwt.t) option
      ; wtree : Stk.Widget.widget Stk.Widget.tree.. >
    ; get : 'a
    ; is_none : bool
    ; set : 'a -> unit
    ; set_none : (unit -> unit) option.. >) ->
  'a Ocf.wrapper ->
  ?doc:string ->
  ?cb:('a -> unit) ->
  'a ->
  'a conf_option

Sourceval int : ?doc:string -> ?cb:(int -> unit) -> int -> int conf_option

Source

val int_list : 
  ?sep:char ->
  ?doc:string ->
  ?cb:(int list -> unit) ->
  int list ->
  int list conf_option

Source

val string : 
  ?doc:string ->
  ?cb:(string -> unit) ->
  string ->
  string conf_option

Source

val string_list : 
  ?sep:char ->
  ?doc:string ->
  ?cb:(string list -> unit) ->
  string list ->
  string list conf_option

Source

val bool : 
  ?text:string ->
  ?doc:string ->
  ?cb:(bool -> unit) ->
  bool ->
  bool conf_option

Source

val date : 
  ?button_text:string ->
  ?doc:string ->
  ?cb:(Stk.Datetime.date -> unit) ->
  Stk.Datetime.date ->
  Stk.Datetime.date conf_option

Source

val explicit_option : 
  'a Wrapper.wrapper ->
  'a Ocf.Wrapper.t ->
  ?doc:string ->
  ?cb:('a option -> unit) ->
  'a option ->
  'a option conf_option

Source

val option_ : 
  'a Wrapper.wrapper ->
  'a Ocf.Wrapper.t ->
  ?doc:string ->
  ?cb:('a option -> unit) ->
  'a option ->
  'a option conf_option

Sourceval to_string : 'a group -> string

Sourceval to_json : 'a group -> Yojson.Safe.t

Sourceval from_string : 'a group -> string -> unit

Sourceval from_json : 'a group -> Yojson.Safe.t -> unit

Sourceclass virtual +'a open_group : 'a Ocf.group -> object ... end

Sourceval group : ([ `Open ] Ocf.group -> 'a) -> 'a

Source

val opt_label_or_text : 
  ?label:< coerce : Stk.Widget.widget.. > ->
  ?text:string ->
  unit ->
  Stk.Widget.widget option

Source

val label_or_text : 
  ?label:< coerce : Stk.Widget.widget.. > ->
  ?text:string ->
  unit ->
  Stk.Widget.widget

Source

class +'c box : Stk.Props.orientation -> ?classes:string list option -> ?name:string option -> ?props:
  Stk.Props.t
    option -> ?wdata:Stk.Widget.wdata option -> unit -> object ... end

Source

val vbox : 
  ?classes:string list ->
  ?name:string ->
  ?props:Stk.Props.t ->
  ?wdata:Stk.Widget.wdata ->
  unit ->
  [ `Open ] box

Source

val hbox : 
  ?classes:string list ->
  ?name:string ->
  ?props:Stk.Props.t ->
  ?wdata:Stk.Widget.wdata ->
  unit ->
  [ `Open ] box

Source

class +'b notebook : Stk.Props.orientation -> ?classes:string list option -> ?name:string option -> ?props:
  Stk.Props.t
    option -> ?wdata:Stk.Widget.wdata option -> unit -> object ... end

Source

val vnotebook : 
  ?classes:string list ->
  ?name:string ->
  ?props:Stk.Props.t ->
  ?wdata:Stk.Widget.wdata ->
  unit ->
  [ `Open ] notebook

Source

val hnotebook : 
  ?classes:string list ->
  ?name:string ->
  ?props:Stk.Props.t ->
  ?wdata:Stk.Widget.wdata ->
  unit ->
  [ `Open ] notebook

Source

class 'a frame : ?classes:string list option -> ?name:string option -> ?props:Stk.Props.t
                                                                  option -> ?wdata:
  Stk.Widget.wdata
    option -> ?label:Stk.Widget.widget option -> < apply : unit
  ; as_widget : Stk.Widget.widget
  ; ocf_group : 'a Ocf.group.. > -> object ... end

Source

val frame : 
  ?classes:string list ->
  ?name:string ->
  ?props:Stk.Props.t ->
  ?wdata:Stk.Widget.wdata ->
  ?label:< coerce : Stk.Widget.widget.. > ->
  ?text:string ->
  < apply : unit ; as_widget : Stk.Widget.widget ; ocf_group : 'a Ocf.group.. > ->
  'a frame

Source

class +'c table : ?classes:string list option -> ?name:string option -> ?props:Stk.Props.t
                                                                  option -> ?wdata:
  Stk.Widget.wdata
    option -> unit -> object ... end

Source

val table : 
  ?classes:string list ->
  ?name:string ->
  ?props:Stk.Props.t ->
  ?wdata:Stk.Widget.wdata ->
  unit ->
  [ `Open ] table

package stk_ocf

Module Stk_ocfSource

Module `Stk_ocf`Source