blob: f61f413355e0cd31829ae814266f9fc482a3c502 (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <gio.h>
include <gset.h>
# GDEACTIVATE -- Deactivate the workstation, i.e., for an interactive device
# (graphics terminal) restore the terminal to text mode. This is similar to
# closing the workstation will gclose, except that the graphics state is
# retained and graphics i/o may be resumed following a subsequent call to
# greactivate. These calls are generally no-ops for noninteractive devices.
procedure gdeactivate (gp, flags)
pointer gp # graphics descriptor
int flags # action flags
int and()
errchk gflush
errchk gki_deactivatews
begin
if (and (GP_GFLAGS(gp), GF_WSOPEN) != 0) {
call gflush (gp)
call gki_deactivatews (GP_FD(gp), flags)
if (and (GP_GFLAGS(gp), GF_WSACTIVE) != 0)
GP_GFLAGS(gp) = GP_GFLAGS(gp) - GF_WSACTIVE
}
end
|
