[gtkada] gtkada Digest, Vol 79, Issue 2

[Rick Duley]

IMHO, you should dump code generators altogether and write your widgets the
way you want them.  It's the only way I know to have some form of control
over the output. Go to http://adasafehouse.webs.com/GtkAda.html and try
either 'Gadget' or 'Walker'.  It's a lot of work but it's worth it.
--------------------------------------------
Rick Duley
North Perth
Western Australia 6006
http://rickduley.webs.com
                                     .-_|\
                                    /     \
                              perth *_.-._/
                                         v
aussie : 0409 106 049
o'seas : +61 409 106 049
skype  : rickduley
--------------------------------------------
"The best way to sound
   like you know what you’re talking about
      is to know what you’re talking about."


On Thu, May 12, 2011 at 6:00 PM, <gtkada-request at lists.adacore.com> wrote:

> Send gtkada mailing list submissions to
>        gtkada at lists.adacore.com
>
> To subscribe or unsubscribe via the World Wide Web, visit
>        http://lists.adacore.com/mailman/listinfo/gtkada
> or, via email, send a message with subject or body 'help' to
>        gtkada-request at lists.adacore.com
>
> You can reach the person managing the list at
>        gtkada-owner at lists.adacore.com
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of gtkada digest..."
>
> Today's Topics:
>
>   1. Window reference. (Pascal)
>   2. Re: Window reference. (Paul Cass)
>
>
> ---------- Forwarded message ----------
> From: Pascal <p.p14 at orange.fr>
> To: gtkada at lists.adacore.com
> Date: Wed, 11 May 2011 21:44:13 +0200
> Subject: [gtkada] Window reference.
> Hello.
>
> I've built a simple window and few widgets with Glade then generated Ada
> code with gate tool.
> From On_Button2_Clicked procedure (Window1_Pkg.Callbacks) I want to access
> to an other widget present in Window1_Record (Window1_Pkg), but the window
> referece is created locally in main procedure (Window1) without  the
> possibility to get it out.
>
> So I've modified Gtk_New to store the reference and added a function
> Get_Window (Window1_Pkg) which return this reference.
>
> Is it the good way to get it?
> Or is there a more simple one?
>
> See complete code in attached tgz file.
>
> Thanks, Pascal.
> http://blady.pagesperso-orange.fr
>
>
>
>
>
> ---------- Forwarded message ----------
> From: Paul Cass <cassp41 at yahoo.com.au>
> To: "gtkada at lists.adacore.com" <gtkada at lists.adacore.com>
> Date: Wed, 11 May 2011 19:48:05 -0700 (PDT)
> Subject: Re: [gtkada] Window reference.
>  That's basically how I've done it in the past.   I haven't written that
> much code in GTKAda but I recall searching for an alternative, and perhaps
> simpler solution, with no success.
>
> Paul
>
> Here is some code from a Sudoku program that I wrote - still unfinished :)
>
>
> (part of a buttons package body)
>
> -- the new button record is stored in an array for later access
>  procedure Sudoku_Number_Button_New (New_Sudoku_Number : out
> Sudoku_Number_Button;
>
> Label             : in Utf8_String := "";
>
> Sudoku_Number     : in Number_Choice := one) is
>       begin
>       New_Sudoku_Number := new Sudoku_Number_Button_Record;
>       Sudoku_Number_Buttons (Sudoku_Number) := New_Sudoku_Number; -- save
> for later access
>       Initialize
>         (New_Sudoku_Number => New_Sudoku_Number,
>          Label           => Label,
>          Sudoku_Number   => Sudoku_Number);
>    end Sudoku_Number_Button_New;
>
> -- this is the function in the same package to provide access to the button
> record using a sudoku number (1 to 9)
>
>   function Get_Number_Button (Sudoku_Number : Number_Choice) return
> Sudoku_Number_Button is
>    -- returns access to the sudoku_number_button_record
>    begin
>       return Sudoku_Number_Buttons (Sudoku_Number);  -- could be null
>    end Get_Number_Button;
>
>
> -- and this is a procedure within a callback package that calls the
> function above
>   procedure Set_Number_Buttons_Inactive (Except_For : in Number_Choice) is
>    begin
>       For Btn in Number_Choice loop
>          if Btn /= Except_For then
>             Sudoku.Filter_Buttons.Set_Active (Get_Number_Button (Btn),False);
>          end if;
>       end loop;
>    end Set_Number_Buttons_Inactive;
>
>
>  *From:* Pascal <p.p14 at orange.fr>
> *To:* gtkada at lists.adacore.com
> *Sent:* Thursday, 12 May 2011 5:44 AM
> *Subject:* [gtkada] Window reference.
>
> Hello.
>
> I've built a simple window and few widgets with Glade then generated Ada
> code with gate tool.
> From On_Button2_Clicked procedure (Window1_Pkg.Callbacks) I want to access
> to an other widget present in Window1_Record (Window1_Pkg), but the window
> referece is created locally in main procedure (Window1) without  the
> possibility to get it out.
>
> So I've modified Gtk_New to store the reference and added a function
> Get_Window (Window1_Pkg) which return this reference.
>
> Is it the good way to get it?
> Or is there a more simple one?
>
> See complete code in attached tgz file.
>
> Thanks, Pascal.
> http://blady.pagesperso-orange.fr
>
>
>
>
> _______________________________________________
> gtkada mailing list
> gtkada at lists.adacore.com
> http://lists.adacore.com/mailman/listinfo/gtkada
>
>
>
> _______________________________________________
> gtkada mailing list
> gtkada at lists.adacore.com
> http://lists.adacore.com/mailman/listinfo/gtkada
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: /pipermail/gtkada/attachments/20110513/3bbe0596/attachment.htm