-- Version 1.1
-- Copyright Tribeworks, Inc. 2003

module oRow2ListPlugin is cPlugin
has		

	release Editor:
		GetIO()
			do
				result := oIORow2ListPlugin;
			end;
	end;
end;



object oRow2ListSeed is cRow2List
with
	Row is 1;
	ValueRef is cLocalRef with Name is "result"; end;
end;

class cRow2List
is
	cTableOp;
has
	Row; 
	ValueRef;

	EachParameter(DoToParameter, ...)
		do
			self.DoToParameter(Row, ...);
			self.DoToParameter(ValueRef, ...);
		end;
	
	ExecuteOp(theVariant, theContext)
		use
			aRow;
			aColumn;
			aVariant;
			aCount;
		do
			aRow := self.Row.Become(INTEGER, theContext);
			self.CheckRow(theVariant, theContext, aRow, 0, 0);
			result := new cList;
			if theVariant <> void then
				from
					aColumn := 1;
					aCount := theVariant.CountColumns();
				while aColumn <= aCount loop
					result.Append(oURLTool.EscapeURL(theVariant.GetColumnNameAt(aColumn)), theVariant.GetCellAt(aRow, aColumn));
				step
					aColumn := aColumn + 1;
				end;
			end;
			self.ValueRef.SetValue(theContext, result);
		end;
		
	release Editor:
		GetIO()
			do
				result := oIORow2ListInclude;
			end;
	end;
end;



release Editor:


object oIORow2ListPlugin is cIOPlugin
with
	MenuItems is [
		cIODataOpMenuItem with Name is "Row To List"; Value is oRow2ListSeed; end
	];
end;

object oIORow2ListInclude is cIODataOpInclude
with
	Icon is "\$00\$00\$7F\$FE\$7F\$FE\$60\$06\$60\$06\$7F\$FE\$7F\$FE\$61\$C6\$63\$66\$63\$66\$61\$C6\$63\$96\$66\$F6\$66\$66\$66\$F6\$03\$90\$00\$00\$7F\$FE\$7F\$FE\$7F\$FE\$7F\$FE\$7F\$FE\$7F\$FE\$7F\$FE\$7F\$FE\$7F\$FE\$7F\$FE\$7F\$FE\$7F\$FE\$7F\$FE\$7F\$FE\$03\$90\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$00\$00\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$00\$00\$FA\$FA\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$FA\$FA\$00\$00\$FA\$FA\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$FA\$FA\$00\$00\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$00\$00\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$FA\$00\$00\$FA\$FA\$F6\$F6\$F6\$F6\$FF\$FF\$FF\$F6\$F6\$F6\$FA\$FA\$00\$00\$FA\$FA\$F6\$F6\$F6\$FF\$FF\$F6\$FF\$FF\$F6\$F6\$FA\$FA\$00\$00\$FA\$FA\$F6\$F6\$F6\$FF\$FF\$F6\$FF\$FF\$F6\$F6\$FA\$FA\$00\$00\$FA\$FA\$F6\$F6\$F6\$F6\$FF\$FF\$FF\$F6\$F6\$F6\$FA\$FA\$00\$00\$FA\$FA\$F6\$F6\$F6\$FF\$FF\$FF\$F6\$F6\$FF\$F6\$FA\$FA\$00\$00\$FA\$FA\$F6\$F6\$FF\$FF\$F6\$FF\$FF\$FF\$FF\$F6\$FA\$FA\$00\$00\$FA\$FA\$F6\$F6\$FF\$FF\$F6\$F6\$FF\$FF\$F6\$F6\$FA\$FA\$00\$00\$FA\$FA\$F6\$F6\$FF\$FF\$F6\$FF\$FF\$FF\$FF\$F6\$FA\$FA\$00\$00\$00\$00\$00\$00\$00\$FF\$FF\$FF\$00\$00\$FF\$00\$00\$00\$00";
	Words is [
		oIORowLabel,
		oIORowParameterWordInclude,
		oIOParameterOutWord
	];
end;

end;