FreePurePoint (hPoint.l)
Previous  Top  Next

Free PurePoint Resources of specified Handle.

Use:
FreePurePoint(hPoint)

Returns 0 if success.




Example:

#Main=0

If OpenWindow(#Main,0,0,400,300,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"Demo")
hPoint=PurePoint("Cross.pvp")  

quitMain=0  
Repeat  
UsePurePoint(hPoint)  

Select WaitWindowEvent()  
Case #PB_Event_CloseWindow  
quitMain=1  
EndSelect  
Until quitMain  

FreePurePoint(hPoint) ;<-- Free PurePoint Resources  
EndIf
End