[futurebasic] Passing a rect to a function

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : October 2003 : Group Archive : Group : All Groups

From: Bernie Wylde <bernie.w@...>
Date: Sun, 26 Oct 2003 08:56:47 +0000
I can pass a rect to a function and access its individual t,l,b,r 
fields within the function. But, if my function contains say the 
toolbox 'SectRect', I first need to copy the rect to another rect var 
and then pass this to SectRect. Is there a way to avoid this?


Example:

clear local
local fn CompareRect(r as ^rect)
dim as rect    testRect, anotherRect, rIntersect
dim as boolean bool

anotherRect = r
SetRect(testRect, 10, 10, 20, 30)
bool = fn SectRect (@ testRect, @ anotherRect, @ rIntersect)

long if bool
//do some other things
end if

end fn = bool

dim as rect    r
dim as boolean intersect

SetRect(r, 15, 10, 100, 200)
intersect = fn CompareRect(r)

if intersect then beep