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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "stdgraph.h"
# STG_GETCURSOR -- Get the position of a cursor. The cursor value is returned
# as a GKI structure on the graphics metacode stream.
procedure stg_getcursor (cursor)
int cursor #I cursor to be read or 0
int cur, cn
int key, sx, sy, raster, rx, ry
include "stdgraph.com"
begin
# If cursor=0 read the last cursor referenced, e.g., in a write.
if (cursor > 0) {
SG_CURSOR(g_sg) = cursor
cur = cursor
} else
cur = max (1, SG_CURSOR(g_sg))
# Restore graphics mode in case the user has forgotten the \n while
# writing to the status line.
if (g_enable == NO)
call stg_genab()
# If the user has locked the logical cursor override runtime selection.
if (g_cursor > 0)
cur = g_cursor
# Restore the software cursor position before reading?
if (SG_UPDCURSOR(g_sg) == YES) {
sx = SG_CURSOR_X(g_sg)
sy = SG_CURSOR_Y(g_sg)
if (sx != 0 && sy != 0)
call stg_setcursor (sx, sy, cur)
}
# Physically read the cursor and return value to caller.
call stg_readcursor (cur, cn, key, sx, sy, raster, rx, ry)
call gki_retcursorvalue (g_stream, cn, key, sx, sy, raster, rx, ry)
call flush (g_stream)
# Save the new position of the cursor for next time.
if (SG_UPDCURSOR(g_sg) == YES) {
SG_CURSOR_X(g_sg) = sx
SG_CURSOR_Y(g_sg) = sy
}
end
|
