Code: Select all
@display 1,{width=100, height=40,borderless=TRUE,dragregion={{type=#box, x=0,y=0,width=30,height=20}}}
Function p_event()
nprint ("check")
waitleftmouse()
end()
endfunction
makebutton (1,#simplebutton,30,0,20,20,{OnMouseup=p_event})
box (30,0,20,20,#white)
repeat
waitevent()
forever
George