GTKAda drawing

["RasikaSrinivasan@gmail.com" <rasikasrinivasan@gmail.com>]

This I suspect could be a GtkAda related question:

I have this handler to paint.

   Currentcolor : Gdk.Color.Gdk_Color ;

   function Canvas_Paint(canvas : access
Gtk.Drawing_Area.Gtk_Drawing_Area_Record'Class) return Boolean  is
      Drawwin : Gdk.Window.Gdk_Window ;
      Gc : Gdk.Gc.Gdk_gc ;

   begin
      pragma Debug(Put_Line("Repaint canvas"));
      Drawwin := Canvas.Get_Window ;
      Gdk.Gc.Gdk_New(Gc,drawwin) ;
      Gdk.Gc.Set_foreground(Gc,Currentcolor) ;
      pragma Debug(Showcurrentcolor);
      Newx := Newx + 10 ;
      Newy := Newy + 10 ;
      Gdk.Gc.Set_Line_Attributes( Gc , 5 , Gdk.Gc.Line_Solid ,
Gdk.Gc.Cap_Butt , Gdk.gc.Join_Round ) ;
      Gdk.drawable.Draw_Line( Drawwin , Gc , newx , newy , 100 ,
100) ;
      return True;
   end Canvas_Paint ;

whatever be the "currentcolor" my line is always of the same color.
Perhaps this is not the way to choose the color of the pen to draw the
line (and other figures).

thanks for pointers.

srini