This file is indexed.

/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