1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# GT_GCUR -- Interface to clgcur to confirm EOF, map key 'q' to EOF.
int procedure gt_gcur (cur, wx, wy, wcs, key, cmd, sz_cmd)
char cur[ARB] # Cursor parameter
real wx, wy # Cursor position
int wcs, key # WCS and cursor key
char cmd[sz_cmd] # Command string
int sz_cmd # Size of command string
int curval, clgcur()
begin
curval = clgcur (cur, wx, wy, wcs, key, cmd, sz_cmd)
if (key == 'q')
curval = EOF
return (curval)
end
|
