From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD, FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4 X-Google-Thread: 103376,a0d5afcf8d13378c X-Google-Attributes: gid103376,domainid0,public,usenet X-Google-Language: ENGLISH,ASCII Path: g2news2.google.com!postnews.google.com!w1g2000prm.googlegroups.com!not-for-mail From: tolkamp Newsgroups: comp.lang.ada Subject: Re: How to include Win_IO for my project? Date: Tue, 20 Jan 2009 03:32:37 -0800 (PST) Organization: http://groups.google.com Message-ID: References: <92dda95d-161e-4337-8a60-698c3c8372c7@r15g2000prd.googlegroups.com> <49752deb$0$10085$426a34cc@news.free.fr> NNTP-Posting-Host: 77.249.221.108 Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: posting.google.com 1232451157 4991 127.0.0.1 (20 Jan 2009 11:32:37 GMT) X-Complaints-To: groups-abuse@google.com NNTP-Posting-Date: Tue, 20 Jan 2009 11:32:37 +0000 (UTC) Complaints-To: groups-abuse@google.com Injection-Info: w1g2000prm.googlegroups.com; posting-host=77.249.221.108; posting-account=nZAcngoAAACcfYM9wDw3w9Z1XR3bObfs User-Agent: G2/1.0 X-HTTP-UserAgent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; GTB5; InfoPath.1),gzip(gfe),gzip(gfe) Xref: g2news2.google.com comp.lang.ada:4421 Date: 2009-01-20T03:32:37-08:00 List-Id: On 20 jan, 02:50, Ali Bendriss wrote: > On Sun, 18 Jan 2009 12:42:04 -0800, tolkamp wrote: > > > Thank you for this explanation. Now I have successful added the > > directory win_io_3.0_scr_dos to my project. After this I have added the > > following source code of my project: - Time, Speed : Float; > > - My_Plot : Plot_Window_Type; > > - Plot_Window (My_Plot, "Time", "Speed"); -- create plot window - > > Add_Point (My_Plot, Time, Speed); > > > Compilation is error free, but when an executable is made the following > > error occurs in package plot_windows.adb: "Add_Plot" is undefined. > > > What do I wrong? > > "Add_Plot" doesn't exist anymore in recent version of GtkAda. > I've done a small patch against win_io_3.0_src to make it compile with > GtkAda-gpl-2.10.2. I've done a light test and it's look like OK > no warranty of course. > copy the rest of the message in a file as "add_plot.patch" inside > win_io_3.0_src then run patch -p0 > Ali > > --- ../plot_windows.adb 2005-10-03 15:42:38.000000000 +0100 > +++ plot_windows.adb =A0 =A02009-01-20 01:23:59.500325738 +0000 > @@ -35,6 +35,9 @@ > =A0with Plot_Window_Gui_Intl; use Plot_Window_Gui_Intl; > =A0with Gtk.Main; > =A0with Initialize_Gtk_Once; > +with Gtk.Extra.Plot; > + > +with Gtk.Extra.Plot_Canvas.Plot; > > =A0package body Plot_Windows is > > @@ -113,6 +116,7 @@ > =A0 =A0 =A0 return Plot_Window_Type > =A0 =A0 is > =A0 =A0 =A0 =A0Resp : Plot_Window_Type; > + =A0 =A0 =A0Child : Gtk.Extra.Plot_Canvas.Plot.Gtk_Plot_Canvas_Plot; > =A0 =A0 begin > =A0 =A0 =A0 =A0Task_Support.Enter; > =A0 =A0 =A0 =A0New_Graph(Resp); > @@ -129,46 +133,48 @@ > =A0 =A0 =A0 =A0-- Create the plot > =A0 =A0 =A0 =A0Gtk_New (Resp.Plot,Resp.Gdkw); > > - =A0 =A0 =A0Add_Plot(Resp.Canvas,Resp.Plot,0.2,0.2); > + =A0 =A0 =A0Gtk.Extra.Plot_Canvas.Plot.Gtk_New (Child, Resp.Plot); > + =A0 =A0 =A0Put_Child (Resp.Canvas, Child,0.2,0.2); > + > =A0 =A0 =A0 =A0Show(Resp.Plot); > > =A0 =A0 =A0 =A0-- Set Axis titles > =A0 =A0 =A0 =A0Axis_Set_Title > - =A0 =A0 =A0 =A0(Plot =3D> Resp.Plot, > - =A0 =A0 =A0 =A0 Axis =3D> Axis_Bottom, > + =A0 =A0 =A0 =A0(Gtk.Extra.Plot.Get_Axis (Plot =3D> Resp.Plot, > + =A0 =A0 =A0 =A0 Axis =3D> Axis_Bottom), > =A0 =A0 =A0 =A0 =A0 Title =3D> X_Axis_Title); > =A0 =A0 =A0 =A0Axis_Set_Visible > - =A0 =A0 =A0 =A0(Plot =3D> Resp.Plot, > - =A0 =A0 =A0 =A0 Axis =3D> Axis_Bottom, > + =A0 =A0 =A0 =A0(Gtk.Extra.Plot.Get_Axis (Plot =3D> Resp.Plot, > + =A0 =A0 =A0 =A0 Axis =3D> Axis_Bottom), > =A0 =A0 =A0 =A0 =A0 Visible =3D> True); > =A0 =A0 =A0 =A0Axis_Set_Visible > - =A0 =A0 =A0 =A0(Plot =3D> Resp.Plot, > - =A0 =A0 =A0 =A0 Axis =3D> Axis_Top, > + =A0 =A0 =A0 =A0(Gtk.Extra.Plot.Get_Axis (Plot =3D> Resp.Plot, > + =A0 =A0 =A0 =A0 Axis =3D> Axis_Top), > =A0 =A0 =A0 =A0 =A0 Visible =3D> False); > =A0 =A0 =A0 =A0Axis_Move_Title > - =A0 =A0 =A0 =A0(Plot =3D> Resp.Plot, > - =A0 =A0 =A0 =A0 Axis =3D> Axis_Bottom, > + =A0 =A0 =A0 =A0(Gtk.Extra.Plot.Get_Axis (Plot =3D> Resp.Plot, > + =A0 =A0 =A0 =A0 Axis =3D> Axis_Bottom), > =A0 =A0 =A0 =A0 =A0 Angle =3D> Angle_0, > =A0 =A0 =A0 =A0 =A0 X =A0 =A0 =3D> 0.5, > =A0 =A0 =A0 =A0 =A0 Y =A0 =A0 =3D> 0.9); > =A0 =A0 =A0 =A0Axis_Show_Title > - =A0 =A0 =A0 =A0(Plot =3D> Resp.Plot, > - =A0 =A0 =A0 =A0 Axis =3D> Axis_Bottom); > + =A0 =A0 =A0 =A0(Gtk.Extra.Plot.Get_Axis (Plot =3D> Resp.Plot, > + =A0 =A0 =A0 =A0 Axis =3D> Axis_Bottom)); > =A0 =A0 =A0 =A0Axis_Set_Title > - =A0 =A0 =A0 =A0(Plot =3D> Resp.Plot, > - =A0 =A0 =A0 =A0 Axis =3D> Axis_Left, > + =A0 =A0 =A0 =A0(Gtk.Extra.Plot.Get_Axis (Plot =3D> Resp.Plot, > + =A0 =A0 =A0 =A0 Axis =3D> Axis_Left), > =A0 =A0 =A0 =A0 =A0 Title =3D> Y_Axis_Title); > =A0 =A0 =A0 =A0Axis_Set_Visible > - =A0 =A0 =A0 =A0(Plot =3D> Resp.Plot, > - =A0 =A0 =A0 =A0 Axis =3D> Axis_Left, > + =A0 =A0 =A0 =A0(Gtk.Extra.Plot.Get_Axis (Plot =3D> Resp.Plot, > + =A0 =A0 =A0 =A0 Axis =3D> Axis_Left), > =A0 =A0 =A0 =A0 =A0 Visible =3D> True); > =A0 =A0 =A0 =A0Axis_Set_Visible > - =A0 =A0 =A0 =A0(Plot =3D> Resp.Plot, > - =A0 =A0 =A0 =A0 Axis =3D> Axis_Right, > + =A0 =A0 =A0 =A0(Gtk.Extra.Plot.Get_Axis (Plot =3D> Resp.Plot, > + =A0 =A0 =A0 =A0 Axis =3D> Axis_Right), > =A0 =A0 =A0 =A0 =A0 Visible =3D> False); > =A0 =A0 =A0 =A0Axis_Show_Title > - =A0 =A0 =A0 =A0(Plot =3D> Resp.Plot, > - =A0 =A0 =A0 =A0 Axis =3D> Axis_Left); > + =A0 =A0 =A0 =A0(Gtk.Extra.Plot.Get_Axis (Plot =3D> Resp.Plot, > + =A0 =A0 =A0 =A0 Axis =3D> Axis_Left)); > > =A0 =A0 =A0 =A0Task_Support.Leave; > =A0 =A0 =A0 =A0return Resp; Thank you Ali for this solution. I have copied the rest of your message to the new file add_plot.patch in directory win_io_3.0_src_dos. Now I have to run this patch file. How to do this? Must I change to the GPS shell?