Source file `ogtkAssistantProps.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
open GtkSignal
open Gobject
open Data
let set = set
let get = get
let param = param
open GtkAssistantProps

class virtual assistant_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 apply = self#connect Assistant.S.apply
  method cancel = self#connect Assistant.S.cancel
  method close = self#connect Assistant.S.close
  method leave = self#connect Assistant.S.leave
  method prepare = self#connect Assistant.S.prepare
end