Drag and drop base into panel, dbl-click to get it out

drag-to-panel.red

Red [
	Description: {Dragn'drop into panel}
	Date: 14-July-2019
]
context [
	hop: false 
	pan: pane: ofs: none
	view [
		base loose 
			on-down [move find pane: face/parent/pane face tail pane] 
			on-drop [
				if all [
					not hop 
					face/parent/type = 'window 
					within? ofs: face/offset pan/offset pan/size
				][
					move find face/parent/pane face pan/pane 
					face/offset: ofs - pan/offset
				] 
				hop: false
			] 
			on-dbl-click [
				if face/parent/type = 'panel [
					ofs: face/offset 
					move find face/parent/pane face tail event/window/pane 
					face/offset: pan/offset + ofs 
					hop: true
				]
			] 
		pan: panel beige []
	]
]