* GTK demoes compile again. Mantis #027172

git-svn-id: trunk@29306 -

packages/gtk2/examples/gtk_demo/drawingarea.inc

@@ -38,7 +38,7 @@ begin
   (* Initialize the pixmap to white *)
   gdk_draw_rectangle (da_pixmap,
                       widget^.style^.white_gc,
-                      gTRUE,
+                      gint(gTRUE),
                       0, 0,
                       widget^.allocation.width,
                       widget^.allocation.height);
@@ -85,7 +85,7 @@ begin
   (* Paint to the pixmap, where we store our state *)
   gdk_draw_rectangle (da_pixmap,
               widget^.style^.black_gc,
-                      gTRUE,
+                      gint(gTRUE),
                       update_rect.x, update_rect.y,
                       update_rect.width, update_rect.height);
 
@@ -199,7 +199,7 @@ begin
            *)
           gdk_draw_rectangle (da^.window,
                               gc,
-                              gTRUE,
+                              gint(gTRUE),
                               i, j,
                               CHECK_SIZE,
                               CHECK_SIZE);

packages/gtk2/examples/helloworld/helloworld.pas

@@ -12,7 +12,7 @@ begin
    g_print ('Hello World'#13#10);
 end;
 
-function delete_event( Widget: PGtkWidget; Event: PGdkEvent; Data: gpointer):gint; cdecl;
+function delete_event( Widget: PGtkWidget; Event: PGdkEvent; Data: gpointer):gboolean; cdecl;
 begin
   (* If you return FALSE in the "delete_event" signal handler,
    * GTK will emit the "destroy" signal. Returning TRUE means

packages/gtk2/examples/scribble_simple/scribble_simple.pas

@@ -24,7 +24,7 @@ begin
                             -1);
   gdk_draw_rectangle (pixmap,
                               widget^.style^.white_gc,
-                              gTRUE,
+                              gint(gTRUE),
                               0, 0,
                               widget^.allocation.width,
                               widget^.allocation.height);
@@ -61,7 +61,7 @@ begin
 
   gdk_draw_rectangle (pixmap,
                               widget^.style^.black_gc,
-                          gTRUE,
+                          gint(gTRUE),
                               update_rect.x, update_rect.y,
                               update_rect.width, update_rect.height);
 
@@ -86,7 +86,7 @@ var
   state : TGdkModifierType;
 
 begin
-  if event^.is_hint = gTRUE then
+  if event^.is_hint = gint(gTRUE) then
     gdk_window_get_pointer (event^.window, @x, @y, @state)
   else begin
     x := round (event^.x);