pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

gtk3 minor improvement

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1791 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-08-09 15:05:47 +00:00
parent 699db99545
commit ef44e19afb
2 changed files with 15 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
bindings/gtk3/gtk/gtkwindow.inc
View File

@ -27,8 +27,6 @@
{$ifndef __GTK_WINDOW_H__}
{$define __GTK_WINDOW_H__}
{$ifdef GTK_HEADER}
{$include gtkapplication.inc}
{$include gtkaccelgroup.inc}
{$include gtkbin.inc}
@ -36,11 +34,11 @@
//G_BEGIN_DECLS
function GTK_TYPE_WINDOW(): GType;
#define GTK_WINDOW(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), GTK_TYPE_WINDOW, GtkWindow))
{#define GTK_WINDOW(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), GTK_TYPE_WINDOW, GtkWindow))
#define GTK_WINDOW_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), GTK_TYPE_WINDOW, GtkWindowClass))
#define GTK_IS_WINDOW(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), GTK_TYPE_WINDOW))
#define GTK_IS_WINDOW_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), GTK_TYPE_WINDOW))
#define GTK_WINDOW_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), GTK_TYPE_WINDOW, GtkWindowClass))
#define GTK_WINDOW_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), GTK_TYPE_WINDOW, GtkWindowClass))}
typedef struct _GtkWindowPrivate GtkWindowPrivate;
typedef struct _GtkWindowClass GtkWindowClass;
@ -334,17 +332,4 @@ gboolean gtk_window_get_resize_grip_area (GtkWindow *window,
//G_END_DECLS
{$else GTK_HEADER}
function GTK_TYPE_WINDOW(): GType;
begin
Result := gtk_window_get_type();
end;
#define GTK_WINDOW(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), GTK_TYPE_WINDOW, GtkWindow))
#define GTK_WINDOW_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), GTK_TYPE_WINDOW, GtkWindowClass))
#define GTK_IS_WINDOW(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), GTK_TYPE_WINDOW))
#define GTK_IS_WINDOW_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), GTK_TYPE_WINDOW))
#define GTK_WINDOW_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), GTK_TYPE_WINDOW, GtkWindowClass))
{$endif GTK_HEADER}
{$endif} { __GTK_WINDOW_H__ }

15
bindings/gtk3/gtk3.pas
View File

@ -33,8 +33,6 @@ uses gdk3;
const gtk3lib = 'libgtk+3.0';
{$define GTK_HEADER}
{#include <gtk/gtkaboutdialog.h>
#include <gtk/gtkaccelgroup.h>
#include <gtk/gtkaccellabel.h>
@ -239,4 +237,17 @@ const gtk3lib = 'libgtk+3.0';
implementation
{ gtkwindow.inc }
function GTK_TYPE_WINDOW(): GType;
begin
Result := gtk_window_get_type();
end;
{#define GTK_WINDOW(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), GTK_TYPE_WINDOW, GtkWindow))
#define GTK_WINDOW_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), GTK_TYPE_WINDOW, GtkWindowClass))
#define GTK_IS_WINDOW(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), GTK_TYPE_WINDOW))
#define GTK_IS_WINDOW_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), GTK_TYPE_WINDOW))
#define GTK_WINDOW_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), GTK_TYPE_WINDOW, GtkWindowClass))}
end.