[futurebasic] Re: [FB] RELEASERESOURCE

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

From: Derek Smith <dereksmi@...>
Date: Sun, 24 Oct 1999 23:44:16 -1000
On Sun, 24 Oct 1999 AlStaff@... wrote:

> >Al, Just happened to think that maybe you might want to do this:
> >
> >IF handl& THEN CALL RELEASERESOURCE(handl&)
> >LONG IF ResError = resNotFound
> >  CALL DISPOSEHANDLE(handl&) 'I now see why the spelling was different
> >END IF
> >
> >What do you think?
> 
> Yes. I read your first response and then thought of exactly the same thing. 
> I'll do that.

Aaaaaaaaactually......do this:

LONG IF theHndl&
  hndlFlags  = FN HGETSTATE(resHndl&)
  LONG IF hndlFlags AND _resource%
    Call ReleaseResource(theHndl&)
  XELSE
    Call DisposeHandle(theHndl&)
  END IF
END IF

-Derek