#include <CtrlLib/CtrlLib.h>
#include <TabBar/TabBar.h>

using namespace Upp;

struct DragTabBug : TopWindow {
	TabBar tabs;
	DragTabBug() {
		AddFrame(tabs);
	}
	void LeftDrag(Point p, dword keyflags) override {
		Image i = CtrlImg::new_doc();
		VectorMap<String, ClipData> clip;
		Append(clip, i);
		DoDragAndDrop(clip, i);
	}
};

GUI_APP_MAIN
{
	DragTabBug win;
	win.Run();
}