tell application "Adobe InDesign CS2" 
	activate 
	set myThing to item 1 of selection 
	set myDialog to make dialog with properties {name:"Einzeln Transformieren"} 
	tell myDialog 
		make dialog column 
		tell the result 
			set gFillStart to make enabling group with properties {static label:"Start", checked state:true} 
			tell gFillStart 
				make dialog column 
				tell the result 
					make static text with properties {static label:"X:"} 
					make static text with properties {static label:"Y:"} 
				end tell 
				make dialog column 
				tell the result 
					set startXField to make real editbox with properties {edit value:(item 1 of gradient fill start of myThing)} 
					set startYField to make real editbox with properties {edit value:(item 2 of gradient fill start of myThing)} 
				end tell 
			end tell 
			 
			if type of fill color of myThing is radial then 
				set gAngleGroup to make enabling group with properties {static label:"Winkel", checked state:false} 
			else 
				set gAngleGroup to make enabling group with properties {static label:"Winkel", checked state:true} 
			end if 
			tell gAngleGroup 
				make dialog column 
				tell the result 
					make static text with properties {static label:"Winkel:"} 
				end tell 
				make dialog column 
				tell the result 
					set gAngleField to make real editbox with properties {edit value:(gradient fill angle of myThing)} 
				end tell 
			end tell 
			set gLengthGroup to make enabling group with properties {static label:"Länge", checked state:true} 
			tell gLengthGroup 
				make dialog column 
				tell the result 
					make static text with properties {static label:"Länge:"} 
				end tell 
				make dialog column 
				tell the result 
					set gLengthField to make real editbox with properties {edit value:(gradient fill length of myThing)} 
				end tell 
			end tell 
		end tell 
	end tell 
	set nu to show myDialog 
	if nu is true then 
		set fillthis to checked state of gFillStart 
		set angleThis to checked state of gAngleGroup 
		set lengthThis to checked state of gLengthGroup 
		set startX to edit value of startXField 
		set startY to edit value of startYField 
		set gAngle to edit value of gAngleField 
		set gLength to edit value of gLengthField 
	else 
		destroy myDialog 
		return 
	end if 
	 
	tell myThing 
		set gradient fill start to {startX, startY} 
		set gradient fill angle to gAngle 
		set gradient fill length to gLength 
	end tell 
end tell