GTKAda drawing

GTKAda drawing

[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

Re: GTKAda drawing

[Srini -]

On Oct 8, 6:55 pm, "RasikaSriniva...@gmail.com"
<rasikasriniva...@gmail.com> wrote:
> 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

found the answer. I need to use  Set_Rgb_Fg_Color instead of
Set_Foreground. srini