DialogFileChooser¶

fun cbOpenFile (widget, userparam, path)=
    _fooS path;
    0;;

fun OpenADialog (window, userparam) =
    _gtkDialogFileChooserNew 
    _channel 
    window
    "Choose a file, please !" 
    nil
    SCOL_GTK_ACTION_OPEN 
    ["*.png" "Image"] :: ["*.*" "All"] :: nil
    @cbOpenFile
    userparam;
    0;;