20.11 Guienvsystemenv Interface

ORIGIN '~beta/basiclib/basicsystemenv';
MDBODY nti     'private/winnt/guienvntsystemenvbody'
       ppcmac  'private/macintosh/guienvsystemenvmac.bet'
       default 'private/X11/guienvxsystemenvbody';
(*
 * COPYRIGHT
 *       Copyright (C) Mjolner Informatics, 1991-96
 *       All rights reserved.
 *
 * GUIENVSYSTEMENV
 * ===============
 * 
 * Use this fragment as the ORIGIN for concurrent programs
 * using the GUIENV libraries.
 * 
 * The program should look something like:
 * 
 * ORIGIN 'guienvsystemenv';
 * --- program: descriptor ---
 * systemEnv
 * (# setWindowEnv::< (# do myWindowEnv[] -> theWindowEnv[] #);
 *    myWindowEnv: @guienv (# ... #);
 *    ...
 * #);
 * 
 * The 'setWindowEnv' virtual and 'theWindowEnv' reference are
 * declared in basicsystemenv. 
 * 
 * The guienv instance (myWindowEnv) assigned to theWindowEnv is
 * used for scheduling purposes to allow BETA coroutines to
 * cooperate with the event driven user interface.
 * 
 * For concurrency details, see basicsystemenv.
 *)
[[ (* deliberate empty fragment file *)
---]]