/usr/lib/ocaml/lablgtk2/ogtkBrokenProps.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 GtkSignal
open Gobject
open Data
let set = set
let get = get
let param = param
open GtkBrokenProps
class virtual tree_item_sigs = object (self)
method private virtual connect :
'b. ('a,'b) GtkSignal.t -> callback:'b -> GtkSignal.id
method private virtual notify :
'b. ('a,'b) property -> callback:('b -> unit) -> GtkSignal.id
method collapse = self#connect TreeItem.S.collapse
method expand = self#connect TreeItem.S.expand
end
class virtual old_editable_sigs = object (self)
method private virtual connect :
'b. ('a,'b) GtkSignal.t -> callback:'b -> GtkSignal.id
method private virtual notify :
'b. ('a,'b) property -> callback:('b -> unit) -> GtkSignal.id
method activate = self#connect OldEditable.S.activate
method copy_clipboard = self#connect OldEditable.S.copy_clipboard
method cut_clipboard = self#connect OldEditable.S.cut_clipboard
method paste_clipboard = self#connect OldEditable.S.paste_clipboard
method move_cursor = self#connect OldEditable.S.move_cursor
method move_word = self#connect OldEditable.S.move_word
method move_page = self#connect OldEditable.S.move_page
method move_to_row = self#connect OldEditable.S.move_to_row
method move_to_column = self#connect OldEditable.S.move_to_column
end
class virtual text_props = object
val virtual obj : _ obj
method set_hadjustment =
set {Text.P.hadjustment with conv=GData.conv_adjustment} obj
method set_vadjustment =
set {Text.P.vadjustment with conv=GData.conv_adjustment} obj
method set_line_wrap = set Text.P.line_wrap obj
method set_word_wrap = set Text.P.word_wrap obj
method hadjustment =
get {Text.P.hadjustment with conv=GData.conv_adjustment} obj
method vadjustment =
get {Text.P.vadjustment with conv=GData.conv_adjustment} obj
method line_wrap = get Text.P.line_wrap obj
method word_wrap = get Text.P.word_wrap obj
end
class virtual text_notify obj = object (self)
val obj : 'a obj = obj
method private notify : 'b. ('a, 'b) property ->
callback:('b -> unit) -> _ =
fun prop ~callback -> GtkSignal.connect_property obj
~prop ~callback
method hadjustment =
self#notify {Text.P.hadjustment with conv=GData.conv_adjustment}
method vadjustment =
self#notify {Text.P.vadjustment with conv=GData.conv_adjustment}
method line_wrap = self#notify Text.P.line_wrap
method word_wrap = self#notify Text.P.word_wrap
end
|