File: gtk-0.99.defs.opl

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 (24 lines) | stat: -rw-r--r-- 1,116 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

$boxed{GdkPixmap} = { 'ref' => "gdk_pixmap_ref", unref => "gdk_pixmap_unref", 
						perlname => "Gtk::Gdk::Pixmap", xsname => "Gtk__Gdk__Pixmap",
						 typename => "GTK_TYPE_GDK_WINDOW", directory => ""};

$boxed{GdkWindow} = { 'ref' => "gdk_window_ref", unref => "gdk_window_unref", 
                                               perlname => "Gtk::Gdk::Window", xsname => "Gtk__Gdk__Window",
                                                typename => "GTK_TYPE_GDK_WINDOW", directory => ""};

$boxed{GdkBitmap} = { 'ref' => "gdk_bitmap_ref", unref => "gdk_bitmap_unref", 
                                               perlname => "Gtk::Gdk::Bitmap", xsname => "Gtk__Gdk__Bitmap",
                                                typename => "GTK_TYPE_GDK_WINDOW", directory => ""};

#delete $boxed{GdkWindow};
$overrideboxed{GdkWindow} = 1;
$overrideboxed{GdkPixmap} = 1;
$overrideboxed{GdkBitmap} = 1;
$overridestruct{GdkEvent} = 1;
delete $flags{GtkWidgetFlags};

$object{GtkObject} = {perlname => "Gtk::Object", cast => "GTK_OBJECT", 
			xsname => "Gtk__Object", prefix => "gtk_object", directory => ""};