Drag rectangle(s) with mouse
[final_rect,btn]=dragrect(initial_rect)
: :final_rect a rectangle defined by [x_left, y_top, width, height] : :btn an integer, the number of the mouse button clicked :
dragrect drags one or more rectangles anywhere on the screen. The 4xn matrix rect defines the rectangles. Each column of initial_rect must contain the initial rectangle position as [left;top;width;height] values. When a button is clicked dragrect returns the final rectangles definition in final_Rect.
`xsetech`_(frect=[0,0,100,100])
r=dragrect([10;10;30;10])
`xrect`_(r)