[Gambas-user] Re: Left and Right Click

[Ronan Chilvers]

Hi Pozzo

On Sat, 06 Mar 2004 19:04:42 +0100
Pozzo <mauriiiii3001 at ...325...> wrote:


> PUBLIC SUB Pik_MouseUp()
> IF mouse.Button = mouse.Left THEN
> c = 0
> clicckete(LAST)
> ELSE
> IF Right(LAST.tag,2) <> "no" THEN
> 
> picsave.Load("save.png")
>  
>   LAST.picture = picsave
>   LAST.tag = LAST.tag & "no"
>   ELSE
>   LAST.picture =  ""
>   LAST.tag = Left(LAST.tag,-2)
>   ENDIF
> ENDIF
> END

Have you tried simply

IF Mouse.Left THEN
....
ELSE 
...
END IF

Works for me!

Ronan
-- 
e: ronan at ...384...
t: 01903 739 997
w: www.thelittledot.com

The Little Dot is a partnership of
Ronan Chilvers and Giles Webberley