Dialog (stk.Stk.Dialog)

class 'a dialog : class_:string -> (unit ->
  unit) -> Window.window -> Bin.bin -> unit Pack.box -> object ... end

type behaviour = [

| `Destroy_on_return
| `Hide_on_return
| `Modal_for of Window.window

]

val dialog : 
  ?class_:string ->
  ?behaviour:
    [ `Destroy_on_return | `Hide_on_return | `Modal_for of Window.window ] ->
  ?flags:Tsdl.Sdl.Window.flags ->
  ?rflags:Tsdl.Sdl.Renderer.flags ->
  ?x:int ->
  ?y:int ->
  ?w:int ->
  ?h:int ->
  string ->
  'a dialog

val simple_input : 
  ?class_:string ->
  ?behaviour:
    [ `Destroy_on_return | `Hide_on_return | `Modal_for of Window.window ] ->
  ?flags:Tsdl.Sdl.Window.flags ->
  ?rflags:Tsdl.Sdl.Renderer.flags ->
  ?x:int ->
  ?y:int ->
  ?w:int ->
  ?h:int ->
  ?ok:string ->
  ?cancel:string ->
  ?orientation:Props.orientation ->
  ?msg:string ->
  ?input:[< `Line | `Text Line ] ->
  ?text:string ->
  string ->
  string dialog * (unit -> string)