blob: c9393d077aea0146a28ebcb76081290aa7bcaff5 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "gks.h"
# GACWK -- Activate workstation.
procedure gacwk (wkid)
int wkid # Workstation identifier
include "gks.com"
begin
# This procedure sets the active flag for a particular workstation.
gk_status[wkid] = ACTIVE
# Also, set gk_std to be the first activated workstation. Once
# gk_std has been set, it will no longer = NULL.
if (gk_std == NULL)
gk_std = wkid
end
|
