I cannot get Drag and Drop to work moving from OI 9 where it worked to OI 10 where it stopped working.

With or without Control Sections it does not work

How do I check to see if I am possibly missing the plug-in ? when I installed OI 10.

tx

bri

Subroutine O4W_DragAndDropTest(CtlEntId, Event, Request)

$Insert O4WEquates

$Insert O4WFormEquates

$Insert O4W_COMMUTER_COMMON

Begin Case

	Case Event _eqc "CREATE"

		O4WForm("")

		OuterSectionStyle1 = O4WMarkedOptions(1)

		ReplaceSectionStyle1 = O4WMarkedOptions(0)		

		Gosub BuildSection

	Case 1

		O4WResponse()

		OuterSectionStyle1 = O4WMarkedOptions(1):O4WResponseOptions()

		ReplaceSectionStyle1 = O4WMarkedOptions(0)			

		Gosub BuildSection

End Case

Return

BuildSection:

O4WSectionStart("OUTERSECTION", OuterSectionStyle1)

	O4WTableStart("OUTERTABLE", "")

		O4WSetCell(1,1)

			AdvTableOptions1 = O4WTableAdvancedOptions("1","","")			

			O4WTableStart("DNDTABLE", AdvTableOptions1)

				O4WSetCell(1,1)

* O4WSectionStart("DNDROW1SECTION", ReplaceSectionStyle1)

						O4WText("DNDROW1","","")

* O4WSectionEnd("DNDROW1SECTION")

				O4WSetCell(1,2)	

* O4WSectionStart("TEXTBOXROW1SECTION", ReplaceSectionStyle1)

						O4WTextBox("TextBoxROW1",10,20,"TEXTBOXROW","TEXTBOXROW1","")

* O4WSectionEnd("TEXTBOXROW1SECTION")

				O4WSetCell(2,1)				

* O4WSectionStart("DNDROW2SECTION", ReplaceSectionStyle1)

						O4WText("DNDROW2","","")

* O4WSectionEnd("DNDROW2SECTION")

				O4WSetCell(2,2)					

* O4WSectionStart("TEXTBOXROW2SECTION", ReplaceSectionStyle1)

						O4WTextBox("TextBoxROW2",10,20,"TEXTBOXROW","TEXTBOXROW2","")

* O4WSectionEnd("TEXTBOXROW2SECTION")

			O4WTableEnd("DNDTABLE")		

	O4WTableEnd("OUTERTABLE")

O4WSectionEnd("OUTERSECTION")		

Return

View this thread on the Works forum...