blob: df950e71b4e222664fefe25d6f548173cdbb649d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <error.h>
include <gset.h>
include <gio.h>
# GPAGEFILE -- File pager which works in or out of cursor mode. If in graphics
# mode, the workstation is deactivated, the file paged, and graphics mode later
# restored.
procedure gpagefile (gp, fname, prompt)
pointer gp # graphics descriptor
char fname[ARB] # name of file to be paged
char prompt[ARB] # user prompt string
bool wsactive
int and()
begin
wsactive = (and (GP_GFLAGS(gp), GF_WSACTIVE) != 0)
if (wsactive)
call gdeactivate (gp, 0)
iferr (call pagefile (fname, prompt))
call erract (EA_WARN)
if (wsactive)
call greactivate (gp, AW_PAUSE)
end
|
