Plananarama and Dragregion
Posted: Sun Oct 09, 2016 2:10 am
The following code Accepts the dragregions of the window under OS4. But it does not work on an aga-amiga without gfx-board. A Bug? Or simple syntax-problems??
Best regards
George
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