#Main=0
#List=1
If OpenWindow(#Main,0,0,400,300,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"Demo")
| ListIconGadget(#List,10,10,300,200,"Demo",100)
|
| hPoint=PurePoint("Cross.pvp")
|
| If PurePointChild(#Main)=GadgetID(#List) ;<-- Checks is PurePoint is over ListIcon
|
| UsePurePoint(hPoint) ;<-- Displays PurePoint only over ListIcon
|
| Case #PB_Event_CloseWindow
|
EndIf
End
|