File: ClutterBehaviourDepth.xs

package info (click to toggle)
clutter-perl 0.8.0.1-1
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 652 kB
  • ctags: 42
  • sloc: perl: 645; ansic: 30; makefile: 3
file content (39 lines) | stat: -rw-r--r-- 1,141 bytes parent folder | download
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
#include "clutterperl.h"

MODULE = Clutter::Behaviour::Depth PACKAGE = Clutter::Behaviour::Depth PREFIX = clutter_behaviour_depth_

ClutterBehaviour_noinc *
clutter_behaviour_depth_new (class, alpha=NULL, depth_start, depth_end)
        ClutterAlpha_ornull *alpha
        gint depth_start
        gint depth_end
    C_ARGS:
        alpha, depth_start, depth_end

void
clutter_behaviour_depth_set_bounds (behaviour, start, end)
        ClutterBehaviourDepth *behaviour
        gint start
        gint end
    CODE:
        g_object_set (G_OBJECT (behaviour),
                      "depth-start", start,
                      "depth-end", end,
                      NULL);

=for apidoc
=for signature (start, end) = $behaviour->get_bounds
=cut
void
clutter_behaviour_depth_get_bounds (ClutterBehaviourDepth *behaviour)
    PREINIT:
        gint start, end;
    PPCODE:
        g_object_get (G_OBJECT (behaviour),
                      "depth-start", &start,
                      "depth-end", &end,
                      NULL);
        EXTEND (SP, 2);
        PUSHs (sv_2mortal (newSViv (start)));
        PUSHs (sv_2mortal (newSViv (end)));