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 *)
20.11 Guienvsystemenv Interface | © 1994-2004 Mjølner Informatics |
[Modified: Thursday February 22nd 2001 at 16:33]
|