[gtkada] Sequence of control

[Rick Duley]

Hi folks

I tried using an exit statement but received the following messges when I
attempted to compile:

<Gtk.Main.Exit> => 'reserved word "exit" cannot be used as an identifier'

<Gtk>Main.Quit> => 'procedure or entry name expected'

I didn't get time last night to pursue this any further, but I still have a
problem with this idea:

If the call to Destroy_Cb(<Widget>) doesn't drop the point of control 
out of the
main loop, *what does?*  Surely, in the context of the attached sources, once
the Window has 'died' control should return to the mainline.

What happens when this Window is, as intended, called from the main window of
the GUI rather than the test routine Ada60_Preferences_Window?

All help is appreciated
-------------------------------------------
"Professional qualitative judgement
    consists in knowing the rules
      for using (or occasionally breaking)
        the rules."
                             D. Royce Sadler
-------------------------------------------
Rick Duley
Murdoch University
School of Engineering Science
Perth, Western Australia
http://eng.murdoch.edu.au/~rick
aussie : 040 910 6049                .-_|\
o'seas : + 61 40 910 6049           /     \
                               perth *_.-._/
                                          v


Quoting jf Menon <jean-francois.menon at meteo.fr>:

> Hello,
>
> When you destroy a window, you still are in the main loop of gtk. That's
> why your procedure doesn't get the control back.
> You must leave the main loop inside the program (Gtk.Main.Quit I think).
>
> jf
>
>
>
> Rick Duley wrote:
>
>> Hi folks
>>
>> In Windows XP(Home):
>>
>> I am working with a GtkWindow within which are GtkCheckButtons and 
>> GtkEntrys by
>> which the User can (I hope) set some arguments for the main program.  I am
>> calling this Window directly from a stand-alone test procedure.
>>
>> Problem:
>> When the Window is closed (disappears from screen in response to Destroy_Cb
>> call) control does not return to the calling procedure (which should then
>> display the Arguments as at Close Time.  Process hangs in the 
>> Command Window.
>>
>> Why is this and how do I fix it?
>>
>> Thanks
>> -------------------------------------------
>> "Professional qualitative judgement
>>   consists in knowing the rules
>>     for using (or occasionally breaking)
>>       the rules."
>>                            D. Royce Sadler
>> -------------------------------------------
>> Rick Duley
>> Murdoch University
>> School of Engineering Science
>> Perth, Western Australia
>> http://eng.murdoch.edu.au/~rick
>> aussie : 040 910 6049                .-_|\
>> o'seas : + 61 40 910 6049           /     \
>>                              perth *_.-._/
>>                                         v
>>
>>
>>
>> _______________________________________________
>> gtkada mailing list
>> gtkada at lists.adacore.com
>> http://lists.adacore.com/mailman/listinfo/gtkada
>>
>>
>>
>


-------------- next part --------------
A non-text attachment was scrubbed...
Name: Analyse60_Preferences.zip
Type: application/x-zip-compressed
Size: 21704 bytes
Desc: not available
Url : /pipermail/gtkada/attachments/20050601/22403e09/attachment.bin