Trying to get the hwnd of a Gtk2::Gdk::Drawable on win32. After pouring 
through source I noticed nothing was being exported for this in 
gtk2-perl. I'm not really an XS expert (yet...) so I threw together a 
quick hack to try to get this working for me.

I modified GdkDrawable.xs by adding...

#include <gdk/gdkwin32.h>
And the following:

## HGDIOBJ       gdk_win32_drawable_get_handle (GdkDrawable *drawable)
gpointer
gdk_win32_drawable_get_handle (drawable)
    GdkDrawable *drawable


I call it as:

my $hwnd = Gtk2::Gdk::Drawable::gdk_win32_drawable_get_handle($drawable);

Works (a little ugly), but as you can imagine, it's not handing me back 
an hwnd, but rather numbers like: 1310846, 1245310, 983164.
Are these actual gpointers or am I getting garbage? Any way to 
dereference if it is actually returning a gpointer?

Thanks.
T.J.


_______________________________________________
gtk-perl-list mailing list
[email protected]
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Reply via email to