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_40,MSGID_SHORT
	autolearn=no autolearn_force=no version=3.4.5-pre1
Date: 15 Aug 91 23:54:10 GMT
From: bcstec!shuksan!scott@uunet.uu.net  (Scott Moody)
Subject: sun's new xvi Ada Xview bindings
Message-ID: <1339@shuksan.UUCP>
List-Id: <comp.lang.ada>

Has anyone used the Ada Xview bindings that are comming from
Sun with the new SunAda (previously Verdix Ada) software?

I was trying to write a simple program and it doesn't seem
to be too easy. Especially if you want to debug what goes
wrong since the implementation uses lots of assembly code to
make the calls to the Xview library as seemless as possible.

What is really strange is getting errors
in an initial statement (such as xv_init)
when the next statement is what is really bombing (such as xv_create).

This might be because the stack is getting corrupted, but it
is very strange.

Sample program: (using preprocessor -P and no optimize -O0)

This program bombs if the XV_LABEL is inclosed. 

---- CUT HERE
with xvi_av_functions; use  xvi_av_functions;
with xvi_av_list; use  xvi_av_list;
with xvi_window; use  xvi_window;
with xvi_xview; use  xvi_xview;
with xvi_frame; use  xvi_frame;
with xvi_win_func; use  xvi_win_func;
with svi_strings; use  svi_strings;
with xvi_panel; use  xvi_panel;
with text_io; use text_io;
 
procedure test is
    parent : xvi_frame.Frame;
begin
 
    xvi_av_functions.xv_init;
 
    parent := xvi_av_functions.xv_create(
                OWNER => xvi_window.NO_WINDOW,
                PKG   => xvi_xview.FRAME,
                AVL   => (
 
# figured_out : constant boolean := false;
#if figured_out then
                            (XV_LABEL,          to_svi("Test Tool")),
#end if; 
                            (FRAME_CLOSED     , true),
                            (FRAME_SHOW_FOOTER, true)
                        )   
                );
   
    xvi_win_func.window_main_loop(parent);
 
end ;
-----


-- 
Scott Moody   "The Boeing Mountain Network"
     scott@shuksan.boeing.com
     uunet!bcstec!shuksan!scott