clutter-ocaml / src / clutter.props

  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
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
(* $Id: gtk.props,v 1.16 2003/07/23 03:06:03 garrigue Exp $ *)

header {
open Gtk
open Gobject
open Data
open ClutterData
open Clutter
module Object = struct
  let cast w : [`gobject] obj = try_cast w "GObject"
  external _ref : 'a obj -> unit = "ml_g_object_ref"
  let make ~classe params =
    let obj = unsafe_create ~classe params in _ref obj;
    obj
end
}

oheader{
open GtkSignal
open ClutterProps

(* Redefining saves space in bytecode! *)
let set = set
let get = get
let param = param
}

conversions {
  ClutterUnit "int"
  ClutterKnot "Structs.conv_knot"
  ClutterColor "Clutter.Color.conv_color"
  ClutterActorBox "Clutter.ActorBox.conv"
  (*ClutterTimeline "ClutterTimeline.conv"*)
}

boxed {
  ClutterEvent "Event.any"
  ClutterVertex "Clutter.vertex"
  ClutterGeometry "Clutter.geometry"
  (*ClutterColor "Clutter.Color.t"*)
  (*ClutterKnot "Clutter.knot"*)
  (*ClutterActorBox "Clutter.actorbox"*)
}

classes {
  GdkPixbuf "GdkPixbuf.pixbuf"
  ClutterAlpha "Clutter.alpha obj"
  ClutterBehaviour "Clutter.behaviour obj"
  ClutterTimeline "Clutter.timeline obj"
  ClutterStage "Clutter.stage obj"
  ClutterGroup "Clutter.group obj"
}

class Actor abstract set wrap wrapsig : Object {
  "allocation"               ClutterActorBox       : Read
  "anchor-x"                 gint                  : Read / Write
  "anchor-y"                 gint                  : Read / Write
  "clip"                     ClutterGeometry       : Read / Write
  "depth"                    gint                  : Read / Write
  "fixed-position-set"       gboolean              : Read / Write
  "fixed-x"                  ClutterUnit           : Read / Write
  "fixed-y"                  ClutterUnit           : Read / Write
  "has-clip"                 gboolean              : Read
  "height"                   gint                  : Read / Write
  "min-height"               ClutterUnit           : Read / Write
  "min-height-set"           gboolean              : Read / Write
  "min-width"                ClutterUnit           : Read / Write
  "min-width-set"            gboolean              : Read / Write
  "name"                     string                : Read / Write
  "natural-height"           ClutterUnit           : Read / Write
  "natural-height-set"       gboolean              : Read / Write
  "natural-width"            ClutterUnit           : Read / Write
  "natural-width-set"        gboolean              : Read / Write
  "opacity"                  guchar                : Read / Write
  "reactive"                 gboolean              : Read / Write
  "request-mode"             ClutterRequestModeType    : Read / Write
  "rotation-angle-x"         gdouble               : Read / Write
  "rotation-angle-y"         gdouble               : Read / Write
  "rotation-angle-z"         gdouble               : Read / Write
  "rotation-center-x"        ClutterVertex         : Read / Write
  "rotation-center-y"        ClutterVertex         : Read / Write
  "rotation-center-z"        ClutterVertex         : Read / Write
  "scale-x"                  gdouble               : Read / Write
  "scale-y"                  gdouble               : Read / Write
  "show-on-set-parent"       gboolean              : Read / Write
  "visible"                  gboolean              : Read / Write
  "width"                    gint                  : Read / Write
  "x"                        gint                  : Read / Write
  "y"                        gint                  : Read / Write
  signal button_press_event : ClutterEvent -> bool
  signal button_release_event : ClutterEvent -> bool
  signal captured_event : ClutterEvent -> bool
  signal destroy
  signal enter_event : ClutterEvent -> bool
  signal event : ClutterEvent -> bool
  signal focus_in
  signal focus_out
  signal hide
  signal key_press_event : ClutterEvent -> bool
  signal key_release_event : ClutterEvent -> bool
  signal leave_event : ClutterEvent -> bool
  signal motion_event : ClutterEvent -> bool
  signal parent_set : ClutterActor
  signal scroll_event : ClutterEvent -> bool
  signal show
  method show : "unit"
  method show_all : "unit"
  method hide : "unit"
  method hide_all : "unit"
  method realize : "unit"
  method unrealize : "unit"
  method paint : "unit"
  method queue_redraw : "unit"
  method queue_relayout : "unit"
  method destroy : "unit"
  (* request_coords *)
  (* query_coords *)
  method event : "'a Clutter.event -> bool -> bool"
  method pick : "Clutter.Color.t -> unit"
  method allocate : "Clutter.ActorBox.t -> bool -> unit"
  method get_allocation_box : "Clutter.ActorBox.t"
  method should_pick_paint : "bool"
  method set_geometry : "Clutter.geometry -> unit"
  method get_geometry : "Clutter.geometry"
  (*method get_coords : "Clutter.coords"*)
  method set_size : "width:int -> height:int -> unit"
  (* method get_size : "(int*int) *)
  method set_position: "x:int -> y:int -> unit"
  (* method get_position: "(int*int) *)
  (* method get_abs_position: "(int*int) *)
  method move_by: "dx:int -> dy:int -> unit"
  method set_rotation: "ClutterEnums.rotate_axis_type -> angle:float -> x: int -> y:int -> z:int -> unit"
  (* method get_rotation: "Clutter.rotate_axis -> *)
  method is_rotated: "bool"
  method get_gid: "int"
  method set_clip: "xoff:int -> yoff:int -> width:int -> height:int -> unit"
  method remove_clip: "unit"
  method has_clip: "bool"
  (* method get_clip: "*)
  method set_parent : "unit"
  method get_parent : "Clutter.actor"
  method reparent : "Clutter.actor -> unit"
  method unparent : "unit"
  method raise : "Clutter.actor -> unit"
  method lower : "Clutter.actor -> unit"
  method raise_top: "unit"
  method lower_bottom: "unit"
  
  method get_stage : "Clutter.actor"
  method set_scale : "xscale:float -> yscale:float -> unit"
  method is_scaled : "bool"
  method apply_transform_to_point : "Clutter.vertex -> Clutter.vertex"
  method transform_stage_point : "x:int -> y:int -> (int*int)"
  method apply_relative_transform_to_point : "ancestor:Clutter.actor -> point:Clutter.vertex -> vertex:Clutter.vertex -> unit"
  method get_transformed_position : "int*int"
  method get_transformed_size : "int*int"
  method get_paint_opacity : "int"
  method get_abs_allocation_vertices : "Clutter.vertex * Clutter.vertex * Clutter.vertex * Clutter.vertex"
  method box_get_from_vertices : "Clutter.vertex -> Clutter.vertex -> Clutter.vertex -> Clutter.vertex -> Clutter.actorbox"
  method set_anchor_point : "x:int -> y:int -> unit"
  method get_anchor_point : "int*int"
  method set_anchor_point_from_gravity : "ClutterEnums.gravity_type -> unit"
  method move_anchor_point : "x:int -> y:int -> unit"
  method move_anchor_point_from_gravity : "ClutterEnums.gravity_type -> unit"
  (* much more *)
}

class Container abstract wrap {
  method add_actor : "[> `actor] Clutter.obj -> unit"
  (* method add *)
  (* method add_va_list *)
  method remove_actor : "Clutter.container -> [> `actor] Clutter.obj -> unit"
  (* remove remove; method remove_va_list *)
  (* method get_children : Clutter.container -> GList *)
  (* method foreach *)
  method find_child_by_name : "Clutter.container -> string -> Clutter.actor"
  method raise_child : "Clutter.container -> Clutter.actor -> Clutter.actor -> unit"
  method lower_child : "Clutter.container -> Clutter.actor -> Clutter.actor -> unit"
  method sort_depth_order : "Clutter.container -> unit"
}

class Group set wrap wrapsig : Actor {
  (* method new : "ClutterActor" *)
  method add_many : "Clutter.actor obj array -> unit"
  method remove_all : "unit"
  method get_n_children : "int"
  signal add : ClutterGroup ClutterActor
  signal remove : ClutterGroup ClutterActor
  (* method clutter_group_get_nth_child : "Clutter.group -> int -> actors *)  
}

class Label set wrap : Actor {
  "alignment"                PangoAlignmentType        : Read / Write
  "attributes"               PangoAttrList         : Read / Write
  "color"                    ClutterColor          : Read / Write
  "ellipsize"                PangoEllipsizeModeType    : Read / Write
  "font-name"                string                 : Read / Write
  "justify"                  gboolean              : Read / Write
  "text"                     string                 : Read / Write
  "use-markup"               gboolean              : Read / Write
  "wrap"                     gboolean              : Read / Write
  "wrap-mode"                PangoWrapModeType         : Read / Write
  method get_layout : "Pango.layout" 
}

class Entry set wrap wrapsig : Actor {
  "alignment"                PangoAlignmentType    : Read / Write
  "color"                    ClutterColor          : Read / Write
  "cursor-visible"           gboolean              : Read / Write
  "entry-padding"            guint                 : Read / Write
  "font-name"                string                : Read / Write
  "max-length"               gint                  : Read / Write
  "position"                 gint                  : Read / Write / NoWrap
  "text"                     string                : Read / Write
  "text-visible"             gboolean              : Read / Write
  "x-align"                  gdouble               : Read / Write
  signal activate : ClutterEntry
  signal cursor_event : ClutterEntry ClutterGeometry
  signal text_changed : ClutterEntry
  method set_cursor_position : "int -> unit"
  method get_cursor_position : "int"
  method handle_key_event : "Event.Key.t -> unit"
  method insert_unichar : "int -> unit"
  method delete_chars : "len:int -> unit"
  method insert_text : "text:string -> position:int -> unit"
  method delete_text : "start_pos:int -> end_pos:int -> unit"
  method set_invisible_char : "int -> unit"
  method get_invisible_char : "int"
}


class Stage set wrap wrapsig : Group {
  "color"                    ClutterColor          : Read / Write
  "cursor-visible"           gboolean              : Read / Write / Construct
  "fullscreen"               gboolean              : Read / Write / Construct
  "offscreen"                gboolean              : Read / Write / Construct
  "title"                    string                : Read / Write
  "use-fog"                  gboolean              : Read / Write
  "user-resizable"           gboolean              : Read / Write / Construct
  signal activate : ClutterStage
  signal deactivate : ClutterStage
  signal fullscreen : ClutterStage
  signal unfullscreen : ClutterStage
  method get_default : "Clutter.stage"
  method get_actor_at_pos : "x:int -> y:int -> Clutter.actor obj"
  method snapshot : "int -> int -> int -> int -> GdkPixbuf.pixbuf"
  method event : "[> `ANY] Clutter.event -> bool"
  method set_key_focus : "Clutter.actor obj -> unit"
  method get_key_focus : "Clutter.actor obj"
  method get_resolution : "float"
  (* Could use input/output structs with conversion here *)
  method set_perspective : "fovy:float -> aspect:float -> z_near:float -> z_far:float -> unit"
  method get_perspective : "(float*float*float*float)"
  method set_fog : "density:float -> z_near:float -> z_far:float -> unit"
  method get_fog : "(float*float*float)"
}

class Rectangle set wrap : Actor {
  "border-color"             ClutterColor          : Read / Write
  "border-width"             guint                 : Read / Write
  "color"                    ClutterColor          : Read / Write
  "has-border"               gboolean              : Read / Write
}

class Cairo set wrap : Actor {
  "surface-width"            guint                 : Read / Write
  "surface-height"           guint                 : Read / Write
  method new_context : "Cairo.t"
}

class Texture set wrap wrapsig : Actor {
  "cogl-texture"             ClutterTextureHandle  : Read / Write
  "disable-slicing"          gboolean              : Read / Write / Construct Only
  "filename"                 string                : Write
  "filter-quality"           ClutterTextureQualityType  : Read / Write / Construct
  "keep-aspect-ratio"        gboolean              : Read / Write
  "pixel-format"             gint                  : Read
  "repeat-x"                 gboolean              : Read / Write
  "repeat-y"                 gboolean              : Read / Write
  "sync-size"                gboolean              : Read / Write
  "tile-waste"               gint                  : Read / Write / Construct Only
  (*method set_from_rgb_data
    method set_from_yuv_data
    method set_area_from_rgb_data
  *)
  method set_from_file : "string -> bool"
  method get_base_size : "(int*int)"
  method get_max_tile_waste : "int"
  method set_max_tile_waste : "int -> unit"
  method get_cogl_texture : "Clutter.coglhandle"
  method set_colg_texture : "Clutter.coglhandle -> unit"
  signal pixbuf_change : ClutterTexture
  signal size_change : ClutterTexture int int
}

class CloneTexture set wrap : Actor {
  "parent-texture"           ClutterTexture        : Read / Write
  "repeat-x"                 gboolean              : Read / Write
  "repeat-y"                 gboolean              : Read / Write
}

class Alpha set wrap wrapsig : Object {
  "alpha"                    guint                 : Read
  "timeline"                 ClutterTimeline       : Read / Write
}

class Behaviour abstract set wrap wrapsig : Object {
  "alpha"                    ClutterAlpha         : Read / Write
  signal applied : ClutterBehaviour ClutterActor
  signal removed : ClutterBehaviour ClutterActor
  method apply : "Clutter.actor obj -> unit"
  method remove : "Clutter.actor obj -> unit"
  method remove_all : "unit"
  method is_applied : "Clutter.actor obj -> bool"
  (* actors_foreach *)
  (* get_actors *)
  method get_n_actors : "unit"
  method get_nth_actor : "int -> Clutter.actor obj"
}

class BehaviourEllipse set wrap : Behaviour {
  "angle-end"                gdouble               : Read / Write
  "angle-start"              gdouble               : Read / Write
  "angle-tilt-x"             gdouble               : Read / Write
  "angle-tilt-y"             gdouble               : Read / Write
  "angle-tilt-z"             gdouble               : Read / Write
  "center"                   ClutterKnot          : Read / Write
  "direction"                ClutterRotateDirectionType  : Read / Write
  "height"                   gint                  : Read / Write
  "width"                    gint                  : Read / Write
  (* FIXME: from Behaviour *)
  "alpha"                    ClutterAlpha          : Read / Write
}

class BehaviourOpacity set wrap : Behaviour {
  "opacity-end"              guint                 : Read / Write
  "opacity-start"            guint                 : Read / Write
}

class BehaviourDepth set wrap : Behaviour {
  "depth-end"                gint                  : Read / Write
  "depth-start"              gint                  : Read / Write
}

class BehaviourBspline set wrap wrapsig : Behaviour {
  method append_knot : "Clutter.knot -> unit"
  method truncate : "int -> unit"
  method join : "Clutter.behaviour_bspline -> unit"
  method split : "int -> Clutter.behaviour"
  method clear
  method adjust : "int -> Clutter.knot -> unit"
  method set_origin : "Clutter.knot -> unit"
  method get_origin : "Clutter.knot"
  signal knot_reached : ClutterBehaviourBspline ClutterKnot
}

class BehaviourPath set wrap wrapsig : Behaviour {
  "knot"                     ClutterKnot          : Write
  signal knot_reached : ClutterBehaviourPath ClutterKnot
  method get_knots : "Clutter.knot array"
  method append_knots : "Clutter.knot array -> unit"
  method append_knot : "Clutter.knot -> unit"
  method insert_knot : "offset:int -> knot:Clutter.knot -> unit"
  method remove_knot : "offset:int -> unit"
  method clear
}

class BehaviourRotate set wrap : Behaviour {
  "angle-end"                gdouble               : Read / Write
  "angle-start"              gdouble               : Read / Write
  "axis"                     ClutterRotateAxisType        : Read / Write
  "center-x"                 gint                  : Read / Write
  "center-y"                 gint                  : Read / Write
  "center-z"                 gint                  : Read / Write
  "direction"                ClutterRotateDirectionType   : Read / Write
}

class BehaviourScale set wrap : Behaviour {
  "x-scale-end"              gdouble               : Read / Write
  "x-scale-start"            gdouble               : Read / Write
  "y-scale-end"              gdouble               : Read / Write
  "y-scale-start"            gdouble               : Read / Write
}

class Timeline set wrap wrapsig : Object {
  "delay"                    guint                 : Read / Write
  "direction"                ClutterTimelineDirectionType  : Read / Write
  "duration"                 guint                 : Read / Write
  "fps"                      guint                 : Read / Write
  "loop"                     gboolean              : Read / Write
  "num-frames"               guint                 : Read / Write
  signal completed : ClutterTimeline 
  signal new_frame : ClutterTimeline int
  signal marker_reached : ClutterTimeline string int
  signal paused : ClutterTimeline
  signal started : ClutterTimeline
  method start : "unit"
  method pause : "unit"
  method stop : "unit"
  method rewind : "unit"
  method skip : "int -> unit"
  method advance : "int -> unit"
  method get_current_frame : "int"
  method get_delta_frames : "int"
  method get_delta_ms : "int"
  method get_progress : "float"
  method get_progressx : "fixed"
  method is_playing : "bool"
  method add_marker_at_frame : "name:string -> frame:int -> unit"
  method add_marker_at_time : "name:string -> ms:int -> unit"
  method has_marker : "string -> bool"
  method list_markers : "int -> string array"
  method remove_marker : "string -> unit"
  method advance_to_marker : "string -> unit"
}

class Score set wrap wrapsig : Object {
  "loop"                     gboolean              : Read / Write
  signal completed : ClutterScore
  signal paused : ClutterScore
  signal started : ClutterScore
  signal timeline_completed : ClutterScore ClutterTimeline
  signal timeline_started : ClutterScore ClutterTimeline
  method append : "?parent:timeline obj -> timeline obj -> int"
  method append_at_marker : "parent:timeline obj -> marker:string -> timeline obj -> int"
  method remove : "int -> unit"
  method remove_all
  method get_timeline : "int -> timeline obj"
  method list_timelines : "timeline obj list"
  method start
  method pause
  method stop
  method rewind
  method is_playing : "bool"
}
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.