From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.5-pre1 (2020-06-20) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-0.0 required=3.0 tests=BAYES_20 autolearn=ham
	autolearn_force=no version=3.4.5-pre1
Date: 22 Oct 91 05:44:47 GMT
From: agate!spool.mu.edu!wupost!cs.utexas.edu!utgpu!news-server.csri.toronto.ed
u!bonnie.concordia.ca!ccu.umanitoba.ca!silver.cs.umanitoba.ca!jlim@ucbvax.Berke
ley.EDU  (Tung Tseung Johnny Lim)
Subject: OPENLOOK-Sun/Ada Bindings
Message-ID: <1991Oct22.054447.1737@ccu.umanitoba.ca>
List-Id: <comp.lang.ada>

Hi,

I just started working with Sun/Ada (v1.0)/VADS (6.0). 
I did some OPEN LOOK programming in C before and I am now
using the sunview Ada library provided to write OPEN LOOK
application with Sun/Ada.

I have 3 questions concerning Sun/Ada and Xview:

(1) I am having some difficulty in implementing a simple
    menu into a program. The compiler gives the following
    error messages:

        my_frame  :  xvi_frame.Frame;
        my_panel  :  xvi_panel.Panel;
        my_menu   :  xvi_openmenu.Menu;
        my_button :  xvi_panel.Panel_item;

     begin
        xv_init(XV_INIT_ARGS, argc, argv, 0);
        my_frame := xv_create(xvi_window.BASE_WINDOW, xvi_xview.FRAME,
                  ( (XV_LABEL,             svi_str("Hello World")),
                    (attr => FRAME_NO_ATTR)
                  ));

        my_panel := xv_create(my_frame, xvi_xview.PANEL,
                  ( (PANEL_LAYOUT,          PANEL_HORIZONTAL ),
                    ( attr => PANEL_NO_ATTR )
                  ));

        my_menu :=  xv_create(my_frame, xvi_xview.MENU,
---------------^A                                        ###
--### A:error: RM 8.7: expression is ambiguous.  Could be:

--### A:error:  xv_create, line 131 in xvi_av_functions 
from file /usr/local2/SunAda/xview/xvi_av_functions.a

--### A:error:  xv_create, line 137 in xvi_av_functions 
from file /usr/local2/SunAda/xview/xvi_av_functions.a

--### A:error:  xv_create, line 149 in xvi_av_functions 
from file /usr/local2/SunAda/xview/xvi_av_functions.a

--### A:error:  xv_create, line 155 in xvi_av_functions 
from file /usr/local2/SunAda/xview/xvi_av_functions.a

--### A:error:  xv_create, line 161 in xvi_av_functions 
from file /usr/local2/SunAda/xview/xvi_av_functions.a

--### A:error:  xv_create, line 167 in xvi_av_functions 
from file /usr/local2/SunAda/xview/xvi_av_functions.a

--### A:error:  xv_create, line 179 in xvi_av_functions 
from file /usr/local2/SunAda/xview/xvi_av_functions.a

--### A:error:  xv_create, line 185 in xvi_av_functions 
from file /usr/local2/SunAda/xview/xvi_av_functions.a

--### A:error:  xv_create, line 191 in xvi_av_functions 
from file /usr/local2/SunAda/xview/xvi_av_functions.a

                  ( (MENU_TITLE_ITEM,       svi_str("First Menu" ) ),
                    (attr => MENU_NO_ATTR )
                  ) );

        my_button := xv_create(my_panel, xvi_xview.PANEL_BUTTON,
                ( ( PANEL_LABEL_STRING,        svi_str("menu title") ),
        --        ( PANEL_ITEM_MENU,           my_menu),
                  ( attr => PANEL_NO_ATTR )
                ));
                                     
                                           
    I would appreciate if someone can tell me what I did 
    wrong or points out another correct way to implement 
    a menu using Sun/Ada.




(2) I have read XView Programming V7 by Dan Heller. 
    Does anyone know if there is a similar manual for 
    using Xview on Sun/Ada ?
    (bec I am having some difficulties in understanding
     the translation of certain ada syntax)



(3) I am planning to write an entire application with
    Sun/Ada in the future (using Xview ada bindings).
    Has anyone worked with xview ada bindings before ?
    I would appreciate it if someone can tell about any 
    inconsistencies or problems that may arise.


Thank you in advance.

---------------------------------------------------
|  Johnny Lim                                     |
|  e-mail: jlim@silver.cs.umanitoba.ca    \|/     |
|          lim@ccu.umanitoba.ca           -O-     |
|  Phone : (306)-933-1441                 /|\     |
|  Fax   : (306)-933-1486                         |