Dialog windows.
class 'a dialog : class_:string -> (unit ->
unit) -> Window.window -> Bin.bin -> unit Pack.box -> object ... endval 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 dialogval 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)