blob: 5e070537b5eab9b97afee62ba4f5b4d99f666eee (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
# ICG_USER -- User default action
procedure icg_user (ic, gp, gt, cv, wx, wy, wcs, key, cmd)
pointer ic # ICFIT pointer
pointer gp # GIO pointer
pointer gt # GTOOLS pointer
pointer cv # CURFIT pointer
real wx, wy # Cursor positions
int wcs # GIO WCS
int key # Cursor key
char cmd[ARB] # Cursor command
begin
# Ring bell
call printf ("\07")
end
|
