/usr/lib/ocaml/lablgtk2/gtkFileProps.ml is in liblablgtk2-ocaml-dev 2.18.3+dfsg-1build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 | open Gobject
open Data
module Object = GtkObject
let may_cons = Property.may_cons
let may_cons_opt = Property.may_cons_opt
module FileChooser = struct
let cast w : Gtk.file_chooser obj = try_cast w "GtkFileChooser"
module P = struct
let action : ([>`filechooser],_) property =
{name="action"; conv=GtkEnums.file_chooser_action_conv}
let extra_widget : ([>`filechooser],_) property =
{name="extra-widget"; conv=(gobject : Gtk.widget obj data_conv)}
let file_system_backend : ([>`filechooser],_) property =
{name="file-system-backend"; conv=string}
let filter : ([>`filechooser],_) property =
{name="filter"; conv=(gobject : Gtk.file_filter Gtk.obj data_conv)}
let local_only : ([>`filechooser],_) property =
{name="local-only"; conv=boolean}
let preview_widget : ([>`filechooser],_) property =
{name="preview-widget"; conv=(gobject : Gtk.widget obj data_conv)}
let preview_widget_active : ([>`filechooser],_) property =
{name="preview-widget-active"; conv=boolean}
let select_multiple : ([>`filechooser],_) property =
{name="select-multiple"; conv=boolean}
let show_hidden : ([>`filechooser],_) property =
{name="show-hidden"; conv=boolean}
let use_preview_label : ([>`filechooser],_) property =
{name="use-preview-label"; conv=boolean}
let do_overwrite_confirmation : ([>`filechooser],_) property =
{name="do-overwrite-confirmation"; conv=boolean}
end
module S = struct
open GtkSignal
let current_folder_changed =
{name="current_folder_changed"; classe=`filechooser;
marshaller=marshal_unit}
let file_activated =
{name="file_activated"; classe=`filechooser; marshaller=marshal_unit}
let selection_changed =
{name="selection_changed"; classe=`filechooser;
marshaller=marshal_unit}
let update_preview =
{name="update_preview"; classe=`filechooser; marshaller=marshal_unit}
let confirm_overwrite =
{name="confirm_overwrite"; classe=`filechooser;
marshaller=fun f -> marshal0_ret ~ret:GtkEnums.file_chooser_confirmation_conv f}
end
end
module FileChooserButton = struct
let cast w : Gtk.file_chooser_button obj =
try_cast w "GtkFileChooserButton"
module P = struct
let title : ([>`filechooserbutton],_) property =
{name="title"; conv=string}
let width_chars : ([>`filechooserbutton],_) property =
{name="width-chars"; conv=int}
end
let create pl : Gtk.file_chooser_button obj =
Object.make "GtkFileChooserButton" pl
end
|