Sequence/Atom prob

new topic     » topic index » view thread      » older message » newer message

------=_NextPart_000_0007_01C05C43.EC855860
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Hi,

    I've been having some problems with get_mouse() and if-then loops. =
It seems that at the begining I need the variable assinged to =
get_mouse() to be an atom, then to change to a sequence. Here's the =
prog:

object event
event=3D-1

procedure mouseaction()
    while event=3D-1 do
        event=3Dget_mouse()
        if sequence(event) then
            if and_bits(event[1], 2)  then   --2's left down
            display_image({300,420},ufire2[2])
            end if
        end if
    end while
end procedure

mouseaction()

   Can you help me out? Also, what exactly does and_bits do here? I had =
to get it from the HTML documentation to get the mouse action to =
work----I understand the rest, just not this.

Thanks
Thomas

------=_NextPart_000_0007_01C05C43.EC855860
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Hi,</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp;&nbsp; I've been having =
some problems=20
with get_mouse() and if-then loops. It seems that at the begining I need =
the=20
variable assinged to get_mouse() to be an atom, then to change to a =
sequence.=20
Here's the prog:</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>object event</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>event=3D-1</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>procedure =
mouseaction()<BR>&nbsp;&nbsp;&nbsp; while=20
event=3D-1 do<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
event=3Dget_mouse()<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if=20
sequence(event)=20
; if=20
and_bits(event[1], 2)  then&nbsp;&nbsp;&nbsp;--2's left=20
;=20
;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
end if<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end=20
if<BR>&nbsp;&nbsp;&nbsp; end while<BR>end procedure</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>mouseaction()<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp;&nbsp;Can you help me out? =
Also, what=20
exactly does and_bits do here? I had to get it from the HTML =
documentation to=20
get the mouse action to work----I understand the rest, just not=20
this.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Thanks</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Thomas</FONT><FONT face=3DArial=20

------=_NextPart_000_0007_01C05C43.EC855860--

new topic     » topic index » view thread      » older message » newer message

Search



Quick Links

User menu

Not signed in.

Misc Menu