From: Pascal MALAISE <malaise@magic.fr>
Subject: Re: A well thought of language
Date: 1998/10/22
Date: 1998-10-22T18:18:38+00:00 [thread overview]
Message-ID: <362F76FD.8DC09F35@magic.fr> (raw)
In-Reply-To: 70ltmn$r39$1@jupiter.cs.uml.edu
Dr Amirez wrote:
>
> When do I get gEt_mOuSe_Xy()
Here you are (cut and paste from one of my packages):
-- Button status
type MOUSE_BUTTON_STATUS_LIST is (PRESSED, RELEASED);
-- List of button
type MOUSE_BUTTON_LIST is (LEFT, MIDDLE, RIGHT);
-- Mouse status
type MOUSE_EVENT_REC is record
VALID : BOOLEAN;
BUTTON : MOUSE_BUTTON_LIST;
STATUS : MOUSE_BUTTON_STATUS_LIST;
ROW : ROW_RANGE;
COL : COL_RANGE;
end record;
-- Get a mouse event. If valid is FALSE, it means that a release
-- has occured outside the screen, then only BUTTON and status
-- are significant
procedure GET_MOUSE_EVENT (MOUSE_EVENT : out MOUSE_EVENT_REC);
--
Pascal MALAISE
(priv) mailto:malaise@magic.fr
(prof) mailto:malaise@fr.airsysatm.thomson-csf.com
prev parent reply other threads:[~1998-10-22 0:00 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
1998-10-21 0:00 A well thought of language Dr Amirez
1998-10-22 0:00 ` Dale Stanbrough
1998-10-22 0:00 ` dennison
1998-10-22 0:00 ` Pascal MALAISE [this message]
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox