Sure. It was a Layer button. Move the pointer over the box, and then place it in the path of the box.
Code: Select all
EnableLayers()
Function p_blue()
SetDisplayAttributes({Color=$003377})
EndFunction
Function p_black()
SetDisplayAttributes({Color=#BLACK})
EndFunction
Function p_Main()
xp=xp+1
If xp>GetAttribute(#DISPLAY, 1, #ATTRWIDTH) Then xp=-50
SetLayerStyle("box", {X=xp})
EndFunction
SetFillStyle(#FILLCOLOR)
xp=0
Box(xp, 100, 50, 50, #GRAY, {Name="box"})
MakeButton(1, #LAYERBUTTON, "box", {OnMouseOver=p_blue, OnMouseOut=p_black})
SetInterval(1, p_Main, 30)
Repeat
WaitEvent
Forever