Sample Program - Sun Microsystems SunSoft Pascal 4.0 User Manual

10

Sample Program

230
The following program, xview.p, makes a window:
program hello(output);
#include "stddefs_p.h"
#include "attrgetset_p.h"
var
base_frame :Frame;
base_panel :Panel;
message :Xv_panel_or_item_ptr;
text :string;
begin
'
text := Hello, World!
xv_init(0);
base_frame := xv_create(nil, FRAME, 0);
base_panel := xv_create(base_frame, PANEL, 0);
message := xv_create(panel, PANEL_MESSAGE, 0);
set_PANEL_LABEL_STRING(message, text);
window_main_loop(base_frame);
end. {hello}
To compile xview.p and link in the necessary libraries, use the following
command-line. Replace local_library_path with the path for the Pascal XView
libraries on your system.
hostname% pc -Ilocal_library_path xview.p -L$OPENWINHOME/lib \
-lpxview -lxview -lolgx -lX11
Now run the executable file:
hostname% a.out
Soon after you run the executable file, the window opens as a single frame,
with the string Hello, World! in the frame header.
Pascal 4.0 User's Guide
'
;