File: GtkAlignment.xs

package info (click to toggle)
libgtk-perl 0.7009-12
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 3,956 kB
  • ctags: 2,260
  • sloc: perl: 13,998; xml: 9,919; ansic: 2,894; makefile: 64; cpp: 45
file content (32 lines) | stat: -rw-r--r-- 591 bytes parent folder | download | duplicates (3) 
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
 

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "GtkDefs.h"

MODULE = Gtk::Alignment		PACKAGE = Gtk::Alignment	PREFIX = gtk_alignment_

#ifdef GTK_ALIGNMENT

Gtk::Alignment_Sink
new(Class, xalign=0.5, yalign=0.5, xscale=1.0, yscale=1.0)
	SV *	Class
	double	xalign
	double	yalign
	double	xscale
	double	yscale
	CODE:
	RETVAL = (GtkAlignment*)(gtk_alignment_new(xalign, yalign, xscale, yscale));
	OUTPUT:
	RETVAL

void
gtk_alignment_set(alignment, xalign, yalign, xscale, yscale)
	Gtk::Alignment	alignment
	double	xalign
	double	yalign
	double	xscale
	double	yscale

#endif