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.2 required=5.0 tests=BAYES_00,INVALID_MSGID, REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,81b6ba648038aec0 X-Google-Attributes: gid103376,public From: Frederic Abiven Subject: Re: Free multiplatform Ada GUI Design Tool Date: 1998/08/20 Message-ID: #1/1 X-Deja-AN: 382983369 References: <6rf9ii$1iv$1@cnn.Princeton.EDU> X-Complaints-To: usenet@news.teaser.fr X-Trace: news.teaser.fr 903619777 21196 194.206.156.91 (20 Aug 1998 13:29:37 GMT) Organization: Nationale 7 Reply-To: fabiven@teaser.fr NNTP-Posting-Date: 20 Aug 1998 13:29:37 GMT Newsgroups: comp.lang.ada Date: 1998-08-20T13:29:37+00:00 List-Id: Hello, mcc@tyrolia.cs.princeton.edu (Martin C. Carlisle) writes: > RAPID is the Rapid Ada Portable Interface Design tool... > For more info (and to download), see > ftp://ftp.usafa.af.mil/pub/dfcs/carlisle/usafa/rapid/index.html Thanks for this nice tool !... But common_dialogs.ads is missing (easy to reconstitute with the body) and Gnat-3.10p (Linux) crashes on gui-widget.ads with the following message : +===========================GNAT BUG DETECTED==============================+ | Error detected at lists_generic-key.adb:19:1 [gui-widget.ads:107:4] | | Please submit bug report by email to report@gnat.com | | Use a subject line meaningful to you and us to track the bug | | Include full sources in ASCII in a format compatible with gnatchop | | First line of sources must be marked by an Ada -- comment line | | Last line of sources must be last line of email message (no signature!) | | See gnatinfo.txt file for more info on procedure for submitting bugs | | 3.10p (970814) (i586-pc-linux-gnulibc1) Assert_Failure at sem_ch8.adb:3694| +==========================================================================+ compilation abandoned I can submit a workaround for this (meanwhile next gnat-3.11 release) : -- Frederic Abiven ---------------------------------------------------------------------- *** gui-widget.ads.orig Wed Aug 19 09:40:02 1998 --- gui-widget.ads Thu Aug 20 15:00:46 1998 *************** *** 18,24 **** -- --------------------------------------------------------------- with ada.text_io; with Tcl; ! with Lists_Generic,Lists_Generic.Key; package Gui.Widget is --- 18,27 ---- -- --------------------------------------------------------------- + with ada.text_io; with Tcl; ! -- with Lists_Generic,Lists_Generic.Key; ! ! with Lists_Generic_Key; package Gui.Widget is *************** *** 99,107 **** function Get_Name(Widget : in Widget_Access) return String; ! package Widget_List_Package is new Lists_Generic(Widget_Access); ! package Widget_Key_List_Package is new Widget_List_Package.Key( ! GetKey => Get_Name); subtype Widget_Pointer is Widget_List_Package.Position; subtype Widget_List is Widget_List_Package.List; --- 102,125 ---- function Get_Name(Widget : in Widget_Access) return String; ! --> GNAT 3-10p don't correctly manage nested scope with generic child ! --> The probleme is "Gui.Widget" and not "Lists_Generic.Key" ! --> ^--- nested ! ! -- package Widget_List_Package is new ! -- Lists_Generic(Widget_Access); ! ! -- package Widget_Key_List_Package is new ! -- Widget_List_Package.Key(GetKey => Get_Name); ! ! package WK is new Lists_Generic_Key(Widget_Access,Get_Name); ! ! package Widget_List_Package renames ! WK.List_Package; ! ! package Widget_Key_List_Package renames ! WK.List_Package_Key; subtype Widget_Pointer is Widget_List_Package.Position; + subtype Widget_List is Widget_List_Package.List; *** lists_generic_key.ads.orig Thu Aug 20 14:35:59 1998 --- lists_generic_key.ads Thu Aug 20 15:01:55 1998 *************** *** 0 **** --- 1,19 ---- + + with Lists_Generic; + with Lists_Generic.Key; + + generic + + type Element is private; + + with function GetKey(Item : in Element) return String; + + package Lists_Generic_Key is + + package List_Package is new + Lists_Generic(Element); + + package List_Package_Key is new + List_Package.Key(GetKey); + + end Lists_Generic_Key; *** rapid.adb.orig Wed Aug 19 11:03:26 1998 --- rapid.adb Thu Aug 20 14:50:30 1998 *************** *** 28,35 **** procedure Rapid is ! pragma Linker_Options("-ltcl80"); ! pragma Linker_Options("-ltk80"); -- Tcl/Tk libraries (for all platforms) ! pragma Linker_Options("-mwindows"); -- comment if on another platform -- uncomment to go production on Windows machines --- 28,35 ---- procedure Rapid is ! pragma Linker_Options("-ltcl8.0"); ! pragma Linker_Options("-ltk8.0"); -- Tcl/Tk libraries (for all platforms) ! -- pragma Linker_Options("-mwindows"); -- comment if on another platform -- uncomment to go production on Windows machines